Find any and all dimensions

Is there a way to find any dimensions that I didn't break apart? I have a massive document with many different scales. I realized that somewhere in it I forgot to break apart the dimension lines. I did a search and come up with nothing. However I created a blank document with a couple shapes and dimensions and still came up blank. If I try to do an object search while selecting a dimension line I get an invalid object error. Any idea? Thanks.

Parents
No Data
Reply
  • use a macro

    Sub SelectDimensions()
    Dim sr As New ShapeRange
    Dim s As Shape
    ActiveDocument.BeginCommandGroup "SelectDimensions"
    For Each s In ActivePage.FindShapes(Type:=cdrLinearDimensionShape)

    sr.Add s
    sr.Add s.Dimension.TextShape
    Next s
    sr.AddToSelection
    sr.BreakApart

    ActiveDocument.EndCommandGroup

    End Sub
Children