Replace ^u with the word "under"

macropod · #2 08-03-2015, 08:36 PM

Try:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^^u"
    .Replacement.Text = "under"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End With
Application.ScreenUpdating = True
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I delete the names under "Exceptions" when I use the "Restrict Editing" feature in Word?	MengS	Word	0	02-25-2015 02:57 PM
"Replace all" within a selection (Word 2007)	paulkaye	Word	5	02-19-2013 01:25 AM
'Linking' entered information to other "cells" from an original "cell" in MS Word	Wade	Word	6	09-03-2012 05:22 PM
replace data from variable with "sub and super script" from excel to word by vba	krishnaoptif	Word VBA	9	06-22-2012 05:08 AM
How to "replace" a word with same word but "Italic"?	Jamal NUMAN	Word	4	07-08-2011 04:02 AM