Question

我几乎没有视觉基础知识，但我知道这可以做些什么。我有一个144页的文档，我需要显示该URL。例如：显示“Google”的插入链接现在将显示：“Google（www.google.com）”

本文档中有大约200多个链接（最初假设只是一个电子文档），但现在需要它，以便如果有人手头有印刷副本，他们就会知道URL。我愿意接受各种各样的想法:(

我有一个想法是使用Alt F9来查看字段代码，然后以某种方式查找替换并输入某种代码以显示文本和网址显示？

早些时候，我有一些人有一些视觉基础知识试图帮助找到这个我无法为我跑的人......是不是我对如何让它跑不了解？

    '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变为Google (http://www.google.com)

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

1 个答案: