Excel中用VBA打开Word文档时Word始终最小化的求助

在Windows 11 + Office 365环境下，通过Excel工作表的ActiveX按钮触发VBA代码打开RTF文件时，Word始终处于最小化状态仅在任务栏可见，可通过以下修改让Word窗口直接显示在Excel前方：

修改后的VBA代码 #

Public Sub OpenWordFile(FName As String)
    Dim WordApp As Object
    Dim WordDoc As Object
    
    ' 尝试获取已运行的Word实例
    On Error Resume Next
    Set WordApp = GetObject(, "Word.Application")
    If WordApp Is Nothing Then
        ' 未运行则新建Word实例
        Set WordApp = CreateObject("Word.Application")
    End If
    On Error GoTo 0
    
    ' 检查文件是否存在
    If Len(Dir(FName)) > 0 Then
        Set WordDoc = WordApp.Documents.Open(FName)
        ' 设置Word可见并恢复正常窗口状态
        WordApp.Visible = True
        WordApp.WindowState = 0 ' 等价于wdWindowStateNormal，避免后期绑定常量问题
        ' 激活文档并将Word窗口前置
        WordDoc.Activate
        AppActivate WordApp.Caption
    Else
        MsgBox "无法打开'" & FName & "'!", vbInformation, "加载文档错误"
    End If
    
    ' 释放对象资源
    Set WordDoc = Nothing
    Set WordApp = Nothing
End Sub

关键修改说明 #

• 恢复正常窗口状态：使用WordApp.WindowState = 0（对应Word常量wdWindowStateNormal）强制Word窗口脱离最小化状态。
• 激活目标文档：WordDoc.Activate确保焦点落在刚打开的RTF文档上，而非Word的空白窗口。
• 强制窗口前置：AppActivate WordApp.Caption将Word应用窗口直接带到Excel窗口前方，解决任务栏可见但窗口不显示的问题。
• 新增文档对象变量：通过WordDoc直接操作打开的文档，提升代码可读性和可控性。

内容的提问来源于stack exchange，提问作者MarkA