全部显示为 Microsoft Word 设置用于新文档、电子邮件或 Web 页的默认主题。
expression.SetDefaultTheme(Name, DocumentType)
expression 必需。该表达式返回一个 Application 对象。
Name String 类型，必需。需要指定为默认主题的主题名称，由默认主题名称加上任何要应用的主题格式选项组成。此字符串的格式为“theme nnn”，其中 theme 和 nnn 定义为：
| 字符串 | 说明 |
|---|---|
| theme | 指定包含所需主题的数据的文件夹名称（默认的主题数据文件夹的位置是：C:\Program Files\Common Files\Microsoft Shared\Themes）。必须使用该主题的文件夹名称，而不能使用“主题”对话框（“格式”菜单中的“主题”命令）中显示的名称。 |
| nnn | 三个数字的字符串，用于标明所激活的主题格式选项（1 表示激活，0 表示停用）。每个数字分别对应“主题”对话框（“格式”菜单中的“主题”命令）中的“鲜艳颜色”、“活动图形”和“背景图像”复选框。如果忽略此字符串，则 nnn 的默认值为“011”（“活动图形”和“背景图像”会都被激活）。 |
DocumentType WdDocumentMedium，必需。为其指定默认主题的新文档的类型。
| WdDocumentMedium 可以是下列 WdDocumentMedium 常量之一： |
| wdEmailMessage |
| wdDocument |
| wdWebPage |
如果设置了一个默认主题，则此主题将不用于启动 Word 时自动创建的空白文档。此后所创建的任何文档都将具有该默认主题。
也可用 ThemeName 属性为新电子邮件返回并设置默认主题。
本示例指定 Microsoft Word 在所有的新电子邮件中使用“Blueprint”主题。
Application.SetDefaultTheme "blueprnt", wdEmailMessage本示例指定 Word 在所有新 Web 页中的“活动图形”中使用“Expedition”主题。
Application.SetDefaultTheme "expeditn 010", wdWebPage