Public Function имп()
Dim app As Object
Dim rst As DAO.Recordset
Set app = CreateObject("Word.Application")
app.Documents.Open CurrentProject.Path & "\иванова.doc"
Set rst = CurrentDb.OpenRecordset("select * from Таблица1")
rst.AddNew
For i = 1 To app.ActiveDocument.Fields.Count
    rst.Fields(i) = app.ActiveDocument.Fields(i).Result.Text
Next i
rst.Update
rst.Close
Set rst = Nothing
app.ActiveDocument.Close
app.Quit
Set app = Nothing
DoCmd.OpenTable "Таблица1", acViewNormal
End Function