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'hui26
Hier1747
Cette semaine5202
Ce mois24495
Total depuis 200418227035

4
visiteurs actuellement en ligne

18 avril 2024