The procedure below will add one row to the first THead element in the first table of the ActiveDocument.
Sub TBodyRowsAdd()
On Error GoTo errHandler1:
Dim objelement As IHTMLElement
Dim strHTML As String
Dim intNumberOfColumns As Integer
strHTML = _
vbCrLf & _
vbTab & _
vbTab & _
vbTab & _
"<tr>"
For i = 1 To 3
strHTML = _
strHTML & _
vbCrLf & _
vbTab & _
vbTab & _
vbTab & _
vbTab & _
"<td></td>"
Next i
strHTML = _
strHTML & _
vbCrLf & _
vbTab & _
vbTab & _
vbTab & _
"</tr>"
intNumberOfColumns = 3
Set objelement = ActiveDocument.all. _
tags("table").Item(0)
Set objelement = ActiveDocument.all. _
tags("table").Item(0).Children. _
tags("tbody").Item(0)
objelement.insertAdjacentHTML _
"afterBegin", strHTML
WebDesigner.ActivePageWindow.Save True
Exit Sub
errHandler1:
MsgBox "TBody was not found." & _
vbCrLf & "Please add TBody first"
End Sub
HTML code before method was run:
<table>
<tbody>
</tbody>
</table>
HTML code after method was run:
<table>
<tbody>
<tr>
<td></td>
<td></td>
<td></td>
</tr>
</tbody>
</table>
