Question

WORD VBA问题

求救word VBA的大虾，怎么通过WORD VBA实现从指定文档（A.docx）中查找每行的指定字符，在另一指定文档中（B.docx）查找与A.DOCX查找到的字符相同的该页内容，复制该页内容并粘贴到A.DOCX指定位置！！！！！！跪求word vba大虾。。。。感激不尽！！！！

Answer 1

将go.doc和come.doc放在同一个目录下，在come.doc中录制宏，然后停止录制，进入VBE，删除开始录制的宏，输入下列代码：Subaa()path1=ThisDocument.Path&"\go.doc"‘得到go.doc的路径Setc=GetObject(path1)'打开go.docSetd=c.Tables(1)'设置go.doc的第一个表对象Sete=ThisDocument.Tables(1)’设置本文件及come.doc的第一个表对象k=e.Cell(1,1)&e.Cell(2,1)‘将本文件的第一个表的第一个单元格和第2行第一个单元格的文字连接起来d.Cell(3,1)=k’写入go.docc.Save'保存c.Close'关闭Setc=NothingEndSub这样这个宏就达到了你的要求

Answer 2

word发来，专治鸭腿疼

追答

发了吗

追问

大虾，怎么发word给你啊

追答

扣我