An inline shape is one which allows text wrapping or sits above of below text. Once you have converted to a shape, you can set it back to inline but your code to set text wrapping would be pointless as this is exactly what Inline shapes DON'T DO.

If you want to also catch Shapes then you need a second loop for Shapes
eg
Dim aShp as Shape
For each aShp in oDoc.Shapes
'do stuff
Next aShp

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia