vba - Word vbaは、新しく作成されたフィールドにシェーディングを適用します

Question

ドキュメントにフィールドを追加し、シェーディングを追加しています。次のコードは機能しません。

With Selection
    .Range.Font.Shading.BackgroundPatternColor = wdColorLightYellow
    .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False, Text:="Page"
    .Fields.Update
End With
'ActiveDocument.Fields(1).Select
'Selection.Range.Font.Shading.BackgroundPatternColor = wdColorLightYellow

コメントアウトされた行は、ドキュメントの最初のフィールドにシェーディングを追加します。