ActiveTheme Property Example
This example displays the name of the active theme plus the theme formatting options for the current document.
MsgBox ActiveDocument.ActiveTheme