Document.ActiveThemeDisplayName (Word)

Renvoie le nom complet du thème actif pour le document spécifié.

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

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