محمد طاهر عرفه قام بنشر يونيو 9, 2003 مشاركة قام بنشر يونيو 9, 2003 هذا الكود كتبته بناء علي طلب من أحد الأخوة ، كان يريد إستبدال المسافات فى ملف وورد بسطر جديد أي يريد توزيع الكلمات كل فى سطر جديد 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 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر سبتمبر 19, 2005 الكاتب مشاركة قام بنشر سبتمبر 19, 2005 موضوع مرتبط من هنـــا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.