word vbaで特定範囲の色変え

質問

ただいま、ちょっとした教材をwordで作っており、その中で
「『Ans.』という文字列から空行が出るまでの部分を赤文字にする」ことで、赤シートで隠せるようにしたいと思っています。
Ansの文字色を変えるだけなら
With Selection.Find
.Text = "Ans."
Do While .Execute
Selection.Font.TextColor.RGB = RGB(255, 0, 0)
Loop
End With
で可能なのですが、その先の文字列も変えるのができないです。
少しVBAを勉強している身でもあるので、ご教授いただきたいです。

回答No.1

mt2015 · ベストアンサー

これでどうでしょう？

.Text = "Ans."

↓

.Text = "Ans.*" & "^13^13"
.MatchFuzzy = False
.MatchWildcards = True

お礼

なるほど…。
ワイルドカードでAns.から先を選択し、同時に二連続の改行が出るところも選択することで該当範囲を選択しているのですね。
画像や表が入ると行の関係が崩れるのか、上手くいかない箇所もありますが基本的に上手くいきました。ありがとうございます！