DocumentBase.DocumentTheme Property

Reference

Definition

Namespace:: Microsoft.Office.Tools.Word

Assembly:: Microsoft.Office.Tools.Word.v4.0.Utilities.dll

Important

Some information relates to prerelease product that may be substantially modified before it’s released. Microsoft makes no warranties, express or implied, with respect to the information provided here.

Gets the Microsoft Office theme that is applied to the document.

public:
 property Microsoft::Office::Core::OfficeTheme ^ DocumentTheme { Microsoft::Office::Core::OfficeTheme ^ get(); };

public Microsoft.Office.Core.OfficeTheme DocumentTheme { get; }

member this.DocumentTheme : Microsoft.Office.Core.OfficeTheme

Public ReadOnly Property DocumentTheme As OfficeTheme

Property Value

OfficeTheme

A OfficeTheme object that represents the Microsoft Office theme that is applied to the document.

Examples

The following code example retrieves the current document theme and its corresponding font scheme. The code then retrieves and displays the names of the major font and the minor font of the Latin font face in a message box. To use this example, run it from the ThisDocument class in a document-level project.

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);
}

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

Remarks

Use the ApplyDocumentTheme method to apply a Microsoft Office theme to the document.

Applies to

Freigeben über