Создать документ Word по шаблону

[StrelokCU]

Помогите пожалуйста, создал код по примеру "la_automat.mdb".
В папке с базой создал шаблон "Заявка", написал код:

Option Compare Database
Option Explicit
Private Sub Создать_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
           
         With Application.CurrentProject
         strDOT = .Path & "\" & "Заявка.dot"
         strDOC = .Path & "\" & "Заявка.doc"
         End With

         Set app = New Word.Application
         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
        Exit Sub
999:
    MsgBox Err.Description
    Err.Clear
    app.Quit
End Sub

Но при выполнении выдает ошибку "Compile Error: Invalid use of Me keyword"
подскажите пожалуйста где ошибка?

[Abrakadabra]

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

написал код:

Ошибка в том, что Вы его не пасисАли, а просто скопировали. Попробуйте сделать, вдумываясь в назначение каждого символа кода, тогда все получится.

[Teslenko_EA]

Здравствуйте StrelokCU.
если в папке с БД существует Заявка.dot, к проекту подключена библиотека MS Word и обработчик события кнопки Создать_Click() размещен в форме, код должен выполнять свою задачу. Проверьте всё ли у Вас верно.
Евгений.

[StrelokCU]

Спасибо Евгений. Уже разобрался - заработало!

[ПавелХХХ]

StrelokCU, помоги пожалуйста, такая же ошибка, такой же скопированный код)) что не так?

[ПавелХХХ]

Из под модуля запускал, а надо из под кнопки или Me.Controls не понимается компилятором, верно??? по крайней мере работает