property/code for symbol characters?

[Jürgen]

Hi.

Selection.Font.Name does not show the right font, if a character was
inserted with Insert->Symbol (Font: Symbol),
and AscW(Selection) or Asc(Selection) = 40 for any symbol character.

How can I get a hint, that the character is treated as a symbol and not a
'normal' character - is there any property? And how can i get the right code?

Thank you.

 

[Helmut Weber]

Hi Jürgen,

in a very simplified manner:

Dim oDlg As Dialog
Dim oChr As Object
Set oDlg = Dialogs(wdDialogInsertSymbol)
For Each oChr In Selection.Range.Characters
If oChr = "(" Then
oChr.Select
Set oDlg = Dialogs(wdDialogInsertSymbol)
MsgBox oDlg.Font
MsgBox oDlg.charnum + 4096
End If
Next

Greetings from Bavaria, Germany

Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/

 

[Jürgen]

Thanks Helmut,

that's what I needed!

Greetings from Bavaria, Germany

dito ;-)