Le mieux eût été bien évidemment d'utiliser un style.

Toutefois, il n'est pas trop tard et on peut utiliser une macro.

La macro suivante va ajouter 12 points avant chaque paragraphe saisi en gras :

Sub gras()
'macro écrite par m@rina
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
If para.Range.Font.Bold = True Then
para.SpaceBefore = 12
End If
Next
End Sub

Et si vous voulez ajouter des paragraphes vides, voici la macro :

Sub gras2()
'macro écrite par m@rina
Dim para As Paragraph
For Each para In ActiveDocument.Paragraphs
If para.Range.Font.Bold = True Then
para.Range.Select
Selection.InsertBefore Chr(13)
End If
Next
End Sub