تحويل القوائم الي فقرات

[محمد طاهر 1,748]

احتجت لتحويل عدد كبير من القوائم الي فقرات ، فقما باعداد هذا الكود ليحول القائمة الي فقرات بدمج الاسظر ووضع فاصلية بين المحتويات.، و لتفعيله اختار محتويات القائمة ثم شغل الكود.

و هو يصلح لاي نوع من القوائم فى الوورد سواء كانت مرقمة او تبدأ باحدى علامات النقاط ،

Numbered Lists , or Bullet points

فسيقوم القوم بدمجها فى فقرة واحدة و اضافة فصلة بينها

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

Sub ReplaceLineBreak()
    With Selection.Find
        .Text = "^p"
        
      'replace with comma
               .Replacement.Text = ", "
                .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
         End With
    Selection.Find.Execute Replace:=wdReplaceAll
        End Sub

 

[Ali Mohamed Ali 4,147]

أحسنت استاذ محمد عمل رائع جعله الله فى ميزان حسناتك

[محمد طاهر 1,748]

أما إذا أردنا دمج الاسطر فقط دون اضافة فاصلة، بيتم استبدال السطر التالي

 

'replace with comma
               .Replacement.Text = ", "

بالاتي

  ' replace only without comma
              .Replacement.Text = " "

 

[Ali Mohamed Ali 4,147]

جزاك الله كل خير استاذى الكريم