Word VBA需求：将光标跳转至编号列表的下一个编号项开头

问题场景 #

文档结构示例：

1. Numbered List1.
   • Bulleted List1
   • Bulleted List2
2. Numbered List2
   • Bulleted List3
   • Bulleted List4
3. Numbered List3.

需求：光标处于任意编号项的任意位置时，运行宏后直接跳转到下一个编号项的开头，跳过中间所有项目符号列表。

原宏代码的问题：当前编写的宏只会跳转到第一个项目符号行，无法实现直接定位到下一个编号项的需求。

修正后的宏代码 #

Sub MoveToNextNumberedListItem()
    Dim currentPara As Paragraph
    Dim nextPara As Paragraph
    
    ' 确认当前光标在列表段落中
    If Selection.Paragraphs(1).Range.ListParagraphs.Count > 0 Then
        Set currentPara = Selection.Paragraphs(1)
        
        ' 遍历后续段落，找到下一个同级别编号列表项
        For Each nextPara In currentPara.Next.Paragraphs
            ' 检查是否为编号列表，且级别与当前项一致
            If nextPara.Range.ListParagraphs.Count > 0 Then
                If nextPara.Range.ListFormat.ListType = wdListNumbering _
                    And nextPara.Range.ListFormat.ListLevelNumber = currentPara.Range.ListFormat.ListLevelNumber Then
                    ' 定位到目标段落开头
                    nextPara.Range.Select
                    Selection.HomeKey Unit:=wdLine
                    Exit Sub
                End If
            End If
        Next nextPara
    End If
End Sub

代码说明 #

• 原代码仅简单向下移动一行，没有判断目标段落的类型，所以会直接跳到项目符号行。
• 新代码逻辑：
  1. 先获取当前光标所在的编号段落
  2. 逐个遍历后续段落，筛选出同级别编号列表项：
     • 通过wdListNumbering判断是编号类型，排除项目符号列表
     • 确保列表级别和当前项一致，避免误跳到嵌套的子级编号
  3. 找到符合条件的段落，直接定位到其开头并退出循环

内容的提问来源于stack exchange，提问作者Gen