Jak dávkově změnit pořadí jména a příjmení v seznamu v dokumentu Word

V tomto příspěvku vám rádi ukážeme, jak dávkově změnit pořadí křestního jména a příjmení v seznamu v dokumentu Word.

Anglické jméno zahrnuje křestní jméno, prostřední jméno a příjmení. A je psáno ve stejném pořadí. V důsledku globalizace se nyní lidé z různých regionů kultury navzájem vyměňují častěji než kdykoli předtím. V důsledku toho je dnes spousta mezinárodních konferencí. A jména v jiném jazyce mají tendenci mít jiné pořadí. Proto jsou chvíle, kdy potřebujete změnit pořadí křestního jména a příjmení v seznamu. Jde o to, jak to můžeme udělat hromadně.

Ve skutečnosti toho můžete dosáhnout v aplikaci Word pomocí makra. Postupujte podle níže uvedených pokynů.

Změňte pořadí křestního jména a příjmení v seznamu

1. V první řadě si ve Wordu vytvořte tabulku se 2 sloupci a více řádky.
2. V prvním sloupci zadejte názvy, které je třeba změnit. Dávejte pozor, abyste za jmény nezadávali mezeru.
3. Druhý sloupec nechte prázdný.
4. Poté klikněte na kartu „Vývojář“ a kliknutím na „Visual Basic“ spusťte editor VBA. Pokud karta „Vývojář“ není k dispozici, stiskněte místo toho klávesy „Alt + F11“.
5. Nyní vytvořte nový modul kliknutím na „Normální“ v levém sloupci.
6. Poté klikněte na kartu „Vložit“ a v rozevírací nabídce vyberte možnost „Modul“.
7. Další dvojitým kliknutím otevřete nový modul.
8. A vložte tam následující 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. Nakonec klikněte na „Spustit“.

Nyní obdržíte zprávu se zprávou, že výměna byla dokončena. Ve druhém sloupci můžete vidět jména v novém pořadí. Zkontrolujte výsledek níže:

Vaše poslední naděje na načtení dat zpět

Nevyhnutelně bychom občas narazili na problémy Wordu. Jakkoli to zní smutně, je to také velmi pravdivé. Musíte však mít na paměti, že kdykoli dojde ke kolapsu v aplikaci Word, vždy existují věci, které můžeme udělat. Nejprve vyzkoušejte vestavěný nástroj pro zkorumpované slovo. Pokud by to nepomohlo, což je stále pravda, můžete svou naději zakotvit v pokročilém opravárenském produktu.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit xlsx a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com