Numéroter automatiquement les paragraphes d'un document Word

La solution ci-dessous consiste simplement à remplacer le style "Normal" par le style "Liste à numéros".
On pourra ensuite modifier le style "Liste à numéros" pour améliorer le rendu, si on le souhaite.
Le programme saute les paragraphes vides (Parag.Range.Characters.Count > 1).

Sub MetLesNumeros()
Dim Parag As Paragraph
For Each Parag In ActiveDocument.Paragraphs
    If Parag.Style = "Normal" And Parag.Range.Characters.Count > 1 Then
        Parag.Range.Select
        Selection.Style = ActiveDocument.Styles("Liste à numéros")
    End If
Next Parag
ActiveDocument.Range(Start:=0, End:=0).Select
End Sub

Si on veut mettre les chiffres en gras, il suffit d'en sélectionner un, de le mettre en gras, et ils se mettent tous en gras automatiquement.