エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
選択範囲内にある特定のフォントの文字列を別のフォントに置き換えるWordマクロ | 初心者備忘録
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
選択範囲内にある特定のフォントの文字列を別のフォントに置き換えるWordマクロ | 初心者備忘録
選択範囲内で「MS ゴシック」が使われている文字列のフォントを「MS 明朝」にマクロで変更したい、... 選択範囲内で「MS ゴシック」が使われている文字列のフォントを「MS 明朝」にマクロで変更したい、という質問がありましたので処理を考えてみました。 「選択範囲内で文字列検索を行うWordマクロ」を当ブログで紹介したことがありましたが、このマクロをフォント(MS ゴシック)を検索する形に直すと下記のようになります。 Public Sub Sample1() Dim r As Word.Range Const SearchFontName As String = "MS ゴシック" Set r = Selection.Range '選択範囲が指定したフォントかどうかを判断 If r.Font.Name = SearchFontName Then HitProc r Else With r.Find .Font.Name = SearchFontName .Text = "" .Replacem