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.

 

Valid XHTML 1.0 Transitional        Valid CSS!