Word Belgesinde Bir Listede Ad ve Soyad Sırasını Toplu Olarak Değiştirme

Bu yazımızda, Word belgesindeki bir listede ad ve soyadların sıralamasını toplu olarak değiştirmenin yolunu göstermekten mutluluk duyuyoruz.

İngilizce bir ad, ilk adı, ikinci adı ve soyadını içerir. Ve aynı sırayla yazılmıştır. Küreselleşmenin bir sonucu olarak, farklı kültür bölgelerinden insanlar artık birbirleriyle her zamankinden daha sık değiş tokuş yapıyor. Sonuç olarak, günümüzde birçok uluslararası konferans var. Ve diğer dillerdeki isimlerin farklı bir sıralaması vardır. Bu nedenle, bir listedeki adın ve soyadın sırasını değiştirmeniz gereken zamanlar vardır. Önemli olan, bunu toplu olarak nasıl yapabileceğimizdir.

Aslında bunu Word'de bir makro yardımıyla gerçekleştirebilirsiniz. Aşağıdaki talimatlarımızı takip edin.

Listedeki Ad ve Soyad Sırasını Değiştirme

1. Öncelikle, Word'de birden fazla satırdan oluşan 2 sütunlu bir tablo oluşturun.
2. İlk sütuna sırayı değiştirmesi gereken adları girin. İsimlerden sonra boşluk bırakmamaya dikkat edin.
3. İkinci sütunu boş bırakın.
4. Bundan sonra, "Geliştirici" sekmesine tıklayın ve VBA düzenleyicisini tetiklemek için "Visual Basic"e tıklayın. "Geliştirici" sekmesi yoksa, bunun yerine "Alt + F11" tuşlarına basın.
5. Şimdi sol sütundaki "Normal" seçeneğine tıklayarak yeni bir modül oluşturun.
6. Ardından “Ekle” sekmesine tıklayın ve açılır menüsünden “Modül” seçeneğini seçin.
7. Daha sonra açmak için yeni modüle çift tıklayın.
8. Ve aşağıdaki kodları oraya yapıştırın:

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. Son olarak, "Çalıştır" ı tıklayın.

Şimdi size değişimin tamamlandığını bildiren bir mesaj kutusu alacaksınız. İkinci sütunda isimleri yeni sırayla görebilirsiniz. Aşağıdaki sonucu kontrol edin:

Verileri Geri Almak İçin Son Umutunuz

Kaçınılmaz olarak, ara sıra Word sorunlarıyla karşılaşırdık. Kulağa ne kadar üzücü gelse de, aynı zamanda çok doğru. Ancak, Word'de bir çökme meydana geldiğinde, her zaman yapabileceğimiz şeyler olduğunu aklınızda bulundurmalısınız. Önce yerleşik aracı deneyin bozuk kelime. Yardımcı olmazsa, ki bu her zaman böyledir, umudunuzu gelişmiş bir onarım ürününe bağlayabilirsiniz.

Yazar Tanıtımı:

Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. xlsx'i kurtar hem de pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com