MS Word VBA从文件夹路径中选择要打开的任何word文件进行复制/粘贴

Sub CopyPasteWordFiles()
    Dim folderPath As String
    Dim fs As Object
    Dim folder As Object
    Dim file As Object
    Dim wordApp As Object
    Dim wordDoc As Object
    
    ' 获取文件夹路径
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "选择文件夹"
        If .Show = -1 Then
            folderPath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    wordApp.Visible = True
    
    ' 创建文件系统对象
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set folder = fs.GetFolder(folderPath)
    
    ' 遍历文件夹中的Word文件
    For Each file In folder.Files
        If LCase(fs.GetExtensionName(file.Path)) = "doc" Or LCase(fs.GetExtensionName(file.Path)) = "docx" Then
            ' 打开Word文件
            Set wordDoc = wordApp.Documents.Open(file.Path)
            
            ' 复制文件内容
            wordDoc.Content.Copy
            
            ' 在此处进行粘贴操作，可以粘贴到另一个Word文档或其他位置
            
            ' 关闭Word文件
            wordDoc.Close
        End If
    Next file
    
    ' 释放对象
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Set file = Nothing
    Set folder = Nothing
    Set fs = Nothing
End Sub