كيف يمكنني إزالة الأسطر الفارغة في Word؟

عند تنزيل مستندات من الويب، غالبًا ما تحتوي على عددٍ كبير جدًّا من الأسطر الفارغة (فواصل سطر يدوية)، مما يجعل المستند يبدو غير مرتب. وإزالتها يدويًّا قد تستغرق وقتًا طويلاً وتكون مملة. لحسن الحظ، توجد طرق أسهل للتخلص من جميع الأسطر الفارغة في مستندك دفعة واحدة!

في هذا البرنامج التعليمي، سنعرض ثلاث طرق فعّالة لإزالة جميع الأسطر الفارغة من المستند بالكامل أو من جزء محدد منه:

إزالة جميع الأسطر الفارغة باستخدام خيار البحث والاستبدال

إزالة جميع الأسطر الفارغة باستخدام Kutools for Word

إزالة جميع الأسطر الفارغة باستخدام VBA

---

إزالة جميع الأسطر الفارغة باستخدام خيار البحث والاستبدال

تُستخدم وظيفةالبحث والاستبدالفي Word بشكل متكرر لإزالة جميع الأسطر الفارغة، والتي تُعرف باسمفاصل سطر يدويفي حقلالبحث عن.

1. انقر علىاستبدالفي علامة التبويبالصفحة الرئيسية. أو استخدم اختصار لوحة المفاتيحCtrl + H.
2. في مربع الحوار المنبثقالبحث والاستبدال، انقر على الزرالمزيد >>لعرض المزيد من الخيارات. بعد ذلك، ضع المؤشر في حقلالبحث عنوحددفاصل سطر يدويمن القائمة المنسدلةخاص.
3. سيظهر الحرف "^l" في حقلالبحث عن. انقراستبدال الكللحذف جميع فواصل الأسطر اليدوية دفعة واحدة.

---

إزالة جميع الأسطر الفارغة باستخدام Kutools for Word

بينما تتطلب الطرق السابقة خطواتٍ متعددة، فإنKutools for Word تبسّط العملية وتتيح لك إزالة جميع الأسطر الفارغة بنقرة واحدة!

1. طبّق هذه الأداة بالضغط علىKutools>فقرات>إزالة جميع فواصل الأسطر اليدوية الفارغة في النطاق المحدد.

   

2. سيظهر مربع تأكيد. انقرنعم.
3. بعد النقر علىنعم، سيتم إزالة جميع الأسطر الفارغة من المستند.

   

---

إزالة جميع الأسطر الفارغة باستخدام VBA

بدلاً من ذلك، يمكنك استخدام ماكرو لإزالة جميع الأسطر الفارغة إذا كنت معتادًا على كتابة أكواد VBA. اتبع التعليمات أدناه:

1. اضغطAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقرإدراج>وحدة نمطية، ثم انسخ كود VBA التالي إلى نافذة الوحدة النمطية:

   Sub Deleemptylines()
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
   .Text = "^l"
   .Replacement.Text = ""
   .Forward = True
   .Wrap = wdFindContinue
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchByte = False
   .MatchAllWordForms = False
   .MatchSoundsLike = False
   .MatchWildcards = False
   .MatchFuzzy = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   End Sub

3. انقر على زرتشغيل الإجراء الفرعي لتنفيذ الكود. سيتم إزالة كل فاصل سطر يدوي من المستند.

---