如何在WORD表格快速填写页码范围

dafanshu1 · 发表于 2016-2-25 13:43

我用交叉引用和简单的域运算手动添加了页码范围，其实这也花不了多少时间，当文档内容有增减时按F9刷新就行了。

marcus84 · 发表于 2016-2-25 15:16

dafanshu1 发表于 2016-2-25 13:43
我用交叉引用和简单的域运算手动添加了页码范围，其实这也花不了多少时间，当文档内容有增减时按F9刷新就行 ...

真神奇，增加减少页码刷新页码跟着变
求告知交叉引用和域运算步骤，详细说明
或者再麻烦上传附件说明

dafanshu1 · 发表于 2016-2-26 08:58

marcus84 发表于 2016-2-25 15:16
真神奇，增加减少页码刷新页码跟着变
求告知交叉引用和域运算步骤，详细说明
或者再麻烦上传附件说明

1、首先用交叉引用插入各标题的页码，即各章节的起始页码，如图。
2、各章节结尾页码：例如第一章，ctrl+F9插入域，输入形如{=第二章起始页码-1}的域，其中“第二章起始页码”通过从上一步插入的第二章起始页码复制过来即可。其它章节操作类似。最后一章的结尾页码的域代码是{={numpages}-2}，其中的"2”就是没有用页码的页数。

413191246se · 发表于 2016-3-1 14:09

用“文档结构图”手动吧！

八两阳光 · 发表于 2016-3-3 09:19

你好，根据你的意思，不知道这样可以不？

EH2003 · 发表于 2016-3-4 12:00

你的排版问题多。用代码会出问题，现举一个简单例子
这是代码
Sub mysub()
With Selection
.InsertBefore "这是资料名称"
.Collapse Direction:=wdCollapseEnd
.InsertCrossReference ReferenceType:=wdRefTypeHeading, _
ReferenceKind:=wdContentText, ReferenceItem:=1
.InsertAfter " 这是页码"
.InsertCrossReference ReferenceType:=wdRefTypeHeading, _
ReferenceKind:=wdPageNumber, ReferenceItem:=1
End With

End Sub

EH2003 · 发表于 2016-3-12 14:19

你的文档排版不规范，用不了VBA。我对的文档进行了以下处理：
1、按规范重新进行了排版。
2、按你的文档资料清单与实际文档名称不对.如：清单表格名称叫：投标人情况综合简介，文档中叫投标人综合情况简介。
3、页码范围只能填写开始页不会填写终止页。
4、为确保投标技术文件资料清单与文档标题一一致，对表格进行了一个小改动。

EH2003 · 发表于 2016-3-12 14:21

你的文档排版不规范，用不了VBA。我对的文档进行了以下处理：
1、按规范重新进行了排版。
2、按你的文档资料清单与实际文档名称不对.如：清单表格名称叫：投标人情况综合简介，文档中叫投标人综合情况简介。
3、页码范围只能填写开始页不会填写终止页。
4、为确保投标技术文件资料清单与文档标题一一致，对表格进行了一个小改动。

fxhdata · 发表于 2016-3-13 06:41

学习了，谢谢

EH2003 · 发表于 2016-3-13 10:12

你的文档排版不规范，用不了VBA。我对的文档进行了以下处理：
1、按规范重新进行了排版。
2、按你的文档资料清单与实际文档名称不对.如：清单表格名称叫：投标人情况综合简介，文档中叫投标人综合情况简介。
3、页码范围只能填写开始页不会填写终止页。
4、为确保投标技术文件资料清单与文档标题一一致，对表格进行了一个小改动。

如何快速填写页码范围？.rar (41.75 KB, 下载次数: 96)

		自动登录	找回密码
密码			免费注册

[求助] 如何在WORD表格快速填写页码范围