批量合併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
單擊運行按鈕,運行宏,等幾分鐘即可完成合並。