Un lecteur WordTips a écrit pour demander comment utiliser Word pour trier certaines données qui avaient été collectées au cours des années. Les données sont destinées à un cabinet juridique, les noms peuvent donc avoir des suffixes, tels que les suivants:

John Davis, Esq.

La question était de savoir comment trier cela correctement, comme le lecteur a pu le faire sous WordPerfect. La meilleure solution à long terme, bien sûr, est de convertir les données dans un format de base de données, tel qu’Access ou même dans une feuille de calcul, comme Excel. À part cela, la macro suivante permettra de trier correctement la liste:

Sub CustomSort()

Set myrange = Selection.Range     For Each p In myrange.Paragraphs         p.Range.Select         If InStr(1, p, ",") > 0 Then             CharCount = InStr(1, p, ",") - 1             Selection.StartOf             Selection.MoveRight Unit:=wdCharacter, _               Count:=CharCount         Else             Selection.EndOf             Selection.MoveLeft Unit:=wdCharacter, _               Count:=1         End If         Selection.MoveLeft Unit:=wdWord, Count:=1         Selection.MoveLeft Unit:=wdCharacter, _           Count:=1, Extend:=wdExtend         Selection.TypeText Text:=vbTab     Next p     myrange.Select     Selection.Sort ExcludeHeader:=False, _       FieldNumber:="Field 2", _       SortFieldType:=wdSortFieldAlphanumeric, _       SortOrder:=wdSortOrderAscending, _       FieldNumber2:="Field 1", _       SortFieldType2:=wdSortFieldAlphanumeric, _       SortOrder2:=wdSortOrderAscending, _       FieldNumber3:="", _       SortFieldType3:=wdSortFieldAlphanumeric, _       SortOrder3:=wdSortOrderAscending, _       Separator:=wdSortSeparateByTabs, _       SortColumn:=False, _       CaseSensitive:=False, _       LanguageID:=wdLanguageNone End Sub

Pour utiliser cette macro, sélectionnez simplement les paragraphes que vous souhaitez trier, puis exécutez la macro. Il recherche une virgule dans chaque paragraphe, puis trouve le mot juste avant la virgule. Il remplace l’espace (ou la tabulation)

juste avant ce mot avec une tabulation. Ainsi, chaque paragraphe est séparé en deux champs: le premier et éventuellement le deuxième champ est le premier champ, tandis que le nom et le suffixe éventuel sont le deuxième champ. La sélection est ensuite triée selon le deuxième champ.

_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 (10077) 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:

lien: / word-Odd_Sorting [Tri impair].