Свойство TextRange.Script (издатель)

Возвращает константу PbFontScriptType , представляющую шрифт для текстового диапазона. Только для чтения.

Синтаксис

выражение. Сценарий

выражение Переменная, представляющая объект TextRange .

Возвращаемое значение

PbFontScriptType

Примечания

Значением свойства Script может быть одна из констант PbFontScriptType , объявленных в библиотеке типов Microsoft Publisher.

Пример

В этом примере отображается сообщение, если в указанном диапазоне текста используется латинский алфавит ASCII. В этом примере предполагается, что на первой странице активной публикации имеется по крайней мере одна фигура.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.