Word Sənədində Siyahıda Ad və Soyad Sırasını Necə Toplu Dəyişdirmək olar

Bu yazıda sizə Word sənədində ad və soyadın sırasını necə dəyişdirməyin yolunu göstərməkdən məmnunluq duyuruq.

İngilis adına ad, ata adı və soyad daxildir. Və eyni ardıcıllıqla yazılmışdır. Qloballaşma nəticəsində mədəniyyətin müxtəlif bölgələrindən olan insanlar indi bir-birləri ilə hər zaman olduğundan daha tez-tez mübadilə edirlər. Ona görə də bu gün çoxlu beynəlxalq konfranslar keçirilir. Və başqa dildə adlar fərqli sıraya malikdir. Buna görə də, siyahıda ad və soyadın sırasını dəyişməli olduğunuz vaxtlar olur. Məsələ ondadır ki, biz bunu toplu şəkildə necə edə bilərik.

Əslində bunu Word-də makronun köməyi ilə edə bilərsiniz. Aşağıdakı təlimatlarımızı izləyin.

Siyahıda Ad və Soyadın Sırasını Dəyişin

1. İlk növbədə, Word-də birdən çox sətirdən ibarət 2 sütunlu cədvəl yaradın.
2. Birinci sütunda ardıcıllığı dəyişdirməli olan adları daxil edin. Diqqətli olun ki, adlardan sonra boşluq daxil olmasın.
3. İkinci sütunu boş buraxın.
4. Bundan sonra, VBA redaktorunu işə salmaq üçün "Developer" sekmesini vurun və "Visual Basic" düyməsini basın. "Developer" nişanı mövcud deyilsə, bunun əvəzinə "Alt + F11" düyməsini basın.
5. İndi sol sütunda "Normal" düyməsini basaraq yeni modul yaradın.
6. Sonra "Daxil et" sekmesini klikləyin və açılan menyudan "Modul" seçin.
7. Sonra onu açmaq üçün yeni modulu iki dəfə vurun.
8. Və orada aşağıdakı kodları yapışdı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. Nəhayət, "Çalış" düyməsini basın.

İndi mübadilənin tamamlandığını bildirən bir mesaj qutusu alacaqsınız. İkinci sütunda adları yeni qaydada görə bilərsiniz. Aşağıdakı nəticəni yoxlayın:

Məlumatların Geri qaytarılması üçün son ümidiniz

İstər-istəməz Word problemi ilə rastlaşardıq. Nə qədər kədərli səslənsə də, çox doğrudur. Ancaq yadda saxlamalısınız ki, Word-də hər hansı bir çökmə baş verdikdə, həmişə edə biləcəyimiz şeylər var. Əvvəlcə daxili aləti sınayın pozğun söz. Əgər bu kömək etmirsə, hər zaman belə olur, ümidinizi təkmil təmir məhsuluna bağlaya bilərsiniz.

Müəllif Giriş:

Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc xlsx bərpa edin və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com