วิธีการแบทช์เปลี่ยนลำดับของชื่อและนามสกุลในรายการในเอกสาร Word

ในบทความนี้ เราจะแสดงวิธีการเปลี่ยนลำดับชื่อและนามสกุลในรายการในเอกสาร Word แบบเป็นชุดให้คุณดู

ชื่อภาษาอังกฤษประกอบด้วยชื่อชื่อกลางและนามสกุล และมันถูกเขียนในลำดับเดียวกัน อันเป็นผลมาจากโลกาภิวัตน์ปัจจุบันผู้คนจากภูมิภาคต่างๆของวัฒนธรรมแลกเปลี่ยนกันบ่อยกว่าทุกครั้ง ดังนั้นในปัจจุบันจึงมีการประชุมระดับนานาชาติเป็นจำนวนมาก และชื่อในภาษาอื่นมักจะมีลำดับที่แตกต่างกัน ดังนั้นจึงมีบางครั้งที่คุณต้องเปลี่ยนลำดับของชื่อและนามสกุลในรายการ ประเด็นคือเราจะทำแบบชุดได้อย่างไร

อันที่จริงคุณสามารถทำได้ใน Word ด้วยความช่วยเหลือของมาโคร ทำตามคำแนะนำของเราดังต่อไปนี้

เปลี่ยนลำดับของชื่อและนามสกุลในรายการ

1. อันดับแรก สร้างตาราง 2 คอลัมน์ที่มีหลายแถวในโปรแกรม Word
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 เราสามารถทำได้เสมอ ขั้นแรกให้ลองใช้เครื่องมือในตัวสำหรับ คำเสียหาย. หากไม่น่าจะช่วยได้ซึ่งเป็นเช่นนั้นตลอดเวลาคุณสามารถยึดความหวังของคุณไว้ในผลิตภัณฑ์ซ่อมแซมขั้นสูงได้

บทนำผู้เขียน:

Vera Chen เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ กู้คืน xlsx และ pdf ซ่อมแซมผลิตภัณฑ์ซอฟต์แวร์ ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.