سلام عليكم ورحمة الله وبركاته
أسعد الله مساءكم بكل خير
لدي كود مهمته فتح ملف وورد بواسطة اكسس لوضع نص في اشارة مرجعيه
الكود
Set MonWd = CreateObject("Word.Application")
MonWd.Visible = True
MonWd.Documents.Open App.Path & "\test.doc"
MonWd.ActiveDocument.Bookmarks("test").Select
MonWd.Selection.InsertAfter test
'Impression du courrier
'MonWd.ActiveDocument.PrintOut
MonWd.ActiveDocument.GoTo
وتظهر رسالة الخطاء الصورة المرفقة
شكراً مقدماً.