Comment modifier par lots l'ordre du prénom et du nom dans une liste dans un document Word

Dans cet article, nous sommes heureux de vous montrer comment modifier par lots l'ordre des prénoms et des noms dans une liste d'un document Word.

Un nom anglais comprend le prénom, le deuxième prénom et le nom de famille. Et c'est écrit dans le même ordre. En raison de la mondialisation, les gens de différentes régions de culture échangent maintenant plus souvent qu'à tout moment. Par conséquent, il y a beaucoup de conférences internationales de nos jours. Et les noms dans d'autres langues ont tendance à avoir un ordre différent. Par conséquent, il arrive parfois que vous deviez modifier l'ordre du prénom et du nom dans une liste. Le point est de savoir comment nous pouvons le faire par lots.

En fait, vous pouvez accomplir cela dans Word à l'aide d'une macro. Suivez nos instructions ci-dessous.

Modifier l'ordre du prénom et du nom dans une liste

1. Avant toute chose, créez un tableau à deux colonnes comportant plusieurs lignes dans Word.
2. Dans la première colonne, entrez les noms qui doivent changer la séquence. Veillez à ne pas saisir d'espace après les noms.
3. Laissez la deuxième colonne vide.
4. Après cela, cliquez sur l'onglet "Développeur" et cliquez sur "Visual Basic" pour déclencher l'éditeur VBA. Si l'onglet "Développeur" n'est pas disponible, appuyez sur "Alt + F11" à la place.
5. Créez maintenant un nouveau module en cliquant sur "Normal" dans la colonne de gauche.
6. Cliquez ensuite sur l'onglet "Insérer" et choisissez "Module" dans son menu déroulant.
7. Double-cliquez ensuite sur le nouveau module pour l'ouvrir.
8. Et collez-y les codes suivants :

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. Enfin, cliquez sur "Exécuter".

Vous recevrez maintenant une boîte de message vous informant que l'échange est terminé. Vous pouvez voir les noms dans le nouvel ordre dans la deuxième colonne. Vérifiez le résultat ci-dessous :

Votre dernier espoir de récupérer des données

Inévitablement, nous rencontrions de temps en temps des problèmes avec Word. Aussi triste que cela puisse paraître, c'est aussi très vrai. Mais, vous devez garder à l'esprit que chaque fois qu'un effondrement se produit dans Word, il y a toujours des choses que nous pouvons faire. Essayez d'abord l'outil intégré pour mot corrompu. Si cela ne devrait pas aider, ce qui est tout le temps le cas, vous pouvez ancrer votre espoir dans un produit de réparation avancé.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris récupérer xlsx et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com