nsamu.blogg.se

Word 2007 will now enter in " header / footer editing mode", and let you type the information you need to display in the header of each page. Now double-click near the top edge of the document's "page" (mouse cursor position shown on screenshot). Scroll to see the top of a page, where the typing area (white page) stops and Word interface starts (blue, by default). Make sure you have an opened Word document in front of you to be able to preview the header in context, if your document is empty, type =rand() and hit Enter: this tells Word 2007 to insert random text in your document. Word 2007 lets you add a header in several different ways: this tutorial shows you the simplest and most intuitive way to create a header. Change orientation to portrait / landscape.The last technique in the ReplaceAnywhere article would have to be worked into the code. Note: If the text to be replaced in the headers and footers is inside text boxes, I suspect this macro won't do it. 'Close the modified document after saving changes 'does not automatically include headers and footers,įor Each rngStory In ActiveDocument.StoryRanges 'executed with the original settings and without 'On subsequent loops (files), a ReplaceAll is "the rest of the files in this folder", vbYesNo) Response = MsgBox("Do you want to process " & _ 'The Show method includes text in headers and footers. Set myDoc = Documents.Open(PathToUse & myFile) 'Set the directory and type of file to batch process 'only be displayed for the first document 'This is used so that the FindReplace dialog will 'Boolean expression to test whether first loop

'Close all open documents before beginningĭocuments.Close SaveChanges:=wdPromptToSaveChanges 'Error handler to handle error generated whenever If Right(PathToUse, 1) "\" Then PathToUse = PathToUse & "\" PathToUse = InputBox("Enter path to the documents:", _ To process multiple folders, run the macro multiple times. The requirements for using this for your project are (1) each document must contain the same text to be replaced, and that text will be replaced in the body of the document as well as in the headers and footers and (2) the documents must all be in the sameįolder. , the variation shown below will handle the headers and footers. However, as it exists there, it won't do the replacements in headers and footers. Can do a Find/Replace on all the documents in a specified folder.