property/code for symbol characters?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Jürgen - 20 Jan 2005 08:47 GMT

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.

Reply to this Message

Helmut Weber - 20 Jan 2005 16:00 GMT

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/

Reply to this Message

Jürgen - 21 Jan 2005 06:57 GMT

Thanks Helmut,

that's what I needed!

> Greetings from Bavaria, Germany

dito ;-)

Reply to this Message