MS Word 宏用一个单词替换所有超链接答案

【问题标题】：MS Word Macro to replace all hyperlinks with a single wordMS Word 宏用一个单词替换所有超链接
【发布时间】：2015-03-05 12:22:22
【问题描述】：

我准备了一个包含大量新闻文章的 MS Word 文件，每篇文章后面都有一个完整的长可点击超链接（例如 http://www.newssite.com/this-is-the-name-of-the-article.html）。

我需要用一个单词替换文件中的所有超链接：“Link”，同时保留它们的 url 地址和点击功能。我可以使用 MS Word 的“更改超链接”对话框来做到这一点，但手动操作需要花费大量时间。

然而，超链接并不总是格式化为“超链接”样式。是否有任何 MS Word 宏替换条件会通过其功能而不是样式或文本来查找超链接？

尽管这个任务似乎很常见，但我在网上找不到类似的东西。

【问题讨论】：

标签： vba hyperlink ms-word

【解决方案1】：

因为您已经创建了超链接。它应该只需要遍历文档超链接集合并更改“TextToDisplay”属性。这应该可以帮助您开始：

Public Sub ChangeHyperlinksText()

    Dim hlink As Hyperlink

    For Each hlink In ThisDocument.Hyperlinks
        hlink.TextToDisplay = "Link"
    Next hlink
End Sub

【讨论】：

非常感谢！这个循环一开始什么也没做，但是在我将“ThisDocument”更改为“ActiveDocument”之后，它就完美地工作了！