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
|