Cara Batch Mengubah Urutan Nama Depan dan Belakang dalam Daftar di Dokumen Word

Dalam postingan ini, kami dengan senang hati akan menunjukkan kepada Anda cara mengubah urutan nama depan dan nama belakang secara massal dalam sebuah daftar di dokumen Word.

Nama dalam bahasa Inggris mencakup nama depan, nama tengah, dan nama belakang. Dan itu ditulis dengan urutan yang sama. Sebagai akibat dari globalisasi, orang-orang dari daerah budaya yang berbeda sekarang lebih sering saling bertukar informasi daripada sebelumnya. Akibatnya, ada banyak konferensi internasional saat ini. Dan nama dalam bahasa lain cenderung memiliki urutan yang berbeda. Oleh karena itu, ada kalanya Anda perlu mengubah urutan nama depan dan belakang dalam sebuah daftar. Intinya adalah bagaimana kita bisa melakukannya secara batch.

Sebenarnya, Anda dapat melakukannya di Word dengan bantuan makro. Ikuti instruksi kami di bawah ini.

Ubah Urutan Nama Depan dan Nama Belakang dalam Daftar

1. Pertama dan terpenting, buat tabel 2 kolom dengan beberapa baris di Word.
2. Di kolom pertama, masukkan nama yang perlu diubah urutannya. Berhati-hatilah untuk tidak memasukkan spasi apa pun setelah nama.
3. Biarkan kolom kedua kosong.
4. Setelah ini, klik tab "Pengembang" dan klik "Visual Basic" untuk memicu editor VBA. Jika tab "Pengembang" tidak tersedia, tekan "Alt + F11" sebagai gantinya.
5. Sekarang buat modul baru dengan mengklik "Normal" di kolom kiri.
6. Kemudian klik tab "Sisipkan" dan pilih "Modul" pada menu tarik-turunnya.
7. Selanjutnya, klik dua kali modul baru untuk membukanya.
8. Dan tempel kode 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 pesan, memberi tahu Anda bahwa pertukaran telah selesai. Anda dapat melihat nama dalam urutan baru di kolom kedua. Lihat hasilnya di bawah ini:

Harapan Terakhir Anda untuk Mengambil Data Kembali

Tak pelak, kami akan mengalami masalah Word sekarang dan nanti. Meski terdengar menyedihkan, itu juga sangat benar. Namun, Anda perlu mengingat bahwa setiap kali terjadi keruntuhan di Word, selalu ada hal yang dapat kami lakukan. Pertama coba alat bawaan untuk kata korup. Jika itu tidak membantu, yang memang sering terjadi, Anda dapat menambatkan harapan Anda pada produk perbaikan tingkat lanjut.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memulihkan xlsx ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com