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


Объект Style (Word)

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

Замечания

Используйте стили (Индекс), где Index — это имя стиля, константой или номером индекса WdBuiltinStyle , чтобы вернуть один объект Style . Вы должны точно соответствовать написанию и интервалу имени стиля, но не обязательно его прописной буквы. В следующем примере изменяется имя шрифта определяемого пользователем стиля с именем Color в активном документе.

ActiveDocument.Styles("Color").Font.Name = "Arial"

В следующем примере встроенный стиль заголовка 1 не выделен полужирным шрифтом.

ActiveDocument.Styles(wdStyleHeading1).Font.Bold = False

Номер индекса стиля представляет позицию стиля в алфавитном списке имен стилей. Обратите внимание, что Styles(1) это первый стиль в алфавитном списке. В следующем примере отображается базовый стиль и имя первого стиля в коллекции Стили .

MsgBox "Base style= " _ 
 & ActiveDocument.Styles(1).BaseStyle & vbCr _ 
 & "Style name= " & ActiveDocument.Styles(1).NameLocal

Чтобы применить стиль к диапазону, абзацу или нескольким абзацам, задайте для свойства Стиль определяемое пользователем или встроенное имя стиля. В следующем примере стиль "Обычный" применяется к первым четырем абзацам активного документа.

Set myRange = ActiveDocument.Range( _ 
 Start:=ActiveDocument.Paragraphs(1).Range.Start, _ 
 End:=ActiveDocument.Paragraphs(4).Range.End) 
myRange.Style = wdStyleNormal

В следующем примере стиль Заголовок 1 применяется к первому абзацу в выделенном фрагменте.

Selection.Paragraphs(1).Style = wdStyleHeading1

В следующем примере создается стиль символа с именем "Полужирный" и применяется к выделенному фрагменту.

Set myStyle = ActiveDocument.Styles.Add(Name:="Bolded", _ 
 Type:=wdStyleTypeCharacter) 
myStyle.Font.Bold = True 
Selection.Range.Style = "Bolded"

Используйте метод OrganizerCopy для копирования стилей между документами и шаблонами. Используйте метод UpdateStyles для обновления стилей в активном документе в соответствии с определениями стилей во присоединенном шаблоне. Используйте метод OpenAsDocument , чтобы открыть шаблон как документ, чтобы изменить стили шаблонов.

См. также

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

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

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