SetDefaultTheme Method

Microsoft Word Visual Basic

Show All

SetDefaultTheme Method

       

Sets a default theme for Microsoft Word to use with new documents, e-mail messages, or Web pages.

expression.SetDefaultTheme(Name, DocumentType)

expression   Required. An expression that returns an Application object.

Name  Required String. The name of the theme you want to assign as the default theme plus any theme formatting options you want to apply. The format of this string is "theme nnn" where theme and nnn are defined as follows:

String Description
theme The name of the folder that contains the data for the requested theme. (The default location for theme data folders is C:\Program Files\Common Files\Microsoft Shared\Themes.) You must use the folder name for the theme rather than the display name that appears in the Theme dialog box (Theme command, Format menu).
nnn A three-digit string that indicates which theme formatting options to activate (1 to activate, 0 to deactivate). The digits correspond to the Vivid Colors, Active Graphics, and Background Image check boxes in the Theme dialog box (Theme command, Format menu). If this string is omitted, the default value for nnn is "011" (Active Graphics and Background Image are activated).

DocumentType  Required WdDocumentMedium. The type of new document to which you are assigning a default theme.

WdDocumentMedium can be one of these WdDocumentMedium constants.
wdEmailMessage
wdDocument
wdWebPage

Remarks

Setting a default theme will not apply that theme to the blank document automatically created when you start Word. Any new documents you create after that will have the default theme.

You can also use the ThemeName property to return and set the default theme for new e-mail messages.

Example

This example specifies that Microsoft Word use the Blueprint theme for all new e-mail messages.

Application.SetDefaultTheme "blueprnt", wdEmailMessage

This example specifies that Word use the Expedition theme with Active Graphics for all new Web pages.

Application.SetDefaultTheme "expeditn 010", wdWebPage