Application.SetDefaultTheme (Word)

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

Синтаксис

выражение. SetDefaultTheme (имя, тип документа)

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
Name Обязательный String Название темы, которую вы хотите назначить в качестве темы по умолчанию, а также любые параметры форматирования темы, которые вы хотите применить. Формат этой строки — "themennn", где в таблице "Темы" определены theme и 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 и обратная связь.