主页 / computer / 问题 / 1685781
Accepted
wordexperto.com
Asked: 2021-11-06 09:14:31 +0800 CST

在自定义列表中继续编号

  • 772

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

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 重新启动它，在这种情况下是Primera 。

实际上，我需要它为我提供继续编号的选项，因为从 1 重新启动它就是它的作用。

microsoft-word list

1 个回答

  1. Best Answer

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

    ' 如果没有给出任何参数，则 1 作为默认值
Sub ListaFemenino (s as long = 1)

...
For i = s To rng.Paragraphs.Count
...

    ...有了这个，您需要检测从哪里继续，如何完成取决于您使用它的位置。

    • 2

相关问题