VBA MS Word宏：转换嵌入HTML链接成纯文本

我想一个子程序加入到我的Word 2007中宏将在文档中嵌入的链接文字和地址，并将其转换为一个href标记，使用文本作为显示文本，以及HTML地址的地址。VBA MS Word宏：转换嵌入HTML链接成纯文本

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

这个程序是要：

所以显示为“走出去这里去谷歌”用蓝色的下划线，而点击后进入到www.google.com的一条线，被替换为添加到现有的宏，我已经有了一些其他次要的格式，所以不需要标题和什么。

来源

2012-03-27 user1183802

这将打印为您指定的文件中所有链接的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由于其更好privacy policy比谷歌的......

来源

2012-03-28 08:16:40

啊谢谢！并且在duckduckgo上做得很好，我甚至没有考虑过在我的随机网页上使用更明智的选择（通常使用hp.com作为它的唯一2个字母，但我阻止了自己，因为我不太喜欢他们的呃，东西。） – user1183802 2012-03-28 15:01:36

VBA MS Word宏：转换嵌入HTML链接成纯文本

回答

相关问题