As I've already indicated, the code I provided works with inlineshapes only, not with floating shapes. The code snippet you posted may not convert all shapes to inlineshapes. Try:
Code:
With ActiveDocument
While .Shapes.Count > 0
.Shapes(1).ConvertToInlineShape
Wend
End With
Even this code won't convert shapes in the header/footer, for example, but neither does the macro I posted previously process anything there.