【Word VBA】１桁の数字を全角に，２桁以上の数字を半角にするマクロ

みなさん，こんにちは。
シンノユウキ（shinno1993）です。

テキストの編集・校正の際に役立つだろうツールを紹介していきます。

今回は，数字の表記統一（１桁数字→全角，２桁以上数字→半角）を行うWordのマクロを紹介します。

はじめに：全角数字と半角数字の使い分け
方法１：Wordの置換機能を使う
方法２：マクロで手軽に行う
まとめ

はじめに：全角数字と半角数字の使い分け

数字の表記には主に下記３つのパターンがあります：

① すべて半角
② １桁は全角，２桁以上は半角
③ すべて全角

一般的には，「②１桁は全角，２桁以上は半角」が使われることが多いのではないでしょうか。

文書内で統一を図ろうとすると，①と③は比較的やりやすいと思えます。

しかし，②は厄介です。１桁の数字と２桁の数字とで目標（半角/全角）が異なるため，置換対象の文字列が１桁か２桁を判定し，置換する必要があるからです。

方法１：Wordの置換機能を使う

とはいえ②に関しても，実はWordの基本機能で行うことができます。

機能としては，Wordのワイルドカードを使った検索機能と，文字種の変換機能を使います。すべての数字を全角に変換し，その後２桁以上の数字を半角に変換していきます。

詳細な手順はこちらの記事を参照してください。

方法２：マクロで手軽に行う

方法１は，Wordの機能でできるとはいえ，面倒です。同様のことは，Word VBA（マクロ）を使用することで行うことができます。コードは下記のようになります：

Sub main()
    Call 半角数字を全角へ一括変換
    Call 二桁以上の全角数字を半角へ一括変換
End Sub

Sub 半角数字を全角へ一括変換()
    Dim rng As Range: Set rng = ActiveDocument.Range(0, 0)
    With rng.Find
        .text = "[0-9]"
        .MatchWildcards = True
        .MatchFuzzy = False
        Do While .Execute
            rng.CharacterWidth = wdWidthFullWidth
            rng.Collapse wdCollapseEnd 
        Loop
    End With
    Set rng = Nothing
End Sub

Sub 二桁以上の全角数字を半角へ一括変換()
    Dim rng As Range: Set rng = ActiveDocument.Range(0, 0)
    With rng.Find
        .text = "[０-９]{2,}"
        .MatchWildcards = True
        .MatchFuzzy = False
        Do While .Execute
            rng.CharacterWidth = wdWidthHalfWidth
            rng.Collapse wdCollapseEnd
        Loop
    End With
    Set rng = Nothing
End Sub

手順は，Wordの基本機能でやるのと同様です。① 数字をすべて全角に変換 → ②２桁以上の数字を半角に変換です。

ポイントはrng.Collapse wdCollapseEndです。その上のrng.CharacterWidth = wdWidthHalfWidthで文字が選択されてしまうので，これを入れておかないと次の検索が実行されず，処理が止まってしまうのです。