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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
word ある文字色の部分のみ別の色に変更したい
Word(ワード)
-
複数のテキストボックスのフォントの色を同時に変更したい
Word(ワード)
-
テキストボックス中の文字列の色を変更する方法は?
Excel(エクセル)
-
-
4
WORD VBA 繰り返し処理
Word(ワード)
-
5
WordやExcelの[フォントの色]の[自動]とは?
Word(ワード)
-
6
WORDの文字をマクロで色替えするには?
Word(ワード)
-
7
【ワード】マクロで画像を選択する
Word(ワード)
-
8
ワードの図形をコピー&ペイストのマクロ
Word(ワード)
-
9
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
10
Wordのマクロで選択中の行番号を取得したい
Word(ワード)
-
11
Chr(13)とChr(10)の違いは?
PowerPoint(パワーポイント)
-
12
Cell内の一部を指定する方法(Word VBA)
その他(Microsoft Office)
-
13
Wordの文章中の一致した文字のある段落を削除する
Visual Basic(VBA)
-
14
WORDマクロで特定文字から別文字までを範囲選択したい
Word(ワード)
-
15
マクロでオートシェイプ内の文字の色を変更したい。
Excel(エクセル)
-
16
エクセルのマクロでワードの任意のテキストボックスへ文字列を書き込む方法を誰か教えていただけませんか
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WPSOffice_マクロの有効化について
-
Excel マクロの編集がグレーに...
-
Excelマクロをバックグラウンド...
-
エクセルの表を複数枚印刷した...
-
エクセルの、記録を終了したマ...
-
パソコンの買い替えとデータ移行
-
Excelのマクロ名の並び順の法則...
-
マクロの保存先を変更するには
-
複数のマクロボタンをまとめて...
-
バッチファイルファイル→VBS→エ...
-
LDPlayerのマクロの編集方法を...
-
IMEを制御するマクロについて教...
-
エクセルでマクロ(Excel 4.0)...
-
なぜマクロの記録がなくなって...
-
リーグ戦(10チーム2コート)作...
-
エクセル ボタンに設定したマク...
-
Access If構文をボタンに設定す...
-
エクセルマクロで、別のブック...
-
エクセルなどで、ボタンを押す...
-
秀丸エディタで正規表現とマク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel マクロの編集がグレーに...
-
WPSOffice_マクロの有効化について
-
Excelのマクロでボタンを押すと...
-
エクセルで、「いいね」のよう...
-
エクセル マクロ名にブック名...
-
エクセル ボタンに設定したマク...
-
エクセルの、記録を終了したマ...
-
エクセルの表を複数枚印刷した...
-
複数のマクロボタンをまとめて...
-
エクセルマクロで、別のブック...
-
Excelマクロで、稼働中のマクロ...
-
エクセルでマクロ(Excel 4.0)...
-
別シートのマクロボタンをマク...
-
(Excel VBA)シートコピー時マ...
-
Excel:マクロを消す方法教えて...
-
マクロ実行ボタンを自動削除したい
-
EXCELのマクロが他のパソコンで...
-
Excelのマクロ名の並び順の法則...
-
マクロをマクロを使ってコピー...
-
Excelマクロをバックグラウンド...
おすすめ情報