从VBA Excel打开和关闭Word文档

Sub OpenWordDocument()
    Dim WordApp As Object
    Dim WordDoc As Object
    
    ' 创建一个新的Word应用程序对象
    Set WordApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set WordDoc = WordApp.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    
    ' 可以在这里执行一些操作，如读取或修改文档内容
    
    ' 关闭Word文档
    WordDoc.Close
    
    ' 退出Word应用程序
    WordApp.Quit
    
    ' 释放对象变量
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub

Sub CloseWordDocument()
    Dim WordApp As Object
    Dim WordDoc As Object
    
    ' 创建一个新的Word应用程序对象
    Set WordApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set WordDoc = WordApp.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    
    ' 可以在这里执行一些操作，如读取或修改文档内容
    
    ' 关闭Word文档
    WordDoc.Close
    
    ' 退出Word应用程序
    WordApp.Quit
    
    ' 释放对象变量
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub