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 安全性
- 完全信任立即呼叫者。這個成員無法供部分信任的程式碼使用。如需詳細資訊，請參閱從部分受信任程式碼使用程式庫。