Нужно, чтобы прога вызывала разные шаблоны WORD, в зависимости от значения поля в форме

Private Sub Кнопка10_Click()
 
With Forms![Доверенность на управление]![Авто].Form
If Forms![Доверенность на управление]![Авто].Form![Лизингодатель] = """ЗАО Европлан""" Then
Dim strPathDot As String, strPathWord As String
strPathDot = CurrentProject.Path & "\Dot\Доверенность на управление Европлан.dot"
strPathWord = CurrentProject.Path & "\Word\" & Forms![Доверенность на управление]![Водители].Form![Фамилия] & " " & Forms![Доверенность на управление]![Авто].Form![Гос номер] & ".doc"
Call funOutputWord(strPathDot, strPathWord)
Else
strPathDot = CurrentProject.Path & "\Dot\Доверенность на управление Вектор Лизинг.dot"
strPathWord = CurrentProject.Path & "\Word\" & Forms![Доверенность на управление]![Водители].Form![Фамилия] & " " & Forms![Доверенность на управление]![Авто].Form![Гос номер] & ".doc"
 
End If
End With
End Sub

Function funOutputWord(strPathDot As String, strPathWord As String) As Boolean
On Error GoTo Err_
Dim app As Word.Application
Dim DlgUser As Integer
    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 = New Word.Application
        app.Visible = True
        app.Documents.Add strPathDot
        With app.ActiveDocument
            .Bookmarks.Item("Авто").Range.Text = Forms![Доверенность на управление]![Авто].Form![Модель]
            .Bookmarks.Item("Госномер").Range.Text = Forms![Доверенность на управление]![Авто].Form![Гос номер]
            .Bookmarks.Item("VIN").Range.Text = Forms![Доверенность на управление]![Авто].Form![VIN]
            .Bookmarks.Item("Годвыпуска").Range.Text = Forms![Доверенность на управление]![Авто].Form![Год выпуска]
            .Bookmarks.Item("СТС").Range.Text = Forms![Доверенность на управление]![Авто].Form![СТС]
            .Bookmarks.Item("ГИБДД").Range.Text = Forms![Доверенность на управление]![Авто].Form![ГИБДД]
            .Bookmarks.Item("ДатавыдСТС").Range.Text = Forms![Доверенность на управление]![Авто].Form![Дата выд СТС]
            .Bookmarks.Item("Фамилия").Range.Text = Forms![Доверенность на управление]![Водители].Form![Фамилия]
            .Bookmarks.Item("Имя").Range.Text = Forms![Доверенность на управление]![Водители].Form![Имя]
            .Bookmarks.Item("Отчество").Range.Text = Forms![Доверенность на управление]![Водители].Form![Отчество]
            .Bookmarks.Item("Паспорт").Range.Text = Forms![Доверенность на управление]![Водители].Form![Паспорт]
            .Bookmarks.Item("Выдан").Range.Text = Forms![Доверенность на управление]![Водители].Form![Выдан]
            .Bookmarks.Item("Датавыдачи").Range.Text = Forms![Доверенность на управление]![Водители].Form![ДатаВыдачи]
            .Bookmarks.Item("Прописан").Range.Text = Forms![Доверенность на управление]![Водители].Form![Прописан]
            
            
        End With
        Set app = Nothing
    End If
    funOutputWord = True
Exit_:
    Exit Function
Err_:
    funOutputWord = False
    Err.Clear
    app.Quit
    Resume Exit_
End Function