Word大纲视图下，VBA如何获取每段的大纲级别

wjb305945078

形如以下的结构：一、A

正文

正文2

(一)     A.1

正文3

正文4

(二)     A.2

正文10

正文11

二、 B……
我用Vba代码在大纲视图下（代码ShowHeading 9后，已经看不到正文了），想获得各段的大纲级别，可是返回结果结果却是 1  10 10  10 等，不是正确想要的1 2 2 1……这种结果，代码如下：
Sub ParOutlineLevel()
   ActiveWindow.ActivePane.View.Type = wdOutlineView
   ActiveWindow.View.ShowHeading 9
   Dim mypar As Paragraph
   For Each mypar In ThisDocument.Paragraphs
       MsgBox mypar.Range.Paragraphs(1).OutlineLevel
   Next
End Sub
请问大家是何原因呢，以及在大纲模式下应如何解决 谢谢

wjb305945078

不要沉了，大家帮帮忙

sylun

如果只是针对标题样式（标题1至9）段落，可试试如下代码的效果：

1. Sub test()
   
2.     Dim astart As Long
   
3.     ActiveWindow.ActivePane.View.Type = wdPrintView
   
4.     With Selection
   
5.         .GoTo wdGoToHeading, wdGoToAbsolute, 1
   
6.         Do
   
7.             .Expand wdParagraph
   
8.             MsgBox .ParagraphFormat.OutlineLevel & vbTab & .Range.ListFormat.ListString & .text
   
9.             astart = .Start
   
10.             .GoTo wdGoToHeading, wdGoToNext, 1
    
11.         Loop Until .Start = astart
    
12.     End With
    
13. End Sub

复制代码

wjb305945078

sylun 发表于 2020-3-11 22:22
如果只是针对标题样式（标题1至9）段落，可试试如下代码的效果：

多谢多谢，这是一个方法。另外想通过大纲级别来读取的话，也是为了增加通用性，有些设置级别的时候不是通过标题样式来设置的，这时就有点烦了。而通过去循环每一段，对于篇幅长的，又太慢了

sylun

那可试试这种效果：

1. Sub test2()
   
2.    Dim myPar As Paragraph
   
3.    ActiveWindow.ActivePane.View.Type = wdOutlineView
   
4.    ActiveWindow.View.ShowHeading 9
   
5.    
   
6.    For Each myPar In ActiveDocument.Paragraphs
   
7.         With myPar.Range
   
8.             .Start = .End - 1
   
9.             .Select
   
10.             MsgBox .ParagraphFormat.OutlineLevel
    
11.         End With
    
12.    Next
    
13. End Sub

复制代码

wjb305945078

sylun 发表于 2020-3-11 23:48
那可试试这种效果：

好使，多谢