How to stop sections from restarting page numbering?

[Matt Clapp]

I am formatting a large document for the Red Cross, which includes
several diagrams as appendices, some landscape, some portrait. Many of
these diagrams are from Power Point. In order to get them to fit
properly, I have to change the Orientation under Page Setup at several
places in the document. When I do so, I use Apply To | This point
forward, so it doesn't affect the previous part of the document. In
order to make this work, I have to create a page break first. This is
not a problem, however the side effect is that it also restarts the
page numbering every place I change the page orientation. I noticed
this when I first inserted a table of contents. Around page 70, where
the appendices start, it starts again with page 1. It repeats this
every place there is a section break. Also, it turns off the header
and footer used prior to this point, which should be used through out
the document. So my question is:

How can I make the document use page numbers that start at 1 and end
at the last number, rather than restarting at 1 several times
throughout the document?

Thanks very much
Matt

 

[Word Heretic]

G'day (e-mail address removed) (Matt Clapp),

each section break has its own page setup properties. Run this wee
macro. If it fails then just stick an

On Error Resume Next

after the dim's


Public Sub PageNumberContinuous()
'(c) Word Heretic 2004
Dim Sect As Section
Dim Head As HeaderFooter

For Each Sect In ActiveDocument.Sections
For Each Head In Sect.Headers
Head.PageNumbers.RestartNumberingAtSection = False
Next
For Each Head In Sect.Footers
Head.PageNumbers.RestartNumberingAtSection = False
Next
Next

Set Head = Nothing
Set Sect = Nothing
End Sub


Steve Hudson - Word Heretic
Want a hyperlinked index? S/W R&D? See WordHeretic.com

steve from wordheretic.com (Email replies require payment)


Matt Clapp reckoned:

 

[Matt Clapp]

Thanks! That worked perfectly! At first it seemed it didn't work,
but then I realized I hadn't updated the table of contents. After I
hit F9, it was exactly what I was looking for. Thanks again.
Matt

 

[Melissa]

I have a similar probelem, but I can't understand how to
do this macro. Could you let me know where I insert it,
and where it starts and ends?

 

[Dayo Mitchell]

Melissa, see here:

What do I do with macros sent to me by other newsgroup readers to help me
out?
I don't know how to install them and put them to use
http://word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm

Idiots Guide to Installing Macros
http://www.gmayor.com/installing_macro.htm

DM

 

[Word Heretic]

G'day Dayo Mitchell <[email protected]>,

Thanks Dayo.

Steve Hudson - Word Heretic
Want a hyperlinked index? S/W R&D? See WordHeretic.com

steve from wordheretic.com (Email replies require payment)


Dayo Mitchell reckoned:

 

[Dayo Mitchell]

You're welcome, of course...it's all open jurisdiction, yeah?

Dayo