Parsi Coders

سلام
چطوری میشه وقتی توی یه تکس باکس یه حرف یا کلمه رو نوشت اوتوماتیک اون حرف رو باحرف جدی جایگزین کنه

مثال
وقتی داخل یه تکست باکس نوشته میشه : من زمین را دوست دارم
خود برنامه حرف یا کلمه رو پیدا میکنه و کل جمله رو ویرایش میکنه رو تغیر بده به : من آسمان را دوست دارم
در اینجا کلمه زمین به کلمه آسمان تغییر کرده

یافتم
میشه واسه حروف کوچیک و بزرگ هم استفاده کرد

نقل قول:[ltr] Dim StartPos, Counter As Integer

Dim FindString, ReplaceText As String

FindString = "زمين"

ReplaceText = "آسمان"



For Counter = 1 To Len(Text1.Text)

StartPos = InStr(Text1.Text, FindString)

If StartPos > 0 Then

Text1.SelStart = StartPos - 1

Text1.SelLength = Len(FindString)

Text1.SelText = "" + ReplaceText

End If

Next

SendKeys "{END}"[/ltr]