Excel VBA:将工作簿另存为Word文档

Sub SaveAsWord()
    Dim objWord As Object
    Dim objDoc As Object
    
    ' 创建一个新的Word应用程序对象
    Set objWord = CreateObject("Word.Application")
    
    ' 创建一个新的Word文档
    Set objDoc = objWord.Documents.Add
    
    ' 将当前工作簿的内容复制到Word文档中
    ThisWorkbook.Sheets(1).UsedRange.Copy
    
    ' 将复制的内容粘贴到Word文档中
    objDoc.Range.Paste
    
    ' 设置保存路径和文件名
    Dim savePath As String
    savePath = "C:\Path\To\Save\Document.docx"
    
    ' 保存Word文档
    objDoc.SaveAs savePath
    
    ' 关闭Word文档
    objDoc.Close
    
    ' 退出Word应用程序
    objWord.Quit
    
    ' 释放对象变量
    Set objDoc = Nothing
    Set objWord = Nothing
    
    MsgBox "工作簿已成功保存为Word文档。"
End Sub