مشكلة في تحويل البيانات للوورد

اعزائي اعضاء الفريق العربي

السلام عليكم ورحمة الله وبركاته

ارجوا حل مشكلتي التي اعجزني البحث عن حل لها سواء في مواضيع هذا المنتدى او المنتديات الاخرى وهي كالتالي

لدي برنامج عملته بالفجول بيسك يحتوى على قاعدة بيانات اكسس تحتوى على عدد كبير من البيانات وصممت نموذج تقرير على الوورد مصمم به جدول ووضعت (bookmark) على الخلايا الاولى في جدول الوورد وعند استدعاء البيانات لتعبئة الجدول يضعها كلها في الصف الاول من الجدول فكيف اجلعها متناسقه بحيث عند الانتهاء من تعبئة الصف الاول من الجدول بالسجل الاول من جدول قاعدة البيانات ينزل تلقائيا للصف الذي يليه مباشرة لتعبئته بالسجل الثاني من القاعدة مع ملاحظة انه لايمكن عمل بوكمارك لجميع خلايا الجدول لكثرة البيانات فان كانت هذه الامكانية غير موجوده على الوورد ارجوا مساعدتي ليكون على الاكسل بدل الوورد

On Error Resume Next
Set myword = CreateObject("word.Application")
ss1 = (App.Path & "\rf.doc")
myword.Documents.Open ss1
myword.Visible = True
With myword.ActiveDocument.Bookmarks
Dim z As Integer
Dim SQL As String
Dim i As String
Dim rs11 As New Recordset
Set rs11 = New Recordset
SQL = " SELECT * from tap5 order by keta,mar  "
Set rs11 = cn.Execute(SQL)
If rs11.EOF = True Then
rs11.Close
Set rs11 = Nothing
Exit Sub
End If
Do While Not rs11.EOF
.Item("M1").Range.Text = rs11.Fields("num")
.Item("M2").Range.Text = rs11.Fields!Name
.Item("M3").Range.Text = rs11.Fields!tel
.Item("M4").Range.Text = rs11.Fields!keta
.Item("M5").Range.Text = rs11.Fields!adress
.Item("M6").Range.Text = rs11.Fields!mabna
.Item("M7").Range.Text = rs11.Fields!tases
.Item("M8").Range.Text = rs11.Fields!mar
.Item("M9").Range.Text = rs11.Fields!c_sch
.Item("M10").Range.Text = rs11.Fields!n_num
.Item("M11").Range.Text = rs11.Fields!n_name



rs11.MoveNext
Loop
End With