Debug Word Shapes

by

Updated: 02 April 2023 

Sub DebugShapes()
    Dim story_range As Range
    Dim my_shape As Shape

    For Each story_range In ActiveDocument.StoryRanges
        For Each my_shape In story_range.ShapeRange
            Debug.Print my_shape.Type & "; " & my_shape.ID & "; " & my_shape.Name
        Next my_shape
    Next story_range

End Sub

Leave a comment