Wordの段落番号には「1から再開」という機能がありますが、VBAではどのようにすればよいでしょうか?
例えば契約書の項の番号は各条に紐づいて1もしくは2から始まると思いますが、「1から再開」をしないと条をまたいで項の番号が連番されてしまいます。
<<NG>>
第1条
1.甲及び乙は…
2.甲は…
第2条
3.甲は…
<<OK>>
第1条
1.甲及び乙は…
2.甲は…
第2条
1.甲は…
どなたかWordのVBAでコードをご存じの方はお願いします。
Private Sub ms_1から再開_()
Dim lv_Paragraphs_ As Paragraphs
Set lv_Paragraphs_ = ActiveDocument.Paragraphs
Dim lv_Is条跨ぎ_ As Boolean
Dim lv_Index_ As Long
For lv_Index_ = 1 To lv_Paragraphs_.Count
Dim lv_Style_ As String
lv_Style_ = lv_Paragraphs_.Item(lv_Index_).Range.Style
If lv_Style_ = "条" Then lv_Is条跨ぎ_ = True: GoTo Continue
lv_Paragraphs_.Item(lv_Index_).Range.Style = "項A"
If lv_Is条跨ぎ_ Then
lv_Paragraphs_.Item(lv_Index_).Range.Select
Selection.Range.ListFormat.ApplyListTemplateWithLevel _
ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(7), _
ContinuePreviousList:=False, _
ApplyTo:=wdListApplyToWholeList
lv_Is条跨ぎ_ = False
End If
Continue:
Next
End Sub