طرحت هذا السؤال في منتديات كثيرة عربية وأجنبية بالإضافة الى نيوز كروب ولكن لا أحد يجيب عليه فهل السؤال صعب أو غير ممكن أو لا يمكن بالفيجول بيسك أو .... الخ
السؤال هو عن تضليل الكلمات المتشابهة في الويب كنترول، للبحث عن كلمة معينة كنت أستخدم الكود التالي ولكني اريد تضليل الكلمات المتشابهة دفعة واحدة كما في الهلب فايل:
الكود:
Public myfindFirst As Boolean
Public oRange
Private Sub cmdFind_Click()
Dim sSearch As String
If myfindFirst Then
Set oRange = WebBrowser1.Document.Body.createTextRange
sSearch = txtFind.Text
If oRange.FindText(sSearch) Then
oRange.Select
oRange.scrollIntoView
cmdFind.Caption = "Find Next"
myfindFirst = False
Else
MsgBox ("Search string " & txtFind.Text & " not found.")
End If
Else
Call oRange.Move("character")
sSearch = txtFind.Text
If oRange.FindText(sSearch) Then
oRange.Select
oRange.scrollIntoView
Else
MsgBox ("Finished searching Document for string " &
txtFind.Text)
cmdFind.Caption = "Find"
myfindFirst = True
End If
End If
End Sub