()を半角に揃える【素人 Word マクロ】

Microsoft officeのWordVBAでマクロを組みましたので公開します。
インターネットで検索したり、マクロの記録機能を使ったりしたのを組み合わせだけなので、上手くはないですが、一応動くはずです。
office2021です。
必ず、元データのバックアップを取ってから実行してください。
素人の作ったものなので、信用しすぎないでください。

［コード］

Sub カッコを揃える()

    Dim rng As Range
    
    ' 全文書内のすべてのセクションで検索
    For Each rng In ActiveDocument.StoryRanges
        Do
            ' 全角の（）を検索して半角の()に置換
            rng.Find.ClearFormatting
            rng.Find.Replacement.ClearFormatting
            rng.Find.Text = "（"
            rng.Find.Replacement.Text = "("
            rng.Find.MatchCase = False
            rng.Find.MatchWholeWord = False
            rng.Find.MatchByte = True
            rng.Find.Execute Replace:=wdReplaceAll
            
            rng.Find.Text = "）"
            rng.Find.Replacement.Text = ")"
            rng.Find.Execute Replace:=wdReplaceAll
            
            ' 次のセクションに移動
            Set rng = rng.NextStoryRange
        Loop Until rng Is Nothing
    Next rng
    
    MsgBox "処理が完了しました。", vbInformation
End Sub