如何合併 .doc 文件？

Question

我有 500 多個文檔文件需要合併到一個文件中。我怎麼做？我嘗試過從文字檔案插入 -->，但它只像前 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\為您的路徑。