VBA怎么把内容从当前word复制到另一个word文件中

来源：榕意旅游网

VBA怎么把内容从当前word复制到另⼀个word⽂件中

'打开后焦点发⽣了转移，activedocument已经指向刚打开的⽂件了'改为

Sub Macro1()Dim myDoc

'On Error Resume Next

With ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).RangeSet myDoc = Word.Application.Documents.Open(\"E:\\1.docx\").Delete

.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)End WithEnd Sub'（

InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)这⾏代码中，你确定表2存在吗？我测试时只建⼀个表，所以改为Tables(1).）

'也可以这样控制焦点Sub Macro1()Dim myDoc

'On Error Resume Next

Set myDoc = Word.Application.Documents.Open(\"E:\\1.docx\With ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).Range.Delete

.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)End WithEnd Sub

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文

违法及侵权请联系：TEL:199 1889 7713 E-MAIL:2724546146@qq.com

本站由北京市万商天勤律师事务所王兴未律师提供法律服务