أريد كود لحذف ملف وورد في تاريخ محدد

[tarek ali]

إخواني خبراء الاكواد أرجو ألا تردوني صفر اليدين

أريد كود لملف وورد يحذف الملف في تاريخ معين أو بعد فترة معينة من الاستخدام ( 20 دقيقة مثلاً )

و لكم مني جزيل الشكر مقدماً

[hussein chechen]

واين الرودود

[ابوخليل]

لا يتصور في مستند وورد الانتحار وقتل نفسه

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

من أكسس

أو أكسل

أو من مستند وورد آخر

وهذا الاخير لم اجربه ولكني اتوقع ان اعمله عبر الأكسس

هذا الرابط يشتمل على عمل مشابه ولكنه لا يحذف المستند بل البيانات داخل المستند

http://www.officena.net/ib/index.php?showtopic=30492&view=findpost&p=155014&hl=%D9%85%D8%A8%D9%8A%D8%AF&fromsearch=1

آمل ان تجدوا فائدة

[أبو آدم]

أخي العزيز

تأكيداً على ما أشار اليه أخي أبو خليل

فكرت في روتين قابل للتطبيق ... عبر الكودات

حيث يتم بعد وقت محدد (باعتبار أن الوثيقة ما زالت مفتوحة) نسخ الوثيقة الأصلية لمجلد محدد كنسخة إحتياطية مسماه باسم جديد ، ثم تفريغ النسخة الأصلية من المعلومات واغلاقها.

هل هذا مناسب لحاجتك .. ؟؟

أو هل لديكم تصوّر آخر !!؟؟

................

[tarek ali]

آسف لتأخري في الرد إن ما أريده بالضبط هو أن يتم حذف المستند أو ما داخل المستند بعد مدة زمنية معينة أو في تاريخ محدد. و بارك الله فيكم يا إخواني و في انتظار الرد

[tarek ali]

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

[أبو آدم]

أخي العزيز

الكود التالي ، يحذف جميع المعلومات من الوثيقة ويلغيها بعد دقيقة ونصف من الفتح ، ويغلق تطبيق الوورد

تفضل ...

Sub Document_Open()

Application.OnTime When:=Now + TimeValue("00:01:30"), Name:="DataDelete"


End Sub

Sub DataDelete()

Selection.WholeStory

Selection.Delete Unit:=wdCharacter, Count:=1

ActiveDocument.Save

Application.Quit _

    SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocument

End Sub

[تومي محمد]

هل نستطيع تحويل هذا الكود :

Application.OnTime When:=Now + TimeValue("00:01:30"), Name:="DataDelete"

من دقيقة ونصف الي أكثر من 24 ساعة (اي الى مدة معينة بالايام وحتى بالشهور )

والسلام عليكم ورحمة الله وبركاته

[أبو آدم]

أخي العزيز

هنا سعينا لأخينا بخصوص حذف معلومات الوثيقة خلال فتحها وبعد فترة محددة فقط

طلبك لم أجربه ولكنه متاح وسأوافيك بالنتيجة بإذن الله

............

[أبو آدم]

أخي العزيز

حين نترك الحديث عن الساعات والدقائق و الثواني في ذات اليوم في TimeValue ، ننتقل للحديث عن DateValue و بالصيغة التالية:

Application.OnTime DateValue("12/31/2012 5:00 pm"), "DataDelete"

فهل هذا ما تعنيه !! ؟؟

[تومي محمد]

نعم هذا بالضبط اي بعد مدة تقدر بالايام او الشهور او السنوات ليتم فيها حذف الملف تلقائيا.

فهل هذا هوالكود المعني بذلك ؟

وباراك الله فيك

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

[أبو آدم]

إخوتي الفضلاء

أرى بعض الإهتمام بحذف الوثائق بعد استخدامها أو مرور وقت معين ، وهذا له الكثير من الأساليب و الأفكار سواء من خلال وثائق الوورد أو غيرها ... واليكم بعضها :

• يمكن تفريغ الوثيقة من المعلومات وفق أي شرط مقترح.
  
• يمكن استخدام كود عام لحذف الوثائق الفارغة الموجودة في ملف معين وفق أي شرط مقترح.
  

وكل شيئ متاح ... بإذن الله

..............

[منياوى]

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

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

جزاك الله خيرًا أخي قبل أن أجرب المثال:

هل بعد وضع هذا الكود بداخل الموديول؟؟؟ سوف يتم إغلاق الصفحة؟؟؟

أم لا بد من استدعاء الكود حتى يتم تنفيذه؟؟؟؟؟

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

أخي بارك الله فيك عند تجربة المثال (عن طريق الاستدعاء) (من عرض وحدات ماكرو ثم تشغيل) يقوم بالإلغاء وقفل الملف فورًا دون التقيد بالوقت ؟ لماذا؟

تم تعديل مايو 20, 2012 بواسطه refaat yousry hammed

[facesbooks]

هل من شرح لتطبيق هذا الكود مع جزيل الشكر سلفا