كيفية حفظ مستند Word مع التاريخ الحالي في اسم الملف؟

Author: Xiaoyang Last Modified: 2025-05-30

إذا كنت بحاجة إلى إضافة التاريخ الحالي تلقائيًا في اسم الملف عند حفظ مستند Word، كيف يمكنك التعامل مع هذه المهمة في ملف Word؟

حفظ مستند Word مع التاريخ الحالي في اسم الملف باستخدام كود VBA

حفظ مستند Word مع التاريخ الحالي في اسم الملف باستخدام كود VBA

لإضافة التاريخ الحالي تلقائيًا إلى اسم الملف عند حفظ مستند Word، يرجى اتباع الخطوات التالية:

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. وبعد ذلك، انقر فوق إدراج > وحدة، ثم انسخ والصق الكود أدناه في الوحدة الفارغة التي تم فتحها:

كود VBA: حفظ مستند Word مع التاريخ الحالي في اسم الملف

Public Sub FileSave1()
    Dim xDlg As Dialog
    Dim xTitle As String
    On Error Resume Next
    xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
    xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "-" & _
        Format((Month(Now() + 1) Mod 100), "0#") & "-" & _
        Format((Day(Now()) Mod 100), "0#")
    Set xDlg = Dialogs(wdDialogFileSaveAs)
    xDlg.Name = xTitle
    xDlg.Show
End Sub

3. بعد لصق الكود في الوحدة، اضغط على مفتاح F5 لتشغيل هذا الكود، وسيتم عرض نافذة حفظ باسم مع التاريخ الحالي مضافة تلقائيًا في مربع نص اسم الملف، انظر إلى لقطة الشاشة:

Save As window with the current date in the File name text box

4. وبعد ذلك، تحتاج فقط إلى كتابة اسم الملف الخاص بك كما تريد، انظر إلى لقطة الشاشة:

Edit the file name as needed

قم بالمزيد في وقت أقل مع Kutools المُحسّن بالذكاء الاصطناعي لبرنامج Word

Kutools for Word ليس مجرد مجموعة من الأدوات - بل هو حل ذكي مصمم لتعزيز إنتاجيتك. بفضل الإمكانيات المدعومة بالذكاء الاصطناعي والميزات الأكثر أهمية، يساعدك Kutools على تحقيق المزيد في وقت أقل:

تلخيص وإعادة كتابة وتأليف وترجمة المحتوى فوراً.
تدقيق النصوص في الوقت الفعلي مع اقتراحات حول القواعد والنحو والأسلوب أثناء الكتابة.
إعادة صياغة وترجمة المحتوى مع الحفاظ على التخطيط والنمط والهيكل دون تغيير.
ترجمة المحتوى الخاص بك إلى أكثر من 40 لغة بسهولة، مما يوسع نطاق وصولك عالميًا.
الحصول على مساعدة فورية وأفكار ذكية بناءً على محتوى المستند الحالي.
اسأل عن كيفية إكمال مهمة - مثل إزالة فواصل الأقسام - وسيقوم الذكاء الاصطناعي بإرشادك أو القيام بذلك نيابةً عنك.
حجب المعلومات الحساسة أو السرية في غضون ثوانٍ لضمان الخصوصية الكاملة.
كل الأدوات تعمل بسلاسة داخل Word، دائمًا في متناول اليد.

إنشاء وتحسين وترجمة وتلخيص وتأمين المستندات بسهولة.
تحسين القواعد والوضوح والأسلوب أثناء الكتابة في الوقت الفعلي.
إعادة صياغة وترجمة المحتوى بدون أي تغييرات في التخطيط أو التنسيق.
اسأل عن كيفية إكمال مهمة - مثل إزالة فواصل الأقسام - وسيقوم الذكاء الاصطناعي بإرشادك أو القيام بذلك نيابةً عنك.
كل الأدوات تعمل بسلاسة داخل Word، دائمًا في متناول اليد.