半角数字をすべて赤色に変換するWordマクロ

　Word文書中に存在する金額表示（お値段）のすべてを、確認する必要が出てきました。
　そこで、文書中の金額表示を赤色に変えるマクロを作りました。
　このマクロは、今後の参考になりそうなので、ブログに残しておきます。




　
◆ 金額（半角数字と円）を赤色にするWordマクロ
　以下は、1文字以上が続く半角数字の末尾に「円」が付く文字列、つまり文書中にあるお値段表示を、すべて赤色に変えるコードです。金額中に位取りカンマがあっても、対応できます。

　このマクロは、どうぞご自由にお使いください。ただし、すべて自己責任でお願いします。仮に事故等が生じても、当方は責任は負いません。

Sub Kingaku()
'文書中のすべての「半角数字＋円」を、赤色に変換
'位取り記号の「半角カンマ」も含めて変換

Dim myR As Range

Set myR = ActiveDocument.Range(0, 0)

With myR.Find
　　.Text = "[0-9,]{1,}円"
　　.MatchWildcards = True
　　Do While .Execute
　　　myR.Font.Color = vbRed
　　　myR.Collapse wdCollapseEnd
　　Loop
End With

End Sub


【解説】
"[0-9]{1,}"　半角数字が1文字以上続く

"[135abc]{1,}"　1か3か5かaかbかcが1文字以上続く

"[A-Za-z0-9]{1,}"　半角英数字が1文字以上続く

"[A-Za-z][0-9]{1,}"　半角英字1文字の後に半角数字が1文字以上続く

Excel VBAユーザーのためのWord VBA入門（1）: Document・Range・Selectionの基本編 伊藤 潔人

それでは、また次の記事で
■■■■ goosyun ■■■■

---

《2022年2月14日追記》
　上記のVBAコードを少し修正しました。
　　⇒ こちらの記事をご覧ください。