Sub Test() Dim s As Shape For Each s In ActiveDocument.Pages(0).Guides(cdrAllGuides) If Not s.Guide.Preset Then s.Delete Next s End Sub