[难度挑战?]如何获取文档结构图中章节并下拉列表化来定位。参GetCrossReferenceItems

复制内容到剪贴板

代码:

Option Explicit

Sub test()
   GetParagraphText
   LocateToParagraph "10.7.1"
End Sub

Sub LocateToParagraph(paraName As String)
   Dim iListParagraphsCount As Integer, i As Integer
   iListParagraphsCount = ActiveDocument.ListParagraphs.Count
   For i = 1 To iListParagraphsCount
      With ActiveDocument.ListParagraphs(i)
        If .OutlineLevel <> wdOutlineLevelBodyText Then
           Debug.Print .Range.ListFormat.ListString
           Debug.Print .Range.Text
           If .Range.ListFormat.ListString = paraName Then
              Application.Selection.SetRange .Range.Start, .Range.Start
              ActiveWindow.ScrollIntoView .Range
              Exit Sub
           End If
        End If
      End With
   Next i
End Sub

Sub GetParagraphText()
   Dim paragraphItems() As String, i As Integer
   paragraphItems() = ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading)
   For i = 1 To UBound(paragraphItems)
      Debug.Print paragraphItems(i)
   Next i
End Sub