Добрый день!

Помогите, пожалуйста, разобраться.

Имеется База клиентов в Аксессе 2007. Для клиентов формируются счета, договора, акты и т.п. Выгружаются в Ворд.
Сейчас это выглядит так:
На кнопку в подчиненной ленточной форме "Договора" вешается программа, которая -
Поочередно для каждого используемого в Вордовском документе поля объявляется переменная. Каждой переменной присваивается значение - либо sNumDog = Me.Controls("Номер договора").Value - если поле есть в этой форме или sFirma = DLookup("[Название]", "Клиенты", "[ИНН]='" & Me![ИНН] & "'") - если поле в главной форме или где-то еще.
Далее берется шаблон и в закладки в тупую вставляются эти переменные, причем, если одна переменная вставляется в документ несколько раз, то это выглядит так:
oDoc.Bookmarks("bNumDog1").Range.Text = sNumDog
oDoc.Bookmarks("bNumDog2").Range.Text = sNumDog
oDoc.Bookmarks("bNumDog3").Range.Text = sNumDog

Можно ли как-нибудь пройтись по всем закладкам циклом For each, а в идеале пройтись по всем полям формы тоже циклом, выбрать нужные только в этом документе и так же циклом вставить все закладки? Потому-что разных подчиненных форм и формируемых документов десятки и каждый раз набивать простыню надоело.

Отлично! Спасибо! Вот только закладки то из разных полей: NumDog, DateDog, SumDog
Как заставить его пройтись по всем полям, например такая конструкция будет работать?




Синтаксис VBA не моя сильная сторона :-)