View Single Post
 
Old 08-03-2015, 01:13 AM
norgro norgro is offline Windows XP Office 2007
Novice
 
Join Date: Feb 2013
Location: Perh Australia
Posts: 12
norgro is on a distinguished road
Default Replace ^u with the word "under"

When Duxbury Braille code is copied into MS Word, the code for the word "under" is "^u".

I want to replace the symbol "^u" with the word under.

I have tried the following code, without success.

Sub Replace_BrailleCodeSymbol_with_word()
'Replace the Braille symbol "^u" with the word "under"
Dim oRng As Range
Dim oWord As Range
Set oRng = ActiveDocument.Range
With oRng.Find
' Do While .Execute(FindText:=Chr(94) & "u")
Do While .Execute(FindText:="^u")
Set oWord = oRng.Words(1)
oRng.Text = "under"
oRng.Collapse 0
Loop
End With
lbl_Exit:
Set oRng = Nothing
Set oWord = Nothing
Exit Sub
End Sub

Your help would be appreciated.

Norman
Reply With Quote