主页 / coding / 问题 / 76947761
Accepted
Gen
Asked: 2023-08-22 02:06:46 +0800 CST

Word VBA，将光标移动到编号列表中下一个数字的开头

  • 772

假设我有一个编号列表，其中每个数字后面跟着几个要点：例如

  1. 编号列表 1.
  • 项目符号列表1
  • 项目符号列表2
  1. 编号列表2
  • 项目符号列表3
  • 项目符号列表4
  1. 编号列表3。

我希望能够将光标放在“编号列表 1”中的任何位置，并运行宏以将光标放在编号列表 2 的开头，跳过其间的所有项目符号列表

这就是我能做的..

Sub MoveToNextNumberedListItem()
    ' This checks if cursor is in a numbered list
    If Selection.paragraphs(1).Range.ListParagraphs.count > 0 Then
        ' Moves cursor to end of that line
        Selection.EndKey Unit:=wdLine

        ' Moves the cursor to the beginning of the next list item
        Selection.MoveDown Unit:=wdLine
        Selection.HomeKey Unit:=wdLine
    End If
End Sub

如果我将光标放在编号列表 1中的任意位置并运行此命令，当我希望它转到编号列表 2 的开头时，它只会将光标移动到项目符号列表 1

vba

1 个回答

  1. Best Answer

    试试这个代码

    Sub MoveToNextNumberedListItem()
Dim rg As Range
Set rg = Selection.Range

If rg.Paragraphs(1).Range.Start = ActiveDocument.Content.Paragraphs.Last.Range.Start Then Exit Sub
If rg.ListParagraphs.Count = 0 Then Exit Sub

Do
    Set rg = rg.ListParagraphs(1).Next.Range
Loop Until rg.ListFormat.ListLevelNumber = 1

rg.Collapse wdCollapseStart
rg.Select

End Sub

    它查找下一个 1 级段落。

    • 0

相关问题