[مهندس عطية البرغثي]

(29-10-14, 04:03 PM)mr.am.he كتب :

اقدم لكم مكتبة الاكواد

ما ابغى اطول عليكم 

اكتبو اي كود عندكم للفيجوال بيسك .net

لا اريد عبارات مثل : شكرا

فتح مايكروسوفت وورد من خلال الفيجوال بيسك

كود :

Option Explicit

Private Sub cmdWord_Click()
   Dim pintID As Long
   pintID = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE", vbHide)
   
End Sub
قم بتغيير مسار الملف حسب المطلوب