ник: Мишок
когда на одного человека я делаю через закладки:
' находим шаблон
Dim oBOF As BoundObjectFrame
Set oBOF = Form.Controls("OLEObject1")
oBOF = DLookup("[Шаблон3]", "Шаблоны", "[НомерШаблона] = 2")
oBOF.Verb = acOLEVerbOpen
oBOF.Action = acOLEActivate
'Word
Dim oWord As Word.Application
Set oWord = GetObject(, "Word.Application")
Dim oDoc As Word.Document
Set oDoc = oWord.ActiveDocument
oWord.Visible = True
oWord.ActiveWindow.WindowState = wdWindowStateMaximize
oDoc.Activate
'дальше закладки
.Bookmarks.Item("Фамилия").Range.Text = Nz(Фамилия, "")
Bookmarks.Item("Имя").Range.Text = Nz(Имя, "")
Bookmarks.Item("ДатаРожд").Range.Text = Nz(ДатаРожд, "")
а мне надо заполнить документ типа:
Граждане Петров Сергй, Иванов Дмитрий, Кузнецов Иван обязуются ....
где граждан может быть до 50 человек
есть заппрос в который отбирает помеченных галкой ,а как их вывести в ворд не знаю :(