Kuidas muuta ees- ja perekonnanime järjekorda Wordi dokumendi loendis

Selles postituses on meil hea meel näidata teile, kuidas Wordi dokumendis olevas loendis ees- ja perekonnanime järjekorda partiidena muuta.

Ingliskeelne nimi sisaldab eesnime, kesknime ja perekonnanime. Ja see on kirjutatud täpselt samas järjekorras. Globaliseerumise tulemusena vahetavad inimesed erinevatest kultuuripiirkondadest nüüd sagedamini kui kunagi varem. Sellest tulenevalt toimub tänapäeval palju rahvusvahelisi konverentse. Ja nimed muus keeles kipuvad olema erinevas järjekorras. Seetõttu on aegu, mil peate loendis ees- ja perekonnanime järjekorda muutma. Asi on selles, kuidas me saame seda partiidena teha.

Tegelikult saate seda Wordis makro abil teha. Järgige meie allolevaid juhiseid.

Muutke loendis eesnime ja perekonnanime järjekorda

1. Kõigepealt looge Wordis kaheveeruline mitmerealine tabel.
2. Sisestage esimesse veergu nimed, mis peavad järjestust muutma. Olge ettevaatlik ja ärge sisestage nimede järele tühikuid.
3. Jäta teine ​​veerg tühjaks.
4. Pärast seda klõpsake VBA redaktori käivitamiseks vahekaarti "Arendaja" ja "Visual Basic". Kui vahekaart "Arendaja" pole saadaval, vajutage selle asemel "Alt + F11".
5. Nüüd looge uus moodul, klõpsates vasakpoolses veerus "Tavaline".
6. Seejärel klõpsake vahekaarti "Sisesta" ja valige selle rippmenüüst "Moodul".
7. Järgmisena topeltklõpsake uuel moodulil selle avamiseks.
8. Ja kleepige sinna järgmised koodid:

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. Lõpuks klõpsake nuppu "Käivita".

Nüüd saate sõnumikasti, mis teavitab teid vahetuse lõppemisest. Teises veerus näete nimesid uues järjekorras. Kontrollige tulemust allpool:

Teie viimane lootus andmete taastamiseks

Paratamatult puutume aeg-ajalt kokku Wordi probleemidega. Nii kurb kui see ka ei kõla, on see ka väga tõsi. Kuid peate meeles pidama, et kui Wordis tekib kokkuvarisemine, saame alati teha asju. Esmalt proovige sisseehitatud tööriista rikutud sõna. Kui see ei peaks aitama, mis on kogu aeg nii, võite kinnitada oma lootuse täiustatud remonditootele.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas taastada xlsx ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom