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