VBA ms word宏：将嵌入的HTML链接转换为纯文本

我想在Word 2007宏中添加一个子例程，它将获取文档中嵌入链接的文本和地址，并将其转换为使用文本作为显示文本的

href

标记和HTML地址的地址

因此，显示为“go here to get to google”并带有蓝色下划线的一行，单击后会转到www.google.com，替换为：

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

---

此例程将添加到我已有的宏中，该宏可以执行其他一些次要格式设置，因此无需使用标题等。

这将在您为文档中的所有链接指定时打印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

将hlink设置为超链接
Dim htmlLink作为字符串
用于此文档中的每个hlink。超链接
与hlink
HTMLINK=“”
调试。打印HTMLINK
以
下一个hlink

当然，除了在即时窗口中打印它们之外，您还需要对它们做一些更有用的事情

---

顺便说一句，我更喜欢在我的例子中使用，因为它比谷歌的要好得多。

啊，谢谢！在duckduckgo上说得很好，我甚至没有考虑在我的随机网页上使用更明智的选择（通常使用hp.com作为它的唯一两个字母，但我停止了自己，因为我真的不喜欢他们的东西。）