VBScript/VBA批量合并多个Word文件到一个文件

Const wdPageBreak = 7 ' 分页符
 
Dim strFileName
strFileName = "要合并的文件.doc"
 
Dim strDestFileName
strDestFileName = "最终合并的文件.doc"
 
Dim wdApp, doc, Selection
Set wdApp = WSH.CreateObject("Word.Application")
wdApp.Visible = False
 
Set doc = wdApp.Documents.Add
 
Set Selection = wdApp.Selection
' 这里strFileName直接是要合并的文件路径
' Selection.InsertFile FileName:=strFileName
Selection.InsertFile strFileName
' 跳转到下一页（插入分页符）
' Selection.InsertBreak Type:=wdPageBreak
Selection.InsertBreak wdPageBreak
 
Set doc = Nothing
doc.SaveAs strDestFileName
doc.Close
 
Set doc = Nothing
wdApp.Visible = True
wdApp.Quit
Set wdApp = Nothing

Option Explicit
 
Const msoFileTypeWordDocuments = 3
 
Dim wdApp, FileSearch, i
Set wdApp = WSH.CreateObject("Word.Application")
wdApp.Visible = False
 
Set FileSearch = wdApp.Application.FileSearch
  With FileSearch
    .NewSearch
    .LookIn = wdApp.ActiveDocument.Path ' 指定搜索路径
    .FileType = msoFileTypeWordDocuments
 
    If .Execute > 0 Then
      For i = 1 To .FoundFiles.Count
        MsgBox .FoundFiles.Item(i) ' 所找到的文件
      Next
    End If
  End With
Set FileSearch = Nothing
 
wdApp.Visible = True
wdApp.Quit
Set wdApp = Nothing

Option Explicit
 
Const msoFileDialogFilePicker = 3
 
Dim wdApp, Dialog
Set wdApp = WSH.CreateObject("Word.Application")
wdApp.Visible = False
 
  Set Dialog = wdApp.Application.FileDialog(msoFileDialogFilePicker)
    With Dialog
      .Title = "请选择文档（可以多选）"
      .AllowMultiSelect = True
      .Filters.Clear
      .Filters.Add "所有 WORD 文件", "*.doc", 1
    End With
 
    Dim i
    If Dialog.Show Then
      For i = 1 To Dialog.SelectedItems.Count
        MsgBox Dialog.SelectedItems(i) ' 选择的项目
      Next
    End If
  Set Dialog = Nothing
wdApp.Visible = True
wdApp.Quit
Set wdApp = Nothing