word vbs脚本 设置所有题注样式为蓝色，下划线

时间：2020-12-27 16:35:53
Attribute VB_Name = "题注样式"

Sub SetCorssRef() 'Word版，设置所有交叉引用的文本的格式

Dim aField As Word.Field

For Each aField In ActiveDocument.Fields

    Debug.Print aField.Result.text

    If aField.Type = wdFieldRef Then

        aField.Result.style = "正文"

        aField.Result.Font.ColorIndex = wdBlue

        aField.Result.Underline = wdUnderlineSingle

    End If

Next aField

End Sub

相关文章