Macro to remove page numbers

[Greenbeans]

Hi there. First I want to thank the contributors here - this forum is such an amazing resource.

I put together a macro to remove headers/footers based on the instructions here:

https://www.pcreview.co.uk/forums/print-word-document-without-header-and-footer-t3576237.html

and it worked like a charm. However, I now realize that I need the footers to show so that I can keep a watermark on all the pages. I still want a macro that removes all page numbering (from the entire document). Can anyone provide the appropriate language? Please let me know if the request is unclear. Thanks to all!

 

[jayjohn1984]

Sub DeletePageNumbers()

Dim objSect As Section
Dim objHF As HeaderFooter
Dim objPNum As PageNumber

For Each objSect In ActiveDocument.Sections

For Each objHF In objSect.Headers
For Each objPNum In objHF.PageNumbers
objPNum.Delete
Next
Next

For Each objHF In objSect.Footers
For Each objPNum In objHF.PageNumbers
objPNum.Delete
Next
Next

Next

End Sub