从HYPERLINK字段代码中提取超链接地址

Question

我想用下面的文字替换http://www.someurl.com。为了澄清，我实际上并不想从域代码返回到实际的超链接（蓝色），我只希望将地址作为文档中的文本。

{HYPERLINK“http://www.someurl.com”}

Answer 1

像这样的东西（但要注意它不会与嵌套字段处理），除非你改变Word首，Word将当您开始编辑的结果重新插入链接：

Sub replaceHLs() 
Dim hl As Word.Hyperlink 
Dim i As Integer 
Dim r As Word.Range 
Dim strLinkText As String 
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1 
    With ActiveDocument.Hyperlinks(i) 
    Set r = .Range 
    strLinkText = .Address 
    ' optional, should be OK for HTML links 
    If .SubAddress <> "" Then 
     strLinkText = strLinkText & "#" & .SubAddress 
    End If 
    r.Text = strLinkText 
    r.Font.Color = wdColorBlue 
    r.Font.Underline = wdUnderlineSingle 
    Set r = Nothing 
    End With 
Next 
End Sub