Document.ActiveThemeDisplayName (Word)

Returns the display name of the active theme for the specified document.

The ActiveThemeDisplayName property returns "none" if the document doesn't have an active theme. 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.

Sub DisplayThemeName() 
 ActiveDocument.ApplyTheme "artsy 100" 
 MsgBox ActiveDocument.ActiveThemeDisplayName 
End Sub