Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oILS As InlineShape
Dim oShp As Shape
  For Each oILS In ActiveDocument.InlineShapes
    oILS.ConvertToShape
  Next oILS
  For Each oShp In ActiveDocument.Shapes
    oShp.WrapFormat.Type = wdWrapBehind
  Next oShp
lbl_Exit:
  Exit Sub
End Sub

Dim hf As HeaderFooter, oShp As Shape, oSec As Section

For Each oSec In ActiveDocument.Sections
    For Each hf In oSec.Headers
        If hf.Exists Then
            For Each oShp In hf.Shapes
               oShp.WrapFormat.Type = wdWrapBehind
            Next oShp
        End If
    Next hf
Next oSec