Status: rookie

I'm trying to create a macro in Word 2003 that finds all text with a specific
font formatting,
and once found, creates a border around it. Each time I record a macro that
does this
and then try to execute the macro just created it doesn't do anything. Here
an example:

the following macro was created by "finding" text with white color font +
shadowed text,
but I don't see anything in the code that indicates that I made the search
iwth those criteria:

Sub FindWhiteShadow_BoxBlue()
'
' FindWhiteShadow_BoxBlue Macro
' Macro recorded 7/10/2006
'
Selection.ShapeRange.Select
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
With Selection.Font
With .Borders(1)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth025pt
.Color = wdColorLightBlue
End With
.Borders.Shadow = False
End With
With Options
.DefaultBorderLineStyle = wdLineStyleSingle
.DefaultBorderLineWidth = wdLineWidth025pt
.DefaultBorderColor = wdColorLightBlue
End With
End Sub

ANY suggestions would be appreciated. Thank you.

Archived from group: microsoft>public>vb>syntax