Объект TextStyle (издатель)

Статья
04/07/2023

Представляет один встроенный или определяемый пользователем стиль. Объект TextStyle включает атрибуты стиля (шрифт, стиль шрифта, интервал между абзацами и т. д.) в качестве свойств объекта TextStyle .

Объект TextStyle является членом коллекции TextStyles . Коллекция TextStyles включает все стили в указанном документе.

Замечания

Используйте TextStyles (index), где 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

Методы

удаление;

Свойства

См. также

Справочник по объектной модели издателя

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

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

Поделиться через