goosyun https://blog.hatena.ne.jp/goosyun/ つれづれ電脳記（日くらしPCに向かひて） https://goosyun.hatenablog.jp/ プログラミング・マクロ 先日の記事において、 文書中の金額表示をすべて赤色文字に変換するWordマクロを紹介しました。 「金額赤色変換マクロ」の記事は、 ⇒ こちらをご覧ください。 先日の記事にも掲載していますが、マクロコードは次のとおりです。 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 wdCollap… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fgoosyun.hatenablog.jp%2Fentry%2F2022%2F02%2F13%2F224940" title="Wordマクロの単純な置換にはwdReplaceAll - つれづれ電脳記（日くらしPCに向かひて）" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> https://cdn-ak.f.st-hatena.com/images/fotolife/g/goosyun/20250426/20250426115049.jpg Hatena Blog https://hatena.blog 2022-02-13 22:49:40 rich https://goosyun.hatenablog.jp/entry/2022/02/13/224940 1.0 100%