تنظيم وفتح ملفات الوورد

[gadelrab]

الاخوة الاعزاء السلام عليكم ورحمة الله

لدى عدد كبير من ملفات الوورد تم تسميتها مسلسة رقميا 1...2...3 وقمت بعمل برنامج لتنظيم وفتح تلك الملفات باستخدام برنامج الاكسس حيث قمت باعتبار رقم الملف ترقيم تلقائى هو نفس اسم الملف بالوورد وقمت بعمل سجل واضافة زر امام كل سجل واريد عند الضغط على السجل يقوم بفتح ملف الوورد باستخدم برنامج ماكروسفت وورد بحيث يثوم بفتح نفس الملف الذى طبقا لرقمه

قمت بالاطلاع على الموضوع التالى

https://www.officena.net/ib/topic/25175-كيف-افتح-ملف-وورد-عن-طريق-الاكسس/

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

مرفق ملف لعمل الكود المطلوب فى الزر

ولكم جزيل الشكر

مشروع ملفات الوورد.rar

[ابوخليل]

تفضل

Private Sub أمر13_Click()
Openword (CurrentProject.Path & "\" & Me.id & ".docx")
End Sub
 
Sub Openword(Docfile As String)
On Error Resume Next
    Dim GetObjwrd As Object
    Dim Objwrd As Object
     
       Set Objwrd = CreateObject("Word.Application")
            Objwrd.Documents.Open (Docfile)
               Objwrd.Visible = True
              Exit Sub
 
        Set Objwrd = Nothing
            
     End Sub

 

مشروع ملفات الوورد2.rar

[ابوخليل]

وهذه بطريقة أخرى

 

مشروع ملفات الوورد3.rar

[gadelrab]

الاخ العزيز ابو خليل

جزاك الله خير الجزاء

الحل الثانى مطابق تماما للمطلوب 

فشكرا لك ولجميع الاعضاء