borderCollapse Property
Returns or sets a String that determines if borders within a table appear collapsed.
expression.borderCollapse
expression Required. An expression that returns one of the objects in the Applies To list.
Example
The following example creates a table and sets the borderCollapse property to "true". Any adjacent cells now appear with collapsed borders.
Sub SetBorders()
Dim objSS As IFPStyleState
Dim objDoc As FPHTMLDocument
Dim objRng As IHTMLTxtRange
Set objDoc = ActiveDocument
objDoc.body.innerHTML = "<table><tr><td>Cell 1</td><td>Cell 2</td>" _
& "</tr></table>"
Set objSS = objDoc.createStyleState
Set objRng = objDoc.body.createTextRange
objSS.gather objRng
objSS.borderCollapse = "true"
objSS.borderBottomWidth.Value = 10
objSS.backgroundColor = vbBlue
objSS.apply
End Sub