Mail merge and numbering my own way

[Jan via OfficeKB.com]

Hi !

Database in Access is merged with Word form to achieve desired
formatting and merged document is used as subdocument in master.

What I want is numbering across sections to get a document 1 to X
plus numbering in TOC. After mail merge each page is in its own
section and of course SAME AS PREVIOUS is not enabled so each page
is numbered as 1 which is normal, but what I need is 1,2,3,4 ..

Is there a way around to change numbering to "normal" numbering
across sections in mail merge? I browsed google for couple of hours
but could not find solution. It may be:
- Special field?
- removing sections after mail merge and numbering?

Thanks for any tip !! Just not that one: make a raport in access )

Rado

 

[Jan via OfficeKB.com]

Found a solution:


Sub RenumberMergedDoc()
Dim intSections As Integer

Do While intSections <= ActiveDocument.Sections.Count
Selection.Find.Execute
With Selection.Sections(1).Headers(1).PageNumbers
.NumberStyle = wdPageNumberStyleArabic
.HeadingLevelForChapter = 0
.IncludeChapterNumber = False
.ChapterPageSeparator = wdSeparatorHyphen
.RestartNumberingAtSection = False
.StartingNumber = 0
End With
Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberRight, FirstPage:=True
intSections = intSections + 1
Loop

If anybody has any other suggestion welcome!

 

[Suzanne S. Barnhill]

Word doesn't create sections or restart numbering if you use a
Catalog/Directory merge.