[Simon13]

Привет, друзья! Делюсь с вами своей разработкой.

Я сделал «Автогенератор исполнительной документации» на основе таблиц Excel. Пригодится инженерам ПТО и прорабам, которым нужно выпускать исполнительную документацию в строительстве. У документов принята своя специфика заполнения, которую я старался учесть.

Автогенератор ИД в один клик из таблицы Excel создаёт документы Word:

• акты освидетельствования скрытых работ (АОСР),
• акты освидетельствования ответственных конструкций (АОК),
• реестры актов, сертификатов, исполнительных схем и титульные листы исполнительной документации (ИД).

Ячейки таблицы — это информация, которой наполняются акты: наименование работ, даты, используемые материалы и т.д. На основании заполненной таблицы с помощью макроса собирается готовый акт в формате “docx”.

Чем удобен табличный принцип заполнения актов?

• Сразу ведётся полный реестр актов: видно какие акты уже есть, каких ещё нет.
• Видно, что уже заполнили в акте, а что ещё нет. Пустая ячейка укажет на то, что не заполнено.
• Все заполняемые поля акта перед глазами.
• Реквизиты и приказы ответственных лиц вводятся только один раз. Если вдруг приказ или реквизиты изменились, не нужно переделывать все акты. Достаточно внести правку в одном месте.
• !! Акты ответственных конструкций (АОК) создаются автоматически из актов на скрытые работы. Автоматически вписываются все АОСР, исп. схемы и сертификаты.
• !! Реестры к исполнительной документации создаются автоматически.
• Актам автоматически присваивается уникальный шифр.
• Есть пополняемый перечень часто используемых материалов. Например, на объект завезли партию арматуры. Вносим номер сертификата один раз и при заполнении просто выбираем из списка.

В архиве есть инструкция. Скачивайте, разархивируйте, разрешайте запуск макросов. Файл уже заполнен тестовыми данными, поэтому для проверки работоспособности можете просто понажимать на оранжевые кнопки на закладках «Реестр», «АОК», «ИД».

Код по кускам собран из разных источников. Основная часть, а именно механизм переноса Excel → Word, взят у уважаемого EducatedFool с его сайта, за что ему огромная благодарность.

Пишите здесь отзывы о работе автогенератора.

Чтобы Автогенератор не выдавал ошибку как в этом посте, перед первым запуском макросов откройте в ворде шаблоны АОСР.docx, АОК.docx, ТитулИД.docx, разрешите редактирование и закройте.

UPD: Обновил версию до 2.4, вот что изменилось.

Для тех, кому нужно сделать акты по старой форме — осталась версия 2.2.2.

[KarpAS]

А вы сами пользовались своей разработкой на объекте?

[Simon13]

Разрабатывал систему на примере конкретного объекта, но не было возможности воспользовался, т.к. нахожусь в сфере заказчика. Самому интересно получить отзывы от пользователей: работает или нет, насколько можно приспособить к разным объектам, что ещё добавить.

Идея разработки возникла из-за постоянных ошибок генподрядчика в актах освидетельствования отсветственных конструкций. Долго думал как можно это автоматизировать, придумал Автогенератор.

[KarpAS]

А делали лично исполнительную документацию?

[Сергей812]

Небольшое уточнение насчет самого кода. Когда подключаетесь к внешнему приложению - то желательно делать обертку-контроль ошибок

Код:

[Выделить все]

On Error Resume Next
Dim WA As Object, WD As Object: Set WA = CreateObject("Word.Application") 
if(Err.Number<>0)then
  ' Вывод сообщения об ошибке подключения к Word
  Exit Sub
End if
' И сбрасываем обработчик ошибок
On Error Goto 0

[Simon13]

Сообщение от KarpAS А делали лично исполнительную документацию?

Делал, но в небольших объёмах.
KarpAS, не могу понять почему вы спрашиваете. Наверное есть какие-то замечания по представленной схеме работы?

Сообщение от Сергей812 Небольшое уточнение насчет самого кода. Когда подключаетесь к внешнему приложению - то желательно делать обертку-контроль ошибок

Спасибо за уточнение кода!

[KarpAS]

Сообщение от Simon13 Делал, но в небольших объёмах. KarpAS, не могу понять почему вы спрашиваете. Наверное есть какие-то замечания по представленной схеме работы?

теперь нет)

[storm-1313]

Доброго времени суток.Спасибо за великолепный шаблон, давно такой искал. Есть несколько вопросов. У нас долгий объект строительства и за время стройки несколько раз поменялись подписанты (фамилии. названия должностей, номера приказов и т.д.). Возможно ли добавить функцию подстановки подписанта в АОСР в зависимости от даты подписания акта.
Далее вопрос как отредактировать шаблон АОСР. У технадзоров семь пятниц на неделе и как следствие-"тут пишите курсивом,тут с большой буквы,тут вообще ничего не пишите и т.д. В каждом акте (вордовском) менять неудобно. Заранее благодарен за ответ.

[Simon13]

Зравствуйте! Рад, что пригодилось.

Сообщение от storm-1313 Возможно ли добавить функцию подстановки подписанта в АОСР в зависимости от даты подписания акта.

Тоже об этом думал. Добавил в конец таблицы столбцы с ФИО, должностью и приказами всех лиц. Пишите людей "по-умолчанию" во вкладке "Люди", а если человек меняется, то вносите вручную в дополнительных столбцах — в тех актах, в которых нужно. Подставляется только то, что изменили. Получилось громоздковато, но функцию "временно подменить человека" выполнит. Разархивируйте приложенный к этому сообщению файл и положите в папку с шаблонами.

Либо второй вариант. Как только человек поменялся — создавайте в папке копию файла "Автогенератор ИД 2.1.xlsm", и в "Людях" вписывайте уже нового человека.

Сам файл "Автогенератор ИД 2.1.xlsm" можно переименовывать как угодно, можно сделать несколько копий, например "Участок_1.xlsm", "Участок_2.xlsm" и т.д. Главное чтобы шаблоны лежали в той же папке.

Сообщение от storm-1313 как отредактировать шаблон АОСР

Ничего сложного. Открываете шаблон, меняете форматирование как нужно и сохраняете. "АКТ.docx" — шаблон АОСР, "АОК.docx" — шаблон АОК. Главное не удалять проставленные закладки.

[storm-1313]

Не то чтобы пригодилось,а просто огонь! Мучился с этой проблемой издавна. (есть коммерческие версии типа Овербосса, коммерческие, дак еще и кривые).Ваша понятна в использовании и функциональна, Вам её чуток доработать и можно продавать )
С шаблоном попробовал, получается вроде,буду разбираться дальше (тот я еще специалист)). С подписантами я имел в ввиду, чтобы они автоматически подставлялись в акты в зависимости от даты подписания акта.
Я Вам чуть позже, если позволите, напишу подробное письмо с вопросами/пожеланиями ) по пунктам, надеюсь вопросов станет значительно меньше после того как разберусь с шаблоном.
Огромное спасибо за ответ.

----- добавлено через ~15 ч. -----
Доброго времени суток. И добавлять подписантов вручную и создавать копии по датам способы жизненные, но ситуация такова что акты имеют сквозную нумерацию, вне зависимости от подписантов. То есть "Работы" какие то (предположим их 50 шт =50 АОСР ) начались 01.01.15, закончилась 01.01.16 соответственно образовалось 50 актов соответственно №1,№2,№3,№n.........№50. Технадзор -"Х" с 01.01.15 приказ №1 от 01.01.15, с 02.02.15 на него же приказ №2 от другого числа, с 05.05.15 приказ №3 на него же от 05.05.15 и т.д. Представитель заказчика-"Y" то же самое- в разные периоды строительства разные люди, либо разные на них приказы.Соответственно если разбивать на разные файлы, то и нумерация АОСР и АООТ будет в каждом файле начинаться с №1 Каждый раз вставлять вручную трудоемко, но можно.
Отсюда вопрос, можно ли таким образом построить вкладку "ЛЮДИ", чтобы они вставлялись автоматически в зависимости от даты подписания акта (АОСР либо АООТ). Типа создать там табличку- " с такого числа то по такое-этот подписант, с такого по такое-другой , чтобы данные из этой таблицы вставлялись в поля вкладки "ЛЮДИ", а оттуда соответственно в акты.
Задача, наверное, непростая, но повторюсь работать на Вашем шаблоне можно уже замечательно и так. Огромное спасибо. Если задача решаемая, то вообще супер.
Еще одна проблема того же примерно рода-делим АОСР/АООТ по разделам проекта -АР,КР,КЖ,ОВ,ВК и т.д. (ИД сдается и нумеруется томами по разделам )-соответственно нумерация актов по разделам. Для удобства каждый раздел делим по КСкам , КС2_№1-АОСР№1 по № предположим 5; КС2_№2-АОСР№6 по № предположим 13 и т.д. Вопрос-можно ли в пределах одного файла ввести какие то подразделы? То есть в основной вкладке идут идут строки с данными (работа,даты,материалы и т.д.), а потом в какой то момент между ними строка разделитель с объединенными ячейками и названием в ней подраздела _например КС2-№1 от 01.01.16.,а ниже пошли работы к этой КСке, далее опять строки с данными ,потом опять разделитель-КС2-№2 от 01.02.2016. и т.д. и при этом чтобы нумерация АОСР чтобы была сквозная , т.е. начиналась с первой даты и так и шла далее вне зависимости от делений на разделы. Но, повторюсь, без этого тоже можно работать на Вашем великолепном шаблоне, если решаемо то супер
Заранее благодарен за ответ

[storm-1313]

Ничего сложного. Открываете шаблон, меняете форматирование как нужно и сохраняете. "АКТ.docx" — шаблон АОСР, "АОК.docx" — шаблон АОК. Главное не удалять проставленные закладки.

Высылаю наш образец АОСР. В нём есть существенные различия которые не могу исправить сам.
1. Лицо, осуществляющее строительство, выполнившее работы, подлежащие освидетельствованию: -в Вашем экселевском файле во вкладках "Люди" и "Реквизиты" есть поле "Подрядчик"
(отмечено синим)
- если можно, добавьте поле "Субподрядчик"и всё к нему-должность,приказ и пр.
(отмечено зелёным-это Мы),так же вставить в шаблоне ворд там где отмечено зелёным.

2.А также иные представители лиц, участвующих в освидетельствовании: -Добавить в шаблон поля из Экселя "Подрядчик"-название/должность/приказ.Так же добавить соответствующие поля
в нижней части акта.(выделено синим)
3.произвели осмотр работ, выполненных -вставить поле "Субподрядчик"(зелёное)

4.Приложения: -Прихоть наших технадзоров чтобы в этом пункте перечислялись : название исполнительной схемы ,сертификаты- в столбик с нового абзаца как в примере.Наверное тоже нужно вставить сцепленные поля какие то из Экселя штук 10 в столбик (либо чтобы строки добавлялись в зависимости от количества сертификатов перечисленных выше)

То о чем речь шла в прошлом сообщении важно, но без этого можно обойтись (подписанты по датам и разбиение на разделы по КСкам),а без этих корректировок в Ваших файлах(экселе/ворде) ну никак не обойтись.Очень бы выручили если бы подправили-самому не справиться,опыта маловато.
Заранее благодарен за ответ.

[Иван Цепилов]

Сообщение от Сергей812 Небольшое уточнение насчет самого кода. Когда подключаетесь к внешнему приложению - то желательно делать обертку-контроль ошибок Код: [Выделить все] On Error Resume Next Dim WA As Object, WD As Object: Set WA = CreateObject("Word.Application") if(Err.Number<>0)then ' Вывод сообщения об ошибке подключения к Word Exit Sub End if ' И сбрасываем обработчик ошибок On Error Goto 0

Здравствуйте, уважаемые!
Спасибо Дмитрию за разработку нужного агрегатора!
Подскажите пожалуйста, после нажатия на создание акта, начинается загрузка и выдаёт ошибку (первое вложение), после нажатия на debug в окне ошибки выдает второе вложение. Спасибо за понимание, и заранее благодарю за ответ.

[Simon13]

Сообщение от storm-1313 Высылаю наш образец АОСР. В нём есть существенные различия которые не могу исправить сам.

1. Добавил реквизиты Иного лица. Пишите туда своего подрядчика. В поле "Подрядчик" пишите себя, т.е. "Субподрядчик". В шапке акта сцепил реквизиты "Подрядчик" и "субподрядчик" в одно поле.
2. Технадзора "Подрядчика" пока не добавлял, нужно доп. поля делать. Это попозже.
3. Само пишется.
4. Сделал, чтобы при добавлении материала из списка ставился перевод строки после каждого материала. В пункте "Приложения" теперь сцепляются исп. схемы и материалы. Единственный недостаток пока — "3. При выполнении работ применены: " тоже материалы в столбик получаются. Можно, конечно, подумать ещё над этим. Либо выбрать: писать и в пункте 3, и в п. "Приложения" всё в строчку, либо везде с переносом строки.

Сообщение от storm-1313 можно ли таким образом построить вкладку "ЛЮДИ", чтобы они вставлялись автоматически в зависимости от даты подписания акта (АОСР либо АООТ)

Пока приемлемый вариант вижу с доп полями. Заполняете напротив актов те приказы/ФИО/должности, которые изменились, а потом просто "протягиваете" ячейки. Это, конечно, если акты в хронологическом порядке.

С заголовками КС-2 тоже неплохая идея. Это можно сделать, попозже подумаю как лучше оформить.

[storm-1313]

С заголовками КС-2 тоже неплохая идея. Это можно сделать, попозже подумаю как лучше оформить.

С КСками пока решение придумал такое: в конце вкладки реестр добавил еще один столбец в котором напротив каждого акта ставлю номер КСки в которую он он входит. Потом с помощью фильтра могу вывести на экран все акты которые относятся к конкретной КСке. Получается например так : Переименовывается Ваш шаблон в например "Раздел архитектурные решения" далее в нём заполняются последовательно акты(с указанием в новом столбце номера КС к которой акт относится), затем применяется фильтр-выводятся только АОСР к определённой КСке, нажимается кнопка "создать АОСР" -акты создаются в папку,-папка переименовывается в "АОСР к КС2 №такой то"
Это всё нужно для того чтобы нашим технадзорам предъявить работы за календарный (отчетный ) месяц=одна КС по каждому разделу проекта. ИД делается на весь раздел (АР,КЖ,КР....) ,так что там просто снимается фильтр в последней колонке и создается ИД.
Ваш новый файл сейчас скачаю, буду на праздниках разбираться.Большое спасибо

[Simon13]

Привет, друзья! Спасибо за замечания и идеи по доработке.

Выкладываю обновлённую версию Автогенератора 2.2:

• убрал автоматическую подстановку слов "в осях", "приказ" и т.п. — ради унификации, разные случаи бывают
• оставил дополнительные столбцы с ФИО, должностями и приказами всех лиц — для каждого конкретного акта можно указать отдельно
• ограничил общую длину имени файла, раньше при длинном имени не создавались файлы; теперь если наименование работ больше 50 символов, то средний кусок текста прячется под многоточием
• добавил замену символов, запрещённых для имени файла; раньше из-за этого файлы не создавались в папках
• сделал возможность указать, по какой маске будет собираться номер акта: например сначала "корпус", потом "секция", выбрать разделитель между ними и т.п.

Пишите свои отзывы и идеи.

[storm-1313]

Пишите свои отзывы и идеи.

Спасибо за обновленную версию программы.Всё прекрасно работает.
Продолжаем писать свои отзывы и идеи
Во первых строках своего письма очень просим доработать шаблон о котором писалось выше. Дело в том, что без этого не можем начать использовать Вашу великолепную программу в работе.
Напомню,речь идет о пунктах 3 и 4.Дело в том что наш технадзор,чтоб его,ну никак не хочет принимать АОСР оформленные по людски.
В пункте 3." при выполнении применены , материалы должны перечисляться в строчку через запятую- ....Пременены:Бетон,паспорт качества №ххххх; арматура, сертификат №ххххх......
В пункте 4."Приложения" требуют перечислить приложения(исполнительная схема+ сертификаты,паспорта) в столбик.
В прошлом Вашем ответе получилось что в п.3 сертификаты добавляются в столбик.В п.4 они тоже добавляются в столбик , но вместе с названием материала. Т.е п.4 Приложения:Бетон,паспорт качества №ххххх; арматура, сертификат №ххххх...... Нужно чтобы прикладывались только сертификаты и паспорта,ну и конечно, исполнительная схема первой строкой ,как у Вас и было в том шаблоне который Вы мне прислали.

Единственный недостаток пока — "3. При выполнении работ применены: " тоже материалы в столбик получаются. Можно, конечно, подумать ещё над этим. Либо выбрать: писать и в пункте 3, и в п. "Приложения" всё в строчку, либо везде с переносом строки.

Было бы Супер если бы прислали два шаблона-один пп.3,4 в строчку,второй в столбик.Надеюсь наш технадзор на какой то из этих вариантов согласится.
Вообще , обычно в АОСР пишут и п.3 и п.4 в строчку.Редко кто пропускает "согласно пп.3,4"Насчет столбика это хотелка нашего технадзора.
Есть ещё одна просьба/пожелание: АОСР печатается на двух сторонах листа и обычно второй лист начинается со строки 1. К освидетельствованию предъявлены следующие работы:
в Вашем шаблоне , в зависимости от того, сколько текста в шапке второй лист начинается с разных строк, а второй лист ,иной раз, переходит на третий.Можно ли предусмотреть чтобы первый лист заканчивался не далее строки предыдущей 1. К освидетельствованию предъявлены следующие работы:, а второй лист не переходил на третий
Все остальные сложности , вроде бы, поборол. Очень бы хотелось поскорее применить Вашу разработку в деле.
Заранее благодарен за содействие
P.S. Очень удивлен что так мало народу откликается на Вашу тему.По идее здесь должен быть жесткий аншлаг. У нас на площадке 15-20 подрядчиков и у всех с ИД полный завал За время строительства (3 года) поменялся дважды генподрядчик, и технадзоры/руководители проекта, менялись несколько раз, объект не сдан и есть вероятность что вся ИД с начала строительства поменяется еще не раз. Отсюда становится понятно откуда такое пристальное внимание к шаблону АОСР. По хорошему, чем он будет более гибкий и настраиваемый , тем лучше

[Pum-purum]

На самом деле что-то подобное есть практически на всех объектах. Есть даже коммерческая платформа OVERBOSS - как ваш лист с макросами, чуть продвинутее. У самого несколько наработок в этой области. Практика показала, что документы на разных объектах заполняют оооочень по-разному. И сдвинуть эту сложившуюся с начала строительства бюрократию бывает сложно. Потому систему надо писать под каждый конкретный объект свою. Но макросы хорошая вещь, интересная)

[Simon13]

Сообщение от storm-1313 Во первых строках своего письма очень просим доработать шаблон о котором писалось выше.

Постарался учесть все пожелания, проверьте.

----- добавлено через ~9 мин. -----

Сообщение от Pum-purum Есть даже коммерческая платформа OVERBOSS

Да, меня впечатлило и я решил сделать подобное на базе Excel.

Сообщение от Pum-purum Практика показала, что документы на разных объектах заполняют оооочень по-разному.

Пытался сделать наиболее гибкую систему, получилось пока только применительно к АОСР.

[Plohish]

Добрый день, программка очень понравилась, правда в новой версии не прописывает Суффикс акта, но в целом спасибо за программку.

[Simon13]

Сообщение от Plohish в новой версии не прописывает Суффикс акта

Спасибо за замечание! Исправил, перезалил в шапку версию 2.2.1.
В маску добавил ещё выбор суффикса.