统计文档中所有大纲级别的总数

大罡

1. Sub countOutlineLevels()
   
2. 
   
3.   Dim rng As Range
   
4.   Set rng = ActiveDocument.Content
   
5.   Dim icount As Long
   
6.   Dim totalPara As Integer
   
7.   totalPara = 0
   
8.   
   
9.   For i = 1 To 9
   
10.         icount = 0 '重置计数器
    
11.         With rng.find
    
12.             .ClearFormatting
    
13.             .ParagraphFormat.outlineLevel = i
    
14.             .Wrap = wdFindStop
    
15.             Do While .Execute
    
16.                 icount = icount + 1
    
17.             Loop
    
18.         End With
    
19.         totalPara = totalPara + icount
    
20.   Next
    
21.    
    
22.   MsgBox totalPara
    
23. 
    
24. End Sub
    

复制代码

对于复杂文档 ，这个代码 在 do...loop出发生了错误。进入了死循环，不知道该如何 修改，请高收 帮忙 看看。

在word 查找，格式-段落-大纲级别，然后选择 在主文档查找， word显示，找到29个与此条件相匹配的项

batmanbbs

代码我这里运行没有问题啊。
另外，看你的代码，好像使用一个计数器就可以，为什么要设置两个呢？