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

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