Find Char and Replace with a Symbol

R

Robin Clay

Also posted in "General Questions"

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
 
K

Klaus Linke

Hi Robin,

Answered in docmanagement: Open the text files with the "OEM USA" text
filter.

Klaus
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Change a great number of words in word files, with a macro as short as possible. 5
Loop until end 1
Word macro that can call cells out of Excel for a find and replace 0
Select Text to End of Footnote 9
CleanUpPastedText() 1
Find/Replace with Wildcards 1
Find/Replace macro only limited to selection when entire paragraphis selected 22
Find/replace shading - should be simple 5

Top