Come modificare in batch l'ordine di nome e cognome in un elenco nel documento di Word

In questo articolo, siamo lieti di mostrarvi come modificare in blocco l'ordine di nome e cognome in un elenco all'interno di un documento Word.

Un nome inglese include il nome, il secondo nome e il cognome. Ed è scritto nello stesso ordine. Come risultato della globalizzazione, le persone provenienti da diverse regioni di cultura ora scambiano tra loro più spesso che in qualsiasi momento. Di conseguenza, al giorno d'oggi ci sono molte conferenze internazionali. E i nomi in altre lingue tendono ad avere un ordine diverso. Pertanto, a volte è necessario modificare l'ordine di nome e cognome in un elenco. Il punto è come possiamo farlo in batch.

In realtà, puoi farlo in Word con l'aiuto di una macro. Segui le nostre istruzioni qui sotto.

Modificare l'ordine di nome e cognome in un elenco

1. Innanzitutto, crea una tabella a due colonne con più righe in Word.
2. Nella prima colonna, inserisci i nomi che devono modificare la sequenza. Fare attenzione a non inserire spazi dopo i nomi.
3. Lascia vuota la seconda colonna.
4. Successivamente, fai clic sulla scheda "Sviluppatore" e fai clic su "Visual Basic" per attivare l'editor VBA. Se la scheda "Sviluppatore" non è disponibile, premi invece "Alt + F11".
5. Ora crea un nuovo modulo facendo clic su "Normale" nella colonna di sinistra.
6. Quindi fai clic sulla scheda "Inserisci" e scegli "Modulo" nel menu a discesa.
7. Quindi fai doppio clic sul nuovo modulo per aprirlo.
8. E incolla lì i seguenti codici:

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. Infine, fai clic su "Esegui".

Ora riceverai una finestra di messaggio che ti informa che lo scambio è stato completato. Puoi vedere i nomi nel nuovo ordine nella seconda colonna. Controlla il risultato qui sotto:

La tua ultima speranza di recuperare i dati

Inevitabilmente, di tanto in tanto ci imbatteremmo in problemi con Word. Per quanto triste possa sembrare, è anche molto vero. Ma devi tenere presente che ogni volta che si verifica un collasso in Word, ci sono sempre cose che possiamo fare. Prima prova lo strumento integrato per parola corrotta. Se non dovesse aiutare, il che accade sempre, puoi ancorare la tua speranza in un prodotto di riparazione avanzato.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recuperare xlsx and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com