数字だけを全角から半角に変換する場合に使います。
このマクロでできること
本文(メイン文書)内の全角数字を半角数字に変換します。
マクロの解説
5行目にあるとおり、1桁以上の全角数字を検索しています。6行目で設定しているとおり、ワイルドカードを使用して指定します。
[0-9]{1,}
マクロ
Sub 全角数字から半角数字() Dim myRange As Range Set myRange = ActiveDocument.Range(0, 0) With myRange.Find .Text = "[0-9]{1,}" .MatchWildcards = True Do While .Execute = True myRange.CharacterWidth = wdWidthHalfWidth myRange.Collapse wdCollapseEnd Loop End With Set myRange = Nothing End Sub