Kā partijā mainīt vārdu un uzvārdu secību sarakstā Word dokumentā

Šajā ierakstā mēs ar prieku parādīsim jums veidu, kā partijveidā mainīt vārda un uzvārda secību Word dokumenta sarakstā.

Angļu valodā ir vārds, otrais vārds un uzvārds. Un tas ir rakstīts tieši tādā pašā secībā. Globalizācijas rezultātā cilvēki no dažādiem kultūras reģioniem tagad biežāk nekā jebkurā laikā apmainās ar citiem. Līdz ar to mūsdienās notiek daudz starptautisku konferenču. Un vārdiem citās valodās parasti ir cita secība. Tāpēc ir gadījumi, kad sarakstā jāmaina vārda un uzvārda secība. Jautājums ir par to, kā mēs to varam izdarīt partijās.

Faktiski to var paveikt programmā Word ar makro palīdzību. Izpildiet mūsu norādījumus zemāk.

Mainiet sarakstā vārdu un uzvārdu secību

1. Pirmkārt un galvenokārt, programmā Word izveidojiet divu kolonnu tabulu ar vairākām rindām.
2. Pirmajā kolonnā ievadiet nosaukumus, kuriem jāmaina secība. Esiet piesardzīgs un pēc nosaukumiem neievadiet atstarpi.
3. Atstājiet otro kolonnu tukšu.
4. Pēc tam noklikšķiniet uz cilnes Izstrādātājs un noklikšķiniet uz Visual Basic, lai aktivizētu VBA redaktoru. Ja cilne “Izstrādātājs” nav pieejama, tā vietā nospiediet “Alt + F11”.
5. Tagad izveidojiet jaunu moduli, kreisajā kolonnā noklikšķinot uz “Normal”.
6. Pēc tam noklikšķiniet uz cilnes “Ievietot” un nolaižamajā izvēlnē izvēlieties “Modulis”.
7. Nākamais veiciet dubultklikšķi uz jaunā moduļa, lai to atvērtu.
8. Tur ielīmējiet šādus 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. Visbeidzot, noklikšķiniet uz “Palaist”.

Tagad jūs saņemsit ziņojumu lodziņu, kurā jūs informējat, ka apmaiņa ir pabeigta. Otrajā kolonnā vārdus var redzēt jaunā secībā. Pārbaudiet rezultātu zemāk:

Jūsu pēdējā cerība atgūt datus

Nenovēršami mēs šad un tad saskartos ar Word jautājumiem. Lai cik skumji tas izklausītos, tā ir arī patiesība. Bet jums jāpatur prātā, ka ikreiz, kad programmā Word notiek sabrukums, vienmēr ir lietas, ko mēs varam darīt. Vispirms izmēģiniet iebūvēto rīku korumpēts vārds. Ja tam nevajadzētu palīdzēt, kas visu laiku notiek, jūs varat nostiprināt cerību modernā remonta produktā.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt xlsx un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar