Макрос от viter.alex

История вопроса
Понадобилось мне решить задачу по упорядочению каталога документов собранного за 8 лет. Это архив документов из разных источников. Документы лежат в каталогах.
Необходимо у каждого документа вставить в свойства:
Название — продублировать имя файла без расширения
Тема, Автор, Руководитель, Учреждение, Ключевые слова, Заметки — произвольные (задаваемые мной поля)
Разместил задачу здесь

viter.alex взялся за заказ и с успехом его сделал.

Результат решили публиковать в открытом виде.

Описание макроса

Для его работы нужна библиотека dsofile.dll, находящаяся в архиве. Для запуска макроса следует шаблон поместить либо в папку STARTUP либо присоединить с помощью диалога «Шаблоны и надстройки». После присоединения шаблона появится панель инструментов (Word 2003) или кнопка на вкладке «Настраиваемые» (Word 2007, 2010).
При первом запуске макроса, будет проверено наличие библиотеки dsofile.dll в папке &SystemRoot&\System32. Если библиотеки там не будет, то её следует поместить туда вручную.
Код открыт для изучения.

Примечание: разработка велась под Word 2003 и Windows XP (32 разряда).

Сам файл в архиве rar находится по этому пути

ПС. Почему я решил опубликовать? Потому что по адресу файлик иногда пропадает.