Document.DocumentTheme (Word)

Returns an OfficeTheme object that represents the Microsoft Office theme applied to a document.

Use the ApplyDocumentTheme method to apply an Office theme.

Dim oteDocumentTheme As Office.OfficeTheme
Set oteDocumentTheme = ActiveDocument.DocumentTheme