دالة إزالة كافة المسافات من النص ماعدا المسافات المفردة بين الكلمات.

[عبدالله باقشير]

السلام عليكم

دالة إزالة كافة المسافات من النص ماعدا المسافات المفردة بين الكلمات.

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

[قصي]

بارك الله فيكم وبكم وسدد الله خطاكم وعافاكم من كل سوء

[ابوخليل]

جزاك الله خيرا استاذنا الكريم

تدعو الحاجة اليها كثيرا خاصة في مستندات وورد