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

Author: Xiaoyang Last Modified: 2025-05-30

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

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

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

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

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

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. وبعد ذلك، انقر فوق زر موافق لإغلاق مربع الحوار، الآن تم إدراج أيقونة الماكرو في شريط أدوات الوصول السريع المخصص. ضع المؤشر حيث تريد إدراج النص، ثم انقر فوق زر الماكرو هذا، سيتم إدراج النص المحدد فورًا، انظر الصورة التوضيحية: