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

Question

我正在生成包含一系列 hyperlink 的参考书目，我想解析一个字符串从 hyperlink 的末尾用作 TextToDisplay.

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

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

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

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

Public Sub ChangeHyperlinksText()

    Dim hlink As Hyperlink

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

End Sub

是否可以根据每个 hyper 添加特定的 TextToDisplaylink？

感谢您的帮助。

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

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

MS Word macro to parse string located at fixed location in hyperlink address and use string as TextToDisplay for that hyperlink

vba

ms-word

hyperlink