كيفية نقل تسميات الجدول من أعلى إلى أسفل أو العكس في مستند Word؟
في مستند Word ، إذا كان هناك العديد من الجداول التي تحتوي على تسميات توضيحية أسفل كل جدول. لكن في بعض الأحيان ، قد ترغب في نقل هذه التسميات التوضيحية من أسفل إلى أعلى الجداول. كيف يمكنك التعامل مع هذه الوظيفة بشكل مجمّع بأسرع ما يمكن؟
انقل تسميات الجدول التوضيحية من الأسفل إلى الأعلى أو العكس في 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. انقر للتنزيل والتجربة المجانية الآن! |
أفضل أدوات إنتاجية المكتب
كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!
🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى / إعادة كتابة النص / تلخيص المستندات / الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word
📘 إتقان الوثيقة: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/HTML...) / دفعة تحويل إلى PDF / تصدير الصفحات كصور / طباعة ملفات متعددة في وقت واحد
✏ تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة / تغيير حجم كافة الصور / تبديل صفوف وأعمدة الجدول / تحويل الجدول إلى نص
🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية / فواصل القسم / كل الرؤوس / مربعات النص / الارتباطات التشعبية / لمزيد من أدوات الإزالة، توجه إلى موقعنا إزالة المجموعة
➕ إدراجات إبداعية: إدراج الف فاصل / مربعات الاختيار / أزرار الراديو / رمز الاستجابة السريعة / الباركود / جدول الخط القطري / شرح المعادلة / صورة توضيحية / الجدول التوضيحي / صور متعددة / اكتشف المزيد في أدخل المجموعة
🔍 التحديدات الدقيقة: يحدد بدقة صفحات محددة / الجداول / الأشكال / فقرات العناوين / تحسين التنقل باستخدام الأكثر من ذلك حدد الميزات
⭐ تحسينات النجوم: انتقل بسرعة إلى أي مكان / الإدراج التلقائي للنص المتكرر / التبديل بسلاسة بين نوافذ المستندات / 11 أدوات التحويل