اريد أمر لاغلاق كافة مستندات الوورد المفتوحة على الجهاز

هل جربت انهاء Winword.exe باستدعاء الدالة TerminateProcess !

والسلام عليكم

لا يا اخي الفاضل لم اجرب وذلك لان طريقة كتابة الكود غير واضحة بالنسبة لي

أرجوا ان تكون بمثال وجزاك الله كل خير

الأخ B.M.AbdelAziZ

لو سمحت ممكن توضح لي الطريقة بمثال ... وهل يمكن استخدام هذه الطريقة لانهاء اي ملفات اكسل او باوربوينت او اكسس مفتوحة على الجهاز ايضا؟؟؟

يعني فورم فيها زرار عند الضغط عليه يقوم باغلاق ملفات الوورد بالكامل واخر للاكسل وأخر للاكسس

هذه الطريقة لإغلاق أي برنامج شغال كما طلبت تماما

فقط ضع اسم البرنامج المراد إغلاقه

فمثلاً:

Private Function killprocesses(prog As String)

killproc = Shell("taskkill /f /im " & prog, vbHide)

End Function

'لإغلاق الورد :

Private Sub Command1_Click()

On Error Resume Next

Call killprocesses("WINWORD.EXE")

End Sub

'لإغلاق الإكسل :

Private Sub Command2_Click()

On Error Resume Next

Call killprocesses("excel.EXE")

End Sub

'لإغلاق الباور بوينت :

Private Sub Command3_Click()

On Error Resume Next

Call killprocesses("POWERPNT.EXE")

End Sub

وهكذا

ولو في اي استفسار قول ...

أشكرك وجزاك الله كل خير

Private Function killprocesses(prog As String)
killprocesses = Shell("taskkill /f /im " & prog, vbHide)
End Function

اسم الدالة كان مكتوب مختصر killproc ولما كتبته بالكامل killprocesses اشتغل الامر معايا...