مطلوب للاهمية كود يبحث عن كلمة فى صفحة الويب الحالية

السلام عليكم ورحمة الله وبركاته

فكرة جميلة أخ محمد

بالنسبة للبحث داخل صفحات الأنترنت عن كلمة فيمكن ذلك لكن الكود الذي راح أكتبه يعمل على IE فقط

بعد إضافة المرجع الخاص بالأنترنت كونترول Microsoft Internet Controls

بصرح بمتغير للshellwindows ونعمل دالة تبحث في الصفحات المفتوحة

Function Search_Word_InIE(word As String) As Boolean
   Set objShellWins = New SHDocVw.ShellWindows
   For Each objIE In objShellWins
			Set objDoc = objIE.Document
			If TypeName(objDoc) = "HTMLDocument" Then
					myString = objDoc.body.innerhtml
							Do
						pos = InStr(1, myString, word)
						If pos > 0 Then
							Search_Word_InIE = True
							Exit Do
						   Else
						   Search_Word_InIE = False
						   Exit Do
						End If
					Loop
							End If
	 Next
End Function

وبهذا يمكنك البحث عن كلمة داخل الصفحات المفتوحة