Find Character and Replace with a Symbol

[Robin Clay]

Greetings !

I have this, generated by recording a Macro :

Selection.Find.Replacement.Font.Name = "MS LineDraw"
With Selection.Find
.Text = "³"
.Replacement.Text = "³"
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

but now that MS LineDraw won't work, I thought I could
substitute this, wot I got also by recording a Macro:

Selection.InsertSymbol _
Font:="Courier New", _
CharacterNumber:=9508, _
Unicode:=True

but I can't seem to marry this snatch with the previous
code, to do the lot.

Help !



RClay AT haswell DOT com

 

[Klaus Linke]

Hi Robin,

Use
Selection.Find.Replacement.Font.Name = "Courier New"
With Selection.Find
.Text = "³"
.Replacement.Text = ChrW(9508)
' ...

If you have DOS text files with line drawings, you can choose "Other
encoding > OEM USA" when importing them, and the line drawing and box
characters will automatically all be converted in the corresponding Unicode
characters.

Greetings,
Klaus