☰

将 .doc 文件合并为一个 .doc（保留每个文档的原始格式）

tag-icon • tag-icon microsoft-word batch
将 .doc 文件合并为一个 .doc（保留每个文档的原始格式）

我有大约 50 个.doc文件，看上去很完美（它们是用 Able2Extract 提取的）。现在我想将这 50 个文件合并成一个巨大的文件.doc。我试过使用 Word 的内置“插入”功能，但这搞乱了整个格式。我想保留我拥有的一切。就像文档1->文档2->文档3。

转换过程中不需要任何“智能”或“智慧”，只需要将它们连接起来即可。（从而使它们全部可搜索，这是最终目标。）如果方法/解决方案在每个文档末尾都应用一张空白页，我也不介意。

答案1

文档构建完成后是否必须以 .doc 格式保存？您可以尝试使用 Adob​​e Acrobat 或类似软件将它们合并为一个大型 .pdf。这样可以实现将所有文档合并为可搜索格式的目标，同时保留每个文档的格式/布局。

答案2

在保留原始格式的同时合并文档的最佳方法是使用 VBA 并自动执行手动合并文档的步骤。您需要记住以下几点以确保格式保持不变：

  • 确保每个文档都由新的部分分隔
  • 确保每个文档都使用保留源格式导入。

以下VBA宏应有助于自动化这一过程，同时我没有对其进行测试。

Sub CombineAll(sPath As String) 
    Dim baseDoc As Document, sFile As String 
    Set baseDoc = Application.Documents.Open(sPath & "BaseDoc.doc") 

    sFile = Dir(sPath & "*.doc") 
     'Loop through all .doc files in that path
    Do While sFile <> "" 

       Set sourceDoc = Application.Documents.Open(sPath & sFile) 
       Application.Selection.WholeStory
       Application.Selection.Copy
       Application.ActiveWindow.Close savechanges:=wdDoNotSaveChanges
       baseDoc.Activate

       Application.Selection.PasteAndFormat (wdFormatOriginalFormattig)
       baseDoc.InsertBreak Type:=wdSectionBreakNextPage
       sFile = Dir 
    Loop 
End Sub

相关内容