word中插入表格

imtyer

谁能把1.doc 中的表格插入2.doc 的第二页  可以用vba  java库poi  /// C#库npoi   求源码

413191246se

1. Sub InsertTable()
   
2.     Documents("2.doc").Activate
   
3.     Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="2"
   
4.     Documents("1.doc").Tables(1).Range.Copy
   
5.     Selection.Paste
   
6. End Sub

复制代码

sylun

可试试如下代码

1. Sub test()
   
2.     '假设1.doc为当前文档，2.doc已打开
   
3.     With Documents("2.doc").Content
   
4.         .GoTo wdGoToPage, wdGoToAbsolute, 1 '两常量值均为1
   
5.         .FormattedText = ActiveDocument.Tables(1).Range
   
6.     End With
   
7. End Sub

复制代码

sylun

原代码有误，改为（因审核中无法修改）：

1. Documents("2.doc").Content.GoTo(wdGoToPage, wdGoToAbsolute, 2).FormattedText = ActiveDocument.Tables(1).Range

复制代码

413191246se

* sylun 老师 的代码归纳如下（请 楼主 同时打开 1、2 两个文档用应用宏）：

1. Sub InsertTableBetter()
   
2.     Documents("2.doc").Activate
   
3.     ActiveDocument.Content.GoTo(wdGoToPage, wdGoToAbsolute, 2).FormattedText = Documents("1.doc").Tables(1).Range
   
4. End Sub

复制代码

imtyer

sylun 发表于 2021-1-9 14:50
原代码有误，改为（因审核中无法修改）：

能用java poi 或者C# npoi吗？