为Word设置用于新文档、电子邮件或网页的默认主题。
语法
表达式。SetDefaultTheme (Name、 DocumentType)
expression 是必需的。 一个代表 Application 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| Name | 必需 | String | 由要指定为默认主题的主题名称加上任何要应用的主题格式选项组成。 此字符串的格式为“themennn”，其中 Theme 和 nnn 在 Theme 表中定义。 |
| DocumentType | 必需 | WdDocumentMedium | 为其指定默认主题的新文档的类型。 |
主题
| String | 说明 |
|---|---|
| theme | 包含请求主题的数据的文件夹名称（主题数据文件夹的默认位置是 C:\Program Files\Common Files\Microsoft Shared\Themes）。 (主题数据文件夹的默认位置为 C：\Program Files\Common Files\Microsoft Shared\Theme.) 必须使用主题的文件夹名称，而不是在“主题”命令 (“主题”命令、“格式”菜单) 中显示的显示名称。 |
| nnn | 三个数字的字符串，表示要激活的主题格式选项（1 为激活，0 为停用）。 每个数字分别对应“主题”对话框（“格式”菜单中的“主题”命令）中的“鲜艳颜色”、“动态图形”和“背景图像”复选框。 如果省略此字符串， 则 nnn 的默认值为“011”， (活动图形和背景图像) 激活。 |
备注
如果设置了一个默认主题，则此主题将不用于启动 Word 时自动创建的空白文档。 此后所创建的任何文档都将具有该默认主题。
还可以使用 ThemeName 属性返回并设置新电子邮件的默认主题。
示例
此示例指定Word对所有新电子邮件使用蓝图主题。
Application.SetDefaultTheme "blueprnt", wdEmailMessage
此示例指定Word将“探险”主题与活动图形一起使用，用于所有新网页。
Application.SetDefaultTheme "expeditn 010", wdWebPage
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。