عبدالله باقشير قام بنشر ديسمبر 9, 2012 مشاركة قام بنشر ديسمبر 9, 2012 السلام عليكم دالة إزالة كافة المسافات من النص ماعدا المسافات المفردة بين الكلمات. Option Explicit Function kh_Trim(MyText As String) As String Dim tx, tex$ For Each tx In Split(MyText) If Len(tx) Then tex = tex & " " & tx Next kh_Trim = Trim(tex) End Function 2 رابط هذا التعليق شارك More sharing options...
قصي قام بنشر ديسمبر 10, 2012 مشاركة قام بنشر ديسمبر 10, 2012 بارك الله فيكم وبكم وسدد الله خطاكم وعافاكم من كل سوء رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر ديسمبر 10, 2012 مشاركة قام بنشر ديسمبر 10, 2012 جزاك الله خيرا استاذنا الكريم تدعو الحاجة اليها كثيرا خاصة في مستندات وورد رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان