Sub Test() Dim s As Shape Dim hg As Long, vg As Long, sg As Long vg = 0: sg = 0: hg = 0 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: " & sgEnd Sub