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