Excel文字列中の太字(Bold)部分のみ文字色を一括して変換する方法

質問

Excelで英単語リストを作成しています。
セルの中に文字列で例文を書いて、重要単語部分は太字(Bold)にしているのですが、
太字部分を白色に変更して練習帳を作成したいと考えています。

(変換前) Millions of people suffer from insomnia these day.
(変換前) Millions of people suffer from　　　 　　　these day.

　　※この場合、セル中で"insomunia"のみが太字になっています。

例文数が多い(1000以上)ので、一括で変換できる方法を探しています。

詳しい方がいらっしゃいましたら、是非御教授下さい。
よろしくお願い致します。

回答No.1

zap35 · ベストアンサー

太字の文字を「白色」にするのは簡単なのですが、問題は「太字だったところを太字ではなくした」場合の処理です。当然見える文字にしなくてはなりませんね。

太字の文字は「白色」にする。太字でなくて「白色」の文字は「黒（自動）」にする。はじめから「赤」や「青」の文字はそのままにするという考え方でよいですか？

以下のマクロをALT＋F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はALT＋F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。

Sub Macro5()
Dim rng As Range
Dim ptr As Long
　Application.ScreenUpdating = False
　For Each rng In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 3)
　　For ptr = 1 To Len(rng.Value)
　　　If rng.Characters(ptr, 1).Font.Bold = True Then
　　　　rng.Characters(ptr, 1).Font.ColorIndex = 2
　　　Else
　　　　If rng.Characters(ptr, 1).Font.ColorIndex = 2 Then
　　　　　rng.Font.ColorIndex = xlAutomatic
　　　　End If
　　　End If
　　Next ptr
　Next rng
　Application.ScreenUpdating = True
End Sub

マクロの実行結果は元に戻せませんから、必ずファイルのコピーを取ってから実行してみてください

お礼

質問が曖昧だったかも知れませんが、ご丁寧にありがとうございます。
ご提案の方法で問題ありませんでした！早速のご回答に大変感謝致しております。ありがとうございました！！