Document.ActiveThemeDisplayName (Word)

Gibt den Anzeigenamen des aktiven Designs für das angegebene Dokument zurück.

Wenn das Dokument über kein aktives Design verfügt, wird von der ActiveThemeDisplayName-Eigenschaft ein leerer Wert zurückgegeben.

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