A kereszt- és vezetéknév sorrendjének kötegelt módosítása egy listában a Word-dokumentumban

Ebben a bejegyzésben örömmel mutatjuk be, hogyan lehet kötegelt módon módosítani a kereszt- és vezetéknév sorrendjét egy Word-dokumentumban található listában.

Az angol név tartalmazza a keresztnevet, a középső nevet és a vezetéknevet. És pontosan ugyanabban a sorrendben van leírva. A globalizáció eredményeként a kultúra különböző régióiból származó emberek ma gyakrabban cserélnek cserét egymással, mint bármikor bármikor. Ebből következően manapság nagyon sok nemzetközi konferenciát rendeznek. A más nyelvű neveknek pedig általában más a sorrendje. Ezért vannak olyan esetek, amikor meg kell változtatnia a kereszt- és vezetéknév sorrendjét a listában. A lényeg az, hogy hogyan tudjuk kötegben megcsinálni.

Valójában ezt a Wordben egy makró segítségével érheti el. Kövesse az alábbi utasításainkat.

Módosítsa a keresztnév és vezetéknév sorrendjét egy listában

1. Elsősorban hozz létre egy két oszlopból álló, több sorból álló táblázatot a Wordben.
2. Az első oszlopba írja be azokat a neveket, amelyeknek módosítania kell a sorrendet. Ügyeljen arra, hogy ne írjon szóközt a nevek után.
3. A második oszlopot hagyja üresen.
4. Ezután kattintson a „Fejlesztő” fülre, majd a „Visual Basic” gombra a VBA-szerkesztő elindításához. Ha a „Fejlesztő” fül nem érhető el, nyomja meg helyette az „Alt+F11” gombot.
5. Most hozzon létre egy új modult a bal oldali oszlop „Normál” elemére kattintva.
6. Ezután kattintson a „Beszúrás” fülre, és válassza a „Modul” lehetőséget a legördülő menüből.
7. Ezután kattintson duplán az új modulra a megnyitásához.
8. És illessze be oda a következő kódokat:

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. Végül kattintson a „Futtatás” gombra.

Most kap egy üzenetet, amely tájékoztatja, hogy a csere befejeződött. A neveket új sorrendben láthatja a második oszlopban. Ellenőrizze az eredményt alább:

Utolsó reménye az adatok visszanyerésére

Időnként elkerülhetetlenül Word-problémákba ütközünk. Bármilyen szomorúan is hangzik, nagyon igaz is. De észben kell tartania, hogy amikor összeomlik a Word, mindig tehetünk valamit. Először próbálja ki a beépített eszközt korrupt szó. Ha ez nem segít, ami mindig így van, akkor egy fejlett javítótermékben horgonyozhatja le reményét.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xlsx helyreállítása és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com