Finding actual font for inserted symbols/characters

  • Thread starter Charlie's odd VBA questions
  • Start date
C

Charlie's odd VBA questions

In a Word document, if the user inserts a symbol or extended character, Word
assigns a character code of Asc(40) or Asc(63). (This is documented by MS.)
I have written a macro that can find these special characters using
Selection.Find.Text(unicode value). However, even though I can find and
select these characters, I can not figure out how to determine the actual
font. When viewing the document, Word lists the font as, say, Arial, even
though the character is actually Webdings, for example. The macro returns
the font name as Aeial, not Webdings. Since I need to copy or replace the
character, I need to know the real font name and apply that.

Any help you might offer will be really appreciated.

I would also like to know if it is possible to get the actual count of
replacements when a macro does a Find.Replace to replace all occurrences.
Word shows the number of replacements in the status bar, but I can't find any
property that I can return to know how many replace occurrences there were.

Many, many thanks for any help.
 

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 and replace macro for Special ^p - MS Word 0
Can't seem to delete all images from a Word Doc 2
Designate font as italic of another 0
Need help modifying code 0
How to modify and updte specific styles for specific paragraphs across the document 0
VBA macro for finding extended/special characters/symbols 2
Problem with MS Word paragraph and character styles: format getting messed up 2
Macro to copy table of contents to a new doc 0

Top