批量合併word文檔?

在生活工作中，有事需要將多個word文檔的內容合併到一個文檔中，有沒有更好的方法

工具/原料

word

計算機

方法/步驟

新建一個word文檔，命名後保存到和要合併的n多篇文檔一個文件夾裡。如圖：

按Alt+F11進入宏編輯器，進行入後窗口如圖：

雙擊左上角的ThisDocument

雙擊ThisDocument後，在右側打開打碼編輯窗口。如圖：

在右側的代碼區粘貼如下代碼：

Sub 合併文檔()

Application.ScreenUpdating = False

MyPath = ActiveDocument.Path

MyName = Dir(MyPath & "\" & "*.doc")

i = 0

Do While MyName <> ""

If MyName <> ActiveDocument.Name Then

Set wb = Documents.Open(MyPath & "\" & MyName)

Selection.WholeStory

Selection.Copy

Windows(1).Activate

Selection.EndKey Unit:=wdLine

Selection.TypeParagraph

Selection.Paste

i = i + 1

wb.Close False

End If

MyName = Dir

Loop

Application.ScreenUpdating = True

End Sub

單擊運行按鈕，運行宏，等幾分鐘即可完成合並。