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