vba - Word VBA 脚本查找超链接文本

Question

如何在链接的word文档中查找文本？

例如：“介绍”一词有一个超链接

我想得到介绍这个词。

Answer 1

要找到它们都使用这个子：

Sub qSolution()

    Dim HL As Hyperlink
    For Each HL In ActiveDocument.Hyperlinks
        Debug.Print HL.Range.Text
    Next
End Sub

要查找您知道的任何一个号码（下面的示例中的第一个），请使用以下代码：

Debug.Print ActiveDocument.Hyperlinks(1).Range.Text

在这两种情况下，您都会在 IDE 的即时窗口中获得文本。