Without more details, I cannot possibly diagnose that issue. You could simplify the macro, though, to explcitly force all shapes 'in front', not only those that are 'behind':
Code:
Sub MoveToFront()
Dim Shp As Shape
For Each Shp In ActiveDocument.Shapes
Shp.WrapFormat.Type = wdWrapFront
Next
End Sub