wrod中的大量带有数字顺序的行，如何快速将其设为一级目录、二级目录

y294945022 · 发表于 2018-10-8 11:13

大量带有数字顺序的行，如何快速将其设为一级目录、二级目录，详细如下

若是手动的一行一行去更改格式，那需要很长的时间，关键是还得一点点找。
里面有
第一种是大标题：一. xxxxxxxxxxxxxxxxxxxxxxxxxxx
                              二. 丝丝丝丝丝丝丝丝丝丝丝丝xxx
                              三. xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

第二种  是次标题： 1. ===========================
                              2. =============================
                              3. ============================

第三种  是中间的小标题： a. ==============
                                          b. ==============
                                          c. ================

以上这三种情况，是在文档中是综合出现的，有什么方法快速让其生成目录，大标题为一级目录，次标题为二级目录，小标题为三级目录。
附件在此

这是文件.rar (75.83 KB, 下载次数: 10) ，看看哪位大神有好的解决办法，若是能给个操作步骤，我们也顺便学习学习，谢谢了

ming0018 · 发表于 2018-10-8 11:49

这是做完标题的文档，生成目录很简单了，自己做。

y294945022 · 发表于 2018-10-8 14:33

ming0018 发表于 2018-10-8 11:49
这是做完标题的文档，生成目录很简单了，自己做。

非常感谢。
只不过二级标题共有200多，而文件中的只标色标到了99条。
请教我一下具体的操作步骤吧！授人以鱼不如教人如何钓鱼。谢谢了。

ming0018 · 发表于 2018-10-8 17:17

y294945022 发表于 2018-10-8 14:33
非常感谢。
只不过二级标题共有200多，而文件中的只标色标到了99条。
请教我一下具体的操作步骤吧！授 ...

Dim doc As Document, Rng As Range
Set doc = ActiveDocument: Set Rng = doc.Content
With Rng.Find
.Text = "[一二三四五六七八九十]{1,3}．"
.MatchWildcards = True
Do While .Execute
With .Parent
If .Start = .Paragraphs(1).Range.Start Then
.Paragraphs(1).Range.Font.ColorIndex = wdRed
.Paragraphs(1).Range.ParagraphFormat.OutlineLevel = wdOutlineLevel1
End If
End With
Loop
End With

复制代码

上面的代码理解后，接下来的问题就解决了。举一反三就行。

y294945022 · 发表于 2018-10-8 21:21

ming0018 发表于 2018-10-8 17:17
上面的代码理解后，接下来的问题就解决了。举一反三就行。

虽然我没有接触过 word 的VBA. 还是要谢谢了！！！
顺便问下，这EXCEL 的VBA 与 WORD 的VBA 是完全一样的吗？只是语句上有些许差别吗？

ming0018 · 发表于 2018-10-9 11:19

y294945022 发表于 2018-10-8 21:21
虽然我没有接触过 word 的VBA. 还是要谢谢了！！！
顺便问下，这EXCEL 的VBA 与 WORD 的VBA 是完全一 ...

语法都一样，就是对象换了。

为善最乐 · 发表于 2018-10-11 09:30

我用的是使用通配符，批量查找，然后设置大纲级别的方法做的

y294945022 · 发表于 2018-10-11 12:15

为善最乐发表于 2018-10-11 09:30
我用的是使用通配符，批量查找，然后设置大纲级别的方法做的

你好，效果看了，非常到位，请教我一下，具体的操作流程吧，我也想到了使用了特殊字符去实现，可是在网上找了找，都没有。

谢谢了。

y294945022 · 发表于 2018-10-11 12:53

为善最乐发表于 2018-10-11 09:30
我用的是使用通配符，批量查找，然后设置大纲级别的方法做的

看到了，你说的通配符法，我去网上搜了一下教程，可操作时，遇到不少的问题，还希望“为善最乐”你不嫌麻烦的，给我讲一下稍详细些的步骤。
谢谢了

为善最乐 · 发表于 2018-10-17 22:11

本帖最后由为善最乐于 2018-10-17 22:49 编辑

不好意思，出去了几天没逛论坛，就没看到你的留言。我是这样做的
[一-﨩]．*^13 这样能搜到你想设的一级标题，在左下角的格式-段落-大纲级别设为1级
[0-9]{1,}．*^13 这样能搜到你想设的二级标题，在左下角的格式-段落-大纲级别设为2级
[a-z]．*^13 这样能搜到你想设的三级标题，在左下角的格式-段落-大纲级别设为3级
设置好之后，引用-目录-自定义目录-选项-大纲建自大纲级别勾选，显示级别为3级
注意：1.上面的．要从文件中复制，这样不容易出错
2.文件部分序号输入不规范，完后要仔细检查个别调整，也就是发现个别没纳入目录范围的，利用格式刷刷下
3.如果在查找替换中设置的段落级别无效就在开始-段落中设置 4.输入fa29选中，alt+x就是﨩

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

[求助] wrod中的大量带有数字顺序的行，如何快速将其设为一级目录、二级目录

评分