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.
0 kommentar(er)
