Macro question
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
|