如何让AutoHotkey脚本适配多实例Word并作用于当前窗口？

原代码通过ComObj("Word.Application")获取Word实例时，默认会返回系统中第一个启动的Word进程，导致多实例场景下热键仅作用于第一个实例，甚至误修改后台实例内容。要让脚本精准作用于当前聚焦的Word窗口，需通过窗口句柄绑定对应实例，具体修改如下：

核心函数：获取当前激活窗口的Word实例 #

添加函数，通过系统API从当前窗口句柄直接获取对应的Word COM实例：

GetActiveWordInstance() {
    WinGet, hWnd, ID, A
    if !hWnd
        return false
    ; Word窗口的CLSID标识
    classID := "{000209FF-0000-0000-C000-000000000046}"
    ; 调用API绑定窗口对应的COM对象
    if DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", hWnd, "UInt", 0xFFFFFFF0, "Ptr", &classID, "Ptr*", pWord) {
        return false
    }
    ; 转换为AutoHotkey可操作的COM对象
    return ComObject(9, pWord, 1)
}

修改后的热键代码 #

将原热键中的实例获取方式替换为上述函数，确保操作当前激活的Word窗口：

#IfWinActive ahk_group Word
; 加粗并设置为红色
Ralt & 7::
    oWord := GetActiveWordInstance()
    if !oWord
        return
    oWord.Selection.Font.Bold := 1
    oWord.Selection.Font.Color := 0x0000FF
return

; 设置绿色高亮
!1::
    oWord := GetActiveWordInstance()
    if !oWord
        return
    oWord.Selection.Range.HighlightColorIndex := 4
return
#IfWinActive

原理说明 #

• 通过WinGet, hWnd, ID, A获取当前激活窗口的句柄
• 调用AccessibleObjectFromWindowAPI，直接从窗口句柄绑定对应Word实例，避开默认取第一个实例的逻辑
• 转换后的COM对象可直接复用原代码中的Word VBA属性与方法

注意事项 #

• 确保当前激活窗口属于ahk_group Word分组（原窗口分组逻辑保持不变）
• 若出现权限报错，尝试以管理员身份启动AutoHotkey脚本
• 该方法依赖系统内置oleacc.dll，无需额外安装第三方库

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