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


Метод Application.SetDefaultTheme (Word)

Задает тему по умолчанию для Word для использования с новыми документами, сообщениями электронной почты или веб-страницами.

Синтаксис

expression. SetDefaultTheme (Name, DocumentType)

выражение (обязательно). Переменная, представляющая объект Application .

Параметры

Имя Обязательный или необязательный Тип данных Описание
Name Обязательный String Имя темы, которую вы хотите назначить в качестве темы по умолчанию, а также любые параметры форматирования темы, которые вы хотите применить. Формат этой строки — themennn, где тема и nnn определены в таблице Темы .
DocumentType Обязательный WdDocumentMedium Тип нового документа, которому назначается тема по умолчанию.

Темы

String Описание
theme Имя папки, содержащей данные для запрошенной темы. (Расположение папок данных темы по умолчанию — C:\Program Files\Common Files\Microsoft Shared\Themes.) Необходимо использовать имя папки для темы, а не отображаемое имя, которое отображается в диалоговом окне Тема (команда Тема , меню Формат ).
nnn Строка из трех цифр, указывающая, какие параметры форматирования темы следует активировать (1 — активировать, 0 — деактивировать). Цифры соответствуют полям "Яркие цвета", "Активная графика" и проверка "Фоновое изображение" в диалоговом окне "Тема" (команда "Тема", меню "Формат"). Если эта строка опущена, значение по умолчанию для nnn — "011" (активируются активные графические элементы и фоновое изображение).

Замечания

Установка темы по умолчанию не будет применяться к пустому документу, автоматически созданному при запуске Word. Все новые документы, создаваемые после этого, будут иметь тему по умолчанию.

Вы также можете использовать свойство ThemeName , чтобы вернуть и задать тему по умолчанию для новых сообщений электронной почты.

Пример

В этом примере указывается, что Word использовать тему схемы для всех новых сообщений электронной почты.

Application.SetDefaultTheme "blueprnt", wdEmailMessage

В этом примере указывается, что Word использовать тему Экспедиция с активной графикой для всех новых веб-страниц.

Application.SetDefaultTheme "expeditn 010", wdWebPage

См. также

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

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