Note: The other languages of the website are Google-translated. Back to English

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

doc move table caption 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 تعليق متعدد يمكنك إدراج جدول أو صورة أو تعليق معادلة لجميع الجداول أو الصور أو المعادلات في أسرع وقت ممكن.

doc move table caption 2

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


أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL