Início / coding / Perguntas / 76947761
Accepted
Gen
Asked: 2023-08-22 02:06:46 +0800 CST

Word VBA, mova o cursor para o início do próximo número em uma lista numerada

  • 772

Digamos que eu tenha uma lista numerada, onde cada número é seguido por vários marcadores: como

  1. Lista Numerada1.
  • Lista com marcadores1
  • Lista com marcadores2
  1. Lista Numerada2
  • Lista com marcadores3
  • Lista com marcadores4
  1. Lista Numerada3.

Eu quero ser capaz de colocar meu cursor em qualquer lugar em "Numbered List1" e executar a macro para colocar meu cursor no início de Numbered List2, pulando todas as listas com marcadores entre elas

Aqui está o que eu consegui fazer..

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

Se eu colocar meu cursor em qualquer lugar em Numbered List1 e executar isso, ele só moverá meu cursor para Bulleted List1 quando eu quiser ir para o início de Numbered List2

vba

1 respostas

  1. Best Answer

    Experimente este código

    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

    Ele procura o próximo parágrafo de nível 1.

    • 0

relate perguntas