Note: The other languages of the website are Google-translated. Back to English

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

إذا كان هناك مئات وآلاف من الفقرات في مستند Word الخاص بك ، عند طباعة هذا المستند ، فسوف يحتاج إلى الكثير من الورق. لحفظ الأوراق ، يمكنك دمج هذه الأسطر المتعددة في فقرة واحدة. ومع ذلك ، كيف يمكنك دمج كل هذه الأسطر في فقرة واحدة بسرعة وسهولة في مستند Word؟

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

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


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

بحث واستبدال يمكن أن تساعدك الوظيفة في Word على دمج عدة أسطر في فقرة واحدة ، يرجى القيام بذلك على النحو التالي:

1. حدد الفقرات التي تريد دمجها في فقرة واحدة.

2. ثم انقر فوق الرئيسية > البحث > البحث المتقدم للذهاب إلى بحث واستبدال مربع الحوار ، في بحث واستبدال مربع الحوار ، تحت البحث علامة التبويب ، من فضلك أدخل ^p في تجد ما مربع النص ، ثم حدد الإختيار الحالي الخيار من تجد في القائمة المنسدلة ، انظر لقطة الشاشة:

doc دمج أسطر متعددة 1

3. ثم انتقل إلى استبدل علامة التبويب ، واترك ملف استبدال مربع نص فارغ ، ثم انقر فوق نعم استبدال الكل زر ، انظر لقطة الشاشة:

doc دمج أسطر متعددة 2

4. وتم دمج جميع الفقرات المحددة في فقرة واحدة ، انظر الصورة:

doc دمج أسطر متعددة 3


دمج أو دمج أسطر متعددة في فقرة واحدة باستخدام كود 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 مفتاح لتشغيل هذا الرمز ، وتم دمج جميع الفقرات المحددة في فقرة واحدة كما هو موضح في لقطة الشاشة التالية:

doc دمج أسطر متعددة 4


أدوات إنتاجية Word الموصى بها

 

Kutools For Word - أكثر من 100 ميزة متقدمة لـ Word ، وفر وقتك بنسبة 50 ٪

  • يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
  • أدخل صورًا متعددة عبر المجلدات في مستند Word مرة واحدة.
  • دمج ودمج ملفات Word المتعددة عبر المجلدات في ملف واحد بالترتيب الذي تريده.
  • قسّم المستند الحالي إلى مستندات منفصلة وفقًا للعنوان أو فاصل المقطع أو معايير أخرى.
  • قم بتحويل الملفات بين Doc و Docx و Docx و PDF ، ومجموعة من الأدوات للتحويلات والاختيارات الشائعة ، وما إلى ذلك ...
فرز التعليقات حسب
التعليقات (7)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
اشكرك شكرا جزيلا
يساعدني هذا في توفير الوقت الذي كنت أفعل فيه هذا يدويًا ، فكانت 60 صفحة بعد صفحتين أشعر بالتعب وبدأت في البحث عن اختصار آخر
شكر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لجعل هذه الكلمة على مستندات جوجل ، لقد قمت بالخطوات ولكن هذا سيعمل فقط على سطح المكتب والإصدارات عبر الإنترنت من مايكروسوفت وورد
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك! هذا وفر لي ساعات من الاضطرار إلى طي أكثر من 70 صفحة من عدة جمل مقطوعة في فقرات بشكل فردي. هذا عبقري.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
الخطوة الأولى التي اختبرتها كانت رائعة بما فيه الكفاية. كانت أفضل خدعة سمعت عنها. شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بفضل الزميل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
excelente ، me salvaste la vida.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أمريكان موتورز كونكورد 1978-1979 2.0LTS ، أمريكان موتورز جريملين 1977-1978 ، أمريكان موتورز سبيريت 1979 2.0LTS 4L
Audi 100 1970-1971, Audi 100 1972-1977 1.9LTS 4L
Audi 100 1989-1991 2.3LTS 5L
Audi 100 1992-1994 2.8LTS 6V
أودي 200 1989 2.2LTS 5L
أودي 200 1990-1991 2.2LTS توربو 5L
أودي 4000 1980،XNUMX
أودي 4000 1980-1987
أودي 4000 1981-1983
أودي 4000 1984-1987
أودي 5000 1978-1988
أودي 5000 1987-1988
أودي 80 1988-1990
أودي 80 1988-1989
أودي 80 1991-1992
أودي 90 1988-1992
Audi 90 1988-1992 2.3LTS 5L
Audi 90 1993-1995 2.8LTS 6V
Audi A3 1997-2005 1.8LTS TURBO 4L
Audi A3 2008-2009 1.8LTS TURBO 4L
أودي A3 1997 2.0LTS DIESEL TURBO 5L
أودي A3 2004 2.0LTS 4L
Audi A3 2005-2006 2.0LTS MEX 4L
Audi A4 1995-1997 1.8LTS TURBO 4L
أودي A6 1995 2.8LTS 6V
أودي A6 1995 2.8LTS المحرك: AFC 6V
أودي كابريوليه 1994-1995 2.8LTS 6V
أودي كوبيه 1981-1987 2.2LTS 5L
أودي كوبيه 1987-1991 2.3LTS 5L
أودي فوكس 1973-1974 1.5LTS 4L
أودي فوكس 1975-1979 1.6LTS 4L
أودي كواترو 1983-1986 2.2LTS 5L
Audi Rs6 2003-2004 4.2LTS 8V
Audi S3 2000-2004 1.8LTS 4L
Audi S4 1992-1994 2.2LTS TURBO 5L
أودي S6 1995 2.2LTS توربو 5L
Audi S6 1996-1997 2.2LTS 5L
أودي تي تي 2000-2006 1.8LTS توربو 4L
Bmw 325 1986-1988 2.7LTS 6L
Bmw 325E 1984-1987 2.7LTS 6L
Bmw 325Es 1986-1987 2.7LTS 6L
Bmw 325I 1987-1992 2.5LTS 6L
Bmw 325Is 1987-1991 2.5LTS 6L
Bmw 325Ix 1988-1991 2.5LTS 6L
Bmw 525I 1989-1990 2.5LTS 6L
Bmw 528E 1982-1988 2.7LTS 6L
لوتس إيلان 1968-1975 1.6 لتر 4 لتر
بونتياك صن رونر 1995-1997 1.6LTS 4L
Porsche 924 1977-1982 2.0LTS 4L
سيات الحمراء 1996-2000 2.0LTS 4L
سيات الحمراء 2002-2003 1.8LTS MEX 4L
سيات الحمراء 2004-2007 1.8LTS توربو 4 لتر
سيات الحمراء 2004-2005 2.8LTS 6V
مقعد ألتيا 2004-2015 1.6LTS 4L
سيات كوردوبا 2001-2002 1.6LTS MEX 4L
سيات كوردوبا 2003-2004 2.0LTS MEX 4L
سيات كوردوبا 2005-2009 1.6LTS 4L
سيات كوردوبا 2005-2009 2.0LTS 4L
سيات إيبيزا 2001-2002 1.6LTS MEX 4L
سيات إيبيزا 2003-2012 2.0LTS 4L
سيات إيبيزا 2004-2012 1.6LTS 4L
سيات إيبيزا 2006 1.8LTS 4L
سيات إيبيزا 2007 1.8LTS TURBO 4L
سيات إيبيزا 2008 1.8LTS TURBO MEX 4L
سيات ليون 2001-2004 1.8LTS MEX 4L
سيات ليون 2001-2004 1.8LTS TURBO MEX 4L
سيات ليون 2005-2006 1.8LTS 4L
سيات ليون 2006 2.0LTS 4L
سيات توليدو 2001-2003 1.8LTS MEX 4L
سيات توليدو 2001-2003 1.8LTS TURBO MEX 4L
سيات توليدو 2004-2005 1.8LTS 4L
سيات توليدو 2006 2.0LTS 4L
تويوتا هايس 1977-1979 2.0LTS 4L
تويوتا هيلوكس 1975-1989 2.0LTS 4L
تويوتا هيلوكس 1990-1993 1.8LTS 4L
فولكس فاجن أتلانتيك 1981-1982 1.6LTS 4L
فولكس فاجن أتلانتيك 1982-1987 1.8LTS 4L
فولكس فاجن بيتل 1998-2011 2.0LTS 4L
فولكس فاجن بيتل 1999-2005 1.8LTS توربو 4L
فولكس فاجن كابريو 1995-2002 2.0LTS 4L
فولكس فاجن كابريوليه 1985-1993 1.8LTS 4L
فولكس فاجن كادي 1982 1.5LTS 4L
فولكس فاجن كادي 1993-1994 1.8LTS 4L
فولكس فاجن كاريبي 1982-1987 1.8LTS 4L
فولكس فاجن كومبي 1990-2001 1.8LTS 4L
فولكس واجن كومبي 1997 2.8LTS 6 Cil
فولكس فاجن كورادو 1990-1992 1.8LTS SUPERCARGADO 4L
فولكس فاجن كورسار 1984-1988 1.8LTS 4L
فولكس فاجن داشر 1974-1975 1.5LTS 4L
فولكس فاجن داشر 1976-1980 1.6LTS 4L
فولكس فاجن ديربي 1994-2009 1.8LTS 4L
فولكس فاجن ديربي 2001-2004 2.0LTS MEX 4L
فولكس فاجن فوكس 1987-1993 1.8LTS 4L
فولكس فاجن جولف 1985-2006 1.8LTS 4L
فولكس فاجن جولف 1990-2010 2.0LTS 4L
فولكس فاجن جيتا 1980 1.6LTS 4L
فولكس فاجن جيتا 1981-1984 1.7LTS 4L
فولكس فاجن جيتا 1984-1999 1.8LTS 4L
فولكس فاجن جيتا 1990-2005 2.0LTS 4L
فولكس فاجن جيتا 2012-2013 2.0LTS 4L
فولكس فاجن جيتا 2001-2005 1.8LTS توربو 4L
فولكس فاجن جيتا 2009-2012 1.8LTS توربو 4L
فولكس فاجن جيتا 2006-2008 2.0LTS MEX 4L
فولكس فاجن جيتا 2011-2014 محرك 2.0LTS: CBPA 4L
فولكس فاجن جيتا كلاسيكو 2011-2015 2.0LTS 4L
فولكس فاجن باسات 1990-1997 2.0LTS 4L
فولكس فاجن باسات 1993 1.8LTS 4L
فولكس فاجن باسات 2001 2.8LTS MOTOR: ATQ 6V
مؤشر فولكس فاجن 1998-2009 1.8LTS 4L
فولكس فاجن مؤشر بيك أب 1999-2009 1.8LTS 4L
فولكس فاجن بولو 2003-2007 2.0LTS 4L
فولكس فاجن كوانتم 1982-1983 1.7LTS 4L
فولكس فاجن كوانتم 1983-1988 2.2LTS 5L
فولكس فاجن كوانتم 1984-1985 1.8LTS 4L
فولكس فاجن رابيت 1975-1980 1.5LTS 4L
فولكس فاجن رابيت 1976-1980 1.6LTS 4L
فولكس فاجن رابيت 1981-1984 1.7LTS 4L
فولكس فاجن رابيت 1983-1984 1.8LTS 4L
فولكس فاجن رابيت المكشوفة 1980 1.6LTS 4L
فولكس فاجن رابيت المكشوفة 1981-1983 1.7LTS 4L
فولكس فاجن رابيت المكشوفة 1984 1.8LTS 4L
فولكس فاجن رابيت بيك أب 1980 1.5LTS 4L
فولكس فاجن رابيت بيك أب 1980 1.6LTS 4L
فولكس فاجن رابيت بيك أب 1981-1983 1.7LTS 4L
فولكس فاجن شيروكو 1975-1978 1.5LTS 4L
فولكس فاجن شيروكو 1976-1980 1.6LTS 4L
فولكس فاجن شيروكو 1981-1983 1.7LTS 4L
فولكس فاجن شيروكو 1984-1989 1.8LTS 4L
فولكس واجن سيدان 1978-1979 1.6LTS 4H
فولكس فاجن سيدان 1993-2003 1.6LTS 4L
فولكس فاجن شاران 2002-2008 1.8LTS توربو 4L
فولكس فاجن سوبر بيتل 1978-1980 1.6LTS 4H
فولكس فاجن ترانسبورتر 1985 1.9LTS DIESEL 4L
فولكس فاجن ترانسبورتر 1986-1991 2.1LTS 4H
فولكس فاجن ترانسبورتر 1990-1992 1.8LTS 4L
فولكس فاجن ترانسبورتر 1990-1993 2.0LTS 4L
فولكس فاجن فان 2003-2008
فولكس فاجن فاناجون 1983-1985
فولكس فاجن فاناجون 1986-1989
فولكس فاجن فاناجون 1990-1991
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL