اذهب الي المحتوي
محمد طاهر

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

Recommended Posts

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

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

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

 

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

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

  • Like 1
  • Thanks 1

شارك هذه المشاركه


رابط المشاركه
شارك

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

 

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

بالاتي

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

 

  • Like 2

شارك هذه المشاركه


رابط المشاركه
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • محتوي مشابه

    • بواسطه العركاوي
      عندي مجموعة طلاب ولديهم ثلاث اختيارات  واريد استخراج قوائم لكل اختيار على حدة بالاسماء  ,والف شكر ومرفق ملف للتوضيح 
      فتحي.xlsx
    • بواسطه أ / محمد صالح
      لكل عشاق الحديث في برمجة الأوفيس المتقدمة VBA يسعدني أن أقدم لكم شرح كود ترجمة جوجل 2019 في فيجوال بيسك للتطبيقات vba الموجودة ضمن حزمة ميكروسوفت أوفيس وسيكون الشرح على الأكسس microsoft access 2019 ومعالجة خطأ عدم ظهور الترجمة التعرف على أكواد لغات العالم world languages codes الموجودة في ترجمة جوجل وعددها 105 لغة التعرف على أسماء لغات العالم بالإنجليزية وباللغة العربية وباللغة المحلية لكل لغة دالة معرفة لإيقاف تنفيذ الكود فترة من الثواني wait مثل application.wait الموجودة في إكسل كتابة سطرين كود في سطر واحد نطق النصوص من خلال vba بجميع لغات العالم text to speech ترجمة سجلات الجداول أو الاستعلامات من خلال ADO وغيرها الكثيييييير اكتشفها بنفسك         رابط القناة لمن لم يشترك معنا حتى الآن   https://www.youtube.com/user/ostazmas2   #ostazmas   ************   فتابعونا وقوموا بتفعيل زر الجرس للتنبيه وقت صدور الفيديو وعلق ولو بحرف لكي تدعمنا للاستمرار من أجلكم   ********************* وفي هذه المرة لن أضع لكم الملف المستخدم في الشرح
      ولكن سأطلب ممن فهم الشرح أن يقوم بتطبيقه ويرفع لنا هنا ما تعلمه فعلا كنتيجة الفيديو /////////////////
      وتذكر معي الحكمة القائلة: لا تعطني سمكة ولكن علمني كيف أصطاد
    • بواسطه محمد طاهر
      اعرض الملف كود لتحويل مصفوفة إلى عمود واحد رأسي
      اجتجت الي تجويل البيانات فى مصفوفات الى عمود واجد رأسي ، فقمت باعداد هذا الملف
      و هذا هو الكود
      و يجب تظليل (اختيار) المصفوفة المطلوب تحويلها لعمود قبل تشغيل الكور
      اختار المصفوفة ثم اضغط على الزر
      ملاحظة : بفضل تجميل الاصدار الاخير الذي يظهر اسفل الصفحة لانه به ميزة اضافية 
      Sub MakeOneColumn() Dim Myrows As Integer, Mycols As Integer Myrows = Selection.Rows.Count Mycols = Selection.Columns.Count With ActiveCell For i = 0 To Mycols '6 For j = 0 To Myrows '3 .Offset(Myrows * (i) + j) = .Offset(j, i) Next j Next i End With End Sub  
       
      صاحب الملف محمد طاهر تمت الاضافه 10 يول, 2019 الاقسام قسم الإكسيل  
    • بواسطه عبد اللطيف سلوم
      السلام عليكم 
      حاولت تحويل قاعد ةبيانات حجمها 6 ميجا لكن تم الرفض
      كم الحجم المسموح به للتحويل
      بمعنى كم ميجا يكون حجم القاعدة حتى استطيع تحويلها
      استخدم اكسس 2016 نظام 64 بت
    • بواسطه ابا جودى
      هذه الهدية القيمة شفرة الكود المستخدمة فى استخلاص اسماء الشهور والايام اهدانى اياها ذات يوم استاذى الجليل ومعلمى القدير الاستاذ الجليل @ابوخليل 
      ههههههه حتى ايضا الشفرة المستخدمة لعمل الاستبدال ( دالة Replace) ايضا يرجع الفضل فيها الى الله اولا ثم الى استاذى المبجل الاستاذ @ابوخليل 
      نعم لم تكن بنفس الهيئة كانت للاستبدال رموز خاصة وعلامات وانا قمت بالتعديل الطفيف عليها لتحويل الارقام الى عربي عن طريق ال Unicode Chart 
      ولكن لولا الله سبحانه وتعالى ثم استاذى ووالدى لما توصلت الى هذه الفكرة
      مميزات المرفق
      - موديول به كل ما يخص التاريخ 
      وكذلك تحويل الارقام الى العربية بدون التدخل فى اعدادات النظام وبدون اى خطوط خارجية 
      ولتكون الهدية كاملة مكملة هذا هو الموقع الذى استخدمة عندما اريد الحصول على ارقام رمز او حرف ما 
      https://www.ssec.wisc.edu/~tomw/java/unicode.html
      التاريخ.mdb
  • المتواجدين الان   0 اعضاء متواجدين الان

    لايوجد اعضاء مسجلون يتصفحون هذه الصفحه

×
×
  • اضف...