すべての数字を半角にする【素人 Word マクロ】

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

［コード］

Sub 数字を半角にする()
'
' 数字を半角にする Macro

    Dim rng As Range
    Dim findNum As Variant
    Dim replaceNum As Variant
    
    ' 検索する全角数字と置換する半角数字を指定
    findNum = Array("０", "１", "２", "３", "４", "５", "６", "７", "８", "９")
    replaceNum = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
    
    ' 全文書内のすべてのセクションで検索
    For Each rng In ActiveDocument.StoryRanges
        Do
            ' 全角数字を検索して置換
            For i = LBound(findNum) To UBound(findNum)
                rng.Find.ClearFormatting
                rng.Find.Replacement.ClearFormatting
                rng.Find.Text = findNum(i)
                rng.Find.Replacement.Text = replaceNum(i)
                rng.Find.MatchCase = False
                rng.Find.MatchWholeWord = False
                rng.Find.MatchByte = True
                rng.Find.Execute Replace:=wdReplaceAll
            Next i
            
            ' 次のセクションに移動
            Set rng = rng.NextStoryRange
        Loop Until rng Is Nothing
    Next rng
    
    MsgBox "処理が完了しました。", vbInformation
End Sub

［説明］

タイトルの通り。全角の数字を半角に揃えるマクロです。