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

ملاحظة: لنقل تسميات الجدول من أعلى إلى أسفل كل جدول ، يرجى تطبيق رمز 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 تعليق متعدد يمكنك إدراج جدول أو صورة أو تعليق معادلة لجميع الجداول أو الصور أو المعادلات في أسرع وقت ممكن. كوتولس للكلمة: مع أكثر من 100 وظيفة إضافية مفيدة في Word ، يمكنك تجربتها مجانًا دون قيود في أيام 60. انقر للتنزيل والتجربة المجانية الآن!