【コード】全角数字を半角数字にする

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

このマクロでできること

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

マクロの解説

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

トップへ戻る