خروجی اکسس به ورد

با سلام و عرض ادب و احترام
اساتید گرامی یک سوال داشتم از محضرتون
در تایپک زیر که مربوط به خروجی ایتم ها از اکسس به ورود میباشد اگر بخواهیم قبل از اینکه صفحه ورد باز شود ابتدا ذخیره شود و سپس باز شود چکاری انجام بدیم؟ من نتونستم راهی پیدا کنم
با تشکر فراوان

تایپیک:

https://barnamenevis.org/showthread....=1#post2478711


این هم کدهایی هست که شما قبلا زحمت کشیده بودید و برای اتقال داده ها فرموده بودید

Public Sub PopulateBookmarks()


Dim sPathName As String
Dim sDocName As String
Dim sFamily As String
Dim sFamilyTable As String
Dim iSeqNum As Integer

Set db = CurrentDb()
Set WordApp = New Word.Application
WordApp.Visible = True
DoCmd.Hourglass True
sPathName = GetCurrentPathName
sDocName = QUOTE & sPathName & "Sanad.Docx" & QUOTE
Set WordDoc = WordApp.Documents.Add(sDocName)



Set qdDAO = db.QueryDefs!qrshomare
qdDAO.Parameters![EnterID] = Me.ID
Set rsDAO = qdDAO.OpenRecordset


' WordDoc.FormFields("ID").result = rsDAO!ID
WordDoc.FormFields("NameP").result = rsDAO!datee
WordDoc.FormFields("Family").result = rsDAO!peyvast
WordDoc.FormFields("Job").result = rsDAO!tabafge
WordDoc.FormFields("shomarekol").result = rsDAO!shomarekol




Set WordDoc = Nothing


MsgBox "عمليات انتقال رکورد جاري به محيط ورد به پايان رسيد", vbOKOnly
DoCmd.Hourglass False
End Sub