Как да промените партидата в реда на собствено и фамилно име в списък в документ на Word

В тази стрost, радваме се да ви покажем начина за групова промяна на реда на собственото и фамилното име в списък в документ на Word.

Английското име включва собственото, второто и фамилното име. И е написано в същия ред. В резултат на глобализацията хората от различни региони на културата сега обменят помежду си по-често, отколкото по всяко време. Следователно в днешно време има много международни конференции. А имената на други езици са склонни да имат различен ред. Следователно има моменти, когато трябва да промените реда на собствено и фамилно име в списък. Въпросът е как можем да го направим пакетно.

Всъщност можете да постигнете това в Word с помощта на макрос. Следвайте нашите инструкции по-долу.

Променете реда на собствено и фамилно име в списък

1. Първи и преденost, създайте таблица с 2 колони от множество редове в Word.
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