Si të ndryshoni grupin e rendit të emrit dhe mbiemrit në një listë në dokumentin Word

Në këtë postim, jemi të lumtur t'ju tregojmë mënyrën për të ndryshuar në grup rendin e emrit dhe mbiemrit në një listë në dokumentin Word.

Një emër në anglisht përfshin emrin, mbiemrin dhe mbiemrin. Dhe është shkruar në të njëjtën mënyrë. Si rezultat i globalizimit, njerëzit nga rajone të ndryshme të kulturës tani shkëmbejnë me njëri-tjetrin më shpesh se në çdo kohë. Rrjedhimisht, në ditët e sotme ka shumë konferenca ndërkombëtare. Dhe emrat në gjuhë të tjera priren të kenë një rend të ndryshëm. Prandaj, ka raste kur duhet të ndryshoni rendin e emrit dhe mbiemrit në një listë. Çështja është se si mund ta bëjmë atë në grup.

Në fakt, këtë mund ta realizoni në Word me ndihmën e një makro. Ndiqni udhëzimet tona më poshtë.

Ndryshoni rendin e emrit dhe mbiemrit në një listë

1. Para së gjithash, krijoni një tabelë me 2 kolona me rreshta të shumëfishta në Word.
2. Në kolonën e parë, vendosni emrat që duhet të ndryshojnë sekuencën. Kini kujdes që të mos futni asnjë hapësirë ​​pas emrave.
3. Lëreni kolonën e dytë bosh.
4. Pas kësaj, klikoni në skedën "Zhvilluesi" dhe klikoni "Visual Basic" për të aktivizuar redaktorin VBA. Nëse skeda "Zhvilluesi" nuk është i disponueshëm, shtypni "Alt+ F11" në vend të kësaj.
5. Tani krijoni një modul të ri duke klikuar "Normal" në kolonën e majtë.
6. Pastaj klikoni në skedën "Fut" dhe zgjidhni "Module" në menunë e saj rënëse.
7. Pastaj klikoni dy herë në modulin e ri për ta hapur atë.
8. Dhe ngjitni kodet e mëposhtme atje:

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. Së fundi, klikoni "Run".

Tani do të merrni një kuti mesazhi, duke ju informuar se shkëmbimi ka përfunduar. Ju mund t'i shihni emrat në rend të ri në kolonën e dytë. Kontrolloni rezultatin më poshtë:

Shpresa juaj e fundit për rikthimin e të dhënave

Në mënyrë të pashmangshme, ne do të hasnim në çështjet e Word-it herë pas here. Sado e trishtueshme që tingëllon, është gjithashtu shumë e vërtetë. Por, duhet të keni parasysh se sa herë që ndodh një kolaps në Word, ka gjithmonë gjëra që mund të bëjmë. Së pari provoni mjetin e integruar për fjalë e korruptuar. Nëse nuk ju ndihmon, gjë që është e vërtetë gjatë gjithë kohës, ju mund të ankoroni shpresën tuaj në një produkt riparimi të avancuar.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperoni xlsx pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com