合并 MS Word 文件的工具

Question

我有大量的Word 文件需要合并（加入）为一个文件，并且使用Word 合并（一个接一个）会很耗时。 您是否体验过可以完成这项工作的工具？

Answer 1

Sub MergeAllDocuments(AllDocumentsPath as String, MasterDocumentPath as String)
  Dim MasterDocument As Document

  Set MasterDocument = Documents.Open(FileName:=MasterDocumentPath)

  TheDocumentPath = Dir(AllDocumentsPath , vbNormal)
  While TheDocumentPath <> ""
    ' Append the next doc to the end of the master doc. (The 
    ' special "\EndOfDoc" bookmark is always available!)
    MasterDocument.Bookmarks("\EndOfDoc").Range.InsertFile TheDocumentPath
    TheDocumentPath = Dir
  Wend

  MasterDocument.Save
End Sub

MergeAllDocuments "C:\MySeparateDocuments\*.doc", "C:\MasterDocument.doc"

我有一个问题 - 为什么你想做这样的事情（至少有“大量”文件）？

Answer 2

不久前我看到了 Graham Skan 的一篇文章。 它可能会让你开始：

Sub InsertFiles()
    Dim strFileName As String
    Dim rng As Range
    Dim Doc As Document
    Const strPath = "C:\Documents and Settings\Graham Skan\My Documents\Allwork\" 'adjust as necessary '"

    Set Doc = Documents.Add
    strFileName = Dir$(strPath & "\*.doc")
    Do
        Set rng = Doc.Bookmarks("\EndOfDoc").Range
        If rng.End > 0 Then 'section break not necessary before first document.'
            rng.InsertBreak wdSectionBreakNextPage
            rng.Collapse wdCollapseEnd
        End If
        rng.InsertFile strPath & "\" & strFileName
        strFileName = Dir$()
    Loop Until strFileName = ""
End Sub

Answer 3

您是否尝试过使用 Word COM api？ 你可以自动化很多事情——也许你可以自动化合并。

您确实需要进行实际合并，还是想将文件连接在一起。 这两件事是完全不同的。

当原始文件的两个版本都进行了（可能冲突的）更改时，就会使用合并。 我真的不明白你如何拥有需要将所有文件合并在一起的“大量”文件。 这绝对是一场冲突的噩梦。 您的意思是将它们合并到单独的文件中吗？

当您想要将它们一个接一个地连接起来时，就会发生连接。 这会容易得多。 使用 COM api 完全可以实现这一点。