 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Word / Programming / October 2005Remove all contents from the Header of a document
I have some documents that are being inserted into an exhisting document. Some of the documents have headers that are changing my template. Is there a macro to get rid of all contents in a header. Including any tables that might be in there? I mean anything that is in there. Please advise. thanks in advance. Hi Casey, No need to cross-post. One post in an appropriate forum will almost always do! Here's some code to delete the header content in the active document. You'll either need to switch to the document to be inserted, or change 'ActiveDocument' to refer to it explicitly, before executing the sub - otherwise you'll end up deleting the headers from the wrong document ... Sub KillHeaders() Dim oSection As Section Dim oHeadFoot As HeaderFooter For Each oSection In ActiveDocument.Sections For Each oHeadFoot In oSection.Headers If Not oHeadFoot.LinkToPrevious Then oHeadFoot.Range.Delete Next Next End Sub Cheers > I have some documents that are being inserted into an exhisting document. > Some of the documents have headers that are changing my template. Is there [quoted text clipped - 4 lines] > > thanks in advance. My bad about the over posting. Wont happen again. I have one more question. this code works like a charm but when i then go in to create a macro to place page numbers at the bottom of the active document...nothing shows up. Does this code kill any footers/headers for good? My thinking was to delete any extra crap that i didnt need and then add page numbers. Help Sub KillHeaders() Dim oSection As Section Dim oHeadFoot As HeaderFooter For Each oSection In ActiveDocument.Sections For Each oHeadFoot In oSection.Headers If Not oHeadFoot.LinkToPrevious Then oHeadFoot.Range.Delete Next Next End Sub Hi, The code I posted on works on the headers - anything in the footers is left alone. Presumably, you'd be adding the page numbers to the target document, not the source documents. In that case, simply inserting a page number field in the footer of the target document should suffice. Cheers > My bad about the over posting. Wont happen again. I have one more > question. this code works like a charm but when i then go in to create a [quoted text clipped - 13 lines] > Next > End Sub The code you gave worked slick! But i had to alter it later to also do and footer information. See below. I am trying to get the page number inserted automatically and even when i do it manually it doesnt work. Please see below. Sub KillHeadersFooters() Dim oSection As Section Dim oHeadFoot As HeaderFooter For Each oSection In ActiveDocument.Sections For Each oHeadFoot In oSection.Footers If Not oHeadFoot.LinkToPrevious Then oHeadFoot.Range.Delete Next Next For Each oSection In ActiveDocument.Sections For Each oHeadFoot In oSection.Headers If Not oHeadFoot.LinkToPrevious Then oHeadFoot.Range.Delete Next Next End Sub Then I try and have the user run this code to reinsert page numbers into that active document Sub InsertPageNum() Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberCenter, FirstPage:=False End Sub Thanks for your promise not to cross posts in the future ;-) Try this (Note there will be no page number on the first page): Sub KillHeadersFooters() Dim oSection As Section Dim oHeadFoot As HeaderFooter For Each oSection In ActiveDocument.Sections For Each oHeadFoot In oSection.Footers If Not oHeadFoot.LinkToPrevious Then oHeadFoot.Range.Delete On Error Resume Next oHeadFoot.LinkToPrevious = True On Error GoTo 0 Next For Each oHeadFoot In oSection.Headers If Not oHeadFoot.LinkToPrevious Then oHeadFoot.Range.Delete On Error Resume Next oHeadFoot.LinkToPrevious = True On Error GoTo 0 Next Next ActiveDocument.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberCenter, FirstPage:=False End Sub Greg your code works perfectly but i have one question. I tried altering it so that the page would a page AutoTextEntries("Page X of Y") but i cant get it to work. can you help...Please :> ActiveDocument.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberCenter, FirstPage:=False Remeber, you promised no more cross posting. Try: Sub KillHeadersFooters() Dim oSection As Section Dim oHeadFoot As HeaderFooter Dim oRng As Range For Each oSection In ActiveDocument.Sections For Each oHeadFoot In oSection.Footers If Not oHeadFoot.LinkToPrevious Then oHeadFoot.Range.Delete On Error Resume Next oHeadFoot.LinkToPrevious = True On Error GoTo 0 Next For Each oHeadFoot In oSection.Headers If Not oHeadFoot.LinkToPrevious Then oHeadFoot.Range.Delete On Error Resume Next oHeadFoot.LinkToPrevious = True On Error GoTo 0 Next Next Set oRng = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range NormalTemplate.AutoTextEntries("Page X of Y").Insert Where:=oRng, RichText:=True End Sub What you really need is to be more careful in your selection of copied material. See http://word.mvps.org/FAQs/Formatting/PasteWithoutSectionInfo.htm.  SignatureCharles Kenyon Word New User FAQ & Web Directory: http://addbalance.com/word Intermediate User's Guide to Microsoft Word (supplemented version of Microsoft's Legal Users' Guide) http://addbalance.com/usersguide See also the MVP FAQ: http://word.mvps.org/FAQs/ which is awesome! --------- --------- --------- --------- --------- --------- This message is posted to a newsgroup. Please post replies and questions to the newsgroup so that others can learn from my ignorance and your wisdom. >I have some documents that are being inserted into an exhisting document. >Some of the documents have headers that are changing my template. Is there [quoted text clipped - 4 lines] > > thanks in advance.
|
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.