Document.ActiveThemeDisplayName (Word)

Retorna o nome para exibição do tema ativo do documento especificado. Cadeia de caracteressomente leitura.

A propriedade ActiveThemeDisplayName retorna "none", se o documento não tiver um tema ativo. Nome de exibição de um tema é o nome que aparece na caixa de diálogo de tema. Esse nome pode não corresponder à sequência que você usaria para definir um tema padrão ou para aplicar um tema a um documento.

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