Recherche

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

Statistiques

France 76,0% France
Canada 7,9% Canada
États-Unis d'Amérique 4,7% États-Unis d'Amérique

Total:

66

Pays
018274372
Aujourd'hui: 12
Hier: 145
Cette semaine: 695
Semaine dernière: 783
Ce mois: 2.634