android 如何把回调赋值另一个_如何把word文档的内容插入到另一个word中？

好久不更新了。公众号粉丝已破万都没来得及记录。

以后本号着重于实例代码分享和个人技术积累记录。

微信公众号不做信息流，文章发布一周之后基本就没什么阅读量了。准备仅作为记录个人技术进步的地方(目录抽空会好好整理，最近研究了不少东西，Word VBA、CAD VBA、VSTO)，给有心学VBA相关技术的人分享。

今天分享一个WordVBA实用技巧：如何把word文档的内容插入到另一个word中？

通常的做法是：Documents.open方法依次循环打开文档，打开需要插入的源文档。然后全选复制源文档内容，粘贴到每一个打开的文档中。关于插入位置的定位，比如定位到某一页，需要用selection对象配合goto方法定位，再粘贴。

▍这里介绍一种新的方法：InsertFile

这个方法是Word中自带的功能，在插入选项卡下，找插入对象选项里面的插入文件中的文字(虽然写的是插入文件中的文字，但是文档中的图片也可插入)。

以上可以通过录制宏得到代码。通过测试，这种方式比复制粘贴的方式要快很多。

以下给出实例代码，正文第二页插入新文档的内容：

        '第2页插入文档        If UserForm1.TextBox2.Value <> "" Then            Selection.GoTo wdGoToPage, , 2 'selectio方法跳转光标到第二页页首            Selection.InsertBreak Type:=wdPageBreak '插入分页符            Selection.GoTo wdGoToPage, , 2 '插入分页符之后，光标需要从新跳转到第二页页首            Selection.InsertFile FileName:=UserForm1.TextBox2.Value, Range:="", _            ConfirmConversions:=False, Link:=False, Attachment:=False '插入新文档中的内容        End If

推荐阅读： (点击下方标题即可跳转)

• 【源代码】Excel定时自毁，你值得拥有

• 【Python+VBA】当蔡徐坤在Excel中打起了篮球！

•  Excel和Word数据交互读取(生成合同)

• 【答小白问】WPS到底能不能用VBA？

• 【收藏备用】工作簿(表)合并拆分那些事

• 【经验】快速学习VBA