Paano Batch Baguhin ang Order ng Pangalan at Apelyido sa isang Listahan sa Word Document

Sa post na ito, natutuwa kaming ipakita sa iyo kung paano baguhin nang maramihan ang pagkakasunod-sunod ng una at huling pangalan sa isang listahan sa dokumento ng Word.

Kasama sa isang English na pangalan ang unang pangalan, gitnang pangalan, at apelyido. At ito ay nakasulat sa parehong pagkakasunud-sunod. Bilang resulta ng globalisasyon, ang mga tao mula sa iba't ibang rehiyon ng kultura ngayon ay nakikipagpalitan sa isa't isa nang mas madalas kaysa sa anumang oras. Dahil dito, maraming mga internasyonal na kumperensya ngayon. At ang mga pangalan sa ibang wika ay may posibilidad na magkaroon ng ibang pagkakasunud-sunod. Samakatuwid, may mga oras na kailangan mong baguhin ang pagkakasunud-sunod ng una at apelyido sa isang listahan. Ang punto ay kung paano namin ito magagawa sa batch.

Sa totoo lang, magagawa mo ito sa Word sa tulong ng isang macro. Sundin ang aming mga tagubilin sa ibaba.

Baguhin ang Pagkakasunod-sunod ng Pangalan at Apelyido sa isang Listahan

1. Una sa lahat, gumawa ng 2-column table na may maraming row sa Word.
2. Sa unang column, ilagay ang mga pangalan na kailangang baguhin ang sequence. Mag-ingat na huwag magpasok ng anumang puwang pagkatapos ng mga pangalan.
3. Iwanang blangko ang pangalawang hanay.
4. Pagkatapos nito, i-click ang tab na "Developer" at i-click ang "Visual Basic" upang ma-trigger ang VBA editor. Kung hindi available ang tab na "Developer", pindutin ang "Alt+ F11" sa halip.
5. Gumawa ngayon ng bagong module sa pamamagitan ng pag-click sa “Normal” sa kaliwang column.
6. Pagkatapos ay i-click ang tab na "Ipasok" at piliin ang "Modyul" sa drop-down na menu nito.
7. Susunod na i-double click ang bagong module upang buksan ito.
8. At i-paste ang mga sumusunod na code doon:

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. Panghuli, i-click ang "Run".

Ngayon ay makakatanggap ka ng isang kahon ng mensahe, na nagpapaalam sa iyo na ang palitan ay nakumpleto na. Maaari mong makita ang mga pangalan sa bagong pagkakasunud-sunod sa pangalawang column. Suriin ang resulta sa ibaba:

Ang Iyong Huling Pag-asa na Mabawi ang Data

Hindi maiiwasan, makakaranas tayo ng mga isyu sa Word paminsan-minsan. Sad as it sounds, it's also very true. Ngunit, kailangan mong tandaan na sa tuwing may naganap na pagbagsak sa Word, palaging may mga bagay na magagawa natin. Subukan muna ang built-in na tool para sa masamang salita. Kung hindi ito makakatulong, na talagang nangyayari sa lahat ng oras, maaari mong i-angkla ang iyong pag-asa sa isang advanced na produkto sa pag-aayos.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang bawiin xlsx at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa