ActiveThemeDisplayName Property
From Microsoft Word Visual Basic
ActiveThemeDisplayName Property
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