[aghamali]

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

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

[aghamali]

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

[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]