如何在Python中获取用户上传的多Word文件并合并为单个Word文件？

两种思路对比 #

你最初考虑的循环获取文件路径的方法完全可行，但用户体验极差——手动输入路径不仅繁琐，还容易因格式错误（比如漏写扩展名、路径带空格未加引号）导致程序报错。更推荐用VBA自带的FileDialog组件做可视化文件选择界面，这是Office VBA处理文件选择的标准方案，操作简单且不易出错。

1. 实现多文件可视化选择 #

用msoFileDialogFilePicker类型的对话框，支持多选，还能筛选Word格式文件，代码如下：

Sub SelectWordFiles()
    Dim fd As FileDialog
    Dim selectedFiles As Variant
    Dim i As Integer
    
    ' 创建文件选择对话框
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    With fd
        .Title = "请选择要合并的Word文件"
        .AllowMultiSelect = True ' 开启多选
        ' 只显示Word文件
        .Filters.Clear
        .Filters.Add "Word文档", "*.doc;*.docx"
        .Filters.Add "所有文件", "*.*"
        
        ' 如果用户点击确定
        If .Show = -1 Then
            selectedFiles = .SelectedItems ' 获取选中的文件路径数组
            ' 调用合并函数
            MergeWordFiles selectedFiles
        End If
    End With
    
    Set fd = Nothing
End Sub

2. 批量合并Word文件 #

新建空白文档，逐个打开选中的文件，将内容复制到新文档中，同时处理格式与分页问题：

Sub MergeWordFiles(filePaths As Variant)
    Dim newDoc As Document
    Dim sourceDoc As Document
    Dim i As Integer
    
    ' 创建新的空白文档作为合并后的文件
    Set newDoc = Documents.Add
    
    ' 遍历选中的每个文件
    For i = LBound(filePaths) To UBound(filePaths)
        ' 后台静默打开源文件（不显示界面）
        Set sourceDoc = Documents.Open(filePaths(i), Visible:=False)
        
        ' 复制源文件内容（排除最后一个段落标记，避免多余分页）
        sourceDoc.Content.Copy
        ' 将内容粘贴到新文档末尾，保留原格式
        newDoc.Range(newDoc.Content.End - 1, newDoc.Content.End - 1).PasteAndFormat wdFormatOriginalFormatting
        
        ' 关闭源文件，不保存更改
        sourceDoc.Close SaveChanges:=wdDoNotSaveChanges
    Next i
    
    ' 提示合并完成
    MsgBox "文件合并完成！新文档已创建。", vbInformation
    
    Set newDoc = Nothing
    Set sourceDoc = Nothing
End Sub

注意事项 #

• 运行代码前，需启用Word宏功能（文件→选项→信任中心→信任中心设置→宏设置）
• 若合并后格式不符预期，可调整PasteAndFormat参数，比如换成wdFormatSurroundingFormattingWithEmphasis适配目标文档格式
• 如需指定合并后的保存路径，可在MergeWordFiles末尾添加newDoc.SaveAs2 "C:\你的保存路径\合并文档.docx"

内容的提问来源于stack exchange，提问作者Mackenzie