Find & Replace Unique word

gmaxey · #7 05-06-2017, 06:29 AM

As I have already taken pains to express, the find whole word option is disregarded when using symbols and such in the find string. You have to do it in steps:

Code:

Sub InSteps()
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "Ë_do"
    .Replacement.Text = "Aardvark"
    .Execute Replace:=wdReplaceAll
    Set oRng = ActiveDocument.Range
    .Text = "Aardvark"
    .Replacement.Text = "Whatever you want to replace with"
    .MatchWholeWord = True
    .Execute Replace:=wdReplaceAll
    Set oRng = ActiveDocument.Range
    .Text = "Aardvark"
    .Replacement.Text = "Ë_do"
    .MatchWholeWord = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
MS Word 2016 Find and Replace	BillM	Word	2	03-14-2017 10:49 AM
Need help using Find & Replace (MS Word)	BZee	Word	9	02-16-2015 05:45 PM
Replace each heading with a unique numeric value	amitkapoor	Word	7	05-06-2013 03:29 AM
Word Find and Replace Query	bthart	Word	1	12-29-2011 12:45 AM
Bad view when using Find and Find & Replace - Word places found string on top line	paulkaye	Word	4	12-06-2011 11:05 PM