expression.GetScriptName(Script)
expression Required. An expression that returns one of the objects in the Applies To list.
Script Required PbFontScriptType. The script name.
PbFontScriptType can be one of these PbFontScriptType constants. |
pbFontScriptArabic |
pbFontScriptArmenian |
pbFontScriptAsciiLatin |
pbFontScriptAsciiSym |
pbFontScriptBengali |
pbFontScriptBopomofo |
pbFontScriptBraille |
pbFontScriptCanadianAbor |
pbFontScriptCherokee |
pbFontScriptCurrency |
pbFontScriptCyrillic |
pbFontScriptDefault |
pbFontScriptDevanagari |
pbFontScriptEthiopic |
pbFontScriptEUDC |
pbFontScriptGeorgian |
pbFontScriptGreek |
pbFontScriptGujarati |
pbFontScriptGurmukhi |
pbFontScriptHalfWidthKana |
pbFontScriptHan |
pbFontScriptHangul |
pbFontScriptHanSurrogate |
pbFontScriptHebrew |
pbFontScriptKana |
pbFontScriptKannada |
pbFontScriptKhmer |
pbFontScriptLao |
pbFontScriptLatin |
pbFontScriptMalayalam |
pbFontScriptMixed |
pbFontScriptMongolian |
pbFontScriptMyanmar |
pbFontScriptNonHanSurrogate |
pbFontScriptOgham |
pbFontScriptOriya |
pbFontScriptRunic |
pbFontScriptSinhala |
pbFontScriptSyriac |
pbFontScriptTamil |
pbFontScriptTelugu |
pbFontScriptThaana |
pbFontScriptThai |
pbFontScriptTibetan |
pbFontScriptYi |
Example
This example verifies that the default font script in use for the specified text range is Tahoma and, if not, sets it as the default font script.
Sub GetScript()
With ActiveDocument.Pages(1).Shapes(1) _
.TextFrame.TextRange.Font
If .GetScriptName(Script:=pbFontScriptDefault) <> "Tahoma" Then
.SetScriptName Script:=pbFontScriptDefault, _
FontName:="Tahoma"
End If
End With
End Sub