Public Function fff()
Dim rst As DAO.Recordset
Dim objWord As Word.Application
Dim objDoc As Word.Document
Set rst = CurrentDb.OpenRecordset("select * from t1")
'Set objWord = CreateObject("Word.Application")
Set objWord = New Word.Application
Set objDoc = objWord.Documents.Open(CurrentProject.Path & "\DOC2.doc")
rst.MoveFirst
objWord.Visible = True
i = 1
Do While i <= Len(rst.Fields(0))
s = Mid(rst.Fields(0), i, 1)
'objDoc.Tables(1).Columns(i).Cells(1).Range.Text = s
objDoc.Tables(1).Cell(1, i).Range.Text = s
i = i + 1
Loop
End Function