體操作步驟如下。 1. 首先用記事本做一個小程式，以便在資料夾中可以同時選中多個檔案。程式碼如下：Dim fs As FileSearch, i As Long, n As Long Set fs = Application.FileSearch ml = ActiveDocument.Path bwj = ActiveDocument.Name Documents.Add With fs .NewSearch .LookIn = ml .FileType = msoFileTypeWordDocuments If .Execute > 0 Then For i = 1 To .FoundFiles.Count If .FoundFiles.Item(i) <> ml & "\" & bwj Then Selection.InsertFile FileName:=.FoundFiles.Item(i) Selection.InsertBreak Type:=wdPageBreak n = n + 1 End If Next End If End With MsgBox "共合併了" & n & "篇文件"將此程式碼命名為《Sub test》儲存。如果沒有這個檔案，你就不能在插入時同時選定多個要合併的文件2 .新建一個資料夾，把《Sub test》放進去，然後再把所有需要合併的word檔案都放在這個資料夾之中。 3.單擊功能區中的“插入”選項卡，然後單擊“物件”按鈕右側箭頭，並單擊彈出選單中的“檔案中的文字”命令。 4.在“插入檔案”對話方塊中，把你新建的那個資料夾開啟，按住shift鍵，全選要合併的多個文件。 5.單擊“插入”按鈕，這樣所選的多個文件就插入到一個新的文件中了，從而輕鬆實現了合併多個文件。
體操作步驟如下。 1. 首先用記事本做一個小程式，以便在資料夾中可以同時選中多個檔案。程式碼如下：Dim fs As FileSearch, i As Long, n As Long Set fs = Application.FileSearch ml = ActiveDocument.Path bwj = ActiveDocument.Name Documents.Add With fs .NewSearch .LookIn = ml .FileType = msoFileTypeWordDocuments If .Execute > 0 Then For i = 1 To .FoundFiles.Count If .FoundFiles.Item(i) <> ml & "\" & bwj Then Selection.InsertFile FileName:=.FoundFiles.Item(i) Selection.InsertBreak Type:=wdPageBreak n = n + 1 End If Next End If End With MsgBox "共合併了" & n & "篇文件"將此程式碼命名為《Sub test》儲存。如果沒有這個檔案，你就不能在插入時同時選定多個要合併的文件2 .新建一個資料夾，把《Sub test》放進去，然後再把所有需要合併的word檔案都放在這個資料夾之中。 3.單擊功能區中的“插入”選項卡，然後單擊“物件”按鈕右側箭頭，並單擊彈出選單中的“檔案中的文字”命令。 4.在“插入檔案”對話方塊中，把你新建的那個資料夾開啟，按住shift鍵，全選要合併的多個文件。 5.單擊“插入”按鈕，這樣所選的多個文件就插入到一個新的文件中了，從而輕鬆實現了合併多個文件。