Delete logos from headers in word

[mudstuffin]

Can anyone help with this...?

I want to run a sub to delete all the headers and footers in a word document. Each header has a logo and text in it, and each footer has text.

Thanks in anticipation.



mudstuffin

 

[xlhelp]

This macro is written by Astrid, a Word MVP

Sub strippit()
Dim oSection As Section, oHeaderFooter As HeaderFooter
For Each oSection In ActiveDocument.Sections 'weg met headers en footers
For Each oHeaderFooter In oSection.Headers
oHeaderFooter.Range.Delete
Next
For Each oHeaderFooter In oSection.Footers
oHeaderFooter.Range.Delete
Next
Next
End Sub

 

[mudstuffin]

Thanks for that xlhelp.

It does the job nicely.

Incidentally, do you know how I can modify it to run the process through all the open documents as opposed to the active doc.

Thanks again.



mudstuffin