Share via

propertyCount Property

  • Article

Returns an Integer that represents the number of style properties associated with the current element or text range.

expression.propertyCount

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

Example

The following example displays the number of properties associated with a given text range.

Sub DisplayPropertyNumber()
    Dim objSs As IFPStyleState
    Dim objDoc As FPHTMLDocument
    Dim objRng As IHTMLTxtRange
    
    Set objDoc = Application.ActiveDocument
    
    objDoc.body.innerHTML = "<i><b>Heading 1</b></i>"
    Set objSs = objDoc.createStyleState
    Set objRng = objDoc.body.createTextRange
    
    objSs.gather objRng
    objSs.setProperty "background-color", vbBlue
    MsgBox "The total number of properties available is:  " _
        & objSs.propertyCount
    objSs.apply
           
End Sub

Applies to | IFPStyleState Object