This means that if you end up making changes to your document, you'll want to once again run the macro to update the footers. Understand that a macro such as this provides a "static" approach to the desired footer. You should note that the footer is set equal to whatever is in the sFText variable followed by the first two words of the next page. It then steps pack a paragraph and adds a continuous section break and finally sets the footer for that section to be equal to the desired text. The macro first removes all section breaks from the document, then it goes through each page of the document and figures out the first two words of each. With ActiveDocument.Sections(iSec).Footers(wdHeaderFooterPrimary) Selection.InsertBreak Type:=wdSectionBreakContinuous Selection.Collapse ' Now at beginning of page again Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend Selection.GoTo what:=wdGoToPage, which:=wdGoToNext, Name:=iPage + 1 ' Figure out first two words on "next page" ISec = 1 ' Only 1 section now in documentįor iPage = 1 To Selection.Information(wdNumberOfPagesInDocument) - 1 ' Use Find and Replace to get rid of all section breaks Selection.HomeKey Unit:=wdStory ' Go to beginning of document Even so, a macro similar to the following will help accomplish what you want: Sound complicated? It can be, particularly if you have a document with many pages because such a document will require many section breaks. This, of course, means that if you later add or delete text, you'll need to delete section breaks so they again match up with the end of each page.
You can, if desired, create a macro that sets the footers, but there is a catch-because each page will have a different footer, you'll need to add a section break to the end of each page. We've not been able to find a way to do this with the tools that Word provides. The biggest problem, though, is the desire for the footer to update, dynamically, as editing occurs in the document. In Dawn's case, she wants words from the next page, not the current page. However, that field always refers to the first or last usage of a style on the page where the STYLEREF field appears. Word allows you to rather easily create "dictionary style" headers or footers, using the STYLEREF field. This is a tough problem for several reasons. If the pagination changes, then of course the footer should update to reflect whatever two words are then at the top of the following page. Dawn would like the footer on each page in her document to contain the first two words that appear on the following page in the document.
0 kommentar(er)
