MS Word 宏用于解析位于超链接地址中固定位置的字符串，并将字符串用作该超链接的 TextToDisplay

Question

我正在生成一个包含一系列超链接的参考书目，我想解析一个字符串 从超链接的末尾开始用作 TextToDisplay。

这是一个示例超链接： https://www.ncbi.nlm.nih.gov/pmc/articles/PMC#######

我希望 TextToDisplay 等于 PMC#######

这个长度为 10 的字符串将始终是 PMC + 7 位唯一标识每个引用的数字； 它总是从位置 43 开始。

我在这个网站上找到了创建通用 TextToDisplay 链接的代码， 但在这种情况下，我需要为每个唯一链接设置一个动态 TextToDisplay。 这是通用转换的代码：

Public Sub ChangeHyperlinksText()

    Dim hlink As Hyperlink

    For Each hlink In ActiveDocument.Hyperlinks
        hlink.TextToDisplay = "Link"
    Next hlink

End Sub

是否可以根据每个超链接添加特定的TextToDisplay？

感谢您的帮助。

Answer 1

是的，这很简单。

Public Sub ChangeHyperlinksText()
  Dim hlink As Hyperlink
  For Each hlink In ActiveDocument.Hyperlinks
    hlink.TextToDisplay = Right(hlink.Address, 10)
  Next hlink
End Sub