解决本地内网Word文档超链接打开后无法自动前置问题

场景 #

Excel工作表中有指向本地内网中A.doc和B.doc两个Word文档的超链接，操作流程为先打开A.doc再打开B.doc。

问题 #

当已有打开的Word文档时，点击内网Word文档超链接，新文档无法自动前置，需点击任务栏闪烁按钮切换；无打开文档时则正常。

需求 #

利用Excel的FollowHyperlink事件或其他方法，实现先将已打开的A.doc窗口前置，再将新打开的B.doc窗口前置。

已尝试的代码方案 #

1. Word Normal模板ThisDocument模块中的API代码：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim LHwnd As Long

Private Sub Document_Open()
    If Application.Documents.Count > 1 Then
       LHwnd = FindWindow("rctrl_renwnd32", Application.ActiveWindow.Caption)
       SetForegroundWindow (LHwnd)
    End If 
End Sub

2. Excel工作表中的FollowHyperlink事件代码：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    On Error Resume Next
      Dim objWd As Object
       Set objWd = GetObject(, "Word.Application")
      AppActivate objWd.ActiveWindow.Caption
    Set objWd = Nothing
End Sub

解决方案 #

通过Excel的Worksheet_FollowHyperlink事件结合Windows API，可实现需求的窗口前置逻辑，具体代码如下：

在Excel目标工作表的模块中添加以下代码：

' 模块顶部的API声明
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Const SW_RESTORE = 9 ' 窗口恢复常量

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim objWd As Object
    Dim docFullName As String
    Dim docTitle As String
    Dim waitMs As Long
    Dim mainWndHwnd As Long
    Dim docWndHwnd As Long
    
    waitMs = 600 ' 等待文档加载的毫秒数，可根据内网速度调整
    docFullName = Target.Address
    ' 提取文档标题（不含路径，需与Word窗口标题匹配）
    docTitle = Mid(docFullName, InStrRev(docFullName, "\") + 1)
    
    ' 检查是否存在已打开的Word实例
    On Error Resume Next
    Set objWd = GetObject(, "Word.Application")
    On Error GoTo 0
    
    If Not objWd Is Nothing Then
        ' 前置已打开的Word主窗口
        mainWndHwnd = FindWindow("OpusApp", vbNullString)
        If mainWndHwnd <> 0 Then
            ShowWindow mainWndHwnd, SW_RESTORE ' 若窗口最小化则恢复
            SetForegroundWindow mainWndHwnd
        End If
        
        ' 等待新文档完成加载
        Sleep waitMs
        
        ' 定位并前置新打开的文档窗口
        docWndHwnd = FindWindow("rctrl_renwnd32", docTitle)
        If docWndHwnd <> 0 Then
            SetForegroundWindow docWndHwnd
        End If
    Else
        ' 无Word实例时，等待文档打开后前置
        Sleep waitMs
        docWndHwnd = FindWindow("rctrl_renwnd32", docTitle)
        If docWndHwnd <> 0 Then
            SetForegroundWindow docWndHwnd
        End If
    End If
    
    Set objWd = Nothing
End Sub

代码说明

• FindWindow：通过窗口类名查找Word主窗口（类名OpusApp）和文档窗口（类名rctrl_renwnd32）；
• ShowWindow：确保Word主窗口不是最小化状态，避免前置失败；
• Sleep：等待内网文档加载完成，防止因文档未完全打开导致找不到窗口；
• 逻辑顺序：先前置已打开的Word主窗口，再定位新文档窗口并前置，完全匹配需求。

注意事项

• 确保docTitle与Word窗口的标题完全一致（若文档打开后标题不含后缀，需调整提取逻辑）；
• 若内网文档加载较慢，可适当增大waitMs的数值；
• 需在Excel中启用宏，并确保信任中心设置允许运行本地宏。

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