Macro to replace Unicode Complex Script

C

Chand

I am a running a word macro for replacing Unicode numerals like Arial Unicode
numerals to regular font numerals (of any other font). Macro is not removing
complex script font information from the replacement text. Here is the code
.Find.ClearFormatting()
.Find.Replacement.ClearFormatting()
.Find.Format = True
.Find.MatchCase = True
.Find.Font.Name = cFrom.Text
.Find.Replacement.Font.Name = cTo.Text
.Find.Replacement.Font.NameBi = cTo.Text
.Find.Text = a
.Find.Replacement.Text = b
.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll)
.HomeKey(Word.WdUnits.wdStory)

Where a is the character to replace and b is replacement text. Unicode Font
numerals 1 2 3 are replaced but Complex Script font information is not
removed, due to which replacement font name is not applied. Can anyone help

Chand
 

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

Find/Replace macro only limited to selection when entire paragraphis selected 22
Symbol "font" - not Unicode compliant, how to Search/Replace? 2
How to overcome VBA ms.word-replace-macro 255 limitation 1
Help with Find and Replace Function 1
Ranges, Finds, and Replacements....oh my!! (please help) 0
how do I use macro to find and replace unicode characters 6
Macro with find/ replace steps is not behaving consistently 3
How to insert alternating Wingding unicode chars into a Macrobutto 3

Top