Editing the page numbering macro

Can the page numbering macro be edited so that that the page numbering starts with "2" instead of "1"?  Thanks for any help that is offered.

Parents
  • jboone said:

    Can the page numbering macro be edited so that that the page numbering starts with "2" instead of "1"?  Thanks for any help that is offered.

    Hi.

    Add the +1 to the correct line as shown here:

     

       
        'Loop through the Pages and add the page numbering text
        For Each p In ActiveDocument.Pages
            p.Activate
            'Replace '#' with current Page Number
            strLabelText = Replace(strPattern, "#", CStr(p.Index + 1)) '<<< (GDG) add the  +1 to this line as shown
            'Replace '*' with current Total Pages
            strLabelText = Replace(strLabelText, "*", CStr(numPages))
            Set pageBBox = p.BoundingBox
            strPlacement = cboAlign.Text
            If ActiveDocument.FacingPages Then
                bOddPageNum = (p.Index And 1) <> 0

    -John

     

Reply Children