Здравствуйте, moon_light, Вы писали:

_> Создаю файл Word, Надо изменить его свойства: тему, название, автор, руководитель, учереждение ... и т.п.
_> Была попытка MsgBox ActiveDocument.ActiveTheme . Выдает none
_> Хоть там есть строка символов.
_>На ActiveDocument.ApplyTheme он вообще говорит ошибки. 8(
_> Что делать ? Как изменять эти свойства Document

Посмотри на свойства Document.BuiltInDocumentProperties

    Dim p As DocumentProperty
    On Error Resume Next
    For Each p In ActiveDocument.BuiltInDocumentProperties
        Debug.Print p.Name, ;
        Debug.Print """" & p.Value & """";
        Debug.Print
    Next p

Или

    Debug.Print ActiveDocument.BuiltInDocumentProperties("Author").Value