添加word文档并保持格式

【问题标题】：Add word document and keep formatting添加word文档并保持格式
【发布时间】：2015-12-04 23:28:30
【问题描述】：

我正在尝试将我的简历添加到文档的末尾。下面的代码就是这样做的，但是一旦将 CV 插入到新文档中，它的格式就会变得混乱。我可以插入文件并保留简历的原始格式吗（我不想从打开的文档中复制和粘贴）：

objword1.Selection.InsertFile Filename:=cv1Address, _
    ConfirmConversions:=False, Link:=False, Attachment:=False

【问题讨论】：

为什么不录制一个宏来重新格式化导入的文件/cv，然后将此宏复制/粘贴到您的代码中？

标签： vba formatting ms-word

【解决方案1】：

恐怕您不能使用 InsertFile 方法，而必须打开文件并使用 wdFormatOriginalFormatting 复制和粘贴

我找到了这个：

Set rtffile = wdApp.Documents.Open(Filename:="C:\temp\rtf_stapler_problem\concat\cars2.rtf", ConfirmConversions:=False, ReadOnly:=True)
wdApp.Selection.WholeStory
wdApp.Selection.Copy
wdApp.ActiveWindow.Close savechanges:=wdDoNotSaveChanges
destdoc.Activate
wdApp.Selection.PasteAndFormat (wdFormatOriginalFormatting)
wdApp.Selection.InsertBreak Type:=wdSectionBreakNextPage

here

【讨论】：