Word スタイルの自動更新の設定を一括変更する

段落スタイルの「自動的に更新する」の設定を一括設定します。スタイルごとに設定を確認・変更する手間を省けます。

'スタイルの「自動的に更新する」設定を一括設定する。
'「見出し1」の現在設定を変更し、他スタイルにもその設定を適用する
Sub スタイルの自動更新の設定を一括変更()
    Dim flg As Boolean
    Dim i As Long

    With ActiveDocument
        flg = Not (.Styles(wdStyleHeading1).AutomaticallyUpdate)
        For i = 1 To .Styles.Count
            If .Styles(i).Type = wdStyleTypeParagraph Then
                .Styles(i).AutomaticallyUpdate = flg
            End If
        Next i
    End With
End Sub