View Single Post
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
Wiley Wiley is offline
external usenet poster
 
Posts: 21
Default Need a macro to put borders around every occurrence of a word

I want to find several different words in a document, an dhighlight them with
a border (box). I have treid the following section ( with help from the
macro recorder) to do this, but get "Invlaid Use of Propert"y error on the
Borders. how do I appy the border to the found items?

With Selection.Find
.Text = "SYSTEM:"
.Replacement.Text = "SYSTEM:"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.Replacement.Font.Borders (1)
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With


Thanks.