document theme in word 2007

[jerome]

hello,

I work with Word 2007 and there is a new tool in 2007 : the Themes gallery
in the ribbon to apply an office theme to the document or create a custom
theme for office applications (thmx files).

I try to find a VBA code to know the active theme for the document.
I tried this following code :

Application.Activedocument.ActiveTheme or
Application.Activedocument.ActiveThemeDisplayName

but it always returns "None". In the VBA help, it's indicated that it
returns "None" if there's not an active theme for the document. I think it's
wrong because I really appy a theme to the document by the Themes gallery
control.

So, I wonder if there is a VBA code to get the name of the active theme
applied to the document by the Themes gallery control.

If someone can help me,

Thanks