Dim strPathDot As String
Dim strPathWord As String
    strPathDot = CurrentProject.Path & "\Word \111.dotx"
    strPathWord = CurrentProject.Path & "\111.docx"
    With CreateObject("Word.Application")
        With .Documents.Open(strPathDot)
            Dim i As Integer
            For i = 1 To 14
                .Bookmarks("pol" & i).Range.Text = Nz([psubform].[Form]![pol], " ")
            Next
                .Bookmarks("address").Range.Text = Nz([psubform].[Form]![address], " ")
                .Bookmarks("phone").Range.Text = Nz([psubform].[Form]![phone], " ")
            .PrintOut True
            .SaveAs strPathWord
            .close
        End With
        .Quit
    End With