Results 1 to 3 of 3
  1. #1
    3 Star Lounger
    Join Date
    Apr 2001
    Location
    Levin, Manawatu-Wanganui, New Zealand
    Posts
    324
    Thanks
    9
    Thanked 28 Times in 26 Posts

    Suspending Page Numbering (Word 97, 2000)

    Hi
    Does anyone know of a script that enables users to suspend and resume page numbering.

    Otherwise it is teaching user how to manipulate sectn breaks hdrs & ftrs and restart numbering.

    Cheers & thanks
    Geof

  2. #2
    4 Star Lounger
    Join Date
    Dec 2000
    Location
    Quakertown, PA, Pennsylvania, USA
    Posts
    517
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Suspending Page Numbering (Word 97, 2000)

    Well, I suppose you could record two macros.

    One inserts a section break and immediately turns off number.

    Two inserts a section break and immediately turns on numbering.

    Is that feasible?? I cannot think of a reason that a recorded macro wouldn't work.

    I've attached my instructions on how to record a macro that runs from a toolbar button.
    Attached Files Attached Files

  3. #3
    3 Star Lounger
    Join Date
    Apr 2001
    Location
    Levin, Manawatu-Wanganui, New Zealand
    Posts
    324
    Thanks
    9
    Thanked 28 Times in 26 Posts

    Re: Suspending Page Numbering (Word 97, 2000)

    Hi Anne
    Thanks for the thought.
    I started playing about with this, and surprise the problem just gets bigger.
    Cheers
    Geof

    Sub SuppressPageNumber()
    'Purpose is to insert a pair of section breaks at position of selection
    'skip pagenumbering for new section and restart numbering on
    'first page of following section from previous page number.
    Dim curPageNum As Integer
    Dim NextPageNum As Integer
    Dim newSectnNum As Integer

    curPageNum = Selection.Information(wdActiveEndPageNumber)
    NextPageNum = curPageNum + 1
    MsgBox ("Numbers are ," & curPageNum & "," & NextPageNum)
    Selection.InsertBreak Type:=wdSectionBreakNextPage
    Selection.InsertBreak Type:=wdSectionBreakNextPage
    newSectnNum = Selection.Information(wdActiveEndSectionNumber)
    MsgBox (newSectnNum)
    With ActiveDocument.Sections(newSectnNum)
    With .Headers(wdHeaderFooterPrimary)
    .LinkToPrevious = False
    .PageNumbers.RestartNumberingAtSection = True
    .PageNumbers.StartingNumber = NextPageNum
    .PageNumbers.Add
    End With
    End With
    End Sub

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •