Trong bài viết này, chúng tôi rất vui được hướng dẫn bạn cách thay đổi hàng loạt thứ tự tên và họ trong một danh sách trong tài liệu Word.
Tên tiếng Anh bao gồm tên, tên đệm và họ. Và nó được viết theo cùng một thứ tự. Do quá trình toàn cầu hóa, con người từ các vùng văn hóa khác nhau giờ đây trao đổi với nhau thường xuyên hơn bao giờ hết. Do đó, ngày nay có rất nhiều hội nghị quốc tế. Và tên trong ngôn ngữ khác có xu hướng có thứ tự khác. Vì vậy, đôi khi bạn cần thay đổi thứ tự họ và tên trong danh sách. Vấn đề là làm thế nào chúng ta có thể làm điều đó theo đợt.
Trên thực tế, bạn có thể thực hiện việc này trong Word với sự trợ giúp của macro. Hãy làm theo hướng dẫn của chúng tôi dưới đây.
Thay đổi thứ tự họ và tên trong danh sách
- Trước hết, hãy tạo một bảng hai cột gồm nhiều hàng trong Word.
- Cột đầu tiên nhập tên cần thay đổi thứ tự. Hãy cẩn thận không nhập bất kỳ khoảng trống nào sau tên.
- Để trống cột thứ hai.
- Sau đó, nhấp vào tab “Nhà phát triển” và nhấp vào “Visual Basic” để kích hoạt trình chỉnh sửa VBA. Nếu tab “Nhà phát triển” không có sẵn, thay vào đó hãy nhấn “Alt + F11”.
- Bây giờ hãy tạo một mô-đun mới bằng cách nhấp vào “Bình thường” ở cột bên trái.
- Sau đó nhấp vào tab “Chèn” và chọn “Mô-đun” trên menu thả xuống của nó.
- Tiếp theo nhấp đúp chuột vào mô-đun mới để mở nó.
- Và dán các mã sau vào đó:
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
- Cuối cùng, nhấp vào "Chạy".
Bây giờ bạn sẽ nhận được một hộp thông báo, thông báo rằng việc trao đổi đã hoàn tất. Bạn có thể thấy tên theo thứ tự mới ở cột thứ hai. Kiểm tra kết quả dưới đây:
Hy vọng cuối cùng của bạn để lấy lại dữ liệu
Không thể tránh khỏi, thỉnh thoảng chúng ta sẽ gặp phải các vấn đề về Word. Nghe có vẻ buồn nhưng nó cũng rất đúng. Tuy nhiên, bạn cần lưu ý rằng bất cứ khi nào Word xảy ra hiện tượng sập, luôn có những việc chúng ta có thể làm. Trước tiên hãy thử công cụ tích hợp sẵn dành cho từ hư hỏng. Nếu nó không giúp ích gì, điều này thường xảy ra, bạn có thể đặt hy vọng vào một sản phẩm sửa chữa tiên tiến.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi xlsx và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm