Ako je možné v dávke zmeniť poradie podľa mena a priezviska v zozname v dokumente Word

V tomto príspevku vám radi ukážeme, ako dávkovo zmeniť poradie krstného mena a priezviska v zozname v dokumente programu Word.

Anglické meno obsahuje meno, priezvisko a priezvisko. A je to napísané v rovnakom poradí. V dôsledku globalizácie sa ľudia z rôznych kultúrnych oblastí dnes navzájom vymieňajú častejšie ako kedykoľvek predtým. Preto sa v súčasnosti koná veľa medzinárodných konferencií. A mená v inom jazyku zvyknú mať odlišné poradie. Preto existujú prípady, kedy je potrebné zmeniť poradie mena a priezviska v zozname. Ide o to, ako to môžeme urobiť hromadne.

V skutočnosti to môžete dosiahnuť v programe Word pomocou makra. Postupujte podľa našich pokynov.

Zmeňte poradie mena a priezviska v zozname

1. V prvom rade si v programe Word vytvorte tabuľku s dvoma stĺpcami a viacerými riadkami.
2. V prvom stĺpci zadajte názvy, ktoré musia zmeniť poradie. Dávajte pozor, aby ste za menami nezadávali medzery.
3. Druhý stĺpec nechajte prázdny.
4. Potom kliknite na kartu „Vývojár“ a kliknutím na položku „Visual Basic“ spustite editor VBA. Ak karta „Vývojár“ nie je k dispozícii, stlačte namiesto toho klávesy „Alt + F11“.
5. Teraz vytvorte nový modul kliknutím na „Normálny“ v ľavom stĺpci.
6. Potom kliknite na kartu „Vložiť“ a v rozbaľovacej ponuke zvoľte „Modul“.
7. Ďalej dvojitým kliknutím otvorte nový modul.
8. A vložte tam nasledujúce kódy:

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. Nakoniec kliknite na tlačidlo „Spustiť“.

Teraz dostanete správu s informáciou, že výmena bola dokončená. V druhom stĺpci môžete vidieť mená v novom poradí. Skontrolujte výsledok nižšie:

Vaša posledná nádej na získanie údajov späť

Nevyhnutne by sme občas narazili na problémy s Wordom. Akokoľvek smutne to znie, je to tiež veľmi pravdivé. Musíte však mať na pamäti, že kedykoľvek dôjde ku kolapsu v programe Word, vždy existujú veci, ktoré môžeme urobiť. Najskôr vyskúšajte vstavaný nástroj pre skazené slovo. Ak by to nemalo pomôcť, čo je vždy pravda, môžete svoju nádej ukotviť v modernom opravárenskom produkte.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotaviť xlsx a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S