Есть работающий код создание документа Word по шаблону

Создание документа Word по шаблону.
Создаю шаблон в Word,ставлю закладки.
Отчет из формы , форма на основе запроса.
На форме починенная форма - вот данные этой подч.ф. я и не могу вывести в Word.
Private Sub butNewWord_Click()
Dim app As Word.Application
Dim strDOC As String
Dim strDOT As String
Dim ctl As Control
Dim s As String

On Error GoTo 999
' Word
With Application.CurrentProject
strDOT = .Path & ' ' & 'шаблон.dot'
strDOC = .Path & ' ' & 'шаблон.doc'
End With

' Word
Set app = New Word.Application ' Word
app.Visible = True
app.Documents.Add strDOT
With app.ActiveDocument
On Error Resume Next
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
s = ctl.Name
.Bookmarks.Item(s).Range.Text = Me(s) Err.Clear
End If
Next ctl
.SaveAs strDOC
On Error GoTo 999
End With
' app.Quit
Exit Sub
999:
MsgBox Err.Description Err.Clear
app.Quit
End Sub

0

2)Область данных отчет-расширение и сжатие работает только для полей, а на надписи не распространяется?
Отчет создаю в конструкторе-много полей мастер ругается. Поля перетаскиваю вручную-утомительно. Выравниваю-все равно криво. Поля перескакивают на другю страницу как хотят, еще и надписи не расширяются. А мне нужен отчет в три столбца:1)№,2)имя поля,3)данные.

0