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

كيفية إزالة الصفوف والأعمدة الفارغة من الجداول في Word؟

كيف يمكنك إزالة جميع الصفوف والأعمدة الفارغة من الجداول في Word؟ سيوضح لك هذا البرنامج التعليمي عدة طرق لإزالة الصفوف والأعمدة الفارغة من الجداول في مستند Word.

قم بإزالة جميع الصفوف والأعمدة الفارغة يدويًا من الجداول

قم بإزالة كافة الصفوف والأعمدة الفارغة من الجداول باستخدام التعليمات البرمجية لـ VBA

قم بإزالة جميع الصفوف والأعمدة الفارغة من الجداول بنقرة واحدةفكرة جيدة 3


قم بإزالة جميع الصفوف والأعمدة الفارغة يدويًا من الجداول

لا يوفر Microsoft Office Word طريقة ملائمة لإزالة الصفوف والأعمدة الفارغة ، وتحتاج إلى إزالتها عن طريق تحديد كل صف وعمود فارغ يدويًا ثم حذفهما واحدًا تلو الآخر.

الخطوة 1: حدد الصف الفارغ أو العمود الفارغ الذي تريد حذفه. انظر لقطة الشاشة:

doc-removerowsandcols-1

الخطوة شنومكس: تحت طاولة أدوات ، انقر فوق تصميم التبويب؛

doc-removerowsandcols-2

الخطوة 4: في ملف صفوف الأعمدة مجموعة، انقر فوق حذف الصفوف أو حذف الأعمدة.

doc-removerowsandcols-3


قم بإزالة كافة الصفوف والأعمدة الفارغة من الجداول باستخدام التعليمات البرمجية لـ VBA

توفر وظيفة الماكرو في Word طريقة أكثر ملاءمة لإزالة جميع الصفوف والأعمدة الفارغة من الجداول في المستند. يمكنك إزالة جميع الصفوف والأعمدة الفارغة كما يلي.

الخطوة شنومك: اضغط "Alt-F11" لفتح نافذة Microsoft Visual Basic for Application ؛

الخطوة شنومك: انقر وحدة على إدراج علامة التبويب ، انسخ والصق رمز فبا التالي في نافذة الوحدة النمطية ؛

الخطوة 3: ثم انقر فوق يجريدوك-عكس-تسجيل -6 زر لتطبيق VBA.

كود فبا لإزالة كل الصفوف والأعمدة الفارغة من الجداول:

حذف فرعيإفراغ تابليرووس وأعمدة ()
Application.ScreenUpdating = خطأ
Dim Tbl كجدول ، cel As Cell ، i طويل ، n طويل ، فارغ مثل Boolean
مع ActiveDocument
لكل Tbl In. Tables
ن = Tbl.Columns.Count
بالنسبة إلى i = n إلى 1 الخطوة -1
fEmpty = صحيح
لكل سل في Tbl.Columns (i) .Cells
إذا كان Len (cel.Range.Text)> 2 ثم
fEmpty = خطأ
خروج عن
إنهاء حالة
التالي سل
إذا كان fEmpty = True ثم Tbl.Columns (i). احذف
أنا القادم
التالي Tbl
انتهت ب
مع ActiveDocument
لكل Tbl In. Tables
ن = Tbl.Rows.Count
بالنسبة إلى i = n إلى 1 الخطوة -1
fEmpty = صحيح
لكل سل في خلايا الصفوف (ط)
إذا كان Len (cel.Range.Text)> 2 ثم
fEmpty = خطأ
خروج عن
إنهاء حالة
التالي سل
إذا كان fEmpty = True ثم Tbl.Rows (i). احذف
أنا القادم
التالي Tbl
انتهت ب
تعيين cel = لا شيء: تعيين Tbl = لا شيء
Application.ScreenUpdating = ترو
نهاية الفرعية


قم بإزالة جميع الصفوف والأعمدة الفارغة من الجداول بنقرة واحدة

يوفر لك Kutools for Word الطريقة الأكثر ملاءمة لإزالة جميع الصفوف والأعمدة الفارغة من الجداول في المستند. ما عليك سوى النقر مرة واحدة ، و كوتولس للكلمة' س Delete Rows/Columns ستزيل الأداة المساعدة جميع الصفوف والأعمدة الفارغة من جميع الجداول أو الجداول المحددة لك بسرعة.

كوتولس للكلمة, مع أكثر من 100 وظائف يدوية ، تجعل مهامك أسهل. 

بعد تثبيت Kutools for Word ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Word الآن!)

1. انقر كوتولس بلس > Delete Rows/Columns على Table الجزء.

قم بإزالة أعمدة الصفوف الفارغة من الجدول 1

2. ثم ينبثق مربع حوار ، اختر النطاق الذي تريد إزالة الجداول منه في قسم "بحث في" ، ثم تحقق صف الخيار و صف فارغ الخيار ، أو الاختيار عمود الخيار و صف فارغ خيار ما تحتاجه. إذا كنت تريد حذف جميع الصفوف والأعمدة الفارغة ، فستحتاج إلى تطبيق هذه العملية مرتين.

doc kutools إزالة الصفوف الفارغة 2  doc kutools إزالة الصفوف الفارغة 3 

الآن ينبثق مربع حوار لتذكيرك بعدد الجداول التي تم التعامل معها ، انقر فوق OK للإغلاق ، وتمت إزالة الصفوف والأعمدة الفارغة من الجداول.
doc kutools إزالة الصفوف الفارغة 4

تلميح.إذا كنت تريد إزالة الصفوف الفارغة من ورقة Excel ، فإن ملف حذف الصفوف الفارغة يمكن أن تساعدك فائدة Kutools for Excel.


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

 

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

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (15)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا بالمطورين - لدي هذا الماكرو الذي يجلس في زر وعند النقر عليه (الماكرو) يزيل الجدول مباشرة فوق الزر. هل يمكن إصلاح ذلك بحيث يعمل الماكرو مرة واحدة فقط؟ بمعنى آخر. إذا كان هناك جدولان في المستند ، فسيتم حذف واحد فقط - ثم يتوقف الماكرو عن العمل ... هل يمكنك تقديم المشورة؟ جدول فرعي حذف () '' tableDelete Macro 'Dim nTables As Integer nTables = ActiveDocument.Tables.Count ActiveDocument.Tables (nTables) .Delete' End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] مرحبًا بالمطورين - لدي هذا الماكرو الموجود في زر وعند النقر عليه (الماكرو) يزيل الجدول الموجود أعلى الزر مباشرةً. هل يمكن إصلاح ذلك بحيث يعمل الماكرو مرة واحدة فقط؟ بمعنى آخر. إذا كان هناك جدولان في المستند ، فسيتم حذف واحد فقط - ثم يتوقف الماكرو عن العمل ... هل يمكنك تقديم المشورة؟ جدول فرعي حذف () خافت جداول nTables كعدد صحيح nTables = ActiveDocument.Tables.Count ActiveDocument.Tables (nTables). حذف End Subبقلم آندي هاريس[/ quote] يرجى محاولة استخدام VBA لحذف جميع الجداول من المستند الحالي في Word. جدول فرعي حذف () تعتيم جدول كجدول لكل جدول في ActiveDocument.Tables aTable.Delete Next End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على الماكرو. هذا يعمل كالسحر!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا على الماكرو ، لقد كان مفيدًا حقًا ..
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك ماكرو سيحذف صفًا إذا كانت إحدى الخلايا في هذا الصف فارغة أو تحتوي على صفر؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على الكود ، مفيد حقا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا بالجميع ، أبحث عن وظيفة في كلمة حيث ، إذا قمت بإزالة كلمة معينة ، فيجب إزالة هذا الصف أيضًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، الماكرو يعمل ، لكن:

بعد حذف جميع الصفوف ، يتم فتح جميع أعمدة الجداول ذات الصفوف الفارغة على مصراعيها.

كيف يمكنني إصلاح الكود حتى لا يحدث هذا؟


أنا أستخدم Office 2016.


شكرا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنت تعلم أنه يمكنك فقط تغيير حجم الجدول ، أليس كذلك؟ ما عليك سوى تصفية بياناتك وفرزها لأعلى ، تحقق من عدد الصفوف التي تحتوي على بيانات ، وانقر فوق أدوات الجدول ثم انقر فوق تغيير الحجم وضبط الرقم الأخير على ما تحتاجه أو انتقل إلى أسفل الجدول إلى الخلية الأخيرة واستخدم المثلث الأزرق الصغير من أجل السحب وتغيير الحجم ،
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماعدا لدي وثيقة متعددة الصفحات مع جدول مع معلومات مختلفة في كل منها. علاوة على ذلك ، فهو مستند دمج مختلف تمامًا كل أسبوع. أحتاج إلى طريقة آلية :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد وفرت لي مليون ساعة من الإحباط ، شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد وجدت هذا الماكرو وهو يعمل بشكل رائع عندما يتعلق الأمر بجدول به صفوف فارغة واحدة.
هل من الممكن تغييره للعمل على جدول به صفوف مقسمة أيضًا؟
أود أن أشكرك كثيرًا إذا كان لديك حل من أجلي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا شمعون ، لا أفهم سؤالك ، من فضلك أعطني أمثلة أو صف السؤال بمزيد من التفاصيل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

Quand j'exécute le program، l'erreur suivante s'affiche "Erreur de compilation: Instruction false à l'extérieur d'une procédure"

Quelqu'un a une solution s'il vous plait؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، شكرًا على CODE ، لقد عملت على مستند مع جدول واحد فقط.

ولكن عند تشغيله على مستند Word بجداول مختلفة من أحجام مختلفة ، تلقيت هذا الخطأ: "خطأ وقت التشغيل" 5992 "لا يمكن الوصول إلى الأعمدة الفردية في هذه المجموعة لأن الجدول يحتوي على عرض خلايا مختلط"

يمكن لأي شخص أن يساعد ، من فضلك
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة