网问答>>vba在word表格中复制粘贴表格?
问题
已解决

vba在word表格中复制粘贴表格?

时间:2021-01-20 17:29:43
自己试了各种办法搞不定,求大神帮助!解决问题再加200分
最佳回答
您好,非常荣幸能在此回答您的问题。以下是我对此问题的部分见解,若有错误,欢迎指出。展开全部打开后焦点发生了转移,activedocument已经指向刚打开的文件了改为Sub Macro1()Dim myDocOn Error Resume NextWith 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 myDocOn Error Resume NextSet myDoc = Word.Application.Documents.Open("E:1.docx", , , , , , , , , , , vbHide)With ActiveDocument.Tables(1).Cell(Row:=1, Column:=3).Range.Delete.InsertAfter Text:=myDoc.Tables(2).Cell(Row:=1, Column:=2)End WithEnd Sub至于为什么多出一个换行符我还没想明白非常感谢您的耐心观看,如有帮助请采纳,祝生活愉快!谢谢!
时间:2021-01-20 17:29:49
本类最有帮助
Copyright © 2008-2013 www.wangwenda.com All rights reserved.冀ICP备12000710号-1
投诉邮箱: