Kako paketno spremeniti vrstni red imena in priimka na seznamu v dokumentu Word

V tej objavi vam z veseljem pokažemo, kako lahko v paketu spremenite vrstni red imena in priimka na seznamu v dokumentu Word.

Angleško ime vključuje ime, srednje ime in priimek. In napisano je v enakem vrstnem redu. Zaradi globalizacije se ljudje iz različnih kulturnih regij zdaj pogosteje kot kadar koli izmenjujejo. Zato danes obstaja veliko mednarodnih konferenc. Imena v drugem jeziku imajo običajno drugačen vrstni red. Zato so primeri, ko morate spremeniti vrstni red imena in priimka na seznamu. Bistvo je, kako to lahko naredimo v seriji.

Pravzaprav lahko to dosežete v Wordu s pomočjo makra. Sledite spodnjim navodilom.

Spremenite vrstni red imena in priimka na seznamu

1. Najprej in predvsem ustvarite tabelo z dvema stolpcema in več vrsticami v Wordu.
2. V prvi stolpec vnesite imena, ki morajo spremeniti zaporedje. Pazite, da za imeni ne vnesete nobenega presledka.
3. Drugi stolpec pustite prazen.
4. Po tem kliknite jeziček »Razvijalec« in kliknite »Visual Basic«, da sprožite urejevalnik VBA. Če zavihek »Razvijalec« ni na voljo, namesto tega pritisnite »Alt + F11«.
5. Zdaj ustvarite nov modul s klikom na „Normal“ v levem stolpcu.
6. Nato kliknite zavihek "Vstavi" in v spustnem meniju izberite "Modul".
7. Nato dvokliknite nov modul, da ga odprete.
8. In tam prilepite naslednje kode:

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 koncu kliknite »Zaženi«.

Zdaj boste prejeli sporočilo z obvestilom, da je izmenjava končana. V drugem stolpcu lahko vidite imena v novem vrstnem redu. Rezultat preverite spodaj:

Vaše zadnje upanje, da dobite podatke nazaj

Neizogibno bi se občasno srečevali z Wordovimi težavami. Kot se sliši žalostno, je tudi zelo res. Vendar ne pozabite, da kadar koli pride do kolapsa v Wordu, vedno lahko naredimo nekaj. Najprej preizkusite vgrajeno orodje za pokvarjena beseda. Če ne bi moglo pomagati, kar je ves čas povsem tako, lahko svoje upanje zasidrate v napreden izdelek za popravilo.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z obnoviti xlsx in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com