Word баримт дээрх жагсаалтын овог нэрийн дарааллыг багцаар хэрхэн өөрчлөх вэ

Энэ бичлэгт бид Word баримт бичигт жагсаалтад байгаа нэр, овог нэрийн дарааллыг багцаар өөрчлөх аргыг танд үзүүлэхэд таатай байна.

Англи нэр нь овог нэр, овог нэр, овог нэрийг агуулдаг. Мөн энэ нь яг ижил дарааллаар бичигдсэн байдаг. Даяаршлын үр дүнд соёлын янз бүрийн бүс нутгаас ирсэн хүмүүс урьдынхаасаа илүү олон удаа хоорондоо солилцдог болсон. Тиймдээ ч өнөөдөр олон улсын хурал болж байна. Мөн бусад хэл дээрх нэрс өөр дараалалтай байдаг. Тиймээс жагсаалтын овог нэрийн дарааллыг өөрчлөх шаардлагатай үе байдаг. Гол нь бид үүнийг хэрхэн багцаар хийх вэ гэдэгт л байгаа юм.

Үнэндээ та үүнийг Word дээр макро ашиглан хийж болно. Бидний доорх зааврыг дагана уу.

Жагсаалт дахь нэр, овгийн дарааллыг өөрчлөх

1. Юуны өмнө Word дээр олон мөр бүхий 2 баганатай хүснэгт үүсгэ.
2. Эхний баганад дарааллыг өөрчлөх шаардлагатай нэрийг оруулна уу. Нэрийн ард ямар ч зай оруулахгүй байхыг анхаарна уу.
3. Хоёр дахь баганыг хоосон орхи.
4. Үүний дараа "Хөгжүүлэгч" таб дээр дараад "Visual Basic" дээр дарж VBA засварлагчийг ажиллуулна уу. Хэрэв "Хөгжүүлэгч" таб байхгүй бол "Alt + F11" товчийг дарна уу.
5. Одоо зүүн баганад байгаа "Хэвийн" дээр дарж шинэ модуль үүсгэнэ үү.
6. Дараа нь "Оруулах" табыг дарж, түүний доош унах цэснээс "Модуль" -г сонгоно уу.
7. Дараа нь шинэ модуль дээр давхар товшоод нээнэ үү.
8. Дараах кодыг тэнд байрлуул:

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. Эцэст нь "Ажиллуулах" дээр дарна уу.

Одоо та солилцоо дууссан тухай мессежийн хайрцаг хүлээн авах болно. Та хоёр дахь баганад нэрийг шинэ дарааллаар харж болно. Доорх үр дүнг шалгана уу:

Таны өгөгдлийг буцааж авах сүүлчийн найдвар

Бид Word-ийн асуудалтай үе үе тулгарах нь гарцаагүй. Хэдийгээр гунигтай сонсогдож байгаа ч энэ нь бас үнэн юм. Гэсэн хэдий ч, Word дээр уналт гарах бүрт бидний хийж чадах зүйл үргэлж байдаг гэдгийг та санаж байх хэрэгтэй. Эхлээд суулгасан хэрэгслийг туршиж үзээрэй завхарсан үг. Хэрэв энэ нь тус болохгүй бол, энэ нь үргэлж тохиолддог зүйл бол та дэвшилтэт засварын бүтээгдэхүүнд найдаж болно.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xlsx-ийг сэргээх болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com