ncssLabelfor Property

Returns or sets a String that specifies a label for a given text range.

expression.ncssLabelfor

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

Example

The following example associates the label "Citation" with all text ranges in the active document within CITE elements.

    Sub SetLabel()
 
    Dim objSs As IFPStyleState
    Dim objLine1 As IHTMLElement
    Dim strHTML As String
    
    
    strHTML = "This is sample text. <br> <cite>This is cited and will within the labeled text.</cite>"
    
    Application.ActiveDocument.body.innerHTML = strHTML
    
    For Each objLine1 In Application.ActiveDocument.all.tags("cite")
        Set objSs = Application.ActiveDocument.createStyleState
        objSs.gatherFromElement objLine1
        objSs.ncssLabelfor = "Citation"
        objSs.apply
    Next objLine1

End Sub