更改文档中所有超链接的显示文本

Question

我几乎没有视觉基础知识，但我知道这可以通过某种方式完成。我有一个 144 页的文档，我需要在其中显示 url。例如：插入的 link 显示 "Google" 现在将显示："Google (www.google.com)"

此文档中有大约 200 多个 links（最初假设只是一个电子文档）但现在需要它以便如果有人手头有打印副本他们就会知道URL。我对各种想法持开放态度:(

有人认为我必须执行 Alt F9 来查看字段代码，然后以某种方式进行查找替换并输入某种代码以显示文本和 url 显示？

早些时候我有一个有一些视觉基础知识的人试图帮助谁找到了这个我无法运行对我来说......是我对如何制作它缺乏了解吗运行?

    'Private Declare Function GetTickCount Lib "kernel32" () As Long

    Public Sub GetHyperlinks()
    Dim myDoc As Document
    Dim wombat As Hyperlink
    '    Dim starttime As Long
    Dim CurrentDoc As Document

    Applicationhttp://images.intellitxt.com/ast/adTypes/icon1.png.ScreenUpdating = False
    Set CurrentDoc = ActiveDocument
    Set myDoc = Application.Documents.Add()

'    starttime = GetTickCount
    For Each wombat In CurrentDoc.Hyperlinks
        myDoc.Range.InsertAfter wombat.TextToDisplay & vbTab & wombat.Address & vbCrLf
    Next
'    Debug.Print GetTickCount - starttime

    Application.ScreenUpdating = True
    myDoc.Range.ParagraphFormat.TabStops.Add CentimetersToPoints(7.5), wdAlignTabLeft, wdTabLeaderSpaces 'basic formatting
End Sub

Answer 1

这应该适合你（在 Word 2010 中测试）：

Sub UpdateDocLinks()
    Dim link As Hyperlink
    For Each link In ActiveDocument.Hyperlinks
        link.TextToDisplay = link.TextToDisplay & " (" & link.Address & ")"
    Next link
End Sub

这会将括号中的 URL 附加到文档中的每个活动超链接：

Google becomes Google (http://www.google.com)

更改文档中所有超链接的显示文本

Change display text of all hyperlinks in document

vba

ms-word

hyperlink