The easiest way would be to use a template where the headers and footers are
blank. But if you are saying that you want a macro to delete header and
footer contents, you could use something like this:

Sub DelHeaderFooter()
   Dim s As Section
   For Each s In ActiveDocument.Sections
       s.Headers(wdHeaderFooterEvenPages).Range.Text = ""
       s.Headers(wdHeaderFooterFirstPage).Range.Text = ""
       s.Headers(wdHeaderFooterPrimary).Range.Text = ""

       s.Footers(wdHeaderFooterEvenPages).Range.Text = ""
       s.Footers(wdHeaderFooterFirstPage).Range.Text = ""
       s.Footers(wdHeaderFooterPrimary).Range.Text = ""

   Next s
End Sub