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)
|