アウトラインの番号がなぜか連続しない

excelで作ったリストをもとに、wordのアウトラインにしたい

試験一覧を作った後、詳細書くのはwordにしたかった

とにかくparagraphを追加していったがうまくいかない

見出しとか、段落番号付けるところまではうまくいくんだけど
段落の内容を書くと、その次の段落から、段落番号がリセットされる

結局

追加したい本文を、一旦"見出し 3"にして作って、
全項目を書き込んだ後に
"見出し 3"を"標準"に戻すことで解決(？)した

wordDoc.Paragraphs.Add
With wordDoc.Paragraphs.Last
    .Range.Text = "   "
    .Style = wdStyleHeading3
    .Range.ListFormat.ListIndent
    .Range.ListFormat.ListIndent
    .Range.ListFormat.ListIndent
　　.Range.ListFormat.ApplyOutlineNumberDefault
End With

こんな感じで追加して

For pgs = 1 To wordDoc.Paragraphs.Count

    Dim p As Paragraph

    Set p = wordDoc.Paragraphs(pgs)

    If p.Style = "見出し 3" Then
        p.Style = wdStyleBodyText
    End If
Next pgs

全項目追加して、ファイルを閉じる直前で変更した