Examples:
The following VBA example displays the number of horizontal, vertical, and slanted guidelines on the master page.
Sub Test()
Dim s As Shape
Dim hg As Long, vg As Long, sg As Long
For Each s In ActiveDocument.Pages(0).Guides(cdrAllGuides)
Select Case s.Guide.Type
Case cdrVerticalGuide
vg = vg + 1
Case cdrSlantedGuide
sg = sg + 1
Case cdrHorizontalGuide
hg = hg + 1
End Select
Next s
MsgBox "The document contains:" & vbCr & _
"Horizontal guides: " & hg & vbCr & _
"Vertical guides: " & vg & vbCr & _
"Slanted guides: " & sg
End Sub