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

2011年8月16日

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

このマクロでできること

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

マクロの解説

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

セミナー報告

【セミナー報告】第４回 MTPE もやもや会アフタートークまとめ

先日の第4回もやもや会の続き記事です。 もやもや会の後で、当日の発表者3名（燃脇さん、山本さんと私新田）がオンラインで話し合う機会を持ちました。いただいたアンケート結果を見ながら意見交換をし、お互いに ...

-コード
-