Document.ActiveTheme (Word)

Gibt den Namen des aktiven Designs und die Formatierungsoptionen des Designs für das angegebene Dokument zurück.

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

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