AppleScript技术问题：如何获取Microsoft Word中单词的文本范围

刚好之前做过类似的操作，给你捋捋具体怎么实现：

第一步：获取目标文本的Range范围 #

不管是手动还是用代码，核心是先拿到要转超链接的文本范围：

• 手动操作：直接选中目标单词，此时Selection.Range就是你需要的文本范围。
• VBA代码定位：如果要自动找目标单词，可以用Find方法精准定位：

Dim targetRange As Range
Set targetRange = ActiveDocument.Content
With targetRange.Find
    .Text = "你的目标单词" ' 替换成你要找的单词
    .MatchWholeWord = True ' 可选，确保只匹配完整单词
    .Execute
    If .Found Then
        ' 这里的targetRange就是找到的目标文本范围
    End If
End With

第二步：调用MakeNewHyperlink创建超链接 #

拿到Range后，直接用Hyperlinks.Add方法（也就是你说的make new hyperlink对应的VBA方法）来生成超链接：

targetRange.Hyperlinks.Add _
    Anchor:=targetRange, _
    Address:="https://你的目标链接地址.com", _
    TextToDisplay:=targetRange.Text ' 用原文本显示，也可以自定义内容

额外小技巧 #

• 如果要批量处理多个相同单词，把上面的代码套个循环，每次执行Find.Execute找下一个匹配项即可。
• 要是需要对不同单词设置不同链接，可以把单词和对应的地址存到数组里，循环处理。

内容的提问来源于stack exchange，提问作者D. Rosen