TextStyles.Add 方法 (Publisher)

将新的 TextStyle 对象添加到指定的 TextStyles 集合，并返回新的 TextStyle 对象。

语法

表达式。添加 (StyleName、 Font、 ParagraphFormat、 BasedOn)

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

参数

名称	必需/可选	数据类型	说明
StyleName	必需	String	新文字样式的名称。 如果该名称与现有的文字样式相匹配，则将覆盖现有的文字样式。
Font	可选	Font	要应用于新文字样式的字体设置。
ParagraphFormat	可选	ParagraphFormat	要应用于新文字样式的段落格式。
BasedOn	可选	String	新文字样式所基于的文字样式的名称。 如果该名称与现有的文字样式不匹配，则将发生错误。

返回值

TextStyle

示例

下面的示例将基于“正文”文字样式的新文字样式添加到活动出版物中。

Dim tsNew As TextStyle 
 
Set tsNew = ActiveDocument.TextStyles _ 
 .Add(StyleName:="Title", BasedOn:="Normal")

支持和反馈

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