The procedure below will add one row to the first THead element in the first table of the ActiveDocument.
Sub TFootRowsAdd()
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 & _
"<th></th>"
'vbCrLf
Next i
strHTML = _
strHTML & _
vbCrLf & _
vbTab & _
vbTab & _
vbTab & _
"</tr>"
intNumberOfColumns = 3
Set objelement = ActiveDocument.all. _
tags("table").Item(0).tFoot
objelement.insertAdjacentHTML _
"afterBegin", strHTML
WebDesigner.ActivePageWindow.Save True
Exit Sub
errHandler1:
MsgBox "TFoot was not found." & _
vbCrLf & "Please add THead first"
End Sub
HTML code before method was run:
<table>
<tfoot>
</tfoot>
</table>
HTML code after method was run:
<table>
<tfoot>
<tr>
<th></th>
<th></th>
<th></th>
</tr>
</tfoot>
</table>
