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