Document.ActiveTheme (Word)

Renvoie le nom du thème actif ainsi que le thème de la mise en forme d'options pour le document spécifié.

La propriété ActiveTheme renvoie « none » si le document n'a pas un thème actif.

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