Microsoft Office Forums - View Single Post

gmayor · 06-17-2020, 12:40 AM

For a start you are not differentiating between shapes and inline shapes and you need to check all the story ranges where there are shapes e.g. as follows. Note that some of the parameters you want to list are not applicable to inline shapes.

Code:

Sub CheckShapes()
Dim oStory As Range
Dim oShape As Shape
Dim oiShape As InlineShape

    For Each oStory In ActiveDocument.StoryRanges
        For Each oShape In oStory.ShapeRange
Debug.Print oShape.Type & "; " & oShape.ID & "; " & oShape.Name
        Next oShape
        For Each oiShape In oStory.InlineShapes
Debug.Print oiShape.Type
        Next oiShape
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                For Each oShape In oStory.ShapeRange
Debug.Print oShape.Type & "; " & oShape.ID & "; " & oShape.Name
                Next oShape
                For Each oiShape In oStory.InlineShapes
Debug.Print oiShape.Type
                Next oiShape
            Wend
        End If
    Next oStory
    Set oStory = Nothing
lbl_Exit:
    Exit Sub
End Sub