حفظ مستند Word مع تاريخ اليوم في اسم الملف باستخدام كود VBA
لإضافة تاريخ اليوم تلقائيًا إلى اسم الملف عند حفظ مستند Word، يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار على مفاتيحALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. بعد ذلك، انقر فوقInsert > Module، ثم انسخ والصق الكود أدناه في الوحدة النمطية الفارغة التي تم فتحها:
كود 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 مع إدراج تاريخ اليوم تلقائيًا في مربع نصFile name. انظر لقطة الشاشة:
4. بعد ذلك، كل ما عليك فعله هو كتابة اسم الملف كما تريد. راجع لقطة الشاشة:
أنجز أكثر في وقت أقل مع Kutools for Word المعزّز بالذكاء الاصطناعي
Kutools for Word ليس مجرد مجموعة أدوات – بل هو حل ذكي صُمم خصيصًا لرفع إنتاجيتك. بفضل قدراته المدعومة بالذكاء الاصطناعي وأبرز ميزاته الأساسية، يمكّنك Kutools من إنجاز المزيد في وقت أقل.
لخّص، وأعد الصياغة، وصنّف، وترجم المحتوى فورًا.
راجع النصوص تلقائيًا أثناء الكتابة، مع اقتراحات لتحسين القواعد النحوية وعلامات الترقيم وأسلوب الكتابة.
أعد صياغة المحتوى وترجمه مع الحفاظ على التنسيق والأسلوب والهيكل دون أي تغيير.
ترجم محتواك بسهولة إلى أكثر من 40 لغة، ووسّع نطاق وصولك عالميًا.
احصل على مساعدة فورية ورؤى ذكية مستوحاة من محتوى المستند الحالي.
اسأل عن كيفية إنجاز مهمة – مثل إزالة فاصل المقطع – وسوف يوجّهك الذكاء الاصطناعي أو ينفّذها نيابةً عنك.
احذف المعلومات الحساسة أو السرية في ثوانٍ لضمان خصوصيتك التامة.
تعمل جميع الأدوات بسلاسة داخل Word، دائمًا في متناول يدك.
أنشئ مستنداتك، وحسّنها، وترجمها، ولخّصها، وامنحها الحماية — كل ذلك بسلاسة تامة.
حسّن القواعد النحوية، والوضوح، ونبرة الكتابة أثناء الكتابة بشكل فوري.
أعد صياغة وترجم المحتوى دون أي تغيير في التنسيق أو التصميم.
اسأل عن كيفية إنجاز مهمة – مثل إزالة فاصل المقطع – وسوف يوجّهك الذكاء الاصطناعي أو ينفّذها لك مباشرةً.
تعمل جميع الأدوات بسلاسة داخل Word، دائمًا في متناول يدك.
