Class:
DesignerDocument
Reference:
Dim objDoc As DesignerDocument Set objDoc = ActiveDocument
Usage example (find number of elements):
MsgBox objDoc.all.Length
Usage example output:
53
The output means that 53 elements were found in the ActiveDocument.