ادراج لأسطر جديدة بدل المسافات فى الوورد آليا

Sub replaceit()



spacecount = 0

Selection.WholeStory

scount = Selection.Characters.Count

For i = 1 To scount

 If Selection.Characters(i).Text = " " Then spacecount = spacecount + 1

Next





    For i = 1 To spacecount

          Application.StatusBar = "Searching  ...." & _

             i & "/" & Mcount & "       Please Wait......."

    

       With Selection.Find

        .Text = " "

        .Replacement.Text = ""

       End With

    'If Selection.Find.Found = False Then Exit Sub

    Selection.Find.Execute

    Selection.TypeParagraph

    Next i

End Sub

replacespacewithenter.zip

:rolleyes:نسيت موضوع القطة و سور الصين

افتح الملف المرفق فى نفس وقت فتح الملف الذي تريد عمل ذلك عليه

و اضغط alt + f8

و اختار الماكرو

ثم run

شكرا لك على استجابتك لي .

ولكن يا أخي لا أفهم كيف أستعمل الكود وأين أضعه .. ثم هذا الملف المرفق لا يحتوي سوى اسمك الكريم .

يعني أرجوك اعذرني .. لم أفهم شيئاً :( ليتك تشرح لي

الملف المرفق به الكود المكتوب أعلاه مسجل فى ماكرو

اضغط alt+f11 لرؤيته

و alt+F8 لتشغيله

أو شغل الماكرو من القائمة بالطريقة العادية

tools

macros

و فقط افتح هذا الملف فى نفس الوقت مع الملف الذي تريد تطبيق الماكرو عليه

و نفذ نفس الخطوات

للتعرف علي محرر الفيجوال بيزيك فى الاوفيس ، راجع دروس الاكسل فى موقعي

فالمفهوم واحد

و الموقع موجود فى توقيعي

شكرا .. شكرا .. شكرا لله تعالى، وجزاك الله خير الجزاء لقد أرحتَني من عناء أشهر طويلة، بارك الله فيك يا أخي :) ;)

الحمد لله

و أهلا بك

و نرجو أن نراك هنا دائما مفيدا و مستفيدا (f)