MSゴシックとMS明朝の区別をつけるだけなら、MSゴシックの部分だけを赤字するのはどうでしょうか?区別がついて赤にする必要がなくなったら、CTRL&Aですべてを選択してフォントを自動(黒)に戻します。
もし文書の中に赤色を使っている場合は、weRedの部分を使っていない色に変えれば利用できると思います。
以下のマクロをALT&F11を押して開いた画面にコピペして下さい。その後、調べたい部分を選択して(Shiftキーを押しながら反転させます)からALT&F8を押してマクロを実行してください。ゴシックの部分が赤字に変わるはずです。
一応、動作確認しましたが、念のために試用に際してはテストしてからご利用下さい。
Sub ChangeGothicToRed()
Dim savSelRange As Range
Dim boolFound As Boolean
Set savSelRange = Selection.Range.Duplicate
boolFound = True
Do While boolFound = True
With Selection.Find
.ClearFormatting
.Font.Name = "MS ゴシック"
.Execute
End With
boolFound = Selection.Find.Found
If boolFound = True Then
If Selection.End <= savSelRange.End Then
With Selection.Font
.ColorIndex = wdRed
End With
Selection.Collapse
Selection.MoveDown Unit:=wdParagraph
Else
boolFound = False
End If
End If
Loop
End Sub
お礼
ご回答ありがとうございます。 ゴシックを赤くするというのは確かに1つの解決方法ですね。文字をカラーにすることはほとんどないので、よいやり方だと思いました。それに、赤と黒だと見間違えることもまずありませんし。 ただ、ご指示いただいたマクロを実行してみたところ、スタイルで、日本語フォント、英語フォントをともにMSゴシックとした場合のみ赤くなっているように見受けました。 ここからは勝手なお願いですが、当方はワードを使いこなさない中高年のおじさんを相手にしており、「スタイルは標準で(スタイル変更がよく分からないから)」「見出し機能は使わない(レイアウトが崩れるのに対処できないから)」といったわがままな要望に答えることを要求されています (^^;) それで、もしよければ、スタイルでなく、実際の文字フォントの情報をもとに文字色を変更する形式にしていただくことはできないでしょうか。マクロの実行完了までの時間が長くなってしまうのかなとも思いますが、仕方ないと思っています。