Document.ActiveTheme (Word)

Retorna o nome do tema ativo, além das opções para o documento especificado de formatação do tema. Cadeia de caracteressomente leitura.

A propriedade ActiveTheme retorna "none", se o documento não tiver um tema ativo. Para obter uma explicação do valor retornado por essa propriedade, consulte o argumento Nome do método ApplyTheme. O valor retornado por essa propriedade pode não corresponder ao nome para exibição do tema. Para retornar o nome de exibição de um tema, use a propriedade ActiveThemeDisplayName.

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