كيف يمكن إدراج نص معيّن عند مؤشر الكتابة أثناء كتابة رسالة في Outlook؟

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

إدراج نص معيّن أو التاريخ الحالي عند مؤشر الكتابة أثناء تأليف رسالة باستخدام كود VBA

---

إدراج نص معيّن أو التاريخ الحالي عند مؤشر الكتابة أثناء تأليف رسالة باستخدام كود VBA

يمكنك استخدام كود VBA التالي لإدراج سلسلة نصية معيّنة أو التاريخ الحالي عند موقع المؤشر. يُرجى اتباع الخطوات التالية:

1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسيك للتطبيقات.

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

كود VBA: إدراج نص معيّن أو التاريخ الحالي عند المؤشر

Option Explicit
Public Sub InsertInfoToSelection()
    Dim xDoc As Word.Document
    Dim xSel As Word.Selection
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set xDoc = Application.ActiveExplorer.Selection(1).GetInspector.WordEditor
        Case "Inspector"
            Set xDoc = Application.ActiveInspector.WordEditor
    End Select
    Set xSel = xDoc.Application.Selection
    xSel.InsertBefore Format("ExtendOffice")
    Set xDoc = Nothing
    Set xSel = Nothing
End Sub

ملاحظة: في الكود أعلاه،ExtendOffice هو النص المعيّن الذي تريد إدراجه. إذا كنت بحاجة إلى إدراج التاريخ الحالي بدلًا من سلسلة نصية، يُرجى تغيير هذا الجزء من النص البرمجيxSel.InsertBefore Format(«ExtendOffice») إلىxSel.InsertBefore Format(Now, «DD/MM/YYYY»).

3. بعد ذلك، أغلق نافذة الكود، وأنشئ بريدًا إلكترونيًّا جديدًا. ثم في نافذة الرسالة، انقر على القائمة المنسدلةتخصيص شريط أدوات الوصول السريعواخترمزيد من الأوامر، كما في لقطة الشاشة:

4. في مربع حوارخيارات Outlook، يُرجى تنفيذ الخطوات التالية:

(1.) حددوحدات الماكرومن القائمة المنسدلةاختيار الأمر من؛

(2.) انقر على اسم ماكرو الذي قمت بإدراجه؛

(3.) بعد ذلك، انقر على زرإضافةلإضافة هذا الماكرو إلى مربع القائمة الخاص بـتخصيص شريط أدوات الوصول السريع.

5. بعد ذلك، انقر على زرموافقلإغلاق مربع الحوار. الآن، تم إدراج أيقونة الماكرو فيتخصيص شريط أدوات الوصول السريع. ضع المؤشر في المكان الذي تريد إدراج النص فيه، ثم انقر على زر الماكرو هذا، وسيتم إدراج النص المعيّن فورًا، كما في لقطة الشاشة:

---

إدراج نص معيّن في أي موقع عند كتابة الرسالة: بفضل ميزةKutools لـ Outlookالخاصة بـالنص التلقائي، يمكنك إنشاء نصوص تلقائية وإدراجها في أي مكان أثناء كتابة رسالتك — متى احتجت إليها! 👉 اعمل بذكاءٍ أكبر في Outlook!تنزيل Kutools لـ Outlookلتعزيز الإنتاجية مع ميزات 100+ توفر الوقت — مجانًا لمدة 30 يومًا!.