[Sta1917]

1. Не важна, документ уходит на хранение, т.е. перед конечной сдачей удаляю все макросы, оставляя чистый *.doc
2. Да, раньше не пользовался шаблонами, благодаря Вам попробовал, это удобно. Спасибо.

Ищем только в папках первого уровня? Не ищем ни в каталоге документа, ни в папках второго и более уровней — так? »

Да, только 1-го уровня. Можно сделать 2-ю кнопку, чтобы искал только в каталоге документа?

А всё-таки, что? »

Некорректно выразился, попробую еще раз: первый макрос работал только при наличии файла в директории, т.е. если ничего нет, поля незаполнены. Шаблон работает как надо.

[Iska]

Да, только 1-го уровня. Можно сделать 2-ю кнопку, чтобы искал только в каталоге документа? »

Можно. Но есть встречное предложение: попробовать обойтись одной кнопкой.

Сначала ищем *.dwg-файлы в текущем каталоге (кстати, что в этом случае помещать в колонку «Директория»?). Если таковые найдены — заполняем таблицу и останавливаемся. Если в текущем каталоге таковые файлы отсутствуют — ищем в подкаталогах первого уровня. Так устроит? Можно в обратном порядке.

Некорректно выразился, попробую еще раз: … Шаблон работает как надо. »

Спасибо, ясно.

[Sta1917]

Можно.. обойтись одной кнопкой. »

Можно.

Устроит, есть 1 из 2 случаев: либо в родительской папке, либо в подпапках 1-го уровня. Если *.dwg найден в текущем каталоге, в "Директория" писать название каталога. Порядок неважен.

[Iska]

Sta1917, пробуйте: Passport2.zip. Сначала ищем в каталоге документа, затем — во вложенных первого уровня.

[Sta1917]

Все работает. Буду тестировать на практике. Огромное спасибо.

[Iska]

Буду тестировать на практике. »

Отпишитесь по результатам практического применения: как показывает опыт, даже самые грандиозные воплощения резво рушатся под рутиной самых обычных дел. А уж про наше с Вами — и говорить нечего, наверняка найдутся упущенные моменты и неверно интерпретированные детали.

[Sta1917]

Хорошо, но это дело не быстрое, не каждый день выпуск объектов

[Iska]

Ничего страшного. Конференция помирать не собирается, а я подпишусь на эту тему.

[Sta1917]

Спасибо, там еще одна подобная задачка от меня появилась. В общем, это документы для сдачи в геослужбу. Когда разберусь с полной структурой отчета сделаю автоматическое заполнение верхних таблиц. После полного теста выложу на геодезическом форуме.

[firstarey]

Iska, подскажите, как добавить вывод автора последних изменений ?

.Item(7).Range.Text = CStr(objFile.DateLastModified)

что тут должно быть ?