【Word VBA】全角数字を半角数字にする

数字だけを全角から半角に変換する場合に使います。

このマクロでできること

本文（メイン文書）内の全角数字を半角数字に変換します。

マクロの解説

5行目にあるとおり、1桁以上の全角数字を検索しています。6行目で設定しているとおり、ワイルドカードを使用して指定します。

[０-９]{1,}

マクロ

Sub 全角数字から半角数字()
　　Dim myRange As Range
　　Set myRange = ActiveDocument.Range(0, 0)
　　With myRange.Find
　　　　.Text = "[０-９]{1,}"
　　　　.MatchWildcards = True
　　　　Do While .Execute = True
　　　　　　myRange.CharacterWidth = wdWidthHalfWidth
　　　　　　myRange.Collapse wdCollapseEnd
　　　　Loop
　　End With
　　Set myRange = Nothing
End Sub