كيفية البحث عن الفقرات المكررة وتمييزها في مستند Word؟
لنفترض أن لديك مستند Word كبيرًا قد يحتوي على مئات الصفحات ، الآن ، تريد التحقق مما إذا كانت هناك فقرات مكررة ثم قم بتمييزها لجعلها مميزة ، بحيث يمكنك التعامل مع الجمل المكررة. كيف يمكنك العثور على الفقرات المكررة وتمييزها بسرعة وسهولة في مستند Word؟
ابحث عن الفقرات المكررة وقم بتمييزها في مستند Word باستخدام رمز VBA
ابحث عن الفقرات المكررة وقم بتمييزها في مستند Word باستخدام رمز VBA
للعثور على الفقرات المكررة وتمييزها في مستند Word ، يمكن أن تقدم لك تعليمات VBA التالية خدمة ، يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. ثم انقر فوق إدراج > وحدة، انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة:
رمز فبا: ابحث عن الفقرات المكررة في مستند 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 المفتاح لتشغيل هذا الرمز ، يتم تمييز جميع الجمل المكررة مرة واحدة ، ويتم تمييز الفقرات الأولى المكررة المعروضة باللون الأخضر ، ويتم تمييز التكرارات الأخرى باللون الأصفر ، انظر لقطة الشاشة:
أدوات إنتاجية Word الموصى بها
Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪
- يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
- أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
- دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
- قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
- قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
