Ինչպե՞ս խմբաքանակով փոխել Word- ի փաստաթղթում ցուցակի անվան և ազգանվան կարգը

Այս գրառման մեջ մենք ուրախ ենք ձեզ ցույց տալ, թե ինչպես կարելի է խմբաքանակով փոխել անվան և ազգանվան կարգը Word փաստաթղթում։

Անգլերեն անունը ներառում է անունը, հայրանունը և ազգանունը: Եվ գրված է նույն հերթականությամբ: Գլոբալիզացիայի արդյունքում մշակույթի տարբեր շրջաններից մարդիկ այժմ ավելի հաճախ են փոխանակվում միմյանց հետ, քան երբևէ: Հետևաբար, մեր օրերում կան բազմաթիվ միջազգային գիտաժողովներ: Իսկ այլ լեզուների անունները հակված են այլ կարգի: Հետեւաբար, կան պահեր, երբ դուք պետք է փոխեք անունների եւ ազգանունների հերթականությունը ցուցակում: Բանն այն է, թե ինչպես կարող ենք դա անել խմբաքանակով:

Փաստորեն, դուք կարող եք դա կատարել Word- ում ՝ մակրոյի օգնությամբ: Հետևեք մեր ստորև բերված հրահանգներին:

Փոխեք անվան և ազգանվան կարգը ցուցակում

1. Նախ և առաջ, Word-ում ստեղծեք մի քանի տողերից բաղկացած 2 սյունակով աղյուսակ։
2. Առաջին սյունակում մուտքագրեք անուններ, որոնք պետք է փոխեն հաջորդականությունը: Carefulգույշ եղեք, որ անուններից հետո ոչ մի տարածք չմտնեք:
3. Երկրորդ սյունակը թողեք դատարկ:
4. Դրանից հետո կտտացրեք «Մշակող» ներդիրին և կտտացրեք «Visual Basic» ՝ VBA խմբագրիչը գործարկելու համար: Եթե ​​«erրագրավորող» ներդիրը հասանելի չէ, դրա փոխարեն սեղմեք «Alt+ F11»:
5. Այժմ ստեղծեք նոր մոդուլ ՝ ձախ սյունակում սեղմելով «Նորմալ»:
6. Դրանից հետո կտտացրեք «sertետեղել» ներդիրին և դրա բացման ցանկում ընտրել «Մոդուլ»:
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