从另一个 Word 文档的副本创建 Word 文档时遇到格式问题

Question

我支持的应用程序是通过将几个 Word 文档依次复制到一个文档中来创建合并的 Word 文档。

问题是合并文档中附加的文档的某些字段的格式发生了更改，而合并文档是 AppendDocument 的副本（想象一下，如果我们有一个文档要在合并文档中复制）文档）

Word 文档的第一行和第二行如下所示：

发件人： Mr x 收件人： Gary Y

地址： NorkYork 日期： 2010/05/01

发件人：、收件人：、地址： 和 日期：在 AppendDocument 中为粗体，大小为 10，而在合并文档中，它们为粗体，但大小更改为 12！

我很困惑，不知道为什么这 4 个项目的尺寸会改变，即使它们的实际值具有相同的尺寸！

请参阅下面的代码，其中传递了 2 个文档路径。第一个是 BaseDocuemnt 或合并文档，第二个是附加文档。

Private Sub DocumentAppend(ByVal strBaseDocument As String, ByVal strAppendDocument As String)
    Dim FirstDocument As Boolean
    Dim fleBaseDocument As File
    Dim wrdRange As Word.Range
    Dim wrdAppendDocument As Word.DocumentClass
    wrdAppendDocument = New Word.DocumentClass()
    Dim AmalgamatedDocument As Word.DocumentClass
    AmalgamatedDocument = New Word.DocumentClass()
    Dim wrdApp As Word.ApplicationClass
    wrdApp = AmalgamatedDocument.Application
    Dim AmalgamatedDocumentRange As Word.Range
    Try
        wrdApp.Visible = True
        If fleBaseDocument.Exists(strBaseDocument) Then
            FirstDocument = False
            AmalgamatedDocument = wrdApp.Documents.Open(strBaseDocument)
        Else
            FirstDocument = True
            AmalgamatedDocument = wrdApp.Documents.Add()
        End If

        AmalgamatedDocumentRange = AmalgamatedDocument.Content
        AmalgamatedDocumentRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
        If Not FirstDocument Then
            AmalgamatedDocumentRange.InsertBreak (Word.WdBreakType.wdSectionBreakNextPage)
        End If
        ''# get the document to be appended
        wrdAppendDocument = wrdApp.Documents.Open(strAppendDocument)
        wrdAppendDocument.Activate()
        wrdAppendDocument.Select()
        ''# +++++++++++++++++++++++
        wrdApp.Selection.Copy()
        wrdApp.Selection.CopyFormat()
        AmalgamatedDocument.Activate()
        wrdRange = AmalgamatedDocument.Content
        wrdRange.Collapse(Word.WdCollapseDirection.wdCollapseEnd)
        wrdRange.Paste()
        ''# New
        wrdApp.Selection.PasteFormat()
        ''# +++++++++++++++++++++++
        wrdAppendDocument.Close()
        ''# save the new document
        AmalgamatedDocument.SaveAs(FileName:=strBaseDocument)
        AmalgamatedDocument.Close()
End Sub

任何建议将不胜感激！

Answer 1

首先，当您实际上不想操作 Word 中的活动屏幕文档时，我首先尝试避免使用 SELECTION 对象。

我还建议研究 Range.InsertFile 方法。基本上，您打开或创建“目标”文档，然后获取 CONTENT 的范围对象，将其折叠到末尾，最后调用 INSERTFILE 在该点插入文件。

像这样的东西

        dim rngend = Doc.Content
        rngend.Collapse(WdCollapseDirection.wdCollapseEnd)
        rngend.InsertFile(File, ConfirmConversions:=False, Link:=False, Attachment:=False)

通常会忠实地保留格式，尽管我遇到过一些不完全100%的情况