Объект Styles (Word)
Коллекция объектов Style , представляющих как встроенные, так и определяемые пользователем стили в документе.
Используйте свойство Styles , чтобы вернуть коллекцию Styles . В следующем примере удаляются все определяемые пользователем стили в активном документе.
For Each sty In ActiveDocument.Styles
If sty.BuiltIn = False Then sty.Delete
Next sty
Используйте метод Add , чтобы создать новый определяемый пользователем стиль и добавить его в коллекцию Стили . В следующем примере добавляется новый стиль символа с именем "Введение" и делает его 12-точечным arial с полужирным и курсивным форматированием. Затем этот новый стиль символа применяется к выделенному фрагменту.
Set myStyle = ActiveDocument.Styles.Add(Name:="Introduction", _
Type:=wdStyleTypeCharacter)
With myStyle.Font
.Bold = True
.Italic = True
.Name = "Arial"
.Size = 12
End With
Selection.Range.Style = "Introduction"
Используйте стили (Индекс), где 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
Объект Styles недоступен из объекта Template . Однако можно использовать метод OpenAsDocument , чтобы открыть шаблон как документ, чтобы можно было изменять стили в шаблоне. В следующем примере изменяется форматирование стиля Заголовок 1 в шаблоне, присоединенном к активному документу.
Set aDoc = ActiveDocument.AttachedTemplate.OpenAsDocument
With aDoc
.Styles(wdStyleHeading1).Font.Name = "Arial"
.Close SaveChanges:=wdSaveChanges
End With
Используйте метод OrganizerCopy для копирования стилей между документами и шаблонами. Используйте метод UpdateStyles для обновления стилей в активном документе в соответствии с определениями стилей во присоединенном шаблоне.
Справочник по объектной модели Word
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.