كيفية دمج أو دمج عدة أسطر في فقرة واحدة في مستند 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 مفتاح لتشغيل هذا الرمز ، وتم دمج جميع الفقرات المحددة في فقرة واحدة كما هو موضح في لقطة الشاشة التالية:
أدوات إنتاجية Word الموصى بها
Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪
- يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
- أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
- دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
- قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
- قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
