|
TO 小辫子,我已多次转告你,相同贴子内容,应在同一主题贴中进行,请你务必遵守,谢谢合作!
你的问题,不知是因何设置所造成,在于每一节都不能自动与上一节同链接(同前功能被关闭)
在不能迅速判断和解决时,我用以下代码进行自动设置同前功能,然后再进行插入页码.
以下代码供参考
'* +++++++++++++++++++++++++++++++++++++++
'* Created By 守柔(ShouRou)@ExcelHome 2005-1-14 21:29:44
'仅测试于System: Windows NT Word: 10.0 Language: 2052
'^The Code CopyIn [ThisDocument-ThisDocument]^'
'* --------------------------------------------------------------------------
Sub Example()
Dim i As Integer, N As Integer
i = Me.Sections.Count '取得总节数
Options.Pagination = False '关闭后台自动分页功能
For N = 2 To i '设置与上一节相同
Me.Sections(N).Headers(wdHeaderFooterPrimary).LinkToPrevious = True
Next
Options.Pagination = True '恢复后台自动分页功能
End Sub
'----------------------
成品如下:
aByiULvz.rar
(46.5 KB, 下载次数: 13)
| 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2005-1-14 16:44
楼主