Theme 对象

Themes Theme

代表 Microsoft FrontPage 中的主题。Theme 对象是 Themes 集合的成员。Themes 集合代表本地计算机上的所有主题或应用于特定站点的所有主题。在 Themes 集合中，各 Theme 对象的索引从零开始。

使用 Theme 对象

使用 Format 属性可以返回主题的格式信息。下列语句返回应用于基于 FrontPage 的活动 Web 页的主题的格式。

myThemeFormat = Theme.Format

使用 Label 属性可以返回显示在“主题”列表框中的名称，即主题的全称，下列语句返回主题的标签。

myThemeLbl = Theme.Label

使用 Name 属性可以返回主题或将主题应用于 Web 页。Name 属性包含主题的目录名称，即显示在“主题”列表框中的主题名称的缩写。下列示例列出活动文档正文中主题集合中的所有主题的名称。

注意  若要运行本示例，必须打开一个站点，其中包含一个应用于活动网页、整个站点或站点中文件的主题。

Sub ListThemes()
    
    Dim objTheme As Theme
    
    For Each objTheme In Application.Themes
        ActiveDocument.body.insertAdjacentText "beforeend", objTheme.Name
    Next

End Sub

使用 Version 属性可以返回主题的版本编号。下列示例返回主题的版本。

myThemeVersion = Theme.Version