3

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

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

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

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

4

1 回答 1

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

这将

  • 循环浏览文档 (A) 中的所有超链接，
  • 删除基础文本 (B) 上的任何格式和
  • 将不依赖的文本分配给样式“超链接”（C）

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

于 2013-03-01T11:05:49.440 回答