ProfileBlocks Example

Land Auto

ProfileBlocks Example

Sub Example_ProfileBlocks()
    
    ' This example returns the count of alignment profiles in
    ' the active document.
    Dim doc As AeccDocument
    Set doc = AeccApplication.ActiveDocument
    
    MsgBox "The number of alignment profile blocks in the current document is: " & _
        doc.ProfileBlocks.Count, vbInformation, "ProfileBlocks Example"
    
End Sub