TIP: Click on subject to list as thread! ANSI
echo: ms_word
to: ADAM ALSOP
from: BOB DAVIS
date: 1996-06-22 09:20:00
subject: RE-PAGINATION

BD> I wrote a macro that loops through a document section by
BD> section and sets the page numbering consistently.  I'll post
BD> that macro.
Here 'tis.  Enter this macro and run it.  It will reset all your page 
numbering to continuous page numbers of the form 1,2,3,4, etc.  Then you can 
go back and fix it the way you need it.
 Sub MAIN
 StartOfDocument
 EditBookmark "Temp", .Add
 FormatPageNumber .ChapterNumber = 0, .NumRestart = 0, .NumFormat = 0
 EditGoTo .Destination = "s"
 While CmpBookmarks("\Sel", "Temp")  0
   EditBookmark "Temp", .Add
   FormatPageNumber .ChapterNumber = 0, .NumRestart = 0, .NumFormat = 0
   RepeatFind
 Wend
 EditBookmark "Temp", .Delete
 MsgBox "Page Number Formatting Reset Complete"
 End Sub
I have another macro that formats the page numbering chapter by chapter, if 
you are interested in it.
Bob
--- timEd/2-B11
---------------
* Origin: The Fireside BBS Houston TX (713)496-6319 (1:106/114)

SOURCE: echomail via exec-pc

Email questions or comments to sysop@ipingthereforeiam.com
All parts of this website painstakingly hand-crafted in the U.S.A.!
IPTIA BBS/MUD/Terminal/Game Server List, © 2025 IPTIA Consulting™.