Прочитать на английском

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


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