[[email protected]]

I am trying to get a macro that will highlight every paragraph that
begins with

"Q:"

(omit the quotation marks)

and then italicize it.


Can anyone help?

* * *

I have something like this but it doesn't work

Sub Highlight()
'
' Highlight Macro
' Applies color highlighting to the selection
'
WordBasic.Highlight
Sub Tc()
Selection.HomeKey wdStory
With Selection.Find
.Text = "Q:"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

Do While .Execute
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Italic = True
Selection.Collapse wdCollapseEnd
Loop
End With
End Sub