在自定义列表中继续编号

Question

我有一个宏来创建自定义列表。该列表是西班牙语阴性序数词。这是代码：

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

如果可能的话，我需要你给我一个选项，每次我想在同一个文档中应用它来继续列表或从 1 重新开始，西甲在这种情况下。

实际上我需要的是它能为我提供以下选择继续编号因为它的作用是从 1 重新启动。

Answer 1

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

' 如果没有提供任何参数，则默认值为 1
Sub ListaFemenino (s 长度 = 1)

...
对于 i = s 到 rng.Paragraphs.Count
...

...有了这个，您接下来需要检测从哪里继续，如何继续则取决于您在哪里使用它。