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

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

Engleski naziv uključuje ime, srednje ime i prezime. I napisano je istim redom. Kao rezultat globalizacije, ljudi iz različitih regija kulture sada se međusobno razmjenjuju češće nego u bilo kojem trenutku. Shodno tome, danas postoji mnogo međunarodnih konferencija. I imena na drugim jezicima obično imaju drugačiji redoslijed. Stoga, ponekad morate promijeniti redoslijed imena i prezimena na popisu. Poanta je kako to možemo učiniti u seriji.

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

Promijenite redoslijed imena i prezimena na popisu

1. Prvo i najvažnije, stvorite tablicu s 2 stupca i više redaka u Wordu.
2. U prvi stupac unesite nazive koji trebaju promijeniti slijed. Pazite da ne unesete razmak iza imena.
3. Ostavite drugi stupac prazan.
4. Nakon toga kliknite karticu "Developer" i kliknite "Visual Basic" da pokrenete VBA editor. Ako kartica "Developer" nije dostupna, umjesto toga pritisnite "Alt+ F11".
5. Sada stvorite novi modul klikom na "Normalno" u lijevom stupcu.
6. Zatim kliknite karticu "Umetni" i odaberite "Modul" na padajućem izborniku.
7. Zatim dvaput kliknite na novi modul da biste ga otvorili.
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 "Pokreni".

Sada ćete primiti okvir s porukom koji vas obavještava da je razmjena dovršena. Imena u novom redoslijedu možete vidjeti u drugom stupcu. Provjerite rezultat u nastavku:

Vaša posljednja nada za vraćanje podataka

Neizbježno bismo tu i tamo naišli na probleme s Wordom. Koliko god zvučalo tužno, ujedno je i vrlo istinito. Ali morate imati na umu da kad god dođe do kolapsa u Wordu, uvijek postoje stvari koje možemo učiniti. Najprije isprobajte ugrađeni alat za pokvarena riječ. Ako ne bi trebalo pomoći, što je slučaj cijelo vrijeme, svoju nadu možete usidriti u napredni proizvod za popravak.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti xlx i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com