Set doc = ActiveDocument Msgbox "InlineShape = " & doc.InlineShapes.Count & _ vbCr & "Shapes = " & doc.Shapes.Count