使用vba将microsoft word文件粘贴到另一个文件夹中

Sub PasteWordFile()
    Dim sourcePath As String
    Dim destinationPath As String
    Dim fileName As String
    
    ' 设置源文件路径
    sourcePath = "C:\SourceFolder\"
    
    ' 设置目标文件夹路径
    destinationPath = "C:\DestinationFolder\"
    
    ' 设置文件名
    fileName = "example.docx"
    
    ' 打开源文件
    Documents.Open FileName:=sourcePath & fileName
    
    ' 选择整个文档内容
    Selection.WholeStory
    
    ' 复制选定的内容
    Selection.Copy
    
    ' 关闭源文件
    ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
    
    ' 打开目标文件
    Documents.Open FileName:=destinationPath & fileName
    
    ' 将剪贴板中的内容粘贴到目标文件
    Selection.Paste
    
    ' 关闭目标文件
    ActiveDocument.Close SaveChanges:=wdSaveChanges
End Sub