اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

لدى عدد كبير من ملفات الوورد تم تسميتها مسلسة رقميا 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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information