Script Property

Microsoft Publisher Visual Basic

constant that represents the font script for a text range. Read-only.

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

expression.Script

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example displays a message if the font script used in the specified text range is ASCII Latin. This example assumes that there is at least one shape on the first page of the active publication.

Sub DisplayScriptType()
    If ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _
            .Script = pbFontScriptAsciiLatin Then
        MsgBox "The font script you are using is ASCII Latin."
    End If
End Sub