KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف تدمج أو تجمع أسطرًا متعددة في فقرة واحدة داخل مستند Word؟

المؤلفشياويانغتاريخ التعديل

عند العمل مع النصوص في Microsoft Word، قد تواجه حالات تحتاج فيها إلى دمج أو جمع أسطر أو فقرات متعددة في فقرة واحدة. يمكن أن يكون ذلك مفيدًا لتحسين القراءة، أو ضمان التناسق في التنسيق، أو حتى لتوفير الورق عند طباعة مستندات كبيرة.

في هذا البرنامج التعليمي، سنعرض لك طرقًا مختلفة لدمج أسطر متعددة بكفاءة في فقرة واحدة داخل مستند Word، مما يساعدك على تنظيم نصك لعرضٍ أنقى وتجربة عملٍ أكثر سلاسة.

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

دمج جميع الفقرات في فقرة واحدة عبر مستندات متعددة باستخدام Kutools for Word

دمج أو جمع أسطر متعددة في فقرة واحدة واحدة باستخدام كود VBA

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

يمكنك بسهولة دمج الجمل المقطوعة في فقرة متصلة باستخدام ميزة «البحث والاستبدال» في Word. إليك الطريقة:

  1. حدد الفقرات التي تريد دمجها، دون تحديد علامة الفقرة النهائي.
    تلميح:تخطَّ هذه الخطوة إذا كنت تريد دمج جميع الفقرات في المستند.
  2. انقر على «الصفحة الرئيسية» > «بحث» > «بحث متقدم» لفتح مربع حوار «البحث والاستبدال».
  3. في علامة التبويب «بحث» في مربع الحوار، أدخل "^p« في مربع »البحث عن«، وحدد »التحديد الحالي« من القائمة المنسدلة »البحث في".
    مربع حوار البحث والاستبدال مع إدخال ^p في مربع نص "البحث عن" ومحدد "التحديد الحالي" من قائمة "البحث في" المنسدلة
    تلميح:بدلاً من كتابة "^p«، يمكنك أيضًا النقر على »المزيد >>«، ثم تحديد »علامة الفقرة« من القائمة المنسدلة »خاص".
  4. انتقل إلى علامة التبويب «استبدال»، وأدخل مسافة في مربع «استبدال بـ»، ثم انقر على «استبدال الكل».
    مربع حوار البحث والاستبدال مع ^p في مربع نص "البحث عن" ومسافة في مربع نص "استبدال بـ"
  5. عندما يُطلب منك البحث في باقي المستند، انقر «لا».
    مربع حوار التأكيد

لقد تم دمج الفقرات المحددة الآن في فقرة واحدة.

تم دمج الفقرات المحددة في فقرة واحدة
التنقل عبر المستندات باستخدام Office Tab

Office Tab

التنقّل بعلامات التبويب بين Word وExcel وPowerPoint وغيرها الكثير — تمامًا كما في متصفح الويب، مع تبديل سلس داخل نافذة واحدة.

تنزيل مجانيمعرفة المزيد

دمج جميع الفقرات في فقرة واحدة عبر مستندات متعددة باستخدام Kutools for Word

يقدّم Kutools for Word طريقة فعّالة لدمج جميع الفقرات في فقرة واحدة، مما يبسّط هذه العملية ويجعل من السهل دمج كل الأسطر بسرعة في فقرة متماسكة عبر المستندات المحددة.

Kutools for Word

Kutools for Word يُمكّنك من إنجاز مهامك اليومية على المستندات بسرعة أكبر، بفضل أدواته العملية المدمجة مباشرةً في Microsoft Word—بدون الحاجة إلى برمجة أو إعدادات معقدة.

  • الكتابة بالذكاء الاصطناعي، والتنقيح، والترجمة، والتلخيص
  • البحث والاستبدال الجماعي عبر المستندات
  • دمج وتقسيم مستندات Word بسهولة
  • تحويل Word ↔ PDF دفعة واحدة
تنزيلمعرفة المزيد
  1. في علامة التبويب «Kutools»، انقر على «الاستبدال الجماعي».
    خيار الاستبدال الدفعي على علامة التبويب Kutools في شريط أدوات Word
  2. في مربع حوار «البحث والاستبدال الجماعي»:
    1. انقر على «إضافة صف» لإنشاء قاعدة تدمج الفقرات.
    2. في حقل «بحث»، اكتب "^p«، ثم في حقل »استبدال"، أدخل مسافة.
    3. انقر على زر «إضافة»، ثم اختر «إضافة ملفات» أو «إضافة مجلد» لاستيراد المستندات التي ترغب في دمج جميع أسطرها في فقرة واحدة.
    4. انقر على «استبدال» لتطبيق التغييرات على جميع المستندات المحددة.
      مربع حوار البحث والاستبدال الدفعي مع ^p في حقل "البحث" ومسافة في حقل "الاستبدال"
  3. عاين النتيجة في علامة التبويب «معاينة النتيجة»، ثم انقر على «إغلاق» عندما تشعر بالرضا.
    مربع حوار البحث والاستبدال الدفعي مع نتائج المعاينة

هذا كل شيء! تم دمج جميع الفقرات من كل مستند محدد في فقرة واحدة.

هل تبحث عن طريقة أسرع للتعامل مع المهام المتكررة في Word؟ جرّب Kutools for Word واجعل عملك اليومي أكثر سهولة!

تنزيلمعرفة المزيد

دمج أو جمع أسطر متعددة في فقرة واحدة واحدة باستخدام كود VBA

تسمح لك هذه الطريقة بدمج الأسطر باستخدام VBA. اتبع الخطوات التالية:

  1. حدد الأسطر التي ترغب في دمجها لتشكيل فقرة واحدة.
  2. اضغط علىAlt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
  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("No text is selected. Do you want to merge all lines in the document 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 "Merged successfully!", 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 = "^13{1,}"
        .Replacement.Text = " "
        .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]"
        .Replacement.Text = "^p"
        .Execute Replace:=wdReplaceAll
    End With
End Sub
  4. اضغط علىF5 لتشغيل الكود، وسيتم دمج الأسطر المحددة في فقرة واحدة.
    تم دمج الفقرات المحددة في فقرة واحدة

أفضل أدوات إنتاجية أوفيس

Kutools for Word – ارتقِ بتجربتك في Word مع أكثر من100 ميزة رائعة!

🤖مزايا KUTOOLS AI: مساعد الذكاء الاصطناعي / مساعد الوقت الفعلي / تلميع فائق (مع الحفاظ على التنسيق) / ترجمة فائقة (مع الحفاظ على التنسيق) / إخفاء المعلومات باستخدام الذكاء الاصطناعي / التدقيق اللغوي بالذكاء الاصطناعي...

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

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

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

➕إدراجات إبداعية: أدرجفواصل الآلاف،مربع اختيار،زر راديو،رمز QR،الباركود، أوصورًا متعددة! اكتشف المزيد في مجموعةإدراج...

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

⭐تحسينات مميزة: التنقّل إلى أي موقع / إدراج تلقائي للنصوص المتكررة / التبديل بين مستندات Windows / 11 أداة تحويلأدوات...

🌍يدعم أكثر من 40 لغة: استخدم كوتولز باللغة التي تفضلها – يدعم الإنجليزية، الإسبانية، الألمانية، الفرنسية، الصينية، وأكثر من 40 لغة أخرى!

علامات تبويب Kutools for Word على الشريط
 
 

Office Tab- يجلب واجهة ذات علامات تبويب إلى أوفيس، مما يجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word وExcel وPowerPoint وPublisher وAccess وVisio وProject.
  • افتح وأنشئ مستندات متعددة في علامات تبويب جديدة ضمن نفس النافذة، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50%، ويقلل مئات نقرات الفأرة لك كل يوم!

✨ Kutools for Office – تثبيت واحد، خمسة أدوات قوية!

يتضمنOffice Tab Pro·Kutools لـ Excel·Kutools لـ Outlook·Kutools for Word·Kutools for PowerPoint

📦 احصل على جميع أدوات 5 في حزمة واحدة | 🔗 تكامل سلس مع Microsoft Office | ⚡ وقت الحفظ وعزّز إنتاجيتك فورًا

أفضل أدوات إنتاجية أوفيس

Kutools for Word- أدوات 100+ لـ Word

تنزيل مجانياشترِ الآنمعرفة المزيد عن Kutools