VBA ms wordマクロ：埋め込みHTMLリンクをプレーンテキストに変換します

Question

文書の埋め込みリンクのテキストとアドレスを取得するWord 2007マクロにサブルーチンを追加し、それをhrefタグに変換しますテキストを表示テキストとして使用し、HTMLアドレスのアドレスを使用します。

だから、青い下線で「Googleのために得ることをここに行きなさい」と表示され、クリックされたときに、ラインがwww.google.comに行く、と置き換えます：

<a target="_blank" href="http://www.google.com">go here to get to google</a> 

このルーチンがためにあります私が既に持っている既存のマクロに追加されています。これは、他のマイナーな書式設定を行うので、ヘッダーなどには必要ありません。

Answer 1

これは、ドキュメント内のすべてのリンクに指定したとおりにHTMLタグを印刷します。

Dim hlink As Hyperlink 
Dim htmlLink As String 

For Each hlink In ThisDocument.Hyperlinks 
    With hlink 
     htmlLink = "<a target=""_blank"" href=""" & .Address & """>" & _ 
      .TextToDisplay & "</a>" 

     Debug.Print htmlLink 
    End With 
Next hlink 

もちろん、イミディエイトウィンドウで印刷するだけでなく、もっと便利なことができます。

さておき、私はGoogleのよりprivacy policyそのはるかに良いため、私の例でDuckDuckGoを使用することを好むと...