Bruce cherche un moyen pour que Word marque automatiquement de longues phrases dans un document. Par exemple, il peut souhaiter que ces phrases de plus de 20 mots soient marquées d’une certaine couleur afin qu’elles soient facilement localisées.

Heureusement, Word gère une collection Sentences, accessible via VBA, qui se compose de chaque phrase d’un document. Vous pouvez examiner chaque élément de cette collection (chaque phrase individuelle) pour déterminer s’il est plus long que la longueur souhaitée. La macro suivante fournit un exemple de la façon dont cela est fait.

Sub Mark_Long()

Dim iMyCount As Integer     Dim iWords As Integer

If Not ActiveDocument.Saved Then         ActiveDocument.Save     End If

'Reset counter     iMyCount = 0

'Set number of words     iWords = 20

For Each MySent In ActiveDocument.Sentences         If MySent.Words.Count > iWords Then              MySent.Font.Color = wdColorRed             iMyCount = iMyCount + 1         End If     Next     MsgBox iMyCount & " sentences longer than " & _       iWords & " words."

End Sub

Notez que chaque phrase est examinée, et si elle est plus longue que la longueur souhaitée (définie par la variable iWords) alors la phrase est changée en une couleur de police rouge. Cela facilite l’examen du document et la découverte des phrases dépassant la longueur spécifiée.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (11909) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour le ancienne interface de menu de Word ici:

link: / word-Finding_Long_Sentences [Recherche de longues phrases].