كيفية نقل تسميات الجداول من الأعلى إلى الأسفل أو العكس في مستند Word؟
في مستند Word، إذا كان هناك العديد من الجداول التي تحتوي على تسميات تم إدراجها أسفل كل جدول. ولكن في بعض الأحيان، قد ترغب في نقل هذه التسميات من الأسفل إلى أعلى الجداول. كيف يمكنك التعامل مع هذه المهمة بشكل دفعي وبأسرع وقت ممكن؟
نقل تسميات الجداول من الأسفل إلى الأعلى أو العكس في Word باستخدام كود VBA
نقل تسميات الجداول من الأسفل إلى الأعلى أو العكس في Word باستخدام كود VBA
لنقل جميع تسميات الجداول من الأسفل إلى أعلى الجداول، سيساعدك الكود التالي لـ VBA، يرجى القيام بما يلي:
1. اضغط باستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.
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 for Word's Multiple Captions، يمكنك إدراج تسميات الجداول أو الصور أو المعادلات لجميع الجداول أو الصور أو المعادلات بسرعة كبيرة. Kutools for Word هو الإضافة النهائية لبرنامج Word التي تُبسّط عملك وتعزز مهاراتك في معالجة المستندات. احصل عليه الآن! |
أفضل أدوات الإنتاجية لمكتبك
Kutools for Word – عزز تجربتك في Word مع أكثر من 100 ميزة مذهلة!
🤖 ميزات Kutools AI: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق (مع الحفاظ على التنسيق) / ترجمة فائقة (مع الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...
📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تصدير التحديد بصيغ متعددة (PDF/TXT/DOC/HTML...) / تحويل جماعي إلى PDF...
✏ تحرير المحتوى: البحث والاستبدال الجماعي عبر عدة ملفات / تغيير حجم جميع الصور / تحويل الجدول بين الصفوف والأعمدة / تحويل الجدول إلى نص...
🧹 تنظيف بلا عناء: إزالة المسافات الزائدة / فواصل الأقسام / مربعات النص / الارتباطات التشعبية / للمزيد من أدوات الإزالة، توجه إلى مجموعة إزالة...
➕ إدراجات إبداعية: إدراج فواصل الآلاف / مربعات اختيار / أزرار راديو / رمز QR / الباركود / صور متعددة / اكتشف المزيد في مجموعة إدراج...
🔍 تحديدات دقيقة: تحديد صفحات معينة / الجداول / الأشكال / فقرات العنوان / عزز التنقل مع المزيد من ميزات التحديد...
⭐ تحسينات مميزة: انتقل إلى أي موقع / إدراج تلقائي للنصوص المتكررة / التبديل بين نوافذ المستندات /11 أداة تحويل...

أفضل أدوات الإنتاجية لمكتبك
Kutools for Word – أكثر من 100+ أداة لـ Word
- 🤖 ميزات Kutools AI: مساعد الذكاء الاصطناعي / مساعد الوقت الحقيقي / تلميع فائق / ترجمة فائقة / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي
- 📘 إتقان المستندات: تقسيم الصفحات / دمج المستندات / تحويل جماعي إلى PDF
- ✏ تحرير المحتوى: البحث والاستبدال الجماعي / تغيير حجم جميع الصور
- 🧹 تنظيف بلا عناء: إزالة المسافات الزائدة / إزالة فواصل الأقسام
- ➕ إدراجات إبداعية: إدراج فواصل الآلاف / إدراج مربعات اختيار / إنشاء رموز QR