- 求编写WORD宏,统一所有超链接的格式如附件,各超链接的格式不一
- 如附件,各超链接的格式不一致。
要求运行宏后,所有超链接的格式为:蓝色+下划线。
- 打开VBE,插入一个模块就搞定了:
Option Explicit
Sub 统一超链接格式()
Dim hlkTemp As Hyperlink
For Each hlkTemp In ActiveDocument.Hyperlinks
With hlkTemp.Range.Font
.Color = wdColorBlue '蓝色
.Underline = wdUnderlineSingle '下划线
End With
Next
End Sub