Find and Replace

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

Guest

Is there any setting I can use so that each time I go to Find and Replace the
dialog box will be empty? As it is now, each time I go there, the same
"finds and replaces" I used days ago are still there! Drives me crazy,
especially when I'm trying my best to record a macro.
 
BTW, with a smidgen of help from Jay Freedman, I have recreated the macro
for underline text in quotes:

Sub FindAndUnderlineTextInQuotes()

'Underlines text exclusive of the quotes marks
Dim oRng As Range
Set oRng = ActiveDocument.Content

With oRng.Find
.ClearFormatting
.Text = """<*>"""
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
Do While .Execute
With oRng
.MoveEnd Unit:=wdCharacter, Count:=-1
.MoveStart Unit:=wdCharacter, Count:=1
.Font.Underline = True
.Collapse wdCollapseEnd
End With
Loop
End With
End Sub
 
Greg, thanks for both answers! I'll put them both to work in quick order. I
appreciate all that you and the "community" do for me and others. Can't
thank you enough!
 
Hi, Jerry:

Greg answered my question, but I sure do appreciate your asking. I'm using
Word 2003.
 
Back
Top