Document.ActiveThemeDisplayName (Word)

Devuelve el nombre para mostrar del tema activo para el documento especificado.

La propiedad ActiveThemeDisplayName devuelve "none" si el documento no tiene ningún tema activo.

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