Skip to main content

كيفية نقل تسميات الجداول من الأعلى إلى الأسفل أو العكس في مستند Word؟

Author: Xiaoyang Last Modified: 2025-05-30

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

نقل تسميات الجداول من الأسفل إلى الأعلى أو العكس في Word باستخدام كود VBA


نقل تسميات الجداول من الأسفل إلى الأعلى أو العكس في Word باستخدام كود VBA

لنقل جميع تسميات الجداول من الأسفل إلى أعلى الجداول، سيساعدك الكود التالي لـ VBA، يرجى القيام بما يلي:

1. اضغط باستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق ما يلي من الماكرو في نافذة الوحدة.

نقل تسميات الجداول من الأسفل إلى الأعلى في مستند Word

Sub ReLabelDownToUpTables()
    Dim I As Long
    Dim xRngPre As Range
    Dim xRngNext As Range
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = .Tables.Count To 1 Step -1
            With .Tables(I).Range
                Set xRngPre = .Characters.First.Previous.Characters.Last
                xRngPre.Select
                Set xRngNext = .Characters.Last.Next.Paragraphs.First.Range
                xRngNext.Select
                With xRngPre
                    .InsertBefore vbCr
                    .Style = xRngNext.Style
                    .Start = .End - 1
                    .End = .Start
                End With
                If Len(xRngNext.Text) > 1 Then
                    xRngNext.End = xRngNext.End - 1
                    xRngNext.Cut
                    xRngNext.Delete
                    xRngPre.Paste
                Else
                    xRngNext.Delete
                End If
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

3. بعد ذلك، اضغط على مفتاح F5 لتشغيل هذا الكود، وستتم عملية نقل جميع تسميات الجداول من الأسفل إلى أعلى الجداول، انظر إلى لقطة الشاشة:

All table captions are moved from below to above

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

نقل تسميات الجداول من الأعلى إلى الأسفل في مستند Word

Sub ReLabelUpToDownTables()
    Dim I As Long
    Dim xRngPre As Range
    Dim xRngNext As Range
    Application.ScreenUpdating = False
    With ActiveDocument
        For I = .Tables.Count To 1 Step -1
            With .Tables(I).Range
                Set xRngNext = .Characters.First.Previous.Paragraphs.First.Range
                xRngNext.Select
                Set xRngPre = .Characters.Last.Next
                xRngPre.End = xRngPre.End - 1
                xRngPre.Select
                With xRngPre
                    .InsertBefore vbCr
                    .Style = xRngNext.Style
                    .Start = .End - 1
                    .End = .Start
                End With
                If Len(xRngNext.Text) > 1 Then
                    xRngNext.End = xRngNext.End - 1
                    xRngNext.Cut
                    xRngNext.Delete
                    xRngPre.Paste
                Else
                    xRngNext.Delete
                End If
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

إدراج تسميات متعددة للجداول أو الصور أو المعادلات في مستند Word دفعة واحدة

عادةً، يجب عليك إدراج تسميات الجداول أو الصور أو المعادلات واحدًا تلو الآخر في ملف Word. ولكن إذا كنت تستخدم ميزة Kutols for Word's Multiple Captions، يمكنك إدراج تسميات الجداول أو الصور أو المعادلات لجميع الجداول أو الصور أو المعادلات بسرعة كبيرة.

Batch Insert Captions

Kutools for Word هو الإضافة النهائية لبرنامج Word التي تُبسّط عملك وتعزز مهاراتك في معالجة المستندات. احصل عليه الآن!

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

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 الآن! 🚀