Font.GetScriptName 方法 (Publisher)

返回一个 字符串 ，代表文字范围中使用的字体文种的名称。

语法

表达式。GetScriptName (脚本)

表达 一个代表 Font 对象的变量。

参数

名称	必需/可选	数据类型	说明
Script	必需	PbFontScriptType	文种名称。 可以是 Microsoft Publisher 类型库中声明的 PbFontScriptType 常量之一。

返回值

字符串

示例

此示例验证指定文本范围使用的默认字体脚本是否为 Tahoma，否则将其设置为默认字体脚本。

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

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。