Wordマクロ - 特定のテキストを含むすべてのリンクからハイパーリンクを削除します。

Question

すべてのハイパーリンクのWord文書を検索するマクロを作成します。表示されているテキストがhttpで始まっている場合は、そのリンクを削除します（そのままテキストをそのまま残します）。

例：次の2つのリンクが単語文書にある場合、最初のリンクはリンクされませんが、2番目のリンクはリンクを保持します。

http://www.google.com

Link to Google

私が比較できるように、フィールド要素からテキスト値をプルする方法がわかりません。これは私のマクロは、現在、次のようになります。

Sub RemoveHyperlinks() 
    Dim oField As Field 
    For Each oField In ActiveDocument.Fields 
    If oField.Type = wdFieldHyperlink Then 
     'If the text of oField begins with "http" then unlink 
     oField.Unlink 
    End If 
    Next 
    Set oField = Nothing 
    End Sub 

Answer 1

あなたはResultプロパティを使用して、フィールドの表示値を取得することができます：それをやった

Sub RemoveHyperlinks() 
    Dim oField As Field 
    For Each oField In ActiveDocument.Fields 
    If oField.Type = wdFieldHyperlink Then 
     If Left(oField.Result, 4) = "http" then 
     oField.Unlink 
     End If 
    End If 
    Next 
    Set oField = Nothing 
End Sub