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

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


tarek ali

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

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

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

من أكسس

أو أكسل

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

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

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

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

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

رابط هذا التعليق
شارك

أخي العزيز

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

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

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

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

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

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

رابط هذا التعليق
شارك

أخي العزيز

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

تفضل ...


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"

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

  • 4 weeks later...
  • 2 weeks later...

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

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

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

رابط هذا التعليق
شارك

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

تم تعديل بواسطه refaat yousry hammed
رابط هذا التعليق
شارك

  • 8 years later...

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