求助！如何在Word的同一页的页眉和页脚中显示不同的页码编号？

honey_bee

楼主的问题和我以前帖子里说的内容完全一致，也是没有解决，见以下链接：

http://club.excelhome.net/viewthread.php?tid=96116

xzy2380

心有余而力不足

sylun

印象中版主曾介绍过用书签的方法处理过这类问题，但记不清在哪介绍的。以下为类似设置方法，看看是否可行，当然只达到半自动的效果。

izRpcV9Z.rar (7.19 KB, 下载次数: 41)

2007-12-7 17:29 上传

点击文件名下载附件
求助！如何在Word的同一页的页眉和页脚中显示不同的页码编号？

chenjun

见下帖： 点例子

[此贴子已经被作者于2002-12-2 23:55:54编辑过]

chenjun

http://www.veryoffice.com/forum/showthread.php?s=48aa0d437a6f1856b5ebf28dca4073de&threadid=55

惊叹不已

各位兄台的方法真是五花八门,小弟看得不太明白,不过不一定非得用页眉页脚吧?用文本框也行啊,反正设置了边框为无色,谁也看不出是页脚还是文本框了.顺便说一下,文本框可是个好东东啊,很多解决不了的问题用它就可以搞定啊! Sub 设置页码() '包括每一节的页码及总页码 pagescount = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) '文档的总页数 sectionno = 0 '每节中的页码 sectionnumber = 0 '节号 For i = 1 To pagescount Selection.GoTo wdGoToPage, wdGoToAbsolute, i If sectionnumber <> Selection.Information(wdActiveEndSectionNumber) Then sectionnumber = Selection.Information(wdActiveEndSectionNumber) sectionno = 1 Else sectionno = sectionno + 1 End If ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 233.85, _ 805.2, 162#, 23.4).Select Selection.TypeText Text:="第" & sectionnumber & "节" & "第" & sectionno & "页" & _ " " & "总第" & i & "页" Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 255, 255) Next i End Sub

[此贴子已经被惊叹不已于2002-12-2 11:17:45编辑过]

chenjun

konamist: 山雀说的100%正确，你要在每一节的页眉中取消同前，页眉的页码格式中页码编排的起始页码设为1。页脚应当在每一节同前，页码编排续前节。

三戒

原帖由 chenjun 于 2002-12-2 12:33 发表
http://www.veryoffice.com/forum/ ... 3de&threadid=55

请版主检查，无法打开连接

xofun

前楼的排版了下，这个也不错，有问题用代码批量删除，在生成一次也很方便
Sub &Eacute;è&Ouml;&Atilde;&Ograve;&sup3;9&Acirc;&euml;()
'°ü&Agrave;¨&Atilde;&iquest;&Ograve;&raquo;&frac12;&Uacute;&micro;&Auml;&Ograve;&sup3;&Acirc;&euml;&frac14;°×&Uuml;&Ograve;&sup3;&Acirc;&euml;

pagescount = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages) '&Icirc;&Auml;&micro;&micro;&micro;&Auml;×&Uuml;&Ograve;&sup3;&Ecirc;&yacute;
sectionno = 0 '&Atilde;&iquest;&frac12;&Uacute;&Ouml;&ETH;&micro;&Auml;&Ograve;&sup3;&Acirc;&euml;
sectionnumber = 0 '&frac12;&Uacute;&ordm;&Aring;
For i = 1 To pagescount
Selection.GoTo wdGoToPage, wdGoToAbsolute, i
If sectionnumber <> Selection.Information(wdActiveEndSectionNumber) Then
sectionnumber = Selection.Information(wdActiveEndSectionNumber)
sectionno = 1
Else
sectionno = sectionno + 1
End If
ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 233.85, _
805.2, 162#, 23.4).Select
Selection.TypeText Text:="&micro;&Uacute;" & sectionnumber & "&frac12;&Uacute;" & "&micro;&Uacute;" & sectionno & "&Ograve;&sup3;" & _
" " & "×&Uuml;&micro;&Uacute;" & i & "&Ograve;&sup3;"
Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 255, 255)
Next i
End Sub

[ 本帖最后由 xofun 于 2009-9-13 17:55 编辑 ]

sihai889

我也正在解决此问题，先看看各位的解决方法，OK后来回复，谢谢。