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