Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim oSection As Section
Dim lngIndex As Long, lngShape As Long
  For Each oSection In ActiveDocument.Sections
    For lngIndex = 1 To 3
      For lngShape = oSection.Headers(lngIndex).Shapes.Count To 1 Step -1
        oSection.Headers(lngIndex).Shapes(lngIndex).Delete
      Next lngShape
    Next lngIndex
  Next oSection
lbl_Exit:
  Exit Sub
End Sub