

Word文書で、赤い文字だけを白文字に変更するマクロを作りたいと思い、マクロの記録機能で記録されたものを参考に以下のようなマクロを作りました。
With Selection.Find
.ClearFormatting
.Font.Color = wdColorRed
.Replacement.ClearFormatting
.Replacement.Font.Color = wdColorWhite
End With
このマクロには不都合がありまして、、、
1.カーソル位置より上方の赤文字は変更されない
2.テキストボックス内の赤文字も変更されない
ということで困っております。ヘルプもあちこち見ましたが、どうにもうまくいきません。どなたかご存知の方、解決方法についてアドバイスをいただければ幸いです。
No.1ベストアンサー
- 回答日時:
Wordのマクロは、あまり、作ったことがありませんので、うまくなかったら
ご容赦ください。
Sub test()
Dim rngWord As Range
Dim shp As Shape
Dim rng As Range
'文字色の変更
For Each rngWord In ActiveDocument.Words
If rngWord.Font.Color = wdColorRed Then '赤
rngWord.Font.Color = wdColorWhite '白
End If
Next rngWord
'テキストボックスの中の文字色の変更
For Each shp In ThisDocument.Shapes
If shp.AutoShapeType = msoShapeRectangle Then
For Each rng In shp.TextFrame.ContainingRange.Characters
If rng.Font.Color = wdColorRed Then '赤
rng.Font.Color = wdColorWhite '白
End If
Next rng
End If
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
- Visual Basic(VBA) VBAでPowerPointからExcelにレイアウト通りに出力する 4 2023/07/05 12:22
- Excel(エクセル) 現在のセルの文字列を右隣のセルの名前にするマクロをつくりたい 4 2023/01/12 09:01
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Excel(エクセル) Excelで校閲をする方法はあるでしょうか(取扱説明書への掲載禁止用語の確認) 3 2022/06/11 22:51
- HTML・CSS HTMLで特定の文字だけ色を変えたいのですが、指定した色と違う色が反映してしまいます。 下記、「前」 5 2023/06/27 12:08
- Excel(エクセル) 【マクロ】フォルダAからダBへファイルを、ファイルの更新日時の条件で、1つづつ移動するには? 3 2022/08/25 09:56
- Word(ワード) 表の縦罫線を移動するピッチ 1 2022/10/12 12:24
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
複数のマクロボタンをまとめて...
-
Excel マクロの編集がグレーに...
-
LDPlayerのマクロの編集方法を...
-
Excelマクロで、稼働中のマクロ...
-
エクセル ボタンに設定したマク...
-
エクセル マクロ名にブック名...
-
Excel:マクロを消す方法教えて...
-
Excelのマクロでボタンを押すと...
-
別シートのマクロボタンをマク...
-
エクセルの、記録を終了したマ...
-
エクセルでマクロ(Excel 4.0)...
-
エクセルで明日の日付を表示す...
-
Excelのマクロも、ピボットと同...
-
WORDを使って印刷部数分の連番...
-
エクセルマクロで、別のブック...
-
Excelの別シートへの反映方法を...
-
(Excel VBA)シートコピー時マ...
-
大量のエクセルファイルから1...
-
EXCELをTEXTに一括変換出来ませ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
複数のマクロボタンをまとめて...
-
エクセル ボタンに設定したマク...
-
Excelのマクロでボタンを押すと...
-
エクセル マクロ名にブック名...
-
エクセルでマクロ(Excel 4.0)...
-
Excelマクロで、稼働中のマクロ...
-
エクセルで、「いいね」のよう...
-
エクセルマクロで、別のブック...
-
エクセルの、記録を終了したマ...
-
エクセルの表を複数枚印刷した...
-
別シートのマクロボタンをマク...
-
LDPlayerのマクロの編集方法を...
-
(Excel VBA)シートコピー時マ...
-
Ctrl+Zが使えない
-
Excelで、マクロが含まれ...
-
他のBOOKにマクロを反映させな...
-
Excel:マクロを消す方法教えて...
-
エクセルで明日の日付を表示す...
おすすめ情報