VBA创建Excel指向Word书签的超链接跳转异常问题求助

你现有代码存在两个核心问题：

1. 定位逻辑错误：SubAddress参数前错误添加了#前缀。该前缀仅适用于Excel内部单元格/工作表跳转、网页锚点定位场景，加在Word文档超链接的子地址中时，会触发Word的全文文本匹配逻辑，而非书签定位逻辑，因此点击后只会跳转到和书签名文本相近的位置，无法精准定位书签。
2. 语法结构错误：代码开头Sheets("DevisTest").Range("G10")后直接接以.开头的Hyperlinks.Add方法，未配套With结构，运行时会直接抛出语法错误。

With Sheets("DevisTest")
    .Hyperlinks.Add _
        Anchor:=.Range("A1"), _
        Address:="C:\Users\somepath\file.docx", _
        SubAddress:="thebookmark", ' 注意：此处不要添加#前缀，直接填写精确书签名即可
        ScreenTip:="点击跳转至Word文档指定位置", _
        TextToDisplay:="打开目标文档对应位置"
End With

• Excel自带的宏录制器不支持跨Office应用的属性捕获，因此无法录制到指向Word书签的超链接参数，属于正常机制限制，不是程序bug
• 请提前确认目标Word文档内确实存在对应名称的书签，书签名不要带多余空格、不可见字符，大小写无需严格匹配
• 如果引用的是Word自动生成的隐藏书签（如交叉引用、目录自动生成的书签，命名通常以下划线开头），需要先在Word「选项-高级-显示文档内容」中勾选「显示隐藏书签」，确认书签名准确后再填入参数
• 若调整后仍无法正常跳转，可以先手动在Excel中创建一个能正常定位的同目标超链接，打开VBA编辑器的立即窗口，执行?Sheets("DevisTest").Hyperlinks(手动创建的超链接索引序号).SubAddress，查看手动生成的合法子地址格式，和代码参数做比对修正即可

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