catch the symbol in Word2000 VBA?

[Nikolai B. Ugarov]

Hi all!

How to cath the symbol inserted by Insert/Symbol command?
In range.text it looks like "(". It cannot be found by find command.
There is no Symbols collection or something like.

Is there any way to access such symbols from VBA?

[Jay Freedman]

Hi, Nikolai,

This very complicated subject is explained at
http://www.mvps.org/word/FAQs/MacrosVBA/FindReplaceSymbols.htm

Regards,
Jay

"Nikolai B. Ugarov" <ko...@our.st> wrote in message
news:99668870...@gate.mycomp...

[Nikolai B. Ugarov]

Hi!

Jay Freedman <jay.fr...@verizon.net> wrote

> Hi, Nikolai,
>
> This very complicated subject is explained at
> http://www.mvps.org/word/FAQs/MacrosVBA/FindReplaceSymbols.htm
>

Thanks a lot. The article is very helpful. The next task is to find ALL such
symbols in range.
In other words: to find all upper unicode characters and their positions,
no matter how they have been inserted.

[Klaus Linke]

Hi Nikolai,

If you have got the true (positive) code of the symbol, you can search for it
with ^uXXXX

You have to adapt Dave Rado's macro from
http://www.mvps.org/word/FAQs/MacrosVBA/FindReplaceSymbols.htm a bit to get
that code (Char number):

Sub GetCharNoAndFont()
With Dialogs(wdDialogInsertSymbol)
Debug.Print "Font: " & .Font
Debug.Print "Char number " & (.CharNum And &HFFFF&)
End With
End Sub

The following Edit>Find with *wildcards* will find all characters from
decorative fonts ("Symbol", "Wingdings" ...), no matter how they were inserted:
[ALT61472-ALT61695]
ALT61472: Hold down the Alt-key and type the numbers on the numeric keyboard
(NumLock must be on).

Greetings, Klaus

Nikolai B. Ugarov wrote:
>
> Hi!

>
> How to cath the symbol inserted by Insert/Symbol command?
> In range.text it looks like "(". It cannot be found by find command.
> There is no Symbols collection or something like.
>
> Is there any way to access such symbols from VBA?

> Jay Freedman <jay.fr...@verizon.net> wrote

[Nikolai B. Ugarov]

Hi!

> The following Edit>Find with *wildcards* will find all characters from
> decorative fonts ("Symbol", "Wingdings" ...), no matter how they were
inserted:
> [ALT61472-ALT61695]
> ALT61472: Hold down the Alt-key and type the numbers on the numeric
keyboard
> (NumLock must be on).

Thank you very much. Everything works.
As i have understood 61472-61695 is unicode range for decorative fonts. Am I
right?
I think there is a document describing such ranges for cyrilic characters,
etc. Could you give me the link?
Thanks in advance.

[Klaus Linke]

Nikolai B. Ugarov wrote:
>
> Hi!
>
> > The following Edit>Find with *wildcards* will find all characters from
> > decorative fonts ("Symbol", "Wingdings" ...), no matter how they were

> > inserted: [ALT61472-ALT61695] ...

> As i have understood 61472-61695 is unicode range for decorative fonts.

> I think there is a document describing such ranges for cyrilic characters,
> etc. Could you give me the link?

You probably mean message 10 in the thread
"Finding backslashes with wildcards"
http://groups.google.com/groups?th=a8bd2df637dce1cf,29

The short version:
[ALT1025-ALT1273] will find all cyrillic characters.
For more information on Unicode and code ranges, see
http://www.unicode.org

Perhaps also interesting:
"Inserting Unicode characters from the keyboard"
http://groups.google.com/groups?th=fdf29d94ace4a653,12

Regards, Klaus