كود يغلق برنامج الورد بدون أن تظهر رسالة " هل تريد الحفظ "

[أبــو حبيبـــة]

كود يحفظ أول بأول و يغلق برنامج الورد بدون أن تظهر رسالة " هل تريد الحفظ "

[رفعت يسري حامد]

جرب هذا الكود 

Sub close_document()

'

close_document Macro '

'
'

ActiveDocument.Save

ActiveWindow.Close

 

End Sub

[أبــو حبيبـــة]

شكرا   ا / رفعت لاهتمامك

هل من الممكن شرح كيف اضع الكود فى برنامج الورد لان هذا الموضوع جديد بالنسبه لى

[رفعت يسري حامد]

شاهد هذا الموضوع  عن الماكرو والـ vba

http://www.officena....topic=48230&hl=

تمنياتي لك بالتوفيق

[حمادة عمر]

الاخ الحبيب / رفعت يسري حامد

انت فعلا شخص مميز

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

[أبــو حبيبـــة]

السلام عليكم

ارجو المعذرة للتأخر فى الرد لظروف خاصة و ارجو المتابعه مع الاساتذة المميزين

اولا :- ارجو متابعه الخطوات فى كيفيه تسجيل الكود فى الورد هل هى صحيح ام يوجد عليها اى تعديل مع العلم انى استخدم اوفيس 2003

Tools - > Macro - > Visual Basic Editor

ثم يتم وضع الكود فى

Normal - > Microsoft Word Objects - > ThisDocument

 

ثانيا :- فى حاله اذا ما كانت الخطوات صحيح فقد وضعت الكود المرسل و لم يعمل

فبرجاء كتابته فى صفحه ورد و ارفاقه كملف

و جزاكم الله خيرا

[أبــو حبيبـــة]

السلام عليكم

ارجو المعذرة للتأخر فى الرد لظروف خاصة و ارجو المتابعه مع الاساتذة المميزين

اولا :- ارجو متابعه الخطوات فى كيفيه تسجيل الكود فى الورد هل هى صحيح ام يوجد عليها اى تعديل مع العلم انى استخدم اوفيس 2003

Tools - > Macro - > Visual Basic Editor

ثم يتم وضع الكود فى

Normal - > Microsoft Word Objects - > ThisDocument

 

ثانيا :- فى حاله اذا ما كانت الخطوات صحيح فقد وضعت الكود المرسل و لم يعمل

فبرجاء كتابته فى صفحه ورد و ارفاقه كملف

و جزاكم الله خيرا

[أبــو حبيبـــة]

 

السلام عليكم

ارجو المعذرة للتأخر فى الرد لظروف خاصة و ارجو المتابعه مع الاساتذة المميزين

اولا :- ارجو متابعه الخطوات فى كيفيه تسجيل الكود فى الورد هل هى صحيح ام يوجد عليها اى تعديل مع العلم انى استخدم اوفيس 2003

Tools - > Macro - > Visual Basic Editor

ثم يتم وضع الكود فى

Normal - > Microsoft Word Objects - > ThisDocument

 

ثانيا :- فى حاله اذا ما كانت الخطوات صحيح فقد وضعت الكود المرسل و لم يعمل

فبرجاء كتابته فى صفحه ورد و ارفاقه كملف

و جزاكم الله خيرا

 

[رفعت يسري حامد]

انظر إلى هذا المثال المرفق

 

عسى أن يكون هو المطلوب

 

أكرمنا الله وإياك.

 

 

إغلاق.rar

[أبــو حبيبـــة]

الســلام عليكـــم

 

ارجو المساعدة من خبراء الــــورد فى كود يحفظ أول بأول و عند اغلاق برنامج الورد 2003 لا تظهر رسالة " هل تريد الحفظ "

 

مع توضيح طريقه وضع الاكود فى برنامج الورد

 

و جزاكـــم الله خيــرا

تم تعديل مارس 28, 2014 بواسطه أبــو حبيبـــة

[أبــو حبيبـــة]

سبحان الله و بحمده سبحان الله العظيم

[أبــو حبيبـــة]

بــــرجــــاء المســــاعــــدة

[أبــو حبيبـــة]

بــــرجــــاء المســــاعــــدة

[أبــو حبيبـــة]

الســـلام عليكـــم

إخـــوانى الأعـــزاء

هل المـوضوع صعـب إلى هـذه الدرجه

برجــاء المساعـدة و جـزاكــم الله خيــرا

[ابوخليل]

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

 

هذا السطر  يجعل المستند يغلق بدون المطالبة بالحفظ

Private Sub document_close()
ActiveDocument.Saved = True
End Sub

ولكن لن يتم حفظ آخر حركة

 

ولحفظ آخر حركة ثم الخروج بدون مطالبة نضيف اليه سطرا  :

Private Sub document_close()
ActiveDocument.Save
ActiveDocument.Saved = True
End Sub

ملحوظات : لكي يعمل الكود يجب تخفيظ امان الماكرو الى الحد الادنى 

 مكان الكود : اضغط Alt + f11  

حدث الكود : عند اغلاق المستند

 

وإليك الأمثلة

Doc7.rar

Doc8.rar

[أبــو حبيبـــة]

الســلام عليكــم استــاذ / خليــل

انا كنت بدات افقد الأمل فى رد صحيح

لكن ردك الرائع اعاد الى الأمل مرة اخرى

شكــرا جـزيــلا

و جــزاك الله خيــرا