TextStyle 对象 (Publisher)

代表单个内置或用户定义的样式。 TextStyle 对象作为 文本样式 对象的属性包括样式属性 （如字体、 字体样式、 段落间距等）。

TextStyle 对象属于 TextStyles 集合。 TextStyles 集合包含指定文档中的所有样式。

备注

使用 TextStyles (索引) （其中 index 是文本样式编号或名称）返回单个 TextStyle 对象。 您必须完全匹配的拼写和间距样式名称，但不是一定是其市值。

使用 TextStyles.Add 方法创建新样式。

若要将样式应用于区域、段落或多个段落，请将 ParagraphFormat.TextStyle 属性设置为用户定义的或内置样式名称。

示例

下面的示例显示的样式名称和第一种样式的基准样式 TextStyles 集合中。

Sub BaseStyleName() 
 With ActiveDocument.TextStyles(1) 
 MsgBox "Style name= " & .Name _ 
 & vbCr & "Base style= " & .BaseStyle 
 End With 
End Sub

下面的示例创建一个新样式，并将其应用到光标位置所在的段落。

Sub ApplyTextStyle() 
 Dim styNew As TextStyle 
 Dim fntStyle As Font 
 
 'Create a new style 
 Set styNew = ActiveDocument.TextStyles.Add(StyleName:="NewStyle") 
 Set fntStyle = styNew.Font 
 
 'Format the Font object 
 With fntStyle 
 .Name = "Tahoma" 
 .Size = 20 
 .Bold = msoTrue 
 End With 
 
 'Apply the Font object formatting to the new style 
 styNew.Font = fntStyle 
 
 'Apply the new style to the selected paragraph 
 Selection.TextRange.ParagraphFormat.TextStyle = "NewStyle" 
End Sub

方法

• 删除

属性

• Application
• BaseStyle
• 说明
• Font
• Name
• NextParagraphStyle
• ParagraphFormat
• Parent

另请参阅

• Publisher 对象模型参考

支持和反馈

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