Batch Verander de volgorde van voor- en achternaam in een lijst in Word-document

In dit bericht laten we je graag zien hoe je in een Word-document批量 de volgorde van voor- en achternamen in een lijst kunt wijzigen.

Een Engelse naam bevat de voornaam, middelste naam en achternaam. En het is in precies dezelfde volgorde geschreven. Als gevolg van de globalisering wisselen mensen uit verschillende cultuurregio's nu vaker dan ooit met elkaar uit. Daarom zijn er tegenwoordig veel internationale conferenties. En namen in andere talen hebben vaak een andere volgorde. Daarom zijn er momenten waarop u de volgorde van voor- en achternaam in een lijst moet wijzigen. Het punt is hoe we het in batch kunnen doen.

Eigenlijk kunt u dit in Word bereiken met behulp van een macro. Volg onze onderstaande instructies.

Wijzig de volgorde van voornaam en achternaam in een lijst

1. Maak allereerst een tabel met twee kolommen en meerdere rijen in Word.
2. Voer in de eerste kolom namen in die de volgorde moeten wijzigen. Pas op dat u geen spatie achter namen invoert.
3. Laat de tweede kolom leeg.
4. Klik hierna op het tabblad "Ontwikkelaar" en klik op "Visual Basic" om de VBA-editor te activeren. Als het tabblad "Ontwikkelaar" niet beschikbaar is, drukt u in plaats daarvan op "Alt + F11".
5. Maak nu een nieuwe module aan door in de linkerkolom op “Normaal” te klikken.
6. Klik vervolgens op het tabblad "Invoegen" en kies "Module" in het vervolgkeuzemenu.
7. Dubbelklik vervolgens op nieuwe module om deze te openen.
8. En plak daar de volgende codes:

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. Klik ten slotte op "Uitvoeren".

U ontvangt nu een berichtvenster waarin u wordt geïnformeerd dat de uitwisseling is voltooid. In de tweede kolom ziet u de namen in nieuwe volgorde. Check hieronder het resultaat:

Uw laatste hoop om gegevens terug te halen

Het is onvermijdelijk dat we af en toe Word-problemen tegenkomen. Hoe triest het ook klinkt, het is ook heel waar. Maar u moet er rekening mee houden dat wanneer er een instorting optreedt in Word, er altijd dingen zijn die we kunnen doen. Probeer eerst de ingebouwde tool voor corrupt woord. Mocht het niet helpen, wat altijd het geval is, dan kunt u uw hoop verankeren in een geavanceerd reparatieproduct.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder xlsx herstellen en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com