vba - 编辑Word文档中所有超链接的样式

Question

我有一个充满超链接的 word 文档。链接本身工作正常，但由于某种原因，它们中的大多数不再是蓝色的!我真正想要做的就是尝试找到一种方法来使用宏或其他东西来浏览文档并将“超链接”样式格式添加到每个超链接。

我尝试自己编辑一些宏代码(一个更改所有链接 URL 的代码)，但我一直让问题变得更糟!我曾经擅长 VBScript，但从那时起已经很久了。

有没有不涉及手动更改每种样式的简单解决方案？

作为旁注，出于某种原因，它们目前都处于“正常”样式。

Answer 1

尝试执行此 VBA 脚本(最好在 Debug模式下使用 F8 键 - 并排放置 VBA 和 Word 窗口，以便您可以看到发生了什么):

Sub FormatLinks()
Dim H As Hyperlink

    For Each H In ActiveDocument.Hyperlinks
        H.Range.Select                                      ' (A)
        Selection.ClearFormatting                           ' (B)

        H.Range.Style = ActiveDocument.Styles("Hyperlink")  ' (C)
    Next H
End Sub

这将

• 循环浏览文档中的所有超链接 (A)，
• 删除基础文本 (B) 上的所有格式并
• 将不相关的文本分配给样式“超链接”(C)

(C) 不是绝对必要的，因为 (B) 应该已经清理了您的文档，但最好将超链接真正分配给样式“Hyperlink”，因为您以后可能想更改样式。