如何让文档中的标题自动编号？

陈王宇翔

以前手工编过号，后来顺序调整后，标题前的序号乱了，没有跟着自动调整，如何批量把文档中的标题改成下列的：1.        -able- 能
2.        -auth-, -aug-, -auct-,-aux- = increase创造,增加
3.        –(a)esthe-,- (a)esthes- = feeling
4.        -ac-,-acu-,-acr-,-acer-,-acet- = sharp, bitter; vinegar
5.        -academy- 学术

1.rar (135.17 KB, 下载次数: 8)

2019-7-18 19:33 上传

点击文件名下载附件

413191246se

楼主，请试用我的《Word2003 & 2007 VBA 自动排版宏（集成版）2019-7-9》，按 F7 普通排版，F8 公文排版，均可以自动编号，无需人工编号。

413191246se

1. Sub test自动编号()
   
2. '未选则全选
   
3.     Dim r As Range, a As Range, n&, i&
   
4.     With Selection
   
5.         If .Type = wdSelectionIP Then .WholeStory
   
6.         If .Start = 0 Then
   
7.             .InsertBefore Text:=vbCr
   
8.             i = 1
   
9.         Else
   
10.             .MoveStart 1, -1
    
11.         End If
    
12.         Set r = .Range
    
13.         Set a = .Range
    
14.     End With
    
15.     With r.Find
    
16.         .ClearFormatting
    
17.         .Text = "^13[0-9. 　^s^t,，]{1,}"
    
18.         .Forward = True
    
19.         .MatchWildcards = True
    
20.         Do While .Execute
    
21.             With .Parent
    
22.                 .MoveStart
    
23.                 n = n + 1
    
24.                 .Text = n & ". "
    
25.                 .Font.Color = wdColorRed '红色（此行代码可删除）
    
26.                 .SetRange Start:=.End, End:=a.End
    
27.             End With
    
28.         Loop
    
29.     End With
    
30.     If i = 1 Then ActiveDocument.Paragraphs(1).Range.Delete
    
31. End Sub

复制代码

陈王宇翔

413191246se 发表于 2019-7-19 10:29

执行这个程序后，没有变化。

陈王宇翔

413191246se 发表于 2019-7-19 10:29

试了大师的自动排版宏，加载到菜单后，不知道用哪个来排版，也添加到信任，启用宏了，但按上面的菜单还是提示什么未开启。

413191246se

楼主，也许你下载后，未阅读其使用说明，我建议你先耐心阅读一下使用说明，再应用；另请说明一下所使用 Word 版本。

陈王宇翔

413191246se 发表于 2019-7-20 00:27
楼主，也许你下载后，未阅读其使用说明，我建议你先耐心阅读一下使用说明，再应用；另请说明一下所使用 Wor ...

office2019版本，可能是版本不一样。

413191246se

楼主，请在你的 Word2019 中录制一个宏，然后，将我的代码第一行即“Option Explicit”删除，然后全选复制到你的 VBE 中执行《aaaa自定义》宏，退出 Word，再重新打开即可。F8：公文排版，F7：普通排版。