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

词解法 2025 年 9 月 28 日

在这个post，我们很高兴向您展示如何在 Word 文档中批量更改列表中名字和姓氏的顺序。

英文名字包括名字、中间名和姓氏。它是按照完全相同的顺序编写的。作为全球化的结果，来自不同文化区域的人们现在比以往任何时候都更频繁地相互交流。因此，现在有很多国际会议。其他语言的名字往往有不同的顺序。因此，有时您需要更改列表中名字和姓氏的顺序。关键是我们如何批量完成。

实际上，您可以借助宏在 Word 中完成此操作。请按照我们的说明进行操作。

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

首先和形式ost，在 Word 中创建一个包含多行的 2 列表。
在第一列中，输入需要更改顺序的名称。注意不要在名称后输入任何空格。
将第二列留空。
在此之后，单击“开发人员”选项卡并单击“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