كيفية دمج أو دمج عدة أسطر في فقرة واحدة في مستند Word؟
إذا كان هناك مئات وآلاف من الفقرات في مستند Word الخاص بك ، عند طباعة هذا المستند ، فسوف يحتاج إلى الكثير من الورق. لحفظ الأوراق ، يمكنك دمج هذه الأسطر المتعددة في فقرة واحدة. ومع ذلك ، كيف يمكنك دمج كل هذه الأسطر في فقرة واحدة بسرعة وسهولة في مستند Word؟
دمج أو دمج عدة أسطر في فقرة واحدة باستخدام وظيفة البحث والاستبدال
دمج أو دمج أسطر متعددة في فقرة واحدة باستخدام كود VBA
دمج أو دمج عدة أسطر في فقرة واحدة باستخدام وظيفة البحث والاستبدال
• بحث واستبدال يمكن أن تساعدك الوظيفة في Word على دمج عدة أسطر في فقرة واحدة ، يرجى القيام بذلك على النحو التالي:
1. حدد الفقرات التي تريد دمجها في فقرة واحدة.
2. ثم انقر فوق الصفحة الرئيسية > > البحث المتقدم للذهاب إلى بحث واستبدال مربع الحوار ، في بحث واستبدال مربع الحوار ، تحت علامة التبويب ، من فضلك أدخل ^p في تجد ما مربع النص ، ثم حدد الإختيار الحالي الخيار من تجد في القائمة المنسدلة ، انظر لقطة الشاشة:
3. ثم انتقل إلى استبدل علامة التبويب ، واترك ملف استبدال مربع نص فارغ ، ثم انقر فوق نعم استبدال الكل زر ، انظر لقطة الشاشة:
4. وتم دمج جميع الفقرات المحددة في فقرة واحدة ، انظر الصورة:
دمج أو دمج أسطر متعددة في فقرة واحدة باستخدام كود VBA
فيما يلي طريقة أخرى مفيدة يمكن أن تساعدك أيضًا على إنهاء هذه المهمة في Word ، يرجى اتباع الخطوات التالية:
1. حدد الأسطر التي تريد دمجها في فقرة واحدة.
2. ثم اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
3. ثم انقر فوق إدراج > وحدة، انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة.
كود فبا: دمج عدة أسطر في فقرة واحدة:
Sub CleanUpPastedText()
Dim xSelection As Selection
On Error Resume Next
Application.ScreenUpdating = False
Set xSelection = Application.Selection
If xSelection.Type <> wdSelectionIP Then
FindAndReplace xSelection
Else
If MsgBox("Do you want to merge all selected lines into one paragraph?", vbYesNo + vbInformation, "Kutools for Word") = vbNo Then Exit Sub
xSelection.WholeStory
Set xSelection = Application.Selection
xSelection.HomeKey wdStory
FindAndReplace xSelection
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox "The selected lines have been merged into one paragraph.", vbInformation, "Kutools for Word"
End Sub
Sub FindAndReplace(Sel As Selection)
With Sel.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Text = "[^s^t]{1,}^13"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
.Text = "([!^13])([^13])([!^13])"
.Replacement.Text = "\1\3"
.Execute Replace:=wdReplaceAll
.Text = "[ ]{2,}"
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
.Text = "([a-z])-[ ]{1,}([a-z])"
.Replacement.Text = "\1\2"
.Execute Replace:=wdReplaceAll
.Text = "[^13]{1,}"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
End With
End Sub
4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وتم دمج جميع الفقرات المحددة في فقرة واحدة كما هو موضح في لقطة الشاشة التالية:
أفضل أدوات إنتاجية المكتب
Kutools for Word - ارفع تجربة كلمتك مع أكثر 100 ميزات رائعة!
تعمق في الميزات المميزة أدناه أو انقر هنا لاستكشاف القوة الكاملة ل Kutools for Word.
📘 إتقان الوثيقة: تقسيم الصفحات / دمج المستندات / تصدير التحديد بتنسيقات مختلفة (PDF/TXT/DOC/XLSX) / دفعة تحويل إلى PDF / تصدير الصفحات كصور / طباعة ملفات متعددة في وقت واحد
✏ تحرير المحتويات: بحث واستبدال دفعة عبر ملفات متعددة / تغيير حجم كافة الصور / تبديل صفوف وأعمدة الجدول / تحويل الجدول إلى نص
🧹 تنظيف سهل: اكتساح بعيدا مساحات اضافية / فواصل القسم / كل الرؤوس / مربعات النص / الارتباطات التشعبية / لمزيد من أدوات الإزالة، توجه إلى مجموعة الإزالة الخاصة بنا
➕ إدراجات إبداعية: إدراج الف فاصل / مربعات الاختيار / أزرار الراديو / رمز الاستجابة السريعة / الباركود / جدول الخط القطري / شرح المعادلة / صورة توضيحية / الجدول التوضيحي / صور متعددة / اكتشف المزيد في مجموعة الإدراج الخاصة بنا
🔍 التحديدات الدقيقة: تحديد صفحات محددة / الجداول / الأشكال / فقرات العناوين / تنقل بسهولة باستخدام مجموعة Select الخاصة بنا
⭐ تحسينات النجوم: انتقل بسرعة إلى أي مكان / الإدراج التلقائي للنص المتكرر / التبديل بسلاسة بين نوافذ المستندات / 11 أدوات التحويل
قم بتحويل مهام Word الخاصة بك باستخدام Kutools. 👉 قم بالتنزيل مع نسخة تجريبية مدتها 30 يومًا الآن 🚀.
