Sub FieldShadingToggle()
    With ActiveWindow.View
        Select Case .FieldShading
            Case wdFieldShadingAlways
                .FieldShading = wdFieldShadingWhenSelected
                'MsgBox "Field shading set to: When Selected", vbInformation
                Application.StatusBar = "Field shading set to: When Selected"
                
            Case wdFieldShadingWhenSelected
                .FieldShading = wdFieldShadingNever
                'MsgBox "Field shading set to: Never", vbInformation
                Application.StatusBar = "Field shading set to: Never"
            Case wdFieldShadingNever
                .FieldShading = wdFieldShadingAlways
                'MsgBox "Field shading set to: Always", vbInformation
                Application.StatusBar = "Field shading set to: Always"
            Case Else
                .FieldShading = wdFieldShadingAlways
                'MsgBox "Field shading set to: Always (defaulted)", vbInformation
                Application.StatusBar = "Field shading set to: Always (defaulted)"
        End Select
    End With
End Sub