Document.DocumentTheme (Word)
Retorna um objeto OfficeTheme que representa o tema do Microsoft Office aplicado a um documento. Somente leitura.
Use o método ApplyDocumentTheme para aplicar um tema do Office.
Dim oteDocumentTheme As Office.OfficeTheme
Set oteDocumentTheme = ActiveDocument.DocumentTheme