從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