How to do a find and replace on part of a document?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I am trying to remove index fields on part of a document. I don't want all
the sections to be indexed and because when I was indexing and hit "mark all"
it indexed sections that I did not want coded for indexing. So I need it to
stop at the end of a section when I repace all.
 
As with all Replace All functions, best to test ON A COPY--but if you
select the part of the text you want searched, Replace All should only
affect that part, and then ask you if you want to do the rest of the
document.
 
The following macro will remove the index fields from the section the cursor
is in

ActiveDocument.Bookmarks("\section").Range.Select
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^d INDEX"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute replace:=wdReplaceAll

http://www.gmayor.com/installing_macro.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
Back
Top