通过

DocumentBase.DocumentTheme 属性

  • 项目

获取应用于文档的 Microsoft Office 主题。

命名空间：  Microsoft.Office.Tools.Word
程序集：  Microsoft.Office.Tools.Word.v4.0.Utilities（在 Microsoft.Office.Tools.Word.v4.0.Utilities.dll 中）

语法

声明
Public ReadOnly Property DocumentTheme As OfficeTheme

public OfficeTheme DocumentTheme { get; }

属性值

类型：Microsoft.Office.Core.OfficeTheme
一个 Microsoft.Office.Core.OfficeTheme 对象，表示应用于文档的 Microsoft Office 主题。

备注

使用 ApplyDocumentTheme 方法可以将 Microsoft Office 主题应用于文档。

示例

下面的代码示例将检索当前文档的主题及其相应的字体方案。 随后，该代码将检索拉丁字体的主要字体和次要字体的名称，并将它们显示在一个消息框中。 若要使用此示例，请从文档级项目内的 ThisDocument 类中运行此示例。

Private Sub GetDocumentTheme()
    Dim theme As Office.OfficeTheme = Me.DocumentTheme
    Dim fontScheme As Office.ThemeFontScheme = theme.ThemeFontScheme
    Dim majorFont As Office.ThemeFont = fontScheme.MajorFont.Item( _
        Microsoft.Office.Core.MsoFontLanguageIndex.msoThemeLatin)
    Dim minorFont As Office.ThemeFont = fontScheme.MinorFont.Item( _
        Microsoft.Office.Core.MsoFontLanguageIndex.msoThemeLatin)
    MessageBox.Show("Name of major font in current document theme: " _
                    + majorFont.Name)
    MessageBox.Show("Name of minor font in current document theme: " _
                    + minorFont.Name)
End Sub

private void GetDocumentTheme()
{
    Office.OfficeTheme theme = this.DocumentTheme;            
    Office.ThemeFontScheme fontScheme = theme.ThemeFontScheme;            
    Office.ThemeFont majorFont = fontScheme.MajorFont.Item(
        Office.MsoFontLanguageIndex.msoThemeLatin);
    Office.ThemeFont minorFont = fontScheme.MinorFont.Item(
        Office.MsoFontLanguageIndex.msoThemeLatin);
    MessageBox.Show("Name of major font in current document theme: "
        + majorFont.Name);
    MessageBox.Show("Name of minor font in current document theme: "
        + minorFont.Name);
}

.NET Framework 安全性

请参见

参考

DocumentBase 类

Microsoft.Office.Tools.Word 命名空间