【excel vba】在excel中激活并置前word窗口

Sub ActivateWordAndBringToFront()
    Dim wdApp As Object

    Set wdApp = GetObject(, "Word.Application") ' 尝试获取已经打开的 Word 应用
    If wdApp Is Nothing Then
        MsgBox "未找到打开的word文件!"
    Else
        ' 激活 Word 应用
        With wdApp
            .Visible = True ' 设置 Word显示属性
            .application.WindowState = 1 ' 激活窗口 表示窗体是最小化2、 最大化1，还是正常0
            AppActivate .Caption ' 激活窗口
        End With
    End If
End Sub

 

 

 

Dim wrdapp As Object
    Set wrdapp = GetObject(, "Word.Application")
            wrdapp.Visible = True
            wrdapp.Activate 'bring word visiable so erros do not get hidden.
wrdapp.WindowState = wdWindowStateMaximize
Set wrdapp = Nothing