如何在一级标题上自动批量加上编号，然后居中排列？

陈王宇翔

如何在一级标题上自动批量加上编号，然后居中排列？ 1.rar (135.17 KB, 下载次数: 9)

2019-7-19 10:34 上传

点击文件名下载附件

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- 学术

duquancai

周末，发放福利》》》》》》》》》》》》》》》

duquancai

周末啦！发放福利：

1. Sub main()
   
2.     Dim doc As Document, num&
   
3.     Set doc = ActiveDocument
   
4.     With doc.Content.Find
   
5.         .Style = doc.Styles("标题 1")
   
6.         Do While .Execute
   
7.             num = num + 1
   
8.             With .Parent.Paragraphs(1).Range
   
9.                 .End = .Start
   
10.                 .MoveEndWhile "0123456789." & vbTab
    
11.                 .Text = num & "." & vbTab
    
12.             End With
    
13.         Loop
    
14.     End With
    
15. End Sub

复制代码

daibao88

好！学习了.