Σε αυτήν την ανάρτηση, είμαστε στην ευχάριστη θέση να σας δείξουμε τον τρόπο για να αλλάξετε παρτίδα τη σειρά του ονόματος και του επωνύμου σε μια λίστα σε έγγραφο του Word.
Ένα αγγλικό όνομα περιλαμβάνει το όνομα, το μεσαίο όνομα και το επώνυμο. Και είναι γραμμένο με την ίδια σειρά. Ως αποτέλεσμα της παγκοσμιοποίησης, άνθρωποι από διαφορετικές περιοχές του πολιτισμού ανταλλάσσουν πλέον μεταξύ τους συχνότερα από οποιαδήποτε άλλη στιγμή. Κατά συνέπεια, υπάρχουν πολλά διεθνή συνέδρια στις μέρες μας. Και τα ονόματα σε άλλες γλώσσες τείνουν να έχουν διαφορετική σειρά. Επομένως, υπάρχουν φορές που πρέπει να αλλάξετε τη σειρά του ονόματος και του επωνύμου σε μια λίστα. Το θέμα είναι πώς μπορούμε να το κάνουμε κατά παρτίδες.
Στην πραγματικότητα, μπορείτε να το πετύχετε αυτό στο Word με τη βοήθεια μιας μακροεντολής. Ακολουθήστε τις οδηγίες μας παρακάτω.
Αλλάξτε τη σειρά του ονόματος και του επωνύμου σε μια λίστα
- Πρώτα και κύρια, δημιουργήστε έναν πίνακα 2 στηλών με πολλές γραμμές στο Word.
- Στην πρώτη στήλη, εισαγάγετε ονόματα που πρέπει να αλλάξουν τη σειρά. Προσέξτε να μην εισάγετε κενό διάστημα μετά τα ονόματα.
- Αφήστε τη δεύτερη στήλη κενή.
- Μετά από αυτό, κάντε κλικ στην καρτέλα "Προγραμματιστής" και κάντε κλικ στο "Visual Basic" για να ενεργοποιήσετε το πρόγραμμα επεξεργασίας VBA. Εάν η καρτέλα "Προγραμματιστής" δεν είναι διαθέσιμη, πατήστε "Alt+ F11".
- Τώρα δημιουργήστε μια νέα ενότητα κάνοντας κλικ στο "Κανονικό" στην αριστερή στήλη.
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Εισαγωγή" και επιλέξτε "Ενότητα" στο αναπτυσσόμενο μενού.
- Στη συνέχεια κάντε διπλό κλικ στη νέα μονάδα για να την ανοίξετε.
- Και επικολλήστε τους ακόλουθους κωδικούς εκεί:
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
- Τέλος, κάντε κλικ στο "Εκτέλεση".
Τώρα θα λάβετε ένα πλαίσιο μηνύματος που θα σας ενημερώνει ότι η ανταλλαγή έχει ολοκληρωθεί. Μπορείτε να δείτε τα ονόματα με νέα σειρά στη δεύτερη στήλη. Ελέγξτε το αποτέλεσμα παρακάτω:
Η τελευταία σας ελπίδα για ανάκτηση δεδομένων
Αναπόφευκτα, θα αντιμετωπίζαμε ζητήματα του Word κάθε τόσο. Όσο λυπηρό κι αν ακούγεται, είναι και πολύ αληθινό. Ωστόσο, πρέπει να έχετε κατά νου ότι κάθε φορά που συμβαίνει μια κατάρρευση στο Word, υπάρχουν πάντα πράγματα που μπορούμε να κάνουμε. Πρώτα δοκιμάστε το ενσωματωμένο εργαλείο για διεφθαρμένη λέξη. Εάν δεν σας βοηθήσει, κάτι που συμβαίνει συνεχώς, μπορείτε να στηρίζετε την ελπίδα σας σε ένα προηγμένο προϊόν επισκευής.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση xlsx και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com