数字だけを全角から半角に変換する場合に使います。 このマクロでできること 本文(メイン文書)内の全角数字を半角数字に変換します。 マクロの解説 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 S