user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

 

En savoir plus.

Vote utilisateur: 5 / 5

Etoiles activesEtoiles activesEtoiles activesEtoiles activesEtoiles actives
 

Via une macro.

Cette macro va ajouter 12 avant chaque paragraphe 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

Aujourd'hui147
Hier3318
Cette semaine13564
Ce mois76361
Total depuis 200412594993

10
visiteurs actuellement en ligne

27 novembre 2020