新・数字で始まる段落を見出しに設定して、目次を作成する【素人 Word マクロ】

Microsoft officeのWordVBAでマクロを組みましたので公開します。
インターネットで検索したり、マクロの記録機能を使ったりしたのを組み合わせだけなので、上手くはないですが、一応動くはずです。
office2021です。
必ず、元データのバックアップを取ってから実行してください。
素人の作ったものなので、信用しすぎないでください。

前作を変えて、不具合を更新しました。

［コード］

Sub 節タイトル変更と目次作成()
    Dim doc As Document
    Dim para As Paragraph

    ' ワード文書を設定
    Set doc = ActiveDocument
    
    ' ドキュメントの最初に移動
    Selection.HomeKey Unit:=wdStory
    
    ' 半角数字から始まる段落を見つけてスタイルを設定（表内の段落を除く）
    For Each para In doc.Paragraphs
        If Not para.Range.Information(wdWithInTable) Then
            If para.Range.Words(1).Characters(1).Text Like "[0-9]" Then
                para.Style = "見出し 1"
                para.Range.Font.Name = "BIZ UDPゴシック"
                para.Range.Font.Size = 12
            End If
        End If
    Next para
    
    ' ドキュメントの最後に移動
    Selection.EndKey Unit:=wdStory
    
    ' 目次を作成
    doc.TablesOfContents.Add Range:=Selection.Range, _
        RightAlignPageNumbers:=True, _
        UseHeadingStyles:=True, _
        IncludePageNumbers:=True, _
        AddedStyles:="見出し 1"
    
    ' 目次のフォーマットを更新
    doc.TablesOfContents(1).Update
End Sub

［注意点］

１.　２.　のように、ピリオドをつけてください。