Ein WordTips-Leser schrieb und fragte, wie man mit Word einige Daten sortiert, die im Laufe der Jahre gesammelt wurden. Die Daten sind für eine Anwaltskanzlei bestimmt, daher können die Namen Suffixe wie die folgenden enthalten:

John Davis, Esq.

Die Frage war, wie man das richtig sortiert, wie es der Leser unter WordPerfect konnte. Die beste langfristige Lösung besteht natürlich darin, die Daten in ein Datenbankformat wie Access oder sogar in eine Tabelle wie Excel zu konvertieren. Darüber hinaus ermöglicht das folgende Makro jedoch die korrekte Sortierung der 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

Um dieses Makro zu verwenden, wählen Sie einfach die Absätze aus, die Sie sortieren möchten, und führen Sie das Makro aus. Es sucht in jedem Absatz nach einem Komma und findet dann das Wort kurz vor dem Komma. Es ersetzt das Leerzeichen (oder die Registerkarte)

kurz vor diesem Wort mit einem Tabulator. Somit ist jeder Absatz in zwei Felder unterteilt: Der erste und möglicherweise der zweite Vorname ist das erste Feld, während der Nachname und das mögliche Suffix das zweite Feld sind. Die Auswahl wird dann nach dem zweiten Feld sortiert.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1207) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Odd Sorting.