插入页码问题

ttt

插入页码后均显示为“1”。 这个文档是做了邮件合并从EXCEL取出数据形成的，想插入页码没成功。 单位数据，请勿外泄 ZTLlm8Kh.rar (44.31 KB, 下载次数: 17)

2006-2-2 11:20 上传

点击文件名下载附件
插入页码问题

huangyun

这是由于你在做邮件合并的时候可能已经进行了分节,所以导致你每页的页码全部是重新开始编号的,也就是你所谓的每页都是1.你可以在做邮件合并时候删除分节.

konggs

如果楼主做好了，不想重复做一遍邮件合并的话，把以下代码复制到thisdocument下也可。

Sub kongs()
Dim a As Section, b As HeaderFooter
Application.ScreenUpdating = False
Debug.Print Timer
For Each a In ActiveDocument.Sections
With a.Headers(1).PageNumbers
.RestartNumberingAtSection = False
.StartingNumber = 0
End With
a.Footers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberRight, FirstPage:=True

Next
Debug.Print Timer
Application.ScreenUpdating = True
End Sub

ttt

谢谢