Tim a une liste d’éléments dans un document Word. Chaque élément est dans son propre paragraphe (Entrez à la fin) et non dans un tableau. Certains éléments (paragraphes) sont mis en évidence. Tim se demande s’il existe un moyen de trier les paragraphes afin que les paragraphes en surbrillance soient ensemble. En d’autres termes, il doit trier par surbrillance comme clé de tri primaire.

Word peut trier par beaucoup de choses, mais le tri par mise en évidence ne fait pas partie de ces choses. Cependant, Rechercher et remplacer peut rechercher la mise en évidence. Une méthode consiste à utiliser Rechercher et remplacer pour préfixer chaque paragraphe en surbrillance avec un mot-clé unique, exécuter à nouveau Rechercher et remplacer pour préfixer les paragraphes non mis en surbrillance avec un autre mot-clé, puis trier le document en utilisant le premier mot comme première clé afin que le les paragraphes sont ensemble. Ensuite, exécutez Rechercher et remplacer pour supprimer les deux mots clés spéciaux. Évidemment, cette méthode est délicate à mettre en place et nécessite plusieurs étapes.

Une autre approche consiste simplement à trier tous les paragraphes, sans tenir compte de la mise en évidence. Une fois que cela est fait, vous pouvez utiliser une macro pour déplacer les paragraphes en surbrillance au début du document. Les paragraphes en surbrillance apparaîtront dans l’ordre trié dans lequel ils étaient dans le document.

Sub MoveHighlightedParas()

Dim paraMax As Long     Dim paraStart As Long     Dim j As Long     Dim r As Range

With ActiveDocument         paraMax = .Paragraphs.Count         paraStart = 0         j = paraMax         Do While j > paraStart             If .Paragraphs(j).Range.HighlightColorIndex <> wdNoHighlight Then                 .Paragraphs(j).Range.Cut                 Set r = .Content                 r.Collapse                 r.Paste                 paraStart = paraStart + 1             Else                 j = j - 1             End If         Loop     End With End Sub

_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 (13272) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365.