borderCollapse Property

Microsoft FrontPage Visual Basic

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