如何用AutoHotKey处理Word文本？VBA转AHK及数组替换需求

1. VBA转AutoHotkey的参考方法 #

没有官方的逐行转换指南，因为两者语法、COM对象调用逻辑存在差异，可通过以下方式逐步转换：

• 先掌握AHK核心语法，重点熟悉COM对象调用（操作Office软件的核心），了解AHK中如何访问Word/Excel等对象的属性和方法。
• 对比VBA与AHK的语法差异：
  • VBA的With块在AHK中无法直接使用，需改为直接调用对象的属性/方法（如VBA中With oSel.Find改为AHK的oSel.Find.ClearFormatting()）。
  • VBA的Dictionary对应AHK v1的Object()或AHK v2的Map。
• 参考AHK官方文档的COM章节，尤其是Office对象模型的调用示例，了解AHK如何映射VBA的对象操作。
• 在AHK社区论坛中搜索Office脚本案例，看其他用户如何将VBA宏转换为AHK代码，学习实操技巧。
• 调试时用AHK的MsgBox或OutputDebug查看对象属性，替代VBA的即时窗口功能，逐步排查差异。

2. 遍历Word选中文本实现字典替换+高亮的AHK代码 #

AHK v1 版本（兼容旧版AHK） #

; 快捷键：Ctrl+Alt+R，仅在Word窗口激活时生效
#IfWinActive ahk_exe WINWORD.EXE
^!r::
    ; 构建翻译字典：键=原文本，值=目标文本
    translationDict := Object()
    translationDict["apple"] := "苹果"
    translationDict["banana"] := "香蕉"
    translationDict["orange"] := "橙子"
    ; 可继续添加更多键值对

    ; 获取当前Word应用对象
    oWord := ComObjActive("Word.Application")
    ; 检查是否有选中的文本（wdSelectionIP=0代表无选中）
    if (oWord.Selection.Type = 0) {
        MsgBox, 请先选中需要处理的文本！
        return
    }
    oSel := oWord.Selection

    ; 遍历字典执行替换
    for key, value in translationDict {
        ; 清除查找和替换的格式设置
        oSel.Find.ClearFormatting()
        oSel.Find.Replacement.ClearFormatting()
        ; 设置替换后文本高亮（黄色背景）
        oSel.Find.Replacement.Highlight := true
        ; 配置查找规则
        oSel.Find.Text := key
        oSel.Find.Replacement.Text := value
        oSel.Find.Forward := true
        oSel.Find.Wrap := 1 ; wdFindStop，仅在选中范围内查找
        oSel.Find.Format := true ; 启用格式匹配（这里指高亮格式）
        oSel.Find.MatchCase := false ; 不区分大小写
        oSel.Find.MatchWholeWord := true ; 匹配完整单词，可根据需求改为false
        ; 执行全部替换（最后一个参数2=wdReplaceAll）
        oSel.Find.Execute(, , , , , , , , , , 2)
    }
    MsgBox, 替换完成！
return
#IfWinActive

AHK v2 版本（新版AHK，语法更简洁） #

; 快捷键：Ctrl+Alt+R，仅在Word窗口激活时生效
#HotIf WinActive("ahk_exe WINWORD.EXE")
^!r:: {
    ; 构建翻译字典
    translationDict := Map(
        "apple", "苹果",
        "banana", "香蕉",
        "orange", "橙子"
    )

    oWord := ComObjActive("Word.Application")
    if (oWord.Selection.Type = 0) {
        MsgBox("请先选中需要处理的文本！")
        return
    }
    oSel := oWord.Selection

    for key, value in translationDict {
        oSel.Find.ClearFormatting()
        oSel.Find.Replacement.ClearFormatting()
        oSel.Find.Replacement.Highlight := true
        oSel.Find.Text := key
        oSel.Find.Replacement.Text := value
        oSel.Find.Forward := true
        oSel.Find.Wrap := 1
        oSel.Find.Format := true
        oSel.Find.MatchCase := false
        oSel.Find.MatchWholeWord := true
        ; 新版AHK支持命名参数，更易读
        oSel.Find.Execute(Replace:=2)
    }
    MsgBox("替换完成！")
}
#HotIf

代码关键点说明 #

• Wrap := 1：限制查找范围仅在选中的文本内，避免替换文档其他内容。
• MatchWholeWord：设为true时仅匹配完整单词，设为false时会匹配包含该键的任意文本，可按需调整。
• Highlight := true：给替换后的文本添加黄色高亮，若不需要高亮可删除该行。

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