Jak zbiorczo zmienić kolejność imienia i nazwiska na liście w dokumencie programu Word

W tym poście z przyjemnością pokażemy Ci, jak wsadowo zmienić kolejność imion i nazwisk na liście w dokumencie Word.

Angielskie imię zawiera imię, drugie imię i nazwisko. I jest napisane w tej samej kolejności. W wyniku globalizacji ludzie z różnych regionów kultury wymieniają się obecnie między sobą częściej niż kiedykolwiek. W związku z tym obecnie odbywa się wiele międzynarodowych konferencji. Nazwy w innych językach mają zwykle inną kolejność. Dlatego czasami trzeba zmienić kolejność imienia i nazwiska na liście. Chodzi o to, jak możemy to zrobić zbiorczo.

W rzeczywistości możesz to zrobić w programie Word za pomocą makra. Postępuj zgodnie z poniższymi instrukcjami.

Zmień kolejność imienia i nazwiska na liście

1. Przede wszystkim utwórz w programie Word tabelę złożoną z dwóch kolumn i wielu wierszy.
2. W pierwszej kolumnie wprowadź nazwy, które mają zmienić kolejność. Uważaj, aby nie wstawiać spacji po nazwach.
3. Pozostaw drugą kolumnę pustą.
4. Następnie kliknij zakładkę „Deweloper” i kliknij „Visual Basic”, aby uruchomić edytor VBA. Jeśli karta „Deweloper” nie jest dostępna, naciśnij zamiast tego „Alt + F11”.
5. Teraz utwórz nowy moduł, klikając „Normalny” w lewej kolumnie.
6. Następnie kliknij zakładkę „Wstaw” i wybierz „Moduł” z rozwijanego menu.
7. Następnie kliknij dwukrotnie nowy moduł, aby go otworzyć.
8. I wklej tam następujące kody:

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. Na koniec kliknij „Uruchom”.

Teraz otrzymasz komunikat informujący, że wymiana została zakończona. W drugiej kolumnie możesz zobaczyć nazwy w nowej kolejności. Sprawdź wynik poniżej:

Twoja ostatnia nadzieja na odzyskanie danych

Nieuchronnie od czasu do czasu napotykaliśmy problemy z programem Word. Choć brzmi to smutno, jest to również bardzo prawdziwe. Należy jednak pamiętać, że zawsze, gdy w programie Word nastąpi załamanie, zawsze możemy zrobić coś, co możemy zrobić. Najpierw wypróbuj wbudowane narzędzie do zepsute słowo. Jeśli to nie pomoże, co jest częste, możesz zakotwiczyć swoją nadzieję w zaawansowanym produkcie naprawczym.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskać xlsx i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com