[求助]请问：怎样使目录的页码与文档的页码相符？

gues1688 · 发表于 2005-12-13 23:58

批量加少量手工

c81 · 发表于 2005-12-14 00:57

是不是先尽相同多的设定起？比如3级标题？然后再在3级中将有些设置成2、1级的？

二月天 · 发表于 2005-12-14 11:41

[QUOTE]我按各位说的方法试着重新做了一个目录，但是怎么还是不对（所有页码均显示为3）？请问是哪里做错了吗？另外，我要怎样才能将附件上传？

二月天 · 发表于 2005-12-14 11:49

以下是引用[I]cxffxc[/I]在2005-12-13 21:01:21的发言：[BR]自动提取一个目录不就成了

请问要怎样自动提取，能说得详细一些吗？我试着重做了一个目录，但是所有的页码均显示为3，请问是哪里做错了吗？详见附件

6xuAk1Jw.rar (116.02 KB, 下载次数: 4)

gues1688 · 发表于 2005-12-14 12:08

选定3级： 1、用通配符 [0-9].[!0-9]@^13 2、用通配符[0-9]{2}.[!0-9]@^13 2级、1级类似

二月天 · 发表于 2005-12-14 14:51

以下是引用[I]gues1688[/I]在2005-12-14 12:08:25的发言：[BR]选定3级： 1、用通配符 [0-9].[!0-9]@^13 2、用通配符[0-9]{2}.[!0-9]@^13 2级、1级类似

不好意思，我才入门，你能说得具体些吗？

gues1688 · 发表于 2005-12-14 16:29

1、先用一段ＶＢＡ宏，删除文档中无用的书签、链接： Sub delBKandLINK() Dim myBK As Bookmark With ActiveDocument For Each myBK In .Bookmarks: myBK.Delete : Next .Range.Fields.Unlink End With End Sub 2、点菜单“编辑\查找”，如下图：查找内容：[0-9]{1,2}.[!0-9]?@^13 点图中的“查找全部”，即会选中所有需要的内容。把选中的内容设置为“标题3”

[此贴子已经被作者于2005-12-14 16:29:50编辑过]

gues1688 · 发表于 2005-12-14 16:39

接下来，如下图操作，完成1级标题：

2级标题处理方法类似处理完后，在“文档结构图”中查看，会有一些遗漏等问题，但数量不多，手工处理即可。最后，插入点移到文档开始适当位置，点菜单“插入\引用\索引和目录\目录”，自动生成目录，同时也会自动处理好页码。以后若对目录进行修改，只需鼠标右键点自动生成的目录“更新域\更新整个目录”就可以了。

[此贴子已经被作者于2005-12-14 17:00:48编辑过]

二月天 · 发表于 2005-12-15 10:06

1、先用一段ＶＢＡ宏，删除文档中无用的书签、链接：
Sub delBKandLINK()
Dim myBK As Bookmark
With ActiveDocument
For Each myBK In .Bookmarks: myBK.Delete : Next
.Range.Fields.Unlink
End With
End Sub

这一步能说得再具体些吗？应该在哪里插入宏啊？我试着在工具-宏中做了一下，还是不得要领。

[此贴子已经被作者于2005-12-15 14:57:12编辑过]

gues1688 · 发表于 2005-12-15 11:58

按Alt+F12进入VBE编辑环境，如下图，双击左侧的ThisDocument，然后在在中间的编辑区粘贴VBA代码。当光标在代码中时，按F5可运行所编写的VBA程序

[此贴子已经被作者于2005-12-15 11:59:39编辑过]

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