Программа для оформления исполнительной документации в строительстве. Исполнительная документация в строительстве

1. Состав и порядок ведения исполнительной документации
1. Общая часть
2. Термины и определения
3. Порядок ведения исполнительной документации
3.1. Исполнительная геодезическая документация
3.2. Акты освидетельствования скрытых работ
3. 3. Акты освидетельствования ответственных конструкций
3.4. Акты освидетельствования участков сетей инженерно-технического обеспечения
4. Состав исполнительной документации
Приложения
1. Акт освидетельствования геодезической разбивочной основы объекта капитального строительства
2. Акт разбивки осей объекта капитального строительства на местности
3. Акт освидетельствования скрытых работ
4. Акт освидетельствования ответственных конструкций
5. Акт освидетельствования участков сетей инженерно-технического обеспечения
6. Примерный перечень скрытых работ, подлежащих освидетельствованию
7. Примерный перечень участков сетей инженерно-технического обеспечения, подлежащих освидетельствованию
8. Примерный перечень исполнительных геодезических схем
9. Примерный перечень исполнительных чертежей участков сетей инженерно-технического обеспечения внутри здания (сооружения)
10. Примерный перечень исполнительных схем и профилей участков сетей инженерно-технического обеспечения
11. Примерный перечень актов испытаний и опробования технических устройств и участков сетей инженерно-технического обеспечения
12. Примерный перечень экспертиз, обследований, лабораторных и иных испытаний
II. Общий и специальные журналы работ
1. Общие положения
2. Порядок ведения общего журнала работ
3. Порядок ведения специальных журналов работ
4. Порядок ведения журнала авторского надзора
Приложения
1. Общий журнал работ
2. Журнал авторского надзора
3. Журнал работ по монтажу строительных конструкций
4. Журнал сварочных работ
5. Журнал антикоррозионной защиты сварных соединений
б. Журнал замоноличивания монтажных стыков и узлов
7. Журнал выполнения монтажных соединений на болтах
8. Журнал погружения (забивки) свай
9. Журнал бетонных работ
10. Журнал производства антикоррозионных работ
III. Исполнительная геодезическая документация
1. Общие положения
2. Состав, содержание и оформление документации по элементам зданий и сооружений, благоустройства и геодезической разбивочной основе
3. Состав, содержание и оформление документации по инженерным сетям
4. Контроль документации
5. Передача, приемка и хранение документации
Приложения
6. Примерный перечень исполнительных схем по элементам, конструкциям и частям зданий и сооружений, благоустройству и геодезической разбивочной основе
7. Требования к содержанию исполнительного чертежа и продольного профиля подземной сети
9. Форма, размеры и заполнение основной надписи документации на подземные сети
IV. Примеры оформления актов освидетельствования скрытых работ
1. Устройство песчаной подготовки под фундаменты
2. Устройство бетонной подготовки под фундаменты
3. Устройство опалубки фундаментов
4. Армирование фундаментов
5. Бетонирование фундаментов
6. Монтаж фундаментных блоков
7. Гидроизоляция фундаментов
8. Акт осмотра свай до погружения
9. Акт на сварку и антикоррозийную защиту стыков свай
10. Кирпичная кладка стен с армированием
11. Утепление кирпичных стен газобетоном
12. Устройство и армирование кирпичных перегородок
13. Монтаж плит перекрытий (с анкеровкой)
14. Армирование стен
15. Бетонирование стен
16. Армирование перекрытий
17. Бетонирование перекрытий
18. Монтаж стеновых панелей
19. Герметизация стыков наружных панелей
20. Монтаж лифтовых шахт
21. Монтаж колонн
22. Монтаж балок
23. Антикоррозийная защита сварных соединений
24. Монтаж лестничных маршей
25. Монтаж вентблоков
26. Устройство оснований под паркетные полы
27. Устройство звукоизоляции под полы
28. Антисептирование лаг
29. Гидроизоляция санузлов
30. Устройство пароизоляции кровли
31. Устройство утепления кровли
32. Устройство армированной цементной стяжки под кровлю
33. Устройство покрытия двухслойной наплавляемой кровли
34. Устройство грозозащиты
35. Монтаж конструкции навесной фасадной системы
36. Утепление навесной фасадной системы
V. Формы и примеры оформления актов освидетельствования и испытаний участков сетей инженерно-технического обеспечения
Технологическое оборудование
1. Акт индивидуального испытания оборудования
2. Акт рабочей комиссии о приемке оборудования после комплексного опробования
Отопление и вентиляция
3. Акт освидетельствования внутренней системы теплоснабжения
4. Акт гидростатического или манометрического испытания на герметичность
5. Паспорт вентиляционной системы
Водопровод и канализация
6. Акт освидетельствования внутренней системы водоснабжения
7. Акт гидростатического или манометрического испытания на герметичность
8. Акт освидетельствования внутренней системы канализации
9. Акт испытания систем внутренней канализации и водостоков
Монтаж систем газоснабжения
10. Акт освидетельствования внутренних сетей газоснабжения
11. Строительный паспорт подземного (надземного) газопровода, газового ввода
12. Строительный паспорт внутридомового газоиспользующего оборудования
Монтаж лифтов
13. Акт готовности строительной части к монтажу лифтового оборудования
14. Акт полного технического освидетельствования лифта
15. Акт технической готовности лифта
16. Акт приемки лифта в эксплуатацию
Тепловые сети
17. Акт освидетельствования наружных тепловых сетей
18. Акт о проведении растяжки компенсаторов
19. Акт о проведении испытаний трубопроводов на прочность и герметичность
20. Акт о проведении промывки (продувки) трубопроводов
Наружные сети водоснабжения и канализации
21. Акт освидетельствования наружных сетей водоснабжения
22. Акт о проведении приемочного гидравлического испытания напорного трубопровода на прочность и герметичность
23. Акт о проведении промывки и дезинфекции трубопроводов (сооружений) хозяйственно-питьевого водоснабжения
22. Акт освидетельствования наружных сетей канализации
23. Акт о проведении приемочного гидравлического испытания безнапорного трубопровода на прочность и герметичность
Электротехнические устройства
24. Акт технической готовности электромонтажных работ
25. Пример оформления акта технической готовности электромонтажных работ
а) Ведомость технической документации, предъявляемой при сдаче-приемке электромонтажных работ
б) Ведомость изменений и отступлений от проекта
в) Ведомость электромонтажных недоделок, не препятствующих комплексному опробованию
г) Ведомость смонтированного электрооборудования
26. Акт приемки-передачи оборудования в монтаж
27. Акт готовности строительной части помещений к производству электромонтажных работ
28. Пример оформления акта готовности строительной части помещений к производству электромонтажных работ
29. Справка о ликвидации недоделок
30. Акт проверки надежности крепления крюков под люстры и светильники
31. Акт проверки осветительной сети на правильность зажигания внутреннего освещения
32. Акт проверки осветительной сети на функционирование и правильность монтажа установочных аппаратов
33. Протокол измерения сопротивления изоляции
34. Протокол испытаний силового кабеля напряжением выше 1000 В
35. Протокол осмотра и проверки сопротивления изоляции кабелей на барабане перед прокладкой
36. Протокол прогрева кабелей на барабане перед прокладкой при низких температурах
37. Журнал прокладки кабелей
38. Журнал монтажа кабельных муфт напряжением выше 1000 В
Пожарная безопасность
39. Акт освидетельствования автоматической системы пожарной сигнализации (АСПС)
40. Акт освидетельствования автоматической установки пожаротушения (АУПТ)
41. Акт освидетельствования огневой защиты деревянных конструкций
VI. Результаты экспертиз, обследований, лабораторных и иных испытаний
1. Протокол измерения вибрации
2. Протоколы лабораторных исследований воды ГВС
3. Протоколы результатов исследования проб питьевой воды
4. Протокол исследования воздушной среды жилых помещений
5. Протокол измерения интенсивности геомагнитного поля
6. Протокол результатов измерения освещенности
7. Протоколы результатов исследования проб почвы
8. Протокол измерения времени реверберации
9. Протокол измерения шума
10. Протокол измерения уровней напряженности электромагнитных полей
11. Акт приемки мусоропровода
12. Акт тепловизионного контроля качества тепловой защиты здания
13. Акт проверки кратности воздухообмена здания за отопительный период и эффективности систем естественной вентиляции
14. Акт проверки воздухопроницаемости ограждающих конструкций здания
15. Энергетический паспорт здания
VII. Литература

Эта статья особенно актуальна для инженеров ПТО, т. к. позволит автоматизировать свой труд по заполнению актов скрытых работ, используя пакет приложений Microsoft Office. Если вы не инженер ПТО, то ничего страшного, т. к. описанная здесь методика полезна в решении самых разных задач, где нужно заполнить большое количество бланков.

Скачать бланк акта скрытых работ в формате word.

Итак, у нас есть пустой акт скрытых работ в файле MS Word (назовем его «Фм-1 в/о Ж/2.doc»):

Бланк акта освидетельствования скрытых работ

Для начала заполним все те поля, которые в ходе работы не будут меняться.

Те поля, которые будут меняться я пометил красным цветом. Это будет выглядеть так:

Заполним несколько строчек данной таблицы по общему журналу работ, например, в моем случае для фундамента Фм-1 в/о Ж/2:

Сохраняем таблицу, например: «Фм-1 в/о Ж/2.xls».

В мастере слияния, в качестве типа документа выбираем «письма», нажимаем «Далее. Открытие документа».

Слияние выполняется в 6 этапов:

1 этап. Тип документа — выбираем «Письма».

2 этап. Выбор документа — оставляем «Текущий документ».

3 этап. Выбор получателей — оставляем «Использование списка». Существующий список — нажимаем «Обзор» и выбираем нашу таблицу «Фм-1 в/о Ж/2.xls»., выделяем наш лист, получатели слияния — оставляем по умолчанию — ок. Переходим к следующему этапу.

4 этап. Выделяем меняющееся поле (одно из тех что отмечены красным), например, пусть это будет «число».

На панели слияние нажимаем «Другие элементы…» и выбираем соответствующее поле — «число». —> Вставить.

Не обращайте внимание на то что название поля слишком велико и некрасиво сползает.

Этот этап повторяем для каждого нашего изменяющегося поля.


Макет акта скрытых работ

Этап 5. Просмотр писем. Данные из таблицы Excel вставились в наш акт. Кнопками << и >> можно переключать строки из табл. Excel, тем самым просматривая разные акты.

Этап 6. Завершение слияния. Закрываем мастер слияния.

Переключать записи можно и с панели «Просмотр результатов».

Очевидные плюсы такого метода работы:

1) Не нужно хранить сотни актов в разных файлах, тратя время на их редактирование.

2) В таблице очень удобно можно просмотреть хронологию работ.

3) Довольно быстрое внесение изменений в записи.

4) Быстрая замена бланка акта, допустим неправильно написали фамилию мастера, пару щелчков и изменение будет внесено во всех актах одновременно.

В данной инструкции рассматривается оформление в соответствии с требованиями приказа Ростехнадзора №470 от 09.11.2017 г. Данный приказ 15.02.2018 г. был зарегистрирован в Министерстве юстиции РФ, а спустя 10 дней обновленные требования к составу и порядку ведения исполнительной документации вступили в силу. С 26.02.2018 г. актирование освидетельствования скрытых работ по старым формам неправомерно.
Новая форма актов освидетельствования скрытых работ разработана в соответствии с изменениями Градостроительного кодекса Российской Федерации, вступившими в силу 01.07.2017 г.
Итак, сначала выясним, зачем же нужен ? Акт освидетельствования скрытых работ – это документ, который составляется для фиксации контроля качества и соответствия проектной документации тех работ, которые впоследствии не будут видны человеческому глазу и предъявление их на проверку, без вскрытия и демонтажа вышележащих конструкций, будет не возможно. Например, при отделке помещений, сначала производят оштукатуривание, потом шпатлевание, а затем окрашивание стен. Так вот перед шпатлеванием составляется акт на штукатурные работы, а перед окрашиванием на шпатлевание стен. Тем самым, мы документально подтверждаем наличие выполненных работ, а также их качество. Благодаря таким актам легко обеспечить, а затем и подтвердить строительный контроль всей технологической цепочки строительства.
В соответствии с РД-11-02-2006 перечень скрытых работ, которые подлежат освидетельствованию, определяется проектной организацией. Но фактически далеко не во всех проектах такой перечень имеется, а если он там и есть, то в весьма урезанном виде, который зачастую не устраивает ни заказчика, ни надзорные органы. Исходя из этого рекомендуется составлять акты на все работы контроль за выполнением которых не может быть проведен после выполнения последующих работ.
Форма

Форма акта освидетельствования скрытых работ установлена Федеральной службой по экологическому, технологическому и атомному надзору и представлена в РД-11-02-2006 (приложение №3). Изменение формы акта и отклонение от нее не допускается. Печать акта производится на одном листе с двух сторон. Если указанная в акте информация не умещается на одном листе, то печатаются дополнительные листы. Но в данном случае каждая страница акта нумеруется. Связано это с возможной подменой страниц, на которых нет подписей.
Теперь подробнее рассмотрим форму акта освидетельствования скрытых работ и методику ее заполнения. Первое, что потребуется заполнить это название объекта капитального строительства. Информацию о названии берем из проектной документации (наименование объекта указано на титульном листе или в штампах чертежей). Важно, после названия объекта внести данные о его почтовом или строительном адресе.
Далее приступаем к заполнению раздела, который посвящен информации о лицах, которые участвуют в освидетельствовании скрытых работ. Для начала разберемся о функциях этих лиц.
Застройщик (технический заказчик, эксплуатирующая организация или региональный оператор) – физическое или юридическое лицо, которое осуществляет реализацию инвестиционного проекта. Проще говоря — заказчик (инвестор проекта, собственник земельного участка, сооружения, строения, помещения, эксплуатирующая организация) или представитель заказчика на которого возложена ведущая роль в управлении строительным процессом и эффективном взаимодействии с остальными участниками строительства. Важно знать, что в соответствии с законодательством, с 01.07.2017 г. в качестве технического заказчика могут выступать только те организации, которые являются членами СРО.
Лицо, осуществляющее строительство – как правило, таким лицом является генеральный подрядчик.
Лицо, осуществляющее подготовку проектной документации – проектная организация, которая занимается проектированием объекта капитального строительства (реконструкции, ремонта), а также осуществляет авторский надзор за строительством.
Акт освидетельствования скрытых работ 2018 года в отличие от старой формы не предусматривает внесения данных о лице, осуществляющем строительство, выполнившем работы .
Подробнее с системой взаимоотношений участников строительного процесса можно ознакомиться .
После того, как мы выяснили роль каждого участника строительного процесса, нам предстоит указать следующие данные о них: наименование, ОГРН/ОРГНИП, ИНН, место нахождения организации, телефон/факс, а также наименование, ОГРН, ИНН саморегулируемой организации, членом которой является заказчик, генеральный подрядчики или проектировщик.
Все эти данные вам должен предоставить застройщик (технический заказчик). В крайнем случае, когда застройщик по каким-либо причинам отказывает вам в получении этой информации, вы можете зайти на сайт Федеральной налоговой службы и узнать там, большую часть необходимых для заполнения акта освидетельствования скрытых работ, сведения.
Далее датируем акт и присваиваем ему номер. Нумерацию актов лучше вести с учетом наименования раздела проектной документации, по которому выполнены работы. Допустим, нумерация акта на работы по устройству внутреннего водопровода и канализации будет выглядеть так: 1/ВК, где 1 – порядковый номер акта по разделу, а ВК – наименование раздела проектной документации. Такая нумерация в дальнейшем значительно облегчит поиск нужного акта, а также позволит избежать путаницы в нумерации.
На следующем этапе оформления АОСР (акт освидетельствования скрытых работ) заполняем информацию о представителях лиц, которые участвуют в освидетельствовании скрытых работ. В эту информацию входят должность, фамилия, инициалы, реквизиты документа о представительстве (приказы и распоряжения), а также наименование, ОГРН, ИНН и место нахождения организации, которую представляет специалист. Кроме того данные о представителе застройщика и представителе лица, осуществляющего строительство, по вопросам строительного контроля необходимо дополнить информацией об . Данные о представителе лица, осуществляющего подготовку проектной документации дополняем информацией о наименование, ОГРН, ИНН саморегулируемой организации, членом которой является проектная организация. Стоит отметить, что в качестве реквизитов распорядительного документа, подтверждающего полномочия вносят информацию о номере и дате приказа (распоряжения) о назначении ответственного лица. Для каждого представителя приказ свой, а соответственно и область ответственности у них разная. Например, проектировщики выпускают приказ об авторском надзоре. Генеральный подрядчик и субподрядчик приказом назначают ответственные лица за производство строительно-монтажных работ и ведение исполнительной документации. Кроме того генеральный подрядчик и застройщик (технический заказчик) обязаны назначить лица, ответственные за ведение строительного контроля на объекте. Формы (бланки) приказов, а также примеры их заполнения вы можете найти здесь.
В пункт 1 акта освидетельствования скрытых работ вписывают наименование работ, которые предъявляются к освидетельствованию, с точным указанием места, где они производились (оси здания, этаж, номер (название) помещения, пикет, километраж и другие координаты которые позволяют точно идентифицировать место работ).
В пункт 2 заносим шифр рабочей (проектной) документации и номера листов в соответствии с которыми выполнены работы. Далее вписываем название проектной организации, которая осуществляла подготовку раздела проектной документации.
В пункте 3 указываем наименование материалов (изделий, конструкций, оборудования), которые использовались при выполнении работ, подлежащих освидетельствованию. После каждого материала в скобках указываем наименование документа, подтверждающего его качество и безопасность (сертификат соответствия, сертификат соответствия пожарной безопасности, санитарно-эпидемиологическое заключение, сертификат качества, паспорт качества, технический паспорт и т.д.) и дату его выдачи. Наименование материала указываем полностью. Например, если это труба, то указываем материал, диаметр, толщину стенки трубы. Если кирпич, то указываем его материал (керамический или силикатный) и марку.
В пункт 4 заносим данные об исполнительных схемах, лабораторных испытаний, экспертизах и обследованиях, произведенных в процессе строительного контроля.
В пункте 5 указываем фактические даты производства работ, которые мы предъявляем к освидетельствованию. Даты, указанные в акте освидетельствования скрытых работ должны совпадать с датами, которые указаны в общем журнале работ, акте о приемке выполненных работ КС-2, справке о стоимости выполненных работ и затрат КС-3.
В пункте 6 указываем данные (шифр) о разделе проектной документации по которому выполнялись работы, а также нормативные документы в соответствии с которыми выполнены работы. Причем название документа прописываем полностью. Например, на арматурные работы, которые выполнялись при возведении монолитных фундаментов, вписываем СП 70.13330.2012 «Несущие и ограждающие конструкции».
В пункте 7 указываем последующий вид работ, который согласно технологической цепочке нам предстоит выполнить. К примеру, в акте освидетельствования на штукатурные работы, последующим видом работ, который разрешается выполнить, является шпатлевание стен или устройство иного финишного покрытия.
Количество экземпляров указываем то, которое прописано в договоре, контракте, техническом задании или ином документе в соответствии с которым выполняются работы. Если такая информация в таких документах отсутствует, то количество экземпляров устанавливается путем устных переговоров с заказчиком.
В разделе приложений указываем все документы, которые мы прикладываем к актам. Такими документами являются исполнительные схемы (чертежи), заключения и протоколы лабораторных испытаний, экспертизы и заключения обследований. Перечень приложений должен быть пронумерован.
Обратите внимание, что в соответствии с РД-11-02-2006 с изменениями 2018 года, в случае если в одном из пунктов требуется указать более 5 документов, то в таком пункте можно указать ссылку на реестр таких документов, причем данный реестр будет являться неотъемлемой частью акта.
В заключительной части акта на скрытые работы указываем те же лица, что и на первой странице. Пишем только фамилию и инициалы. Другую информацию о представителях в эту часть акта заносить не требуется.

Подробности Категория: Excel Опубликовано: 28 декабря 2017

Автоматизация составления исполнительной документации по строительству в Excel

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

Введение.

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

Итак, поговорим про строительство, конкретно про составление Исполнительной документации (далее ИД).

об Исполнительной документации

Точнее про ее текстовую составляющую. Если вкратце, то ИД есть набор актов, журналов и иных документов, чертежей, схем которые составляются на каждый этап и даже операцию (группы операций) в строительстве, для подтверждения/отклонения выполняемых работ проекту. Такие документы сплошь шаблонные, их перечень, в зависимости от вида работ, регламентирован, и они ведутся согласно фактического графика выполняемых работ, формализуя утвержденной комиссией правильность/отступление работ проекту.

Большая часть работ закрывается по форме Акта освидетельствования скрытых работ (утвержденным приказом Федеральной службы по экологическому, технологическому и атомному надзору от 26 декабря 2006 года N 1128 (В редакции, введенной в действие с 6 марта 2016 года приказом Ростехнадзора от 26 октября 2015 года №42. Далее АОСР).

Исходные данные для автоматизации.

По-этому возьмем форму АОСР за основу. Итак, у нас есть шаблон документа, в который заносится следующая информация:

Постфикс номера акта;
- наименование объекта капитального строительства;
- юридические данные об участниках строительства (Застройщик или Заказчик; Лицо, осуществляющее строительство; Лицо, осуществляющее подготовку проектной документации;
Лицо, осуществляющее строительство, выполнившее работы, подлежащие освидетельствованию; иные лица.)
- перечень лиц с наименованием организаций, должностей и приказов подтверждающих их полномочия;
- наименование выполненных работ;
- сроки выполнения работ;
- перечень работ, входящих в выполненные работы;
- ссылки на НТД и разделы проекта/тех.документации;
- ссылки на исполнительные схемы, акты испытаний (если таковые требуются);
- перечень используемых материалов с сылками на документы подтверждающими их соответствие (паспорта, сертификаты и т.п.)

Мысли о принципиальных методах решения задачи

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

1. Слияние с файлом Word
2. Заполнение при помощи макросов шаблона на базе Excel.

Каждый из этих способов имеет свои плюсы и минусы, но т.к. слияние производит замену в реальном времени, то мною было принято решение выбрать второй пункт, который в реальном времени слияние не обеспечивает и каждый раз необходимо будет осуществлять вывод актов, в случае корректировки данных, заново. Это связано с тем, что мне зачастую необходима история моих действий.

Итак, теперь мы упираемся в 2 задачи:

1. Заполнение шаблона на основе табличных данных
2. Какие поля достаточно ввести один раз, какие будет меняться время от времени и какие поля будут отличаться в каждом акте.

Решая задачу №2 мы вынесем на отдельный лист те данные, которые будут едины в рамках объекта/раздела проекта строительства - это:

Спойлер

На текущем листе заполним лишь один раз, а для остальных актов просто проставим ссылки на эти значения:

Спойлер

И поля, которые будут меняться в каждом акте:

Спойлер

Теперь об удобствах, если записать ФИО ответственных лиц, их организацию, приказ о назначении с датой, то при помощи инструмента «проверка данных» можно занести их фамилии в спойлер , а формулой подтягивать их регалии.

ЕСЛИОШИБКА(ДВССЫЛ(СЦЕПИТЬ(""Данные для проекта"!" ;АДРЕС((ПОИСКПОЗ(E30 ;"Данные для проекта" !$G$15:$G$34;0 ))+14 ;6 )));"-" )

Т.е. на листе "Данные для проекта" в диапазоне $G$15:$G$34, в 6м столбце ищем значение в ячейке Е30, и как только находим нехитрым методом преобразуем в адрес, который будет преобразован в ссылку формулами.

Новая проблема уже упирается в длину строки, если использовать шрифт Times New Roman №10, то длина текста, которая будет выводится на печать, не превышает 105 символов. Т.е. мы упираемся в необходимость создавать костыль для переносов. Итак код функции на VBA:

Function PatrOfString(StringOfTable As String , Nnumber As Byte) As String Dim МассивБлоков(1 To 10 ) As String Dim i As Integer " Dim j As Integer " Dim k As Integer " Dim p As Integer " For i = 1 To 10 Let МассивБлоков(i) = " " Next i Let k = 1 Let p = Len (StringOfTable) Let p1 = Len (StringOfTable) For i = 1 To Round (Len (StringOfTable) / 105 ) + 1 Step 1 If p > 0 And p < 105 Then If k <= p1 Then Let МассивБлоков(i) = Mid $(StringOfTable, k, p) Else If Mid (StringOfTable, k, 1 ) = " " Then If k <= p1 Then Let МассивБлоков(i) = Mid $(StringOfTable, k, 105 ) Let p = p - 105 k = k + 105 Else j = 105 * i If j - k >= 105 Then j = k + 105 End If Do j = j - 1 Loop While Mid $(StringOfTable, j, 1 ) <> " " Let МассивБлоков(i) = Mid $(StringOfTable, k, j - k + 1 ) Let p = p - (j - k + 1 ) Let k = j + 1 End If End If Next i If Nnumber - 1 > 0 Then If МассивБлоков(Nnumber) = МассивБлоков(Nnumber - 1 ) Then МассивБлоков(Nnumber) = " " End If PatrOfString = МассивБлоков(Nnumber)

Т.е. мы сперва забираем текст, потом вырезаем 105 символов, ищем с конца первый символ пробел, как его находим, то закидываем в первую строку массива текст длиной с первого символа, по номер найденного пробела. Затем продолжаем операцию до тех пор пока текст не закончится или не забьется выводной массив. На данном этапе он ограничен памятью в 10 строк. Затем мы выводим по ссылке содержание нужной строки из 1-10. Из минусов решения - забивается память, и для каждого нового запроса осуществляется пересчет заново. Но костыль работает.

Теперь вывод в типовой шаблон АОСР. Есть опять 2 варианта, либо вручную прописывать сопоставлению столбцу(/строки в случае горизонтально расположенных данных под каждый акт), то это будет долго и ресурсоемко подгонять каждый новый шаблон или изменения под таблицы данных. Потому делаем оптимизацию. Данные на каждый один акт будут располагаться вертикально, а сопоставление управляющей комбинации символов (на латинице, т.к. сами акты сплошь на кириллице) будут строки с информацией в этих актах, таким образом в двойном вложенном цикле поиском в тексте управляющих символов мы сопоставим нужное значение из колонки.

Do wb.Worksheets("Пример акта входного контроля" ).Copy after:=Worksheets(Worksheets.Count) Set новыйЛист = wb.Worksheets(Worksheets.Count) For x = 1 To 15 Step 1 " Перебираем столбцы в листе "Пример акта входного контроля" For y = 1 To 71 Step 1 " Перебираем строки в листе "Пример акта входного контроля" If Sheets(новыйЛист.Name).Cells(y, 20 ) = 1 Then Let k = CStr (Sheets(новыйЛист.Name).Cells(y, x)) " Ищем только если в ячейке что-то есть If k <> "" Then For i = 1 To Кол_воЭл_овМассиваДанных Step 1 Let k = Replace (k, arrСсылкиДанных(i), Worksheets().Cells(i, НомерСтолбца)) Next i новыйЛист.Cells(y, x) = k End If End If Next y Next x " Если Вы захотите добавить новые данные для автозаполнения, продолжайте этот список. " Ячейки имеют координаты формата Cells(3, 2), где 3 - пример номера строки, 2 - пример номера столбца " Чтобы легко узнавать номер столбца, можно включить стиль ссылок R1C1 " (Файл -> Параметры -> Формулы -> галочка на поле "Стиль ссылок R1C1") " либо задавать координаты в формате Cells(1, "A"), где 1 - пример номера строки, "А" - пример буквенного обозначения столбца Rem -= Уточняем имя файла и текущий путь к папке откуда запущен макрос =- Let ИмяФайла = ИмяФайла + CStr (Worksheets("БД для входного контроля (2)" ).Cells("1" , НомерСтолбца)) + "-" Let ИмяФайла = ИмяФайла + CStr (Worksheets("БД для входного контроля (2)" ).Cells("2" , НомерСтолбца)) + ".xlsx" НовыйПуть = Replace (ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайла) Application.DisplayAlerts = False " выключаем вывод предупреждений Sheets(новыйЛист.Name).Copy " Копируем текущий лист в новую книгу ActiveWorkbook.SaveAs Filename:=НовыйПуть, _ FileFormat:=51 ActiveWindow.Close Sheets(новыйЛист.Name).Delete " Удаляем созданный лист Application.DisplayAlerts = True " Включаем вывод предупреждений обратно Let НомерСтолбца = НомерСтолбца + 1 Loop While НомерСтолбца <= КонечныйНомерСтолбца End Sub

Ну и последний момент на данном этапе - мы упираемся в производительность системы и при большом кол-ве актов их вывод будет занимать часы. Дабы ускорить процесс я использую следующий вариант: Копирую содержимое листа с данными в новый лист макросом, он получает в своем имени циферку (2), затем запускается еще один макрос, ускоряющий Excel, но отключающий ряд функционала:

"Ускоряем Excel путём отключения всего "тормозящего" Public Sub AccelerateExcel() "Больше не обновляем страницы после каждого действия Application.ScreenUpdating = False "Расчёты переводим в ручной режим Application.Calculation = xlCalculationManual "Отключаем события Application.EnableEvents = False "Не отображаем границы ячеек If Workbooks.Count Then ActiveWorkbook.ActiveSheet.DisplayPageBreaks = False End If "Отключаем статусную строку Application.DisplayStatusBar = False "Отключаем сообщения Excel Application.DisplayAlerts = False End Sub

А после вывода всех данных из форм я прогоняю аналогичный макрос где тем же самым переменным присваиваю значение true и удаляю дублирующий лист, что бы не мешался.

(по материалам https://habrahabr.ru/post/344956/)