Word-VBA读取文档目录

Sub Test()
   Dim ol_Par(), myPar As Paragraph, i_OL As Integer, i_Count As Integer, i_Temp As Integer, str_Temp As String
   If Not ActiveWindow.DocumentMap Then
      If MsgBox("文档结构图没有打开，你要打开它吗？", 1) = 1 Then
         ActiveWindow.DocumentMap = True
      Else
         Exit Sub
      End If
   End If
   For Each myPar In ActiveDocument.Paragraphs
      i_OL = myPar.OutlineLevel
      If i_OL < 10 Then
         i_Count = i_Count + 1
         ReDim Preserve ol_Par(2, i_Count)
         ol_Par(1, i_Count) = i_OL
         Set ol_Par(2, i_Count) = myPar.Range
      End If
   Next
   
   For i_Temp = 1 To i_Count
      MsgBox "文档结构图中第" & i_Temp & "行文字为：" & ol_Par(2, i_Temp) & "大纲级别为：" & ol_Par(1, i_Temp) & "级"
      str_Temp = str_Temp & ol_Par(2, i_Temp)
   Next
   MsgBox "文档结构图中的所有文字为：" & str_Temp 

End Sub