把多个word文档合并起来

打开Microsoft Word。

按Alt+F11 打开VBA编辑器。

插入模块：点击“插入”->“模块”。

粘贴以下代码：

Sub MergeDocuments()
    Dim baseDoc As Document
    Dim fileDialog As FileDialog
    Dim selectedFiles As FileDialogFilters
    Dim i As Integer
    ' Create a new document
    Set baseDoc = Documents.Add
    ' Open the file dialog
    Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)
    fileDialog.AllowMultiSelect = True
    fileDialog.Filters.Clear
    fileDialog.Filters.Add "Word Documents", "*.docx; *.doc"
    ' Show the dialog
    If fileDialog.Show = -1 Then
        For i = 1 To fileDialog.SelectedItems.Count
            ' Insert each selected file
            Selection.InsertFile fileDialog.SelectedItems(i)
            ' Add a page break after each document
            Selection.InsertBreak Type:=wdPageBreak
        Next i
    End If
End Sub

运行宏：

按F5运行宏，选择你要合并的文件。

推荐您阅读更多有关于“ Word  合并   ”的文章

猜你喜欢

• 如何删除word中的空白页2024-3-17 18:3:26
• word清除页眉横线2024-1-18 14:56:53
• 怎样在word中同时输入上下标2018-3-20 10:20:36
• 用Word轻松批量打印请帖、信封2010-9-25 14:36:59