حذف جمیع الإعراب ( التشكيل )

[zozzz]

سلام علیکم و رحمه الله

كيف يمكننا إزالة و حذف جميع الاعراب الجمله؟

مثال : بِسْمِ اللَّهِ الرَّحْمَنِ الرَّحِيمِ = بسم الله الرحمن الرحیم

و شکرا لمساعدتکم

[ابوخليل]

وعليكم  السلام     :    انظر هنا

[zozzz]

شکرا لک استاذ ابوخلیل

بس ولو سمحت و من الممکن ان تساعد علی هذا النموذج من فضلک

delete char.rar

[ابوخليل]

معذرة .. لايمكنني فتح المرفق فانا اعمل على اوفيس 2003

 

[jjafferr]

وعليكم السلام

 

وبدلا عن أخوي أبو خليل ، تفضل:

الوحدة النمطية:

Option Compare Database
Option Explicit

'رمهان
'اوفيسنا
Public Function fn(fld)

    Dim y As String
    Dim i As Integer
    Dim xx As String
    
y = "أبجدهوزحطيكلمنسعفصقرشتثخذضظغـ ىؤءئةاآإ()><.؟}{][1234567890:,/"
For i = 1 To Len(fld)
If InStr(1, y, Mid(fld, i, 1)) > 0 Then xx = xx & Mid(fld, i, 1)
Next i
fn = xx
End Function

.

وهذا كود النقر على الزر

Private Sub Command2_Click()

    Me.Text5 = fn(Me.Text3)
End Sub

.

والنتيجة

.

جعفر

821.delete char.accdb.zip