如何合并 .doc 文件？

Question

我有 500 多个 doc 文件需要合并到一个文件中。我该怎么做？我尝试从文本文件中插入 -->，但它只合并前 50 个。有什么想法吗？

Answer 1

如果用户界面失败，我建议使用宏。您能否将文件名列在 Word 文档中，一个段落一个名称？然后以下宏将用文件内容替换文件名：

Sub Include()
    With ActiveDocument
        For i = .Paragraphs.Count To 1 Step -1
            Set oRange = .Paragraphs(i).Range
            sFname = oRange.Text
            sFname = Left(sFname, Len(sFname) - 1)
            sFname = "c:\tmp\" & sFname
            oRange.InsertFile FileName:=sFname
        Next
    End With
End Sub

替换c:\tmp\为您的路径。