Public Function export_func(TableName As String)
    Dim Word As Object, Docs As Object, Doc As Object
    On Error Resume Next
    On Error GoTo  0 
    Set Word = CreateObject("Word.Application")
    Set Docs = Word.Documents
    Set Doc = Docs.Open(CurrentProject.Path & "\templates\POST-TEMPLATE.doc", , True)
    Word.Visible = False
    count_befor_new = Docs.Count
    
    Dim query_for_post, str_Name, str_Connection, str_SQLStatement As String
    query_for_post = TableName '"system_post2"
    str_Name = CurrentProject.Path & "\conference2.mdb"
    str_Connection = "TABLE " & query_for_post
    str_SQLStatement = "SELECT * FROM [" & query_for_post & "]"
    
    Doc.MailMerge.OpenDataSource Name:=str_Name, _
        Connection:=str_Connection, SQLStatement:=str_SQLStatement, SQLStatement1:=""
   
    With Doc.MailMerge
        .Destination = wdSendToNewDocument
        .MailAsAttachment = False
        .MailAddressFieldName = ""
        .MailSubject = ""
        .SuppressBlankLines = False
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=True
    End With
    Doc.Close (False)
   
    Word.Visible = True
    Docs.Item(count_befor_new).Activate
End Function