Объект 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 и обратная связь.