(4) Pull the top and bottom of the text bar to make sure it fits the top and bottom of the grid: (3) Click and select ALPHABET SIDEBAR text box (my personal preference) or any other sidebar text box you like. (2) Go to the INSERT tab and select TEXT BOX to display the pre-set text box designs: This will help you align the SIDEBAR more easily. OPTIONAL STEP: Turn on your gridlines by selecting the GRIDLINES check-box in the VIEW tab. MS Word comes with a number of impressive page layout features that perhaps you generally don’t expect from Word since it’s not known as a “page layout application” (like InDesign, QuarkXpress, or PageMaker). The last technique in the ReplaceAnywhere article would have to be worked into the code.Did you know how easy it is to add a very stylish text sidebar box to your MS Word business or technical document?
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.
0 kommentar(er)
