كيفية العثور وتمييز الفقرات المكررة في مستند Word؟
لنفترض أن لديك مستند Word كبير يحتوي على مئات الصفحات، وتريد الآن التحقق مما إذا كانت هناك فقرات مكررة ثم تمييزها لجعلها بارزة، بحيث يمكنك التعامل مع الجمل المكررة. كيف يمكنك العثور وتمييز الفقرات المكررة بسرعة وسهولة في مستند Word؟
العثور وتمييز الفقرات المكررة في مستند Word باستخدام كود VBA
العثور وتمييز الفقرات المكررة في مستند Word باستخدام كود VBA
للعثور وتمييز الفقرات المكررة في مستند Word، يمكن للشفرة البرمجية VBA التالية مساعدتك، يرجى القيام بما يلي:
1. اضغط مع الاستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. وبعد ذلك، انقر فوق إدراج > وحدة، ثم انسخ والصق الكود أدناه في الوحدة الفارغة التي تم فتحها:
كود VBA: العثور وتمييز الفقرات المكررة في مستند Word:
Sub highlightdup()
Dim I, J As Long
Dim xRngFind, xRng As Range
Dim xStrFind, xStr As String
Options.DefaultHighlightColorIndex = wdYellow
Application.ScreenUpdating = False
With ActiveDocument
For I = 1 To .Paragraphs.Count - 1
Set xRngFind = .Paragraphs(I).Range
If xRngFind.HighlightColorIndex <> wdYellow Then
For J = I + 1 To .Paragraphs.Count
Set xRng = .Paragraphs(J).Range
If xRngFind.Text = xRng.Text Then
xRngFind.HighlightColorIndex = wdBrightGreen
xRng.HighlightColorIndex = wdYellow
End If
Next
End If
Next
End With
End Sub
3. وبعد ذلك اضغط على مفتاح F5 لتشغيل هذا الكود، سيتم تمييز جميع الجمل المكررة دفعة واحدة، الفقرات المكررة التي تظهر أولاً يتم تمييزها باللون الأخضر، والمكررات الأخرى يتم تمييزها باللون الأصفر، انظر إلى لقطة الشاشة:
أفضل أدوات الإنتاجية لمكتبك
Kutools for Word - ارتقِ بتجربتك في Word مع أكثر من 100 ميزة مذهلة!
🤖 ميزات الذكاء الاصطناعي في Kutools: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق (الحفاظ على التنسيق) / ترجمة فائقة (الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...
📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات متعددة (PDF/TXT/DOC/HTML...) / تحويل جماعي إلى PDF...
✏ تحرير المحتوى: البحث والاستبدال الجماعي عبر ملفات متعددة / تغيير حجم جميع الصور / تحويل الجدول بين الصفوف والأعمدة / تحويل الجدول إلى نص...
🧹 تنظيف سهل: أزل المسافات الزائدة / فواصل الأقسام / مربعات النص / الروابط التشعبية / لمزيد من أدوات الإزالة، توجه إلى مجموعة إزالة...
➕ إدراجات إبداعية: إدراج فواصل الآلاف / مربعات اختيار / أزرار راديو / رمز QR / الباركود / صور متعددة / اكتشف المزيد في مجموعة إدراج...
🔍 تحديدات دقيقة: تحديد الصفحات المحددة / الجداول / الأشكال / فقرات العناوين / عزز التنقل مع المزيد من ميزات التحديد ...
⭐ تحسينات مميزة: انتقل إلى أي موقع / إدراج تلقائي للنص المتكرر / التبديل بين نوافذ المستند /11 أداة تحويل...
🌍 يدعم أكثر من40 لغة: استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية وأكثر من40 لغة أخرى!

أفضل أدوات الإنتاجية لمكتبك
Kutools for Word - 100+ أداة لـ Word
- 🤖 ميزات الذكاء الاصطناعي في Kutools: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق / ترجمة فائقة / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي
- 📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تحويل جماعي إلى PDF
- ✏ تحرير المحتوى: البحث والاستبدال الجماعي / تغيير حجم جميع الصور
- 🧹 تنظيف سهل: إزالة المسافات الزائدة / إزالة فواصل الأقسام
- ➕ إدراجات إبداعية: إدراج فواصل الآلاف / إدراج مربعات اختيار / إنشاء رموز QR
- 🌍 يدعم أكثر من40 لغة: Kutools يتحدث لغتك – أكثر من40 لغة متوفرة!