როგორ შევცვალოთ სერიული სახელის და გვარის თანმიმდევრობა სიაში 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. ერთად