Font.SetScriptName 方法 (Publisher)

  • 项目

设置用于文字范围的字体文种的名称。

语法

表达式。SetScriptName (脚本、 FontName)

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

参数

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

示例

此示例验证指定文本范围使用的默认字体脚本是否为 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。