this is a test...please disregard
Dim dhtmldoc As HTMLDocument
Dim dhtmlbody As HTMLBody
Dim DHTMLEC As HTMLElementCollection
Dim DELEM As IHTMLElement
Dim obj As Object
' Dim dhtmlelement As HTML
Set dhtmldoc = WebPreview.Document
Set dhtmlbody = WebPreview.Document.body
Set dhtmlbody = WebPreview.Document.body
' dhtmlbody.outerHTML = "<h1>hi</h>"
' dhtmlbody.innerHTML = "<body><h1>there</h></body>"
WebPreview.Navigate2 (ckRSlash(G_UserDir) + "comp.html")
Call ClearWebPreview
WebPreview.Document.body.insertAdjacentHTML "afterEnd", "<h1>there</h>"
WebPreview.Document.body.insertAdjacentHTML "BeforeEnd", "<h1>tdddhere</h>"
WebPreview.Document.body.insertAdjacentHTML "BeforeEnd", "<Table BORDER=2><TR><TD ID=MARK>hello</TD></TR></Table>"
'Set DHTMLEC = WebPreview.Document.All("TD")
'For Each OBJ In DHTMLEC
' Debug.Print
'Next
Dim hctableCellEC As IHTMLElementCollection
'Dim hFontElement As IHTMLFontElement
Dim hTableCell As HTMLTableCell
Dim cellcounter As Integer
cellcounter = 1
Set hctableCellEC = WebPreview.Document.body.getElementsByTagName("TD")
For Each hTableCell In hctableCellEC
'Debug.Print "innertext" & hCell.innerText
'hCell.Color
If cellcounter = hctableCellEC.Length Then
Call hTableCell.insertAdjacentHTML("BeforeEnd", "<TR><TD>holy moly</TD></TR>")
Else
cellcounter = cellcounter + 1
End If
Next
cellcounter = 1
Set hctableCellEC = WebPreview.Document.body.getElementsByTagName("TD")
For Each hTableCell In hctableCellEC
'Debug.Print "innertext" & hCell.innerText
'hCell.Color
If cellcounter = hctableCellEC.Length Then
Call hTableCell.insertAdjacentHTML("BeforeEnd", "<TR><TD>holy moly</TD></TR>")
Else
cellcounter = cellcounter + 1
End If
Next
Re: this is a test...please disregard
Re: this is a test...please disregard
Re: this is a test...please disregard
Eugene,
There is a test Forum for this purpose here: http://www.vbforums.com/forumdisplay.php?f=39
Re: this is a test...please disregard
What exactly do you test in the test forum?
Re: this is a test...please disregard
Quote:
Originally Posted by Sir Loin
What exactly do you test in the test forum?
Anything you want.
BTW I moved this thread.
