انتقل إلى المحتوى الرئيسي

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

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

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


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

لنقل جميع تعليقات الجدول من أسفل إلى أعلى الجداول ، تفضل باستخدام رمز VBA التالي ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

مستند نقل الجدول التوضيحي 1

ملاحظات: لنقل تسميات الجدول من أعلى إلى أسفل كل جدول ، يرجى تطبيق رمز 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 للكلمة's تعليق متعدد يمكنك إدراج جدول أو صورة أو تعليق معادلة لجميع الجداول أو الصور أو المعادلات في أسرع وقت ممكن.

مستند نقل الجدول التوضيحي 2

كوتولس للكلمة: مع أكثر من 100 وظيفة إضافية مفيدة في Word ، يمكنك تجربتها مجانًا دون قيود في أيام 60. انقر للتنزيل والتجربة المجانية الآن!

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

كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!

تعمق في الميزات المميزة أدناه أو انقر هنا لاستكشاف القوة الكاملة لـ Kutools for Word.

📘 إتقان الوثيقة: تقسيم الصفحات  /  دمج المستندات  /  تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/XLSX)  /  دفعة تحويل إلى PDF  /  تصدير الصفحات كصور  /  طباعة ملفات متعددة في وقت واحد 

تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة   /  تغيير حجم كافة الصور   /  تبديل صفوف وأعمدة الجدول  /  تحويل الجدول إلى نص 

🧹 تنظيف سهلاكتساح بعيدا مساحات اضافية  /  فواصل القسم  /   كل الرؤوس  /  مربعات النص  /  الارتباطات التشعبية  /  لمزيد من أدوات الإزالة، توجه إلى مجموعة الإزالة الخاصة بنا

إدراجات إبداعية: إدراج الف فاصل  /  مربعات الاختيار  /  أزرار الراديو  /  رمز الاستجابة السريعة  /  الباركود  /  جدول الخط القطري  /  شرح المعادلة  /  صورة توضيحية  /  الجدول التوضيحي  /  صور متعددة  /  اكتشف المزيد في مجموعة الإدراج الخاصة بنا

🔍 التحديدات الدقيقة: تحديد صفحات محددة  /  الجداول  /  الأشكال  /  فقرات العناوين  /  تنقل بسهولة باستخدام مجموعة Select الخاصة بنا

تحسينات النجوم: انتقل بسرعة إلى أي مكان  /  الإدراج التلقائي للنص المتكرر  /  التبديل بسلاسة بين نوافذ المستندات  /  11 أدوات التحويل 

قم بتحويل مهام Word الخاصة بك باستخدام Kutools. 👉 قم بالتنزيل مع نسخة تجريبية مدتها 30 يومًا الآن 🚀.

 
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations