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

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

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

---

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

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

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

2. انقر علىإدراج > وحدة البرمجة (Module)، ثم الصق ماكرو التالي في نافذة الوحدة.

نقل تسمية توضيحية للجدول من الأسفل إلى الأعلى في مستند 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 for Word، يمكنك إدراج التسميات التوضيحية لجميع الجداول والصور والمعادلات دفعة واحدة وبأقصى سرعة! هل تبحث عن طريقة أسرع للتعامل مع المهام المتكررة في Word؟ جرّب Kutools for Word واجعل عملك اليومي أكثر سهولة! تنزيلمعرفة المزيد