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)
y = 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 = y + 1
End If
Next
Selection.HomeKey unit:=wdStory
MsgBox "Il y a " & y & " phrases qui contiennent plus de " & nbm & " mots"
End Sub
Dim mydoc As Document, x, nb, nbm As Integer
Set mydoc = ActiveDocument
nbm = InputBox("Combien de mots maximum ?", "Nombre de mots maximum", 15)
y = 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 = y + 1
End If
Next
Selection.HomeKey unit:=wdStory
MsgBox "Il y a " & y & " phrases qui contiennent plus de " & nbm & " mots"
End Sub
