Note: The other languages of the website are Google-translated. Back to English

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

قم بتمييز جمل مزدوجة في المستند 1


أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (15)
تقييم شنومك من شنومكس · تصنيفات 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Tentei e não funcionou، só da que parou de funcionar.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حاولت ، وهي تعمل بشكل جيد!
أردت فقط أن أعرف - هل يمكنني أن أفعل نفس الشيء - لكن ليس فقرة كاملة ، ولكن جملة ببضع كلمات أعددتها - مثل 10 كلمات؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يطرح خطأ في الترجمة: خطأ نحوي ، الرمز هو 100٪ كمثال.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا

شكرا لك على المساعدة

لكن كيف يمكنني العثور على نفس الجمل في نصي؟

التحيات
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا



شكرا لك على المساعدة



لكن كيف يمكنني العثور على نفس الجمل في نصي؟



التحيات
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كان لدي مستند طويل جدًا لمعالجته ، سيستغرق الرمز أعلاه 100 يوم على الأقل للانتهاء وحظر كل شيء أثناء العمل فيه. الجاني الرئيسي هو "Set xRng = .Paragraphs (J) .Range" وهو بطيء جدًا. لقد قمت بعمل إصدار بديل تم تشغيله في 4 ساعات فقط ويقدم تقريرًا مستمرًا عن حالة المعالجة ووقت الانتهاء. (لمشاهدة التقرير في الوقت الفعلي ، يجب عليك فتح "النافذة الفورية" بالضغط على Ctrl + G في نافذة Microsoft Visual Basic for Applications.) تعمل الشفرة بشكل جيد ، إلا أنها تتوقع وقتًا أطول للانتهاء مما هو في الواقع حالة (حسب المستند). رمز على النحو التالي:

تسليط الضوء الفرعي ()
تعتيم StartTime ، الثواني ، انقضاء كتاريخ
ثوان خافتة مقارنة بمضاعفة
خافت I ، J ، PC ، إجمالي المقارنات ، المقارنات تم ، C ، ثوانٍ إلى الإنهاء طويلاً
خافت xRngFind ، xRng كنطاق
Dim xStrg ، minutesToFinish As String
تعتيم الصفحة الحالية ، nextParag كفقرة
'Options.DefaultHighlightColorIndex = wdYellow
Application.ScreenUpdating = خطأ
مع ActiveDocument
StartTime = الآن ()
C = 0
الكمبيوتر = .Paragraphs.Count
totalComparisons = CLng ((PC * (PC + 1)) / 2)
تعيين CurrentParag =. الفقرات (1)
بالنسبة لـ I = 1 To PC - 1
'Debug.Print "معالجة الفقرة" & I & "بإجمالي" & PC & "" & currentParag.Range.Text
Debug.Print Len (currentParag) & currentParag
إذا CurrentParag.Range.HighlightColorIndex <> wdYellow ثم
إذا كانت CurrentParag.Range.HighlightColorIndex <> wdBrightGreen ثم
اضبط nextParag = currentParag
بالنسبة لـ J = I + 1 To PC
تعيين nextParag = nextParag.Next
إذا CurrentParag.Range.Text = nextParag.Range.Text ثم
currentParag.Range.HighlightColorIndex = wdBrightGreen
nextParag.Range.HighlightColorIndex = wdYellow
Debug.Print "عثر على واحد !!" & "I =" & I & "J =" & J & nextParag.Range.Text
إنهاء حالة
التالى
إنهاء حالة
إنهاء حالة
تقوم الدالة DoEvents
المقارنات تم = PC * (I - 1) + (J - I)
SecondsElapsed = DateDiff ("s"، StartTime، Now ())
secondsPerComparison = CLng (SecondsElapsed) / المقارنات تم
secondsToFinish = CLng (secondsPerComparison * (إجمالي المقارنة - المقارنات تم))
minutesToFinish = تنسيق (secondsToFinish / 86400 ، "hh: mm: ss")
elapsedTime = التنسيق (SecondsElapsed / 86400 ، "hh: mm: ss")
Debug.Print "إنهاء معالجة الفقرة" & I & "من" & PC & ". الوقت المنقضي =" & elapsedTime & ". الوقت المنقضي =" & minutesToFinish
اضبط CurrentParag = currentParag.Next
التالى
انتهت ب
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سيدي ، شكراً جزيلاً لكم وأرجو أن تحلوا رياحاً طيبة في حياتك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لك ، إنه يعمل بشكل مثالي وسريع جدا!

Paul (من فرنسا)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك ، لقد حفظت يومي بالفعل مرتين. هذا العمل مثل السحر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً! شكرا جزيلا على هذا الرمز لك. عندما حاولت استخدامه لأول مرة ، كان هناك خطأ في بناء الجملة استمر في الظهور. ولكن ، عند النظر إلى الكود أعلاه وهذا الرمز ، وجدت طريقة لجعله يعمل واعتقدت أنه قد يساعد شخصًا آخر: (ما عليك سوى اتباع التعليمات أعلاه ولكن نسخها ولصقها بدلاً من ذلك) إذا وجدت أن رمزك يحتوي على خطأ نحوي مثل لي.

الكمبيوتر = .Paragraphs.Count
totalComparisons = CLng ((PC * (PC + 1)) / 2)
تعيين CurrentParag =. الفقرات (1)
بالنسبة لـ I = 1 To PC - 1
'Debug.Print "معالجة الفقرة" & I & "بإجمالي" & PC & "" & currentParag.Range.Text
Debug.Print Len (currentParag) & currentParag
إذا CurrentParag.Range.HighlightColorIndex <> wdYellow ثم
إذا كانت CurrentParag.Range.HighlightColorIndex <> wdBrightGreen ثم
اضبط nextParag = currentParag
بالنسبة لـ J = I + 1 To PC
تعيين nextParag = nextParag.Next
إذا CurrentParag.Range.Text = nextParag.Range.Text ثم
currentParag.Range.HighlightColorIndex = wdBrightGreen
nextParag.Range.HighlightColorIndex = wdYellow
Debug.Print "وجدت واحدة !!" & amp؛ "أنا =" & أمبير ؛ أنا & أمبير ؛ "J =" & أمبير ؛ ي & أمبير ؛ nextParag.Range.ext
إنهاء حالة
التالى
إنهاء حالة
إنهاء حالة
تقوم الدالة DoEvents
المقارنات تم = PC * (I - 1) + (J - I)
SecondsElapsed = DateDiff ("s"، StartTime، Now ())
secondsPerComparison = CLng (SecondsElapsed) / المقارنات تم
secondsToFinish = CLng (secondsPerComparison * (إجمالي المقارنة - المقارنات تم))
minutesToFinish = تنسيق (secondsToFinish / 86400 ، "hh: mm: ss")
elapsedTime = التنسيق (SecondsElapsed / 86400 ، "hh: mm: ss")
Debug.Print "إنهاء معالجة الفقرة" & amp؛ أنا & أمبير ؛ "من" & amp؛ الكمبيوتر وأمبير. ". الوقت المنقضي =" & amp؛ الوقت المنقضي ". الوقت للانتهاء =" & amp؛ minutesToFinish
اضبط CurrentParag = currentParag.Next
التالى
انتهت ب
نهاية الفرعية
تقييم شنومك من شنومكس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حاولت هذا لكتابي في MS Word. أولاً ، لن ينجح الأمر لأن لدي نقاطًا. أزلتها ثم وجدت حالتين فقط "صفحة فارغة" و "جدول محتويات". لقد تكررت عدة جمل عن قصد ، ولم أجدها هذه الماكرو. شكرًا على المحاولة ، لكنني سأقول أن هذا لا يعمل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لقد ساعدني مقال قيم للغاية في نسخي المكررة ولصق الفقرات! أنت رائع.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هل يمكن لأي شخص أن يقترح علي إعداد ماكرو في كلمة ms للعثور على خطأ في الفقرة.
مثل: - "و" "ذلك" من "" الجملة تنتهي بدون نقطة (.) "" الجملة الجديدة تبدأ بأحرف كبيرة أولية دون إنهاء الإرسال ".
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، mình chạy đoạn code trên nhưng không thấy ra kết quả giống bài viết، mình dùng word 2019، Ad support giúp mình nhé 
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك مساعدتي أنها لا تعمل ، هل يمكنك المساعدةhttps://1drv.ms/w/s!Aja8bo-tfhqb-FVWcGUyvYPv07cX?e=lgJ4i1
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL