Share via

ncssTblAlign Property

  • Article

Returns or sets a String that represents the alignment of a given table.

expression.ncssTblAlign

*expression   * Required. An expression that returns one of the objects in the Applies To list.

Example

The following example sets the alignment of a given table to right. The table will now appear aligned to the right-hand side of the page.

Sub SetTableAlign()
   
    Dim objSs As IFPStyleState
    Dim objDoc As FPHTMLDocument
    Dim objRng As IHTMLTxtRange
    
    Set objDoc = Application.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.ncssTblAlign = "right"
    objSs.apply
               
End Sub

Applies to | IFPStyleState Object