Skip to main content

كيفية قبول التغييرات المتعقبة من مستخدم محدد في مستند Word؟

Author: Xiaoyang Last Modified: 2025-05-30

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

Document with changes made by different people

قبول التغييرات المتعقبة من مستخدم محدد في Word

قبول التغييرات المتعقبة من مستخدم محدد باستخدام كود VBA


قبول التغييرات المتعقبة من مستخدم محدد في Word

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

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

All Reviewers checked on the Specific People dropdown

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

Specific person selected from the Specific People dropdown

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

Accept All Changes Shown option on the Accept dropdown

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

Track changes from this specific person are accepted

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

All Reviewers checked on the Specific People dropdown


قبول التغييرات المتعقبة من مستخدم محدد باستخدام كود 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 لتشغيل هذا الكود، وستتم الموافقة فقط على التغييرات المتعقبة من المراجع الذي حددته في الكود، انظر لقطة الشاشة:

Only the track changes from the reviewer you specified in the code are accepted

أفضل أدوات الإنتاجية لمكتبك

Kutools for Word – عزز تجربتك في Word مع أكثر من 100 ميزة مذهلة!

🤖 ميزات Kutools AI: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق (مع الحفاظ على التنسيق) / ترجمة فائقة (مع الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...

📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بصيغ متعددة (PDF/TXT/DOC/HTML...) / تحويل جماعي إلى PDF...

تحرير المحتوى: البحث والاستبدال الجماعي عبر عدة ملفات / تغيير حجم جميع الصور / تحويل الجدول بين الصفوف والأعمدة / تحويل الجدول إلى نص...

🧹 تنظيف بلا عناء: إزالة المسافات الزائدة / فواصل الأقسام / مربعات النص / الارتباطات التشعبية / للمزيد من أدوات الإزالة، توجه إلى مجموعة إزالة...

إدراجات إبداعية: إدراج فواصل الآلاف / مربعات اختيار / أزرار راديو / رمز QR / الباركود / صور متعددة / اكتشف المزيد في مجموعة إدراج...

🔍 تحديدات دقيقة: تحديد صفحات معينة / الجداول / الأشكال / فقرات العنوان / عزز التنقل مع المزيد من ميزات التحديد...

تحسينات مميزة: انتقل إلى أي موقع / إدراج تلقائي للنصوص المتكررة / التبديل بين نوافذ المستندات /11 أداة تحويل...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 هل ترغب في تجربة هذه الميزات؟ قم بتنزيل Kutools for Word الآن! 🚀