كيف يمكن قبول التعديلات التي تم تعقّبها من مستخدم معيّن في مستند Word؟

لنفترض أن لديك مستند Word راجعه عدة أشخاص، كما يظهر في لقطة الشاشة التالية. الآن، تريد قبول التعديلات التي تم تعقبها من شخص واحد معيّن فقط. كيف يمكنك تنفيذ هذه المهمة في مستند Word؟

قبول التعديلات التي تم تعقبها من مستخدم واحد معيّن في Word

قبول التعديلات التي تم تعقبها من مستخدم واحد معيّن باستخدام كود VBA

---

قبول التعديلات التي تم تعقبها من مستخدم واحد معيّن في Word

لقبول التعديلات التي تم تعقبها من مستخدم واحد فقط، يمكن أن تساعدك ميزةإظهار الترميزفي Word. يُرجى اتباع الخطوات التالية:

1. افتح ملف Word الذي يحتوي على التعديلات التي تم تعقّبها، ثم انقر فوقمراجعة > إظهار الترميز > أشخاص معيّنون، ثم ألغِ تحديد خيارجميع المراجعينلإخفاء جميع المراجعات، كما في لقطة الشاشة:

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

3. بعد ذلك، انقر فوققبول > قبول جميع التعديلات المعروضة، كما في لقطة الشاشة:

4. الآن، تم قبول التعديلات التي تم تعقّبها من هذا الشخص المعيّن فقط، كما في لقطة الشاشة:

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

---

قبول التعديلات التي تم تعقبها من مستخدم واحد معيّن باستخدام كود VBA

إذا بدت لك الطريقة السابقة معقدة، فهناك كود VBA بسيط يمكنه مساعدتك أيضًا. يُرجى اتباع الخطوات التالية:

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

2. انقر فوقإدراج > وحدة نمطية، ثم الصق ماكرو التالي في نافذة الوحدة النمطية.

كود VBA: قبول التعديلات التي تم تعقبها من مستخدم واحد:

Sub Acceptoneuser()
    For Each xChange In ActiveDocument.Revisions
        If xChange.Author = "RubyMie" Then
            xChange.Accept
        End If
    Next
End Sub

ملاحظة: في الكود أعلاه، يجب عليك تغيير اسم المستخدم "RubyMie" إلى اسمك الخاص حسب الحاجة.

3. بعد ذلك، اضغط على مفتاحF5 لتشغيل هذا الكود، وسيتم قبول التعديلات التي تم تعقُّبها من المراجع الذي حددته في الكود فقط، كما في لقطة الشاشة: