如何用AppleScript在Microsoft Word中定位并选中指定文本？

问题根源 #

Microsoft Word的AppleScript接口中，execute find命令仅返回布尔值（true表示找到匹配项，false表示未找到），而非文本范围对象。找到的文本位置会被存储在find对象的found range属性中，你之前的脚本错误地尝试直接使用返回的布尔值进行选中操作，导致报错。

修正后的脚本 #

tell application "Microsoft Word"
    activate
    if not (exists active document) then
        display dialog "Er is geen actief document."
        return
    end if
    set myFind to find object of text object of active document
    -- 重置查找属性，避免历史设置干扰
    set properties of myFind to {match case:false, match whole word:false, match wildcards:false, forward:true, wrap:find stop}
    
    set content of myFind to prefix & CueText & posix
    -- 执行查找，获取是否找到的布尔结果
    set foundResult to execute find myFind
    if foundResult then
        -- 从find对象中提取找到的文本范围
        set foundRange to found range of myFind
        -- 选中该文本范围
        select foundRange
        -- 可选：强制视图滚动到选中位置，确保可见
        scroll view of active window to foundRange
    else
        display dialog "Tekst niet gevonden."
    end if
end tell

关键修改点 #

• 重命名变量foundRange为foundResult，明确其存储的是查找是否成功的布尔值
• 查找成功后，通过found range of myFind获取实际的文本范围对象
• 直接使用select foundRange完成选中操作，无需多余的类型转换或object of调用
• 添加wrap:find stop属性，防止查找到达文档末尾后循环从头开始
• 可选添加scroll view命令，确保文档视图自动跳转到选中的文本位置

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