Finding non-English font names using VBA

  • Thread starter Thread starter josh.projects
  • Start date Start date
J

josh.projects

Hello all,

I'm having some problems with getting the font name for some Chinese
text in a particular presentation... when I select the text, the font
name displayed in the toolbar is "PMingLiU", but TextRange.Font.Name
for the same text returns "$B?7:YL@qs(B" (which is the Chinese name for the
same font).

Does anyone know how the association $B?7:YL@qs(B -> PMingLiU is made in
Powerpoint, or if there's any workaround I can use to get the same
font name displayed in the toolbar?

Thanks.
 
Hello all,

I'm having some problems with getting the font name for some Chinese
text in a particular presentation... when I select the text, the font
name displayed in the toolbar is "PMingLiU", but TextRange.Font.Name
for the same text returns "$B?7:YL@qs(B" (which is the Chinese name for the
same font).

Does anyone know how the association $B?7:YL@qs(B -> PMingLiU is made in
Powerpoint, or if there's any workaround I can use to get the same
font name displayed in the toolbar?
Click to expand...

Select the text and run this on it. Any help?

Sub Who_am_I_anyway()

With ActiveWindow.Selection.TextRange.Font
Debug.Print .Name
Debug.Print .NameAscii
Debug.Print .NameComplexScript
Debug.Print .NameFarEast
Debug.Print .NameOther
End With

End Sub
 
Hi Steve, thanks for the reply...

All of the Name* variables are "$B?7:YL@qs(B", except for NameComplexScript
which is empty.
 
Hi Steve, thanks for the reply...

All of the Name* variables are "$B?7:YL@qs(B", except for NameComplexScript
which is empty.
Click to expand...

Hm. Can you gen up a one-slide PPT that uses this font and send me a copy?

Attach it to an email to: steve at-sign pptools dot com

(put this newsgroup message in the body of the email too, if you would).
 
Back
Top