Як пакетно змінити порядок імені та прізвища у списку в документі Word

У цій публікації ми раді показати вам спосіб пакетної зміни порядку імені та прізвища у списку в документі Word.

Англійська назва включає ім’я, по батькові та прізвище. І написано в тому самому порядку. В результаті глобалізації люди з різних регіонів культури нині обмінюються частіше, ніж будь-коли. Отже, сьогодні існує багато міжнародних конференцій. А імена іншими мовами, як правило, мають інший порядок. Тому бувають випадки, коли вам потрібно змінити порядок імені та прізвища у списку. Справа в тому, як ми можемо робити це пакетно.

Насправді це можна зробити в Word за допомогою макросу. Дотримуйтесь наведених нижче інструкцій.

Змініть порядок імені та прізвища у списку

1. Перш за все, створіть у Word таблицю з 2 стовпцями, що складається з кількох рядків.
2. У першому стовпці введіть імена, які потрібно змінити в послідовності. Будьте обережні, щоб не вводити пробіл після імен.
3. Залиште другий стовпець порожнім.
4. Після цього перейдіть на вкладку «Розробник» і натисніть «Visual Basic», щоб запустити редактор VBA. Якщо вкладка “Розробник” недоступна, натисніть замість цього “Alt + F11”.
5. Тепер створіть новий модуль, натиснувши “Звичайний” у лівій колонці.
6. Потім натисніть вкладку «Вставити» та виберіть «Модуль» у спадному меню.
7. Далі двічі клацніть новий модуль, щоб відкрити його.
8. І вставте туди такі коди:

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. Нарешті, натисніть «Виконати».

Тепер ви отримаєте вікно повідомлення про те, що обмін завершено. Ви можете побачити імена в новому порядку у другій колонці. Перевірте результат нижче:

Ваша остання надія на повернення даних

Неминуче ми час від часу стикалися з проблемами Word. Як би сумно це не звучало, це теж дуже вірно. Але потрібно пам’ятати, що щоразу, коли в Word відбувається крах, ми завжди можемо щось зробити. Спочатку спробуйте вбудований інструмент для корумповане слово. Якщо це не може допомогти, що трапляється постійно, ви можете закріпити свою надію в вдосконаленому ремонтному продукті.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити XLSX та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com