在VBA宏中打开/激活Word文档

Sub OpenWord()
    Dim objWord As Object
    Set objWord = CreateObject("Word.Application")
    
    objWord.Visible = True
    
    Dim objDoc As Object
    Set objDoc = objWord.Documents.Open("C:\path\to\document.docx")
End Sub

Sub ActivateDocument()
    Dim objDoc As Object
    Set objDoc = ActiveDocument
End Sub

Sub OpenAndActivateDocument()
    Dim objWord As Object
    Set objWord = CreateObject("Word.Application")
    
    objWord.Visible = True
    
    Dim objDoc As Object
    Set objDoc = objWord.Documents.Open("C:\path\to\document.docx")
    
    objDoc.Activate
End Sub