Ms word 动态修改交互参考工具提示文本

我的Word文档中有一系列交叉引用。我试图运行代码，将每个交叉引用工具提示文本更新为目标位置的文本段落

我的交叉引用的结构是“作为超链接插入”、“段落编号（完整上下文）”和“包括上面/下面”

我试图编写代码，遍历文档中的每个交叉引用，并如上所述更改工具提示文本

---

我注意到，在任何有交叉引用的Word文档中，将鼠标悬停在交叉引用上会显示文本“当前文档”；按住Ctrl键并单击以跟随“链接”。我试图确定这段文字是否可以动态修改，或者这段文字是否硬连接到微软的编译代码中。恐怕这样的文本是不可修改的。☹

您所描述的是超链接，而不是交叉引用。“Ctrl+单击以跟随链接”文本的修改范围仅限于您可以通过编辑“使用Ctrl+单击以跟随超链接”选项将其更改为“单击以跟随链接”的范围。屏幕提示的其余部分可以用如下代码显示参考段落：

Dim HLnk As Hyperlink
For Each HLnk In ActiveDocument.Hyperlinks
  With HLnk
    If .Address = "" Then .ScreenTip = Split(ActiveDocument.Bookmarks(.SubAddress).Range.Paragraphs.First.Range.Text, vbCr)(0)
  End With
Next

---

它是不可修改的。该消息是为超链接显示的，与交叉引用无关。我对ActiveDocument.Hyperlinks对象不感兴趣。我指的是集合ActiveDocument.Range.Fields。我将它的一些属性序列化如下（其中SourceText是通过访问ActiveDocument.Range.Bookmarks（“_Ref28680085”）：”。Code.Text:REF _Ref28680085\w\p\h |。Type:wdFieldRef | FieldKind:wdFieldKindWarm | SourceText:[来自文档]”我现在需要访问与此字段相关的超链接对象，并将其工具提示更改为SourceText值。我尝试了ActiveDocument.Range.Hyperlinks（“\u Ref28680085”）但这不存在。没有附加到交叉引用或与交叉引用相关的超链接对象。交叉引用字段中的\h开关仅提供交叉引用超链接的某些特征。如果您将相关的交叉引用更改为超链接，我发布的代码将按照您的要求执行-但您可能还需要请考虑如何对超链接进行格式化。