this should do it:
Sub RePaginate()
'macro by brian balster 20030821
'go to the beginging of the document and find first header
    Selection.HomeKey unit:=wdStory
    ActiveWindow.View.SeekView = wdSeekCurrentPageHeader
'loop through all pages on document
    Do
'find the next page's header and delete it
    Selection.WholeStory
    Selection.Delete
    If Selection.Information(wdActiveEndPageNumber) = _
        Selection.Information(wdNumberOfPagesInDocument) Then
        Exit Do
    Else
'goto next page's header
        ActiveWindow.View.NextHeaderFooter
    End If
    Loop While Selection.Information(wdActiveEndPageNumber) <= _
                Selection.Information(wdNumberOfPagesInDocument)
    'now do footers
     ActiveWindow.View.SeekView = wdSeekMainDocument
     
          Selection.HomeKey unit:=wdStory
    ActiveWindow.View.SeekView = wdSeekCurrentPageFooter
'loop through all pages on document
    Do
'find the next page's header and delete it
    Selection.WholeStory
    Selection.Delete
    If Selection.Information(wdActiveEndPageNumber) = _
        Selection.Information(wdNumberOfPagesInDocument) Then
        Exit Do
    Else
'goto next page's header
        ActiveWindow.View.NextHeaderFooter
    End If
    Loop While Selection.Information(wdActiveEndPageNumber) <= _
                Selection.Information(wdNumberOfPagesInDocument)
    'now we're done
    ActiveWindow.View.SeekView = wdSeekMainDocument
    MsgBox "Your document has had its headers and footers removed" & vbCr & _
           "Save to keep changes, don't save to don't :)"
End Sub

Thanks.  i will test that out and get back to you.

I think it would be best to link all the headers and footers together.

You can do this manually with the 'Header and Footer'. View/Header and Footer and click on the 'Link to Previous' button.

Note that, depending on the settings for 'Header and footer' in the Page Setup for each section' you can have up to three different headers and footers for each section.

If you like, you can simply run this macro.

After that a change that you make in any section's header or footer will be reflected in all the others.

The problem with linking the headers and footers together is that it would be a tedious process and these files number in the dozens with a lot of pages in each.

qilbar
When I run this macro, I get 2 errors.

Microsoft Visual Basic
Run-time error '28'; Out of Stack space

then, when I debug, it stops at the first occurrence of 'Selection.Delete'

I can send you one of the files if that will help