انتقل إلى المحتوى الرئيسي

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

المؤلف: أماندا لي آخر تعديل: 2020-08-21

كيف يمكنك إزالة جميع الصفوف والأعمدة الفارغة من الجداول في 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 ستزيل الأداة المساعدة جميع الصفوف والأعمدة الفارغة من جميع الجداول أو الجداول المحددة لك بسرعة.

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

بعد تثبيت 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.

أفضل أدوات إنتاجية المكتب

كوتولس للكلمة - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!

🤖 مساعد كوتولس AI: تحويل كتابتك باستخدام الذكاء الاصطناعي - توليد المحتوى  /  إعادة كتابة النص  /  تلخيص المستندات  /  الاستفسار عن المعلومات على أساس الوثيقة، كل ذلك داخل Word

📘 إتقان الوثيقة: تقسيم الصفحات  /  دمج المستندات  /  تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/HTML...)  /  دفعة تحويل إلى PDF  /  تصدير الصفحات كصور  /  طباعة ملفات متعددة في وقت واحد

تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة  /  تغيير حجم كافة الصور  /  تبديل صفوف وأعمدة الجدول  /  تحويل الجدول إلى نص

🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية  /  فواصل القسم  /  كل الرؤوس  /  مربعات النص  /  الارتباطات التشعبية  / لمزيد من أدوات الإزالة، توجه إلى موقعنا إزالة المجموعة

إدراجات إبداعية: إدراج الف فاصل  /  مربعات الاختيار  /  أزرار الراديو  /  رمز الاستجابة السريعة  /  الباركود  /  جدول الخط القطري  /  شرح المعادلة  /  صورة توضيحية  /  الجدول التوضيحي  /  صور متعددة  / اكتشف المزيد في أدخل المجموعة

🔍 التحديدات الدقيقة: يحدد بدقة صفحات محددة  /  الجداول  /  الأشكال  /  فقرات العناوين  / تحسين التنقل باستخدام الأكثر من ذلك حدد الميزات

تحسينات النجوم: انتقل بسرعة إلى أي مكان  /  الإدراج التلقائي للنص المتكرر  /  التبديل بسلاسة بين نوافذ المستندات  /  11 أدوات التحويل

؟؟؟؟ هل تريد تجربة هذه الميزات؟ يقدم Kutools for Word أ الإصدار التجريبي المجاني من 60 يومًا، بلا حدود! 🚀
 
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi
Many many thanks. Its 100% worked.
This comment was minimized by the moderator on the site
Hi, thanks for the CODE, it worked on a document with only one table.

but when launching it on a word document with different tables from different sizes, i got this error : "Run-time error '5992' Cannot access individual columns in this collection because the table has mixed cell widths"

Can anybody help, please
This comment was minimized by the moderator on the site
Bonjour,

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

Quelqu'un a une solution s'il vous plait ?
This comment was minimized by the moderator on the site
I found this macro and it works great when it comes to a table with single empty rows.
Is it possible to change it to work on a table with split rows as well?
I would very much thank you if you have a solution for me.
This comment was minimized by the moderator on the site
Hi, shimon, I don't not understand your question, please give me examples or describe the question with more details.
This comment was minimized by the moderator on the site
You just saved me a zillion hours of frustration, THANK YOU!
This comment was minimized by the moderator on the site
u know you can just resize the table right? just filter and sort your data to top check how many rows have data, click table tools and the click resize and adjust the last number to whatever you need OR go to the bottom of the table the very last cell and use the tine blue triangle to drag and resize,
This comment was minimized by the moderator on the site
Except I have multiple page document with a table with varying information in each. Furthermore, it is a merge document so different each week. I need an automated method :)
This comment was minimized by the moderator on the site
Hi, the macro is working, BUT:

After deleting all rows, all the columns of the tables with empty rows open up very wide.

How can i fix the code so that this does not happens?


I am using Office 2016.


Thank you!
This comment was minimized by the moderator on the site
Hi All, I am looking for function in word wherein, if I remove specific word then it should remove that row as well.
This comment was minimized by the moderator on the site
Thanks for the code, really useful.
This comment was minimized by the moderator on the site
Is there a macro that will delete a row if only one of the cells in that row is empty or contains a zero?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations