Question

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

这条线显示为“go to get to 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

当然，除了在立即窗口中打印它们之外，您还需要对它们执行更有用的操作。

顺便说一下，我更喜欢在我的示例中使用DuckDuckGo，因为它比Google更好privacy policy ...

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

1 个答案: