إستبدال المسافات بأسطر جديدة

[محمد طاهر عرفه]

هذا الكود كتبته بناء علي طلب من أحد الأخوة ، كان يريد إستبدال المسافات فى ملف وورد بسطر جديد

أي يريد توزيع الكلمات كل فى سطر جديد

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

[محمد طاهر عرفه]

موضوع مرتبط من هنـــا