finding a symbol in a text 1

[nesplb]

Hi!

I want to find all the symbols in a text. By this I mean all the symbols that are inserted from the meny with insert->symbol (see pic.)

I've tried to search for the symbols using the find method and search for all words with the font = "Symbol". This doesn't work even though the insertSymbol method takes the font "Symbol" as an argument. (I recorded the insertion and watched the code).

Selection.InsertSymbol Font:="Symbol", CharacterNumber:=-4060, Unicode:= _True

does anyone have any tips so that I can find the symbols in the text?

thanX





Pål Nesteby

PDC-Tangen
Norway

 

[tbl]

I would suggest that the use the character numbers as a filter to find the symbols. If you look at

http://www.asciitable.com/

you will see that symbols begin at 128. It should be possible to scan your text per cell and check the Chr of the text.Anything above 127 is a symbol.

Richard

 

[nesplb]

ok!
I will try this!

Thank you for the tips!

Pål Nesteby

PDC-Tangen
Norway

 

[nesplb]

But.....This should also work for e.g "webdings" and other symbolfonts too. I also see from my code that numbers like "-4060" appears....

 Selection.InsertSymbol Font:="Symbol", CharacterNumber:=-4060, Unicode:= _
        True

hmmmm.....Thanks for the help so far anyway

Pål Nesteby

PDC-Tangen
Norway

 

[tbl]

They are however outside the range of normal ASCII Chrs and thus detectable with Chr

 

[nesplb]

I see....But is there a way to detect which symbol-font it is e.g "Symbol" or "Webdings"...?



Pål Nesteby

PDC-Tangen
Norway

 

[tbl]

However, I think you may have more fun with this from Bill himself !

http://support.microsoft.com/default.aspx?scid=kb;en-us;211775&Product=vba

 

[nesplb]

Thank you very much!
I guess I can get something useful from that one!




Pål Nesteby

PDC-Tangen
Norway