Импорт данных из формы в шаблон Word

Dim WordObj As Object, a As String
Set WordObj = CreateObject("Word.Application")
a = CurrentProject.Path & "\Курорт.dot"
If Not (WordObj Is Nothing) Then On Error GoTo 1
WordObj.Visible = True
WordObj.Documents.Add "" & a & ""
 
With WordObj.ActiveDocument
     .Bookmarks.Item("Курорт").Range.Text = Nz(Me.КодКурорта.Column(1), 0)
     .Bookmarks.Item("Страна").Range.Text = Nz(Me.КодСтраны.Column(1), 0)
     .Bookmarks.Item("Отель").Range.Text = Nz(Me.КодОтеля.Column(2), 0)
     .Bookmarks.Item("ФИО").Range.Text = Nz(Me.Поле14, "")
End With
 
 
                
 
1:
        WordObj.Visible = True
        Set WordObj = Nothing

Dim app As Object
Dim strPathDot As String, strPathWord As String
Dim DlgUser$
strPathDot = CurrentProject.Path & "\Шаблон.dot"
 
'Если есть документ с таким же названием и местом расоложения, выдается сообщение о замене
If Dir(strPathWord) <> "" Then
DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbYesNo, "admin")
 
'Если нет, открывается старый документ
If DlgUser = vbNo Then
Set app = CreateObject("Word.Application")
With app
.Visible = True
.Documents.Open strPathWord
End With
Set app = Nothing
Else
GoTo nn
End If
Else
 
'Если такого документа нет или, если человек выбрал "да", то создается новый документ взамен старого на основе шаблона
nn:
Set app = CreateObject("Word.Application")
app.Visible = True
app.Documents.Add strPathDot
With app.ActiveDocument
'Вставка данных
     .Bookmarks.Item("Курорт").Range.Text = Nz(Me.КодКурорта.Column(1), 0)
     .Bookmarks.Item("Страна").Range.Text = Nz(Me.КодСтраны.Column(1), 0)
     .Bookmarks.Item("Отель").Range.Text = Nz(Me.КодОтеля.Column(2), 0)
     .Bookmarks.Item("ФИО").Range.Text = Nz(Me.Поле14, "")
End With
Set app = Nothing
End If
 
Exit_: