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

Rob*_*ert 3 vba ms-word

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

我试图自己编辑一些宏代码(更改所有链接 URL 的代码),但我不断使问题变得更糟!我曾经擅长 VBScript,但从那时起已经很长时间了。

任何不涉及手动更改每种样式的简单解决方案?

作为旁注,出于某种原因,它们目前都处于“正常”风格。

Mik*_*keD 5

尝试执行此 VBA 脚本(最好在调试模式下使用 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
Run Code Online (Sandbox Code Playgroud)

这会

  • 循环浏览文档中的所有超链接 (A),
  • 删除底层文本 (B) 上的所有格式并
  • 将不依赖的文本分配给样式“超链接”(C)

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