user_mobilelogo

Vous souhaitez faire des phrases plus courtes. Voici une macro à appliquer une fois le document saisi. Elle vous demande le nombre de mots maximum par phrase. Ensuite elle va surligner de jaune toutes les phrases qui dépassent ce nombre de mots.

Sub phrases()
Dim mydoc As Document, x, nb, nbm As Integer
Set mydoc = ActiveDocument
nbm = InputBox("Combien de mots maximum ?""Nombre de mots maximum"15)
= 0
For x = 1 To mydoc.Sentences.Count
mydoc.Sentences(x).Select
nb = Selection.Words.Count
If nb > nbm Then
Selection.Range.HighlightColorIndex = wdYellow
= y + 1
End If
Next
Selection.HomeKey unit:=wdStory
MsgBox "Il y a " & y & " phrases qui contiennent plus de " & nbm & " mots"

End Sub

 

Statistiques

Aujourd'hui1865
Hier1800
Cette semaine3665
Ce mois36759
Total depuis 200417934232

8
visiteurs actuellement en ligne

20 février 2024