массовое создание документов Word

[glumz]

Доброго дня всем!
Стоит задача сделать несколько документов Word на основе одного шаблона и записей в Excel. Код (сокращенный) следующий:

Sub Macro1()
'
' Ìàêðîñ1 Ìàêðîñ
'
Dim do8 As Word.Document
Dim db8 As Bookmarks
PathA = ThisWorkbook.Path
Set do8 = GetObject(PathA & "\Øàáëîíû\ÐàçðåøåíèÿÞË.docx")
    Set db8 = do8.Bookmarks
    y = 3
            While ThisWorkbook.Worksheets("Ëèñò1").Cells(y, 13).Value <> ""
                db8("dp2").Range.Text = ThisWorkbook.Worksheets("Ëèñò1").Cells(y, 7).Value
        do8.SaveAs Filename:=PathA & "\Âûõëîï\ÐàçðåøåíèÿÞË" & "_" & ThisWorkbook.Worksheets("Ëèñò1").Cells(y, 4).Value
         y = y + 1
            Wend
do8.Close SaveChanges:=False
Set db8 = Nothing
'
End Sub

Отрабатывает только один цикл, потом выдает ошибку (не может найти объект Bookmarks). Подскажите, плз, что я сделал не так?

[IgorGO]

массовое создание документов Word на основе одного шаблона и записей в Excel

это уже сделали программисты Microsoft и дали инструмент пользователям.
инструмент называется "документ слияния" (ищите в Word)

[glumz]

проблема в том что из всего массива Excel не все ячейки заполнены и надо выбрать определенные строки. Для ИП и Юр.лиц заполняются разные столбцы и не всем контрагентам находящимся в реестре необходимо формировать документы

[IgorGO]

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

в моей практике есть уникальный клиент, который пользуется сделанным мною документом слияния уже больше 20 лет!
благополучно мигрировав за это время со стартового Word6.0 в новые версии офисов.

[glumz]

Сообщение от IgorGO

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

в моей практике есть уникальный клиент, который пользуется сделанным мною документом слияния уже больше 20 лет!
благополучно мигрировав за это время со стартового Word6.0 в новые версии офисов.

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

[glumz]

с примером во вложении

[EducatedFool]

Можете попробовать готовое решение для заполнения документов Word:
http://excelvba.ru/programmes/FillDocuments

[glumz]

Сообщение от EducatedFool

Можете попробовать готовое решение для заполнения документов Word:
http://excelvba.ru/programmes/FillDocuments

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