Odd Sorting

November 5  by Eliza

En WordTips leser skrev spørre hvordan du bruker Word til å sortere noen data som hadde blitt samlet inn i løpet av årene. Dataene er for et advokatfirma, så navnene kunne ha suffikser, for eksempel følgende:

John Davis, Esq.

Spørsmålet var hvordan å sortere dette riktig, som leseren var i stand til å gjøre i henhold til Wordperfect. Den beste langsiktige løsningen, selvfølgelig, er å konvertere dataene til en database format, for eksempel Access eller til og med til et regneark, for eksempel Excel. Kort av det, men vil følgende makro tillate listen skal sorteres på riktig måte:

Sub CustomSort ()
Satt myrange = Selection.Range
For hver p I myrange.Paragraphs
p.Range.Select
Hvis InStr (1, s, ",")> 0 Then
CharCount = InStr (1, s, ",") - 1
Selection.StartOf
Selection.MoveRight Enhet: = wdCharacter, _
Count: = CharCount
Else
Selection.EndOf
Selection.MoveLeft Enhet: = wdCharacter, _
Count: = 1
End If
Selection.MoveLeft Enhet: = wdWord, Count: = 1
Selection.MoveLeft Enhet: = wdCharacter, _
Count: = 1, Extend: = wdExtend
Selection.TypeText Tekst: = vbTab
Neste p
myrange.Select
Selection.Sort ExcludeHeader: = False, _
FieldNumber: = "Field 2", _
SortFieldType: = wdSortFieldAlphanumeric, _
Sortering: = wdSortOrderAscending, _
FieldNumber2: = "Field 1", _
SortFieldType2: = wdSortFieldAlphanumeric, _
SortOrder2: = wdSortOrderAscending, _
FieldNumber3: = "", _
SortFieldType3: = wdSortFieldAlphanumeric, _
SortOrder3: = wdSortOrderAscending, _
Separator: = wdSortSeparateByTabs, _
SortColumn: = False, _
CaseSensitive: = False, _
LanguageID: = wdLanguageNone
End Sub

For å bruke denne makroen, velger du bare de avsnittene du vil sortere, og deretter kjøre makroen. Den søker etter et komma i hvert avsnitt, og finner ordet rett før komma da. Den erstatter plass (eller fane) like før det ordet med en fane. Dermed er hvert avsnitt delt i to felt: den første og muligens mellomnavn er det første feltet, mens den etternavn og mulig suffikset er det andre feltet. Utvelgelsen blir deretter sortert i henhold til det andre feltet.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (1207) gjelder for Microsoft Word 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Word (Word 2007 og senere) her: Odd sortering.