Необходимо работать из скрипта с custom properties документа.

Делаю так

авторSet wordApp = CreateObject("Word.Application")
Set doc = wordApp.Documents.Open("c:\test.doc")

у самой объектной библиотеки Word есть интерфейс CustomProperties. Но вот не пойму как получить доступ к этому интерфейсу?

Нет

авторЗаодно советую автору задаться вопросом, чем интерфейс отличается от класса.
честно говоря не знаю, та оно меня особо и не интересует, ибо я не программист. Иногда, раз в три месяца пишу какой то простенький скрипт.

2 Antonariy
Не пойму, как мне удалить определённое свойство?

Делал так
авторSet wordApp = CreateObject("Word.Application")
Set doc = wordApp.Documents.Open("c:\test.doc")

Set customProp = doc.CustomDocumentProperties
Set prop = customProp.Item(1)

prop.Delete()

inst.Save()
inst.Close()
wordApp.Quit()
но свойство не удаляется. Что я делаю не так?

Очепятка, конечно там doc

авторПопробуй убрать пустые скобки.
К сожалению результат тот же :(

Ничего не понимаю - WScript.Echo prop.Name и WScript.Echo prop.Value, выводит имя свойства и его значение, а вот удалять не хочет

Решил проблему, очень странное поведение.

Причина была в том, что при удалении свойства документ не считался изменённым и поэтому функция doc.Save не отрабатывала. Вылечилось добавлением строки doc.Saved = False перед сохранением документа.

Но теперь новая проблема


В результате получаю вывод - 2. Откуда он берет два свойства, если я их все удалил?

авторНе все, их было 4. Удалять нужно начиная с последнего, иначе получается: удаляешь первый - первым становится второй, удаляешь второй - вместо него удаляется третий и т.д. В результате должна была высколчить ошибка, если бы не было On Error Resume nExt.
Странно, а почему тогда после выполнения цикла строка WScript.Echo objWorkbook.CustomDocumentProperties.Count показывала 0?

авторИли так:

While objWorkbook.CustomDocumentProperties.Count > 0
objWorkbook.CustomDocumentProperties.Item(1).Delete()
Wend
попробую