metastill.blogg.se

This worked for me once I found the Page Setup.

You can then safely delete the section break as per: This will copy the formatting from the area above the section break, to the area below the section break. Now, click just after the section break and press F4. Then click onĮach of the three tabs (don't change any settings) then click OK. To do so, select an area just above the section break, then click File > Page Setup (or File->Print->Page Setup in Word 2010). Last.DeleteĪctually, you CAN do what the OP is asking. FormattedText = Sctn1.Headers(oHdFt.Index).Range.FormattedText OHdFt.LinkToPrevious = Sctn1.Headers(oHdFt.Index).LinkToPrevious FormattedText = Sctn1.Footers(oHdFt.Index).Range.FormattedTextĭo While. OHdFt.LinkToPrevious = Sctn1.Footers(oHdFt.Index).LinkToPrevious DifferentFirstPageHeaderFooter = lDiffFirstHdFt OddAndEvenPagesHeaderFooter = lOddEvenHdFt MsgBox "Selection does not span a Section break", vbExclamation Page orientation, text columns, headers & footers) are addressed.ĭim sPageHght As Single, sPageWdth As Singleĭim sHeaderDist As Single, sFooterDist As Singleĭim sTMargin As Single, sBMargin As Singleĭim sLMargin As Single, sRMargin As Singleĭim sGutter As Single, sGutterPos As Singleĭim lPaperSize As Long, lGutterStyle As Longĭim lMirrorMargins As Long, lVerticalAlignment As Longĭim lOddEvenHdFt As Long, lDiffFirstHdFt As Longĭim bTwoPagesOnOne As Boolean, bBkFldPrnt As Booleanĭim bBkFldPrnShts As Boolean, bBkFldRevPrnt As Booleanĭim bOrientation As Boolean, oHdFt As HeaderFooter The following macro works the other way, across multiple (selected) Section breaks. As has been discussed, deleting a Section break causes the Section preceding the break to assume the page layout of the following Section.