Cara Batch Mengubah Urutan Nama Pertama dan Akhir dalam Senarai dalam Dokumen Word

Dalam catatan ini, kami dengan senang hati akan menunjukkan kepada anda cara untuk menukar susunan nama pertama dan terakhir secara berkumpulan dalam senarai dalam dokumen Word.

Nama Inggeris merangkumi nama depan, nama tengah, dan nama belakang. Dan ia ditulis dalam susunan yang sama. Hasil daripada globalisasi, orang-orang dari pelbagai budaya yang berlainan kini bertukar antara satu sama lain lebih kerap daripada pada bila-bila masa. Oleh itu, terdapat banyak persidangan antarabangsa pada masa ini. Dan nama dalam bahasa lain cenderung mempunyai susunan yang berbeza. Oleh itu, ada kalanya anda perlu menukar urutan nama depan dan belakang dalam senarai. Intinya adalah bagaimana kita dapat melakukannya secara berkumpulan.

Sebenarnya, anda boleh mencapainya di Word dengan bantuan makro. Ikuti arahan kami di bawah.

Tukar Susunan Nama Depan dan Nama Belakang dalam Senarai

1. Pertama sekali, buat jadual 2 lajur berbilang baris dalam Word.
2. Pada lajur pertama, masukkan nama yang perlu mengubah urutan. Hati-hati untuk tidak memasuki ruang selepas nama.
3. Biarkan ruangan kedua kosong.
4. Selepas ini, klik tab "Pembangun" dan klik "Visual Basic" untuk mencetuskan editor VBA. Jika tab "Pembangun" tidak tersedia, tekan "Alt + F11" sebagai gantinya.
5. Sekarang buat modul baru dengan mengklik "Normal" di lajur kiri.
6. Kemudian klik tab "Insert" dan pilih "Module" pada menu drop-down.
7. Seterusnya klik dua kali modul baru untuk membukanya.
8. Dan tampal kod berikut di sana:

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. Terakhir, klik "Jalankan".

Sekarang anda akan menerima kotak mesej, memberitahu anda bahawa pertukaran telah selesai. Anda dapat melihat nama dalam urutan baru pada lajur kedua. Periksa hasilnya di bawah:

Harapan Terakhir Anda untuk Mendapatkan Kembali Data

Tidak dapat tidak, kita akan menghadapi masalah Word sekarang dan kemudian. Sedih kerana kedengarannya, itu juga benar. Tetapi, anda perlu ingat bahawa setiap kali keruntuhan berlaku di Word, selalu ada perkara yang dapat kita lakukan. Pertama, cuba alat terbina dalam untuk perkataan rosak. Sekiranya tidak dapat membantu, yang selalu berlaku, anda dapat menaruh harapan anda dalam produk pembaikan yang maju.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pulih xlsx dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com