Início / computer / Perguntas / 1685781
Accepted
wordexperto.com
Asked: 2021-11-06 09:14:31 +0800 CST

Continuar a numeração na lista personalizada

  • 772

Eu tenho uma macro para criar uma lista personalizada. A lista é dos ordinais espanhóis no feminino. Este é o código:

Sub ListaFemenino ()
Dim arrNumbers As Variant
Dim i As Long
Dim rng As Range
arrNumbers = Split ("Primera Segunda Tercera Cuarta Quinta Sexta Séptima Octava Novena")
Set rng = Selection.Range
For i = 1 To rng.Paragraphs.Count
     With rng.Paragraphs (i) .Range
         .Text = arrNumbers (i - 1) & vbTab & .FormattedText
         .ParagraphFormat.TabHangingIndent 2
     End With
Next i
Exit Sub
End Sub

Eu preciso, se possível, que você me dê a opção, toda vez que eu quiser aplicá-lo no mesmo documento para continuar a lista ou reiniciá-lo de 1, Primera neste caso.

Na verdade o que eu preciso é que ele me ofereça a opção de continuar a numeração porque reiniciá-lo de 1 é o que ele faz.

microsoft-word list

1 respostas

  1. Best Answer

    Ref: https://docs.microsoft.com/en-us/dotnet/visual-basic/programming-guide/language-features/procedures/optional-parameters

    ' 1 como valor padrão se nada for dado como parâmetro
Sub ListaFemenino (s enquanto = 1)

...
Para i = s Para rng.Paragraphs.Count
...

    ... com isso você precisa detectar de onde continuar, como isso deve ser feito depende de onde você o usa.

    • 2

relate perguntas