Document.ActiveTheme (Word)

Devuelve el nombre del tema activo más las opciones de formato para el documento especificado.

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

Sub CheckTheme() 
 ActiveDocument.ApplyTheme "artsy 100" 
 MsgBox ActiveDocument.ActiveTheme 
End Sub