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 72,6% France
Canada 7,2% Canada
Belgique 4,0% Belgique

Total:

122

Pays
018327810
Aujourd'hui: 389
Hier: 171
Cette semaine: 389
Semaine dernière: 2.756
Ce mois: 3.528