Slik endrer du rekkefølgen på for- og etternavn i en liste i Word-dokument

I denne sost, vi er glade for å vise deg måten å endre rekkefølgen på for- og etternavn i en liste i Word-dokument.

Et engelsk navn inkluderer fornavn, mellomnavn og etternavn. Og det er skrevet i samme rekkefølge. Som et resultat av globaliseringen utveksler nå mennesker fra ulike kulturregioner med hverandre oftere enn noen gang. Derfor er det mange internasjonale konferanser i dag. Og navn på andre språk har en tendens til å ha en annen rekkefølge. Derfor er det tider når du trenger å endre rekkefølgen på for- og etternavn i en liste. Poenget er hvordan vi kan gjøre det i batch.

Faktisk kan du oppnå dette i Word ved hjelp av en makro. Følg instruksjonene våre nedenfor.

Endre rekkefølgen på fornavn og etternavn i en liste

1. Først og fremstost, lag en tabell med to kolonner med flere rader i Word.
2. I den første kolonnen skriver du inn navn som må endre rekkefølgen. Vær forsiktig så du ikke skriver inn mellomrom etter navn.
3. La den andre kolonnen stå tom.
4. Etter dette klikker du på "Utvikler"-fanen og klikker på "Visual Basic" for å utløse VBA-editoren. Hvis "Utvikler"-fanen ikke er tilgjengelig, trykk "Alt+ F11" i stedet.
5. Opprett nå en ny modul ved å klikke "Normal" i venstre kolonne.
6. Klikk deretter på "Sett inn"-fanen og velg "Modul" på rullegardinmenyen.
7. Dobbeltklikk deretter på ny modul for å åpne den.
8. Og lim inn følgende koder der:

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. Til slutt klikker du på "Kjør".

Nå vil du motta en meldingsboks som informerer deg om at utvekslingen er fullført. Du kan se navn i ny rekkefølge i den andre kolonnen. Sjekk resultatet nedenfor:

Ditt siste håp om å hente data tilbake

Uunngåelig ville vi støte på Word-problemer nå og da. Hvor trist det enn høres ut, er det også veldig sant. Men du må huske på at når en kollaps oppstår i Word, er det alltid ting vi kan gjøre. Prøv først det innebygde verktøyet for korrupte ord. Hvis det ikke skulle hjelpe, noe som er ganske tilfelle hele tiden, kan du forankre ditt håp i et avansert reparasjonsprodukt.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette xlsx og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med