

Wordの段落番号には「1から再開」という機能がありますが、VBAではどのようにすればよいでしょうか？

例えば契約書の項の番号は各条に紐づいて１もしくは２から始まると思いますが、「1から再開」をしないと条をまたいで項の番号が連番されてしまいます。

＜＜NG＞＞  
第1条  
１．甲及び乙は…  
２．甲は…

第2条  
３．甲は…

＜＜OK＞＞  
第1条  
１．甲及び乙は…  
２．甲は…

第2条  
１．甲は…

どなたかWordのVBAでコードをご存じの方はお願いします。

[code]

    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
    
[/code]


CC BY-SA 4.0
2023-12-02T10:43:53.823
96959
2023-12-02T13:09:27.767
2023-12-02T13:09:27.767
60595
60595
question
vba
WordのVBAで段落番号を「1から再開」にしたい