如何批量更改Word文檔列表中名字和姓氏的順序

Word解決方案 2025 年 9 月 28 日

在這篇文章中，我們很高興向您展示如何在 Word 文件中批量更改清單中名字和姓氏的順序。

英文名稱包括名字，中間名和姓氏。它以完全相同的順序編寫。全球化的結果是，來自不同文化區域的人們現在比以往任何時候都更加頻繁地交流。因此，當今有很多國際會議。其他語言的名稱往往具有不同的順序。因此，有時您需要更改列表中名字和姓氏的順序。關鍵是我們如何批量進行此操作。

實際上，您可以藉助Word在Word中完成此操作。請按照以下說明進行操作。

更改列表中名字和姓氏的順序

首先，在 Word 中建立一個兩個單元格，包含多行。
在第一列中，輸入需要更改順序的名稱。注意不要在名稱後輸入任何空格。
將第二列留空。
之後，單擊“開發人員”選項卡，然後單擊“ Visual Basic”以觸發VBA編輯器。如果“開發人員”選項卡不可用，請改為按“ Alt + F11”。
現在，通過單擊左列中的“普通”來創建一個新模塊。
然後單擊“插入”選項卡，然後在其下拉菜單上選擇“模塊”。
接下來，雙擊新模塊以將其打開。
並在其中粘貼以下代碼：

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

最後，單擊“運行”。

現在，您將收到一個消息框，通知您交換已完成。您可以在第二列中看到按新順序排列的名稱。檢查結果如下：

您最後一次取回數據的希望

不可避免地，我們會不時遇到Word問題。聽起來很傷心，這也是非常真實的。但是，您需要記住，每當Word中發生崩潰時，總有我們可以做的事情。首先嘗試使用內置工具腐敗的話。如果仍然無濟於事，那麼您可以將希望寄託在高級維修產品上。

作者簡介：

陳薇薇（Vera Chen）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括恢復xlsx 以及 pdf 維修軟件產品。欲了解更多信息，請訪問萬維網。datanumen.COM