Kaip pakeisti vardo ir pavardės tvarką sąraše Word dokumente

Šiame įraše džiaugiamės galėdami parodyti jums, kaip partijos būdu pakeisti vardo ir pavardės tvarką sąraše „Word“ dokumente.

Angliškas pavadinimas apima vardą, antrąjį vardą ir pavardę. Ir parašyta ta pačia tvarka. Dėl globalizacijos žmonės iš skirtingų kultūros regionų dabar keičiasi vieni su kitais dažniau nei bet kada. Todėl šiais laikais vyksta daug tarptautinių konferencijų. O pavadinimai kitomis kalbomis paprastai būna kitokios tvarkos. Todėl kartais reikia pakeisti vardo ir pavardės tvarką sąraše. Esmė ta, kaip mes galime tai padaryti partijomis.

Tiesą sakant, tai galite padaryti naudodami „Word“ naudodami makrokomandą. Vykdykite toliau pateiktas instrukcijas.

Pakeiskite vardo ir pavardės tvarką sąraše

1. Visų pirma, „Word“ programoje sukurkite dviejų stulpelių lentelę iš kelių eilučių.
2. Pirmame stulpelyje įveskite pavadinimus, kurių seką reikia pakeisti. Būkite atsargūs ir neįveskite tarpų po vardų.
3. Antrą stulpelį palikite tuščią.
4. Po to spustelėkite skirtuką „Kūrėjas“ ir spustelėkite „Visual Basic“, kad paleistumėte VBA rengyklę. Jei skirtuko „Kūrėjas“ nėra, paspauskite „Alt+ F11“.
5. Dabar sukurkite naują modulį kairiajame stulpelyje spustelėdami „Normalus“.
6. Tada spustelėkite skirtuką „Įterpti“ ir išskleidžiamajame meniu pasirinkite „Modulis“.
7. Tada dukart spustelėkite naują modulį, kad jį atidarytumėte.
8. Ir įklijuokite ten šiuos kodus:

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. Galiausiai spustelėkite „Vykdyti“.

Dabar gausite pranešimų laukelį, informuojantį, kad mainai baigti. Antrame stulpelyje galite pamatyti vardus nauja tvarka. Patikrinkite rezultatą žemiau:

Jūsų paskutinė viltis atkurti duomenis

Neišvengiamai retkarčiais susidursime su Word problemomis. Kad ir kaip liūdnai tai skambėtų, tai taip pat labai teisinga. Tačiau reikia nepamiršti, kad kai tik įvyksta „Word“ žlugimas, visada yra dalykų, kuriuos galime padaryti. Pirmiausia išbandykite įmontuotą įrankį sugadintas žodis. Jei tai nepadeda, o taip būna visą laiką, galite tikėtis pažangaus taisymo gaminio.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant atkurti xlsx bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com