(1)Word中有的时候,需要合并多个文件。Word本身提供了非常简单的方法。只需使用菜单“插入->文件”命令即可完成该操作。
VBA代码:Selection.Range.InsertFile(AFileName, '', False, False, False);
(2)可是会遇到一点问题 插入的文件,为啥不页眉信息丢失了。
如:我插入的文件某些页面是横向,但是现在插入后,不是横向的。
其实解决这个问题,是很容易的,那就是在插入文件的时候,选择“链接”方式插入,如下图
VBA代码:Selection.Range.InsertFile(AFileName, '', False, True, False);
(3)可新的问题又来了,链接方式插入的文件,有灰色的底色,很难看。怎么办呢?
通常情况下,Word会将用户选定的域采用灰色背景进行显示(在打印时灰色背景不会打印出来),这主要是由于"域底纹"选项在发挥作用。如果用户不希望采用这种显示方法,则可执行"工具"菜单中的"选项"命令,然后在"视图"选项卡的"域底纹"框中选择"不显示"选项即可取消其显示。
VBA代码:ActiveWindow.View.FieldShading := wdFieldShadingNever;
(4)因为插入链接的方式,其实是间接的使用WORD的插入文件域“INCLUDETEXT”,这也就可能造成“域嵌套太深”的错误。其实解决方法也很简单,就是断开链接,也就相当于减少了一个域。所以也就不会“域嵌套太深”了^_^。具体操作为:在菜单“编辑->链接”中,断开链接源即可。
VBA代码:ActiveDocument.Fields.Item(1).LinkFormat.BreakLink;