Solved

Highlight text on a webpage

Posted on 2002-05-06
26
673 Views
Last Modified: 2013-12-16
Does anyone knows how to highlight some text in a webpage. Like to make the background of all the occurances of word "hello" on the webpage to say red color.

Ajay Chadha
0
Comment
Question by:AJAY CHADHA
  • 14
  • 11
26 Comments
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
Hi, with automation it could be possible. How do you manage that web page?
0
 
LVL 8

Author Comment

by:AJAY CHADHA
Comment Utility
Basiclaly, I am using Internet Explorer Object

like

Dim IE as InternetExplorer

So, I think, something related to change in IE.Document

What do you say..??
0
 
LVL 20

Expert Comment

by:hes
Comment Utility
Try something like this:

Option Explicit
Dim WithEvents IE As InternetExplorer
Dim Complete As Boolean

Private Sub Form_Load()
Dim sHtml As String
Dim ff As Integer
Complete = False
Set IE = New InternetExplorer
IE.Visible = True
IE.Navigate2 "www.allapi.net"
Do While Complete = False
  DoEvents
Loop
sHtml = IE.Document.body.innerHTML

sHtml = Replace(sHtml, "the", "<font color=red>the</font>")
ff = FreeFile()
Open "C:\temp\doc.html" For Output As #ff
Print #ff, sHtml
Close #ff

DoEvents
   
IE.Navigate2 "C:\temp\doc.html "




End Sub
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)

  Complete = True

End Sub
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
Sorry, this is the closest i can reach, maybe you could work from it:

Option Explicit

Dim WithEvents IE As InternetExplorer
Private Sub Command1_Click()
Dim ieDoc As HTMLDocument
   Set ieDoc = IE.document
   With ieDoc
       Dim TxtRng As IHTMLTxtRange
       Dim sel As IHTMLTxtRange
       Set TxtRng = .body.createTextRange
       If TxtRng.findText(Text1.Text) = True Then
           TxtRng.Select
           Set sel = ieDoc.selection.createRange
           sel.Text = "pings"
       Else
           MsgBox "Text not found", vbInformation, App.EXEName
       End If
   End With
End Sub

Private Sub Form_Load()
Set IE = New InternetExplorer
With IE
    .navigate "http://www.experts-exchange.com/visualbasic/"
    .Visible = True
End With
End Sub


Private Sub ie_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is IE) Then
   Command1.Enabled = True
Else
   Command1.Enabled = False
End If
End Sub


0
 
LVL 8

Author Comment

by:AJAY CHADHA
Comment Utility
Ok Guys, thanks

I'll give it a try..!!

Ajay Chadha
0
 
LVL 8

Author Comment

by:AJAY CHADHA
Comment Utility
Hello Richie,

By running your code, VB gave error at Dim IE as HTMLDocument that the type is not defined and the same error at Dim TxtRng As IHTMLTxtRange
0
 
LVL 8

Author Comment

by:AJAY CHADHA
Comment Utility
oops, i forgot to add the HTML object library. I'll just test it now
0
 
LVL 8

Author Comment

by:AJAY CHADHA
Comment Utility
Hello Richie,

so far your code is the best one but it selects only first occurance. Is there a way to highlight all occurances of a particluar word..?
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
Sorry, my mistake.
i hadn't time to try it but i think is possible.
Unfortunatelly, i don't know how select all instances at same time. For each one, maybe with a loop until...
Some like:

do while TxtRng.findText(Text1.Text) = True
loop

The major problem is how turn selected text to, say, red.
The object hasn't style member or some like that that we could use.
Let me know.
0
 
LVL 16

Accepted Solution

by:
Richie_Simonetti earned 100 total points
Comment Utility
I got it!

Private Sub Command1_Click()
Dim ieDoc As HTMLDocument
  Set ieDoc = IE.document
  With ieDoc
      Dim TxtRng As IHTMLTxtRange
      Dim sel As IHTMLTxtRange
      Set TxtRng = .body.createTextRange
      Do While TxtRng.findText(Text1.Text) = True
          TxtRng.Select
          Set sel = ieDoc.selection.createRange
          'sel.Text = "pings"
        sel.pasteHTML "<font color=green>" & sel.Text & "</font>"
       '   MsgBox "Text not found", vbInformation, App.EXEName
       Loop
  End With
End Sub
0
 
LVL 8

Author Comment

by:AJAY CHADHA
Comment Utility
Thanks Richie,

You did it man..!!

Thanks a lot.!

Ajay Chadha
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
Yeah, sometimes coin falls in the right place.
Thanks for "A" grade.
By the way, how is your site?
0
 
LVL 8

Author Comment

by:AJAY CHADHA
Comment Utility
Hello Richie,

Is there any way to change the back color of the text instead of changing the forecolor..?

Ajay Chadha
0
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 
LVL 8

Author Comment

by:AJAY CHADHA
Comment Utility
Hello Richie,

Is there any way to change the back color of the text instead of changing the forecolor..?
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
hum...
I didn't see your previous comment.
I doubt. there is no property of textrange that we could use to do that.
A question: Those pages belongs to you?. I mean, did you create it or end user has the option to load "ANY" page?
Let me know ASAP.
0
 
LVL 8

Author Comment

by:AJAY CHADHA
Comment Utility
end user has the option to load "ANY" page
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
Well, i am not sure but it is an idea:
We could use a document.write method to link that page to a stylesheet previously created and apply a class style from it in the selected text.
do you know what i mean?
0
 
LVL 8

Author Comment

by:AJAY CHADHA
Comment Utility
Richie, Can you please elaborate on this issue a little more. I am not getting to you properly on this point.
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
did you use style sheets before,didn't you?
I saw your site a time ago and was thinking that your html knowledge would be helping on this.
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
Chadha, maybe it will not be useful to you now but i didn't forget the problem, so:

Private Sub Command1_Click()
 Set ieDoc = IE.document
 With ieDoc
     Dim TxtRng As IHTMLTxtRange
     Dim sel As IHTMLTxtRange
     Set TxtRng = .body.createTextRange
     Do While TxtRng.findText("comment") = True
         TxtRng.Select
         Set sel = ieDoc.selection.createRange
         sel.Text = "pings"
         sel.execCommand "backcolor", False, "blue"
      Loop
 End With
End Sub
0
 
LVL 8

Author Comment

by:AJAY CHADHA
Comment Utility
Hello Richie,

How are you my friend ?

I need some more help reharding the Document Object. IS there an easy way to get all the links of a webpage using something like

for all links in IE.document

list1.additem link

next

and what is the most suitable way to click a link on a webpage programmticaly thru VB code. The links will be from ie.document

Looking to hear from you with sample code. I'll post points for you for this help.
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
Hi, there is actually a Links collection in the IE object model so if you use:

Dim WithEvents IE As InternetExplorer
Sub test()
Set IE = New InternetExplorer
With IE
    .navigate "http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_20297499.html#9294233"
    .Visible = True
End With
End Sub

Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is IE) Then
    Dim lnk 'As IHTMLLinkElement
    For Each lnk In IE.document.links
        Debug.Print lnk.href
    Next
End If
End Sub

0
 
LVL 8

Author Comment

by:AJAY CHADHA
Comment Utility
Hello Richie,

Your help is much appreciated. Is there any way to click on a particular link programatically ?

Good Luck,

Ajay Chadha :)
0
 
LVL 16

Expert Comment

by:Richie_Simonetti
Comment Utility
Yes,
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is IE) Then
   Dim lnk 'As IHTMLLinkElement
   For Each lnk In IE.document.links
       Debug.Print lnk.href
       if instr(1,lnk.href,"experts-exchange",vbtextcompare) then ' or whatever you would check
                lnk.click
                exit for   ' or whatever you need
       end if
   Next
End If
End Sub
0
 
LVL 8

Author Comment

by:AJAY CHADHA
Comment Utility
Thanks Buddy!

Here comes your points :)

http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_20735459.html

Good Luck,

Ajay Chadha
0
 
LVL 8

Author Comment

by:AJAY CHADHA
Comment Utility
Hello Richie,

Your points are still waiting for you on the link above.

Good Luck,

Ajay Chadha :)
0

Featured Post

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

Introduction In this tutorial, I'll explain how to create an animated progress meter in a wireframe prototype developed using Axure RP 7.0 - a leading prototyping tool for designing web sites and software. (For more information about Axure and gett…
Objective of This Article In 1990’s, when I was a budding software professional, I had a lot of confusion about which stream or technology, I had to choose to build my career. In those days, I had lot of confusion like whether to choose System so…
The purpose of this video is to demonstrate how to exclude a particular blog category from the main blog page. This is can be used when a category already has its own tab, or you simply want certain types of posts not to show up on the main blog. …
The purpose of this video is to demonstrate how to set up basic WordPress SEO. This will be demonstrated using a Windows 8 PC. The plugin used will be WordPress SEO by Yoast. Go to your WordPress login page. This will look like the following: myw…

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now