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