clone Method

expression.Clone

expression    Required. An expression that returns an IFPStyleState object.

Example

The following example inserts HTML into the specified document and creates two IHTMLElement objects, one for each paragraph element inserted. Then it creates an IFPStyleState object called objSS1 and adds font formatting properties. It then uses the Clone method to create a copy of the IFPStyleState object that is stored in the objSS2 variable, and modifies the background color of the IFPStyleState object called objSS2. Once the IFPStyleState objects are created, they are applied to the element object variables objElement1 and objElement2.

Sub CloneStyleState()
    Dim objDoc As FPHTMLDocument
    Dim objSS1 As IFPStyleState
    Dim objSS2 As IFPStyleState
    Dim objElement1 As IHTMLElement
    Dim objElement2 As IHTMLElement
    
    Set objDoc = Application.ActiveDocument
    
    objDoc.body.innerHTML = "<p>Line One</p>" & vbCrLf & _
        "<p>Line Two</p>"
    
    Set objElement1 = objDoc.all.tags("p").Item(0)
    Set objElement2 = objDoc.all.tags("p").Item(1)
    
    Set objSS1 = objDoc.createStyleState
    objSS1.fontStyle = "italic"
    
    Set objSS2 = objSS1.Clone
    objSS2.backgroundColor = vbBlue
    
    objSS1.applyToElement objElement1
    objSS2.applyToElement objElement2
    
    Set objElement2 = Nothing
    Set objElement1 = Nothing
    Set objSS2 = Nothing
    Set objSS1 = Nothing
    Set objDoc = Nothing
End Sub