Word құжатындағы тізімдегі атау мен тектің ретін қалай өзгертуге болады?

Бұл жазбада біз сізге Word құжатындағы тізімдегі аты мен тегінің ретін топтық түрде өзгертудің жолын көрсетеміз.

Ағылшын тіліндегі атқа аты, әкесінің аты және тегі кіреді. Және дәл сол тәртіппен жазылған. Жаһандану нәтижесінде мәдениеттің әртүрлі аймақтарының адамдары бір-бірімен кез-келген уақытқа қарағанда жиі алмасады. Демек, қазіргі кезде көптеген халықаралық конференциялар өтуде. Ал басқа тілдегі атаулар басқа тәртіпке ие болады. Сондықтан тізімде аты-жөнінің ретін өзгерту қажет болатын кездер болады. Мұны біз оны партия түрінде қалай жасауға болатындығында.

Іс жүзінде сіз оны Word бағдарламасында макростың көмегімен орындай аласыз. Төменде көрсетілген нұсқауларды орындаңыз.

Тізімдегі аты-жөнінің ретін өзгертіңіз

1. Ең алдымен, Word бағдарламасында бірнеше жолдан тұратын 2 бағаннан тұратын кесте жасаңыз.
2. Бірінші бағанға тізбекті өзгерту қажет атауларды енгізіңіз. Есімдерден кейін бос орын қалдырмаңыз.
3. Екінші бағанды ​​бос қалдырыңыз.
4. Осыдан кейін VBA редакторын іске қосу үшін «Әзірлеуші» қойындысын басып, «Visual Basic» батырмасын басыңыз. Егер «Әзірлеуші» қойындысы болмаса, оның орнына «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