Then, click Inspect button, after inspecting the document, click Remove All button in the dialog box, see screenshot:Ĥ. In the popped-out Document Inspector dialog box, only check the Header, Footers, and Watermarks option in the dialog box, make sure other options unchecked. Click File > Info > Check for Issues > Inspect Document, see screenshot:Ģ. If you are not familiar with the VBA code, you can also use the Inspect Document feature of Word to remove all headers and footers with ease. Remove all various headers, footers and watermarks in active document with Inspect Document feature #REMOVE ALL HEADERS AND FOOTERS IN WORD TRIAL#Office Tab: Increases your productivity by 50% when viewing and editing multiple documents, helps to reduce thousands of tedious mouse clicks, free trial in 30-day! Click to free trial Now! Office Tab - Brings Tabbed Interface To Office, Make Your Work Much Easier! Then press F5 key to run this code, all various headers and footers are deleted at once. (wdBorderBottom).LineStyle = wdLineStyleNoneĪ = wdSeekMainDocumentģ. VBA code: Remove all various headers and footers in current document: Sub RemoveHeadAndFoot()Ī = wdSeekCurrentPageHeader Click Insert > Module, and paste the following macro in the Module Window. Open the Word file that you want to remove all the headers and footers, and then hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.Ģ. #REMOVE ALL HEADERS AND FOOTERS IN WORD CODE#Here, I will introduce a VBA code for dealing with this task.ġ. So, there are multiple various headers or footers in active document, to remove all these various headers or footers, you need to apply the above method for deleting the headers or footers over and over again. Supposing, your document has been divided into multiple sections, and every section has each header or footer. Remove all various headers and footers in active document with VBA code Tips: To remove all footers from this document, please repeat the above steps. And then, click Close Header and Footer to exit the editing mode, and the header content in page one has been removed at once. Then, check Different First Page under the Header & Footer tab, see screenshot:ģ. Open the Word file and go to the first page that you want to remove the header and footer, and then double-click the header area into editing mode.Ģ. If you just want to remove the header and footer from the first page of current document and keep others, please do as this:ġ. Remove the header and footer from the first page in active document Remove all header lines in active document with an amazing feature.Remove all various headers, footers and watermarks in active document with Inspect Document feature.Remove all various headers and footers in active document with VBA code.Remove all headers and footers in active document.Remove the header and footer from the first page in active document. #REMOVE ALL HEADERS AND FOOTERS IN WORD HOW TO#But, if there are multiple various headers and footers in one document, how to remove all of them at once? Normally, you can quickly remove all the headers and footers from a Word document just by double-clicking the header or footer field, and then remove them at once. = wdShapeCenterĪ To Remove All Headers And Footers In Word? Ive also seen it miss a header/footer, but that was a one-off occassion.Ĭan anyone help me? Im sure theres got to be a simpler and more consistent way but i have no idea how to do it.Ī = wdSeekCurrentPageHeader However, this macro sometimes deletes all of the headers and footers, but also sometimes leaves the headers and footers existing in the document but with 1 blank line. Loop Until curpg = (1).Pages.Count + 1ĪctiveDocument.Sections(cursec).headers(wdHeaderFooterPrimary).Range.DeleteĪctiveDocument.Sections(cursec).Footers(wdHeaderFooterPrimary).Range.DeleteĪctiveDocument.Sections(cursec).headers(wdHeaderFooterEvenPages).Range.Dele teĪctiveDocument.Sections(cursec).Footers(wdHeaderFooterEvenPages).Range.Dele teĪctiveDocument.Sections(cursec).headers(wdHeaderFooterFirstPage).Range.Dele teĪctiveDocument.Sections(cursec).Footers(wdHeaderFooterFirstPage).Range.Dele te Selection.MoveDown Unit:=wdWindow, Count:=-1 Selection.MoveDown Unit:=wdScreen, Count:=1 Hi, im trying to create a VBA macro for word 2003 that will delete all of the header and footer information throughout a document.Ī.PageFit = wdPageFitFullPageĪ = wdSeekCurrentPageHeaderĪ = wdSeekCurrentPageFooter
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |