Stapeln Ändern der Reihenfolge von Vor- und Nachnamen in einer Liste im Word-Dokument

In diesem Beitrag zeigen wir Ihnen gerne, wie Sie die Reihenfolge von Vor- und Nachnamen in einer Liste in einem Word-Dokument stapelweise ändern können.

Ein englischer Name enthält den Vornamen, den zweiten Vornamen und den Nachnamen. Und es ist in der gleichen Reihenfolge geschrieben. Infolge der Globalisierung tauschen sich Menschen aus verschiedenen Kulturregionen heute häufiger als je zuvor aus. Folglich gibt es heutzutage viele internationale Konferenzen. Und Namen in anderen Sprachen haben normalerweise eine andere Reihenfolge. Daher gibt es Zeiten, in denen Sie die Reihenfolge von Vor- und Nachnamen in einer Liste ändern müssen. Der Punkt ist, wie wir es im Batch machen können.

Tatsächlich können Sie dies in Word mithilfe eines Makros erreichen. Befolgen Sie unsere Anweisungen unten.

Ändern Sie die Reihenfolge von Vor- und Nachname in einer Liste

1. Als Erstes erstellen Sie in Word eine zweispaltige Tabelle mit mehreren Zeilen.
2. Geben Sie in der ersten Spalte Namen ein, die die Reihenfolge ändern müssen. Achten Sie darauf, kein Leerzeichen nach den Namen einzugeben.
3. Lassen Sie die zweite Spalte leer.
4. Klicken Sie anschließend auf die Registerkarte "Entwickler" und dann auf "Visual Basic", um den VBA-Editor auszulösen. Wenn die Registerkarte "Entwickler" nicht verfügbar ist, drücken Sie stattdessen "Alt + F11".
5. Erstellen Sie nun ein neues Modul, indem Sie in der linken Spalte auf "Normal" klicken.
6. Klicken Sie dann auf die Registerkarte "Einfügen" und wählen Sie "Modul" in seinem Dropdown-Menü.
7. Doppelklicken Sie anschließend auf ein neues Modul, um es zu öffnen.
8. Und fügen Sie dort die folgenden Codes ein:

Sub ExchangeNameOrder()
  Dim strOriginalName As String, strNewName As String
  Dim aryOriginalName() As String
  Dim nIndex As Integer
  Dim objTable As Table
  Dim objOriginalName As Cell
  Dim objOriginalNameRange As Range
  Dim objExchangedNameRange As Range
  Dim nRowNumber As Integer
  
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  '  Traversing the names in column 1
  For Each objOriginalName In objTable.Columns(1).Cells
    Set objOriginalNameRange = objOriginalName.Range
    objOriginalNameRange.MoveEnd Unit:=wdCharacter, Count:=-1
    Set objExchangedNameRange = objTable.Cell(i, 2).Range
    objExchangedNameRange.MoveEnd Unit:=wdCharacter, Count:=-1
 
    strOriginalName = objOriginalNameRange.Text
    aryOriginalName() = Split(strOriginalName, " ")
 
    '  Exchange the order of first name and last name, and put the new name in column 2.
    If UBound(aryOriginalName) > 0 Then
      strNewName = aryOriginalName(UBound(aryOriginalName))
 
      For nIndex = 1 To UBound(aryOriginalName) - 1
        strNewName = strNewName & " " & aryOriginalName(nIndex)
      Next nIndex
 
      strNewName = strNewName & " " & aryOriginalName(0)
      objExchangedNameRange.InsertAfter (strNewName)
    Else
      objExchangedNameRange.InsertAfter (strOriginalName)
    End If

    nRowNumber = nRowNumber + 1
 
  Next objOriginalName
  MsgBox ("The first name and last name have been exchanged the order in column2.")
End Sub

9. Klicken Sie abschließend auf "Ausführen".

Jetzt erhalten Sie ein Meldungsfeld, in dem Sie darüber informiert werden, dass der Austausch abgeschlossen wurde. In der zweiten Spalte sehen Sie Namen in neuer Reihenfolge. Überprüfen Sie das Ergebnis unten:

Ihre letzte Hoffnung, Daten zurückzugewinnen

Unweigerlich stießen wir ab und zu auf Word-Probleme. So traurig es auch klingt, es ist auch sehr wahr. Beachten Sie jedoch, dass wir immer dann etwas tun können, wenn in Word ein Zusammenbruch auftritt. Probieren Sie zuerst das eingebaute Tool für aus korruptes Wort. Wenn es nicht helfen sollte, was immer der Fall ist, können Sie Ihre Hoffnung auf ein fortschrittliches Reparaturprodukt verankern.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich xlsx wiederherstellen und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX