Returns the display name of the active theme for the specified document. Returns "none" if the document doesn't have an active theme. Read-only String.
Remarks
A theme's display name is the name that appears in the Theme dialog box. This name may not correspond to the string you would use to set a default theme or to apply a theme to a document.
Example
This example returns the display name of the active theme for the current document.
Sub DisplayThemeName()
ActiveDocument.ApplyTheme "artsy 100"
MsgBox ActiveDocument.ActiveThemeDisplayName
End Sub