Kako grupno promijeniti redoslijed imena i prezimena na listi u Word dokumentu

U ovom postu, drago nam je što vam možemo pokazati način kako grupno promijeniti redoslijed imena i prezimena na listi u Word dokumentu.

Englesko ime uključuje ime, srednje ime i prezime. I piše se istim redom. Kao rezultat globalizacije, ljudi iz različitih regiona kulture sada se međusobno razmjenjuju češće nego u bilo koje vrijeme. Shodno tome, danas postoji mnogo međunarodnih konferencija. I imena na drugim jezicima obično imaju drugačiji redoslijed. Stoga, postoje slučajevi kada trebate promijeniti redoslijed imena i prezimena na listi. Poenta je kako to možemo učiniti u serijama.

Zapravo, to možete postići u Wordu uz pomoć makronaredbe. Slijedite naša uputstva u nastavku.

Promijenite redoslijed imena i prezimena na listi

1. Prvo i najvažnije, kreirajte tabelu sa 2 kolone i više redova u Wordu.
2. U prvu kolonu unesite imena koja trebaju promijeniti redoslijed. Pazite da ne unesete razmak iza imena.
3. Ostavite drugu kolonu praznom.
4. Nakon toga, kliknite na karticu "Developer" i kliknite na "Visual Basic" da pokrenete VBA editor. Ako kartica "Developer" nije dostupna, umjesto toga pritisnite "Alt+ F11".
5. Sada kreirajte novi modul klikom na “Normal” u lijevoj koloni.
6. Zatim kliknite karticu "Umetni" i odaberite "Modul" na padajućem izborniku.
7. Zatim dvaput kliknite na novi modul da ga otvorite.
8. I tamo zalijepite sljedeće kodove:

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. Na kraju, kliknite na “Run”.

Sada ćete dobiti kutiju s porukom koja vas obavještava da je razmjena završena. U drugoj koloni možete vidjeti imena u novom redoslijedu. Provjerite rezultat u nastavku:

Vaša posljednja nada za vraćanje podataka

Neizbežno, povremeno bismo naišli na probleme sa Wordom. Koliko god tužno zvučalo, to je i veoma istinito. Ali, morate imati na umu da kad god dođe do kolapsa u Wordu, uvijek postoje stvari koje možemo učiniti. Prvo isprobajte ugrađeni alat za pokvarena riječ. Ako ne bi trebalo da pomogne, što je prilično često, svoju nadu možete usidriti u naprednom proizvodu za popravku.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporavi xlsx i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com