إزالة صف مكرر من جدول في مستند Word (دليل كامل)

يمكن أن يؤدي وجود صف مكرر في جدول Word إلى جعل مستندك مشوّشًا وغير احترافي ويصعب تحليله—خاصةً عند التعامل مع بيانات منسوخة أو تقارير مستوردة أو نتائج استبيانات. وللأسف، لا يوفّر Microsoft Word ميزة مدمجة باسم «إزالة التكرارات» للجداول كما يفعل Excel.
الخبر السار؟ لا يزال لديك عدة طرق موثوقة لتنظيف الصفوف المكررة في Word. فيما يلي ثلاث طرق عملية، من البسيطة المناسبة للمبتدئين إلى الأتمتة المتقدمة، مع تعليمات واضحة خطوة بخطوة.

إزالة صف مكرر من جدول في Word

• الطريقة 1: باستخدام Excel من جدول واحد
• الطريقة 2: باستخدام كود VBA من جدول واحد أو من جميع الجداول
• الطريقة 3: باستخدام Kutools for Word من جدول واحد أو من جميع الجداول

الخاتمة

الطريقة 1: إزالة صف مكرر باستخدام Excel

بما أن Microsoft Excel مصمم خصيصًا لإدارة البيانات، فإن الطريقة الأكثر موثوقية للتعامل مع التكرارات هي نقل جدولك مؤقتًا إلى Excel ثم إعادته.

1. انسخ الجدول:
   في Word، مرِّر مؤشر الفأرة فوق جدولك وانقر على رمز الصليب في الزاوية العلوية اليسرى لتحديد الجدول بالكامل، ثم اضغطCtrl + C.
   
2. الصق في Excel:
   افتح مصنف Excel فارغًا، وحدد الخلية A1، ثم اضغط Ctrl + V.
3. إزالة التكرارات في Excel:
   • قم بتمييز نطاق البيانات المطلوب.
   • انتقل إلى علامة التبويببياناتفي الشريط العلوي.
   • انقر علىإزالة التكراراتفي مجموعةبياناتضمن علامة تبويبأدوات.
   • تأكد من تحديد جميع الأعمدة، ثم انقرموافق.
     
   • سيعرض Excel عدد صف مكرر التي تم إزالتها.
     
4. النقل مرة أخرى:
   انسخ البيانات المُنظَّفة من Excel، وعُد إلى مستند Word الخاص بك، واحذف الجدول القديم، ثم اضغط Ctrl + V للصق الصفوف الفريدة.

الطريقة 2: إزالة صف مكرر باستخدام كود VBA (من جدول واحد أو من جميع الجداول)

إذا كنت تتعامل غالبًا مع جداول Word كبيرة وترغب في أتمتة المهام داخل المستند نفسه، فإن VBA يُعد خيارًا مثاليًا. تتيح لك هذه الطريقة مقارنة الصفوف وحذف التكرارات مباشرةً داخل Word.

يسمح لك كود VBA هذا بإزالة صف مكرر من جدول معيّن أو من جميع الجداول في مستند Word الحالي، مع الاحتفاظ بالحدوث الأول فقط لكل صف فريد.

1. اضغطAlt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقرإدراج>وحدة نمطيةلإنشاء وحدة جديدة، انسخ والصق كود VBA التالي في نافذة الوحدة النمطية.

   Public Sub DeleteDuplicateRowsClean()
       Dim xTable As Table
       Dim xDic As Object
       Dim i As Long, j As Long
       Dim xStr As String
   
       If ActiveDocument.Tables.Count = 0 Then
           MsgBox "There is no table in this file", vbInformation, "Kutoolsfor word"
           Exit Sub
       End If
   
       Set xDic = CreateObject("Scripting.Dictionary")
       Application.ScreenUpdating = False
       If Selection.Information(wdWithInTable) Then
           ProcessTable Selection.Tables(1), xDic
       Else
           For i = 1 To ActiveDocument.Tables.Count
               ProcessTable ActiveDocument.Tables(i), xDic
               xDic.RemoveAll
           Next i
       End If
   
       Application.ScreenUpdating = True
       MsgBox "Complete!", vbInformation
   End Sub
   
   
   Private Sub ProcessTable(targetTable As Table, dic As Object)
       Dim r As Long
       Dim rowText As String
   
       For r = targetTable.Rows.Count To 1 Step -1
           rowText = targetTable.Rows(r).Range.Text
           If dic.Exists(rowText) Then
               targetTable.Rows(r).Delete
           Else
               dic.Add rowText, True
           End If
       Next r
   End Sub
         

3. أغلق نافذة الكود، وقم بأحد الخيارين التاليين:
   • لإزالة التكرارات من جدول معيّن:
     انقر في أي مكان داخل الجدول الذي تريد معالجته.
   • لإزالة التكرارات من جميع الجداول:
     تأكد من أن المؤشر ليس داخل أي جدول.
4. اضغطAlt + F8، وحدد ماكروDeleteDuplicateRowsClean، ثم انقرتشغيل.

النتيجة:
سيتم حذف الصف المكرر تلقائيًا من الجدول المحدد أو من جميع الجداول في المستند.

Public Sub DeleteDuplicateRowsIgnoreCase()
    Dim xTable As Table
    Dim xDic As Object
    Dim i As Long

    If ActiveDocument.Tables.Count = 0 Then
        MsgBox "There are no tables", vbInformation, "Kutoolsfor word"
        Exit Sub
    End If
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1

    Application.ScreenUpdating = False

    If Selection.Information(wdWithInTable) Then
        ProcessTable Selection.Tables(1), xDic
    Else
        For i = 1 To ActiveDocument.Tables.Count
            xDic.RemoveAll
            ProcessTable ActiveDocument.Tables(i), xDic
        Next i
    End If

    Application.ScreenUpdating = True
    MsgBox "complete", vbInformation
End Sub

Private Sub ProcessTable(targetTable As Table, dic As Object)
    Dim r As Long
    Dim rowText As String
    For r = targetTable.Rows.Count To 1 Step -1
        rowText = targetTable.Rows(r).Range.Text
        If dic.Exists(rowText) Then
            targetTable.Rows(r).Delete
        Else
            dic.Add rowText, True
        End If
    Next r
End Sub
    

الطريقة 3: إزالة صف مكرر / الأعمدة باستخدام Kutools for Word (من جدول واحد أو من جميع الجداول)

إذا كنت تبحث عن أسرع طريقة وأسهلها للاستخدام لإزالة صف مكرر في جداول Word، فإن Kutools for Word هو الحل المثالي. على عكس الطرق اليدوية أو نصوص VBA، يوفّر Kutools ميزة تتيح لك تنظيف البيانات من جدول واحد أو من جميع الجداول في المستند بنقرات قليلة فقط. لا حاجة لكتابة أكواد، ولا نسخ إلى Excel، ولا إعدادات معقدة—مما يجعله مناسبًا بشكل خاص للمستخدمين الذين يعملون غالبًا مع جداول كبيرة أو متعددة ويرغبون في نتائج دقيقة فورًا.

بعد تنزيل وتثبيت Kutools for Word، يُرجى اتباع الخطوات التالية:

1. انتقل إلى علامة التبويبKUTOOLS PLUS، ثم انقرجدول > حذف الصفوف/الأعمدة الفارغةلفتح مربع الحوار.
   
2. في مربع الحوارحذف الصفوف/الأعمدة الفارغة أو صف مكررفي الجدول، حدد الخيارات التالية:
   1. اختر النطاق (البحث في)
      في قائمة «البحث في» قائمة منسدلة، اختر أحد الخيارات التالية:
      • الجدول المحدد(s) – يزيل الصفوف المكررة من الجداول التي قمت بتحديدها فقط.
      • جميع الجداول في المستند النشط – يُزيل الصفوف المكرَّرة من جميع الجداول في المستند الحالي.
   2. حدّد نوع الحذف، ثم اخترصفأوعمودالذي تريد حذفه.
   3. حدد صفًا أو عمودًا للتعبير عن رغبتك في إزالة الصفوف أو الأعمدة المكررة.
   4. اضبط الخيارات الاختيارية
      • حساسية الحالة (اختياري):
        فعّل هذا الخيار إذا أردت أن يتعامل Kutools مع النصوص التي تختلف في حالة الأحرف كقيم منفصلة.
      • حذف الصفوف الفارغة (اختياري):
        فعّل هذا الخيار إذا كنت ترغب في إزالة الصفوف الفارغة في الوقت نفسه.
   5. انقرموافق.
      

النتيجة:
سيقوم Kutools فورًا بفحص الجدول (أو الجداول) المحددة وإزالة الصفوف أو الأعمدة المكررة التي حددتها.

الخاتمة

يمكن أن يكون إزالة الصفوف المكررة من الجداول في Word أمرًا صعبًا، نظرًا لعدم توفّر أداة مدمجة لذلك. ومع ذلك، وباستخدام الطريقة المناسبة، يمكنك تنظيف بياناتك بكفاءة ودقة.

• يُعد استخدام Excel خيارًا موثوقًا للعمل مع جدول واحد ومعالجة كميات كبيرة من البيانات، خاصةً إذا كنت تفضّل نهجًا مألوفًا ولا يتطلب كتابة أكواد.
• يُعد استخدام كود VBA خيارًا مثاليًا للمستخدمين المتقدمين الراغبين في أتمتة عملية إزالة الصفوف المكررة من جدول واحد أو من جميع الجداول، لكنه يتطلب معرفة تقنية ومستندات مفعّلة للماكرو.
• يُعد استخدام Kutools for Word الحل الأسرع والأكثر سهولة، حيث يمكّنك من إزالة الصفوف المكررة من جدول واحد أو من جميع الجداول بنقرات قليلة فقط—بدون الحاجة إلى Excel أو VBA.

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