Πώς μπορείτε να μετακινήσετε λεζάντες από πάνω προς τα κάτω ή αντίστροφα στο έγγραφο του Word;
Σε ένα έγγραφο του Word, εάν υπάρχουν πολλοί πίνακες που έχουν εισαγάγει υπότιτλους κάτω από κάθε πίνακα. Όμως, μερικές φορές, μπορεί να θέλετε να μετακινήσετε αυτούς τους υπότιτλους από κάτω προς τα πάνω από τους πίνακες. Πώς θα μπορούσατε να αντιμετωπίσετε αυτήν την εργασία όσο πιο γρήγορα μπορείτε;
Μετακινήστε τους υπότιτλους πίνακα από κάτω προς τα πάνω ή αντίστροφα στο Word με τον κώδικα VBA
Μετακινήστε τους υπότιτλους πίνακα από κάτω προς τα πάνω ή αντίστροφα στο Word με τον κώδικα VBA
Για να μετακινήσετε όλους τους υπότιτλους πίνακα από κάτω προς τα πάνω των πινάκων, ο ακόλουθος κώδικας VBA σας ευνοεί, κάντε το εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο παράθυρο της ενότητας.
Μετακινήστε τους υπότιτλους πίνακα από κάτω προς τα πάνω σε ένα έγγραφο του Word
Sub ReLabelDownToUpTables()
Dim I As Long
Dim xRngPre As Range
Dim xRngNext As Range
Application.ScreenUpdating = False
With ActiveDocument
For I = .Tables.Count To 1 Step -1
With .Tables(I).Range
Set xRngPre = .Characters.First.Previous.Characters.Last
xRngPre.Select
Set xRngNext = .Characters.Last.Next.Paragraphs.First.Range
xRngNext.Select
With xRngPre
.InsertBefore vbCr
.Style = xRngNext.Style
.Start = .End - 1
.End = .Start
End With
If Len(xRngNext.Text) > 1 Then
xRngNext.End = xRngNext.End - 1
xRngNext.Cut
xRngNext.Delete
xRngPre.Paste
Else
xRngNext.Delete
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub
3. Στη συνέχεια, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και όλοι οι υπότιτλοι του πίνακα έχουν μετακινηθεί από κάτω προς τα πάνω στους πίνακες, δείτε το στιγμιότυπο οθόνης:
Note: Για να μετακινήσετε τους υπότιτλους του πίνακα από πάνω προς τα κάτω κάθε πίνακα, εφαρμόστε τον ακόλουθο κώδικα VBA:
Μετακίνηση υπότιτλων πίνακα από πάνω προς τα κάτω σε ένα έγγραφο του Word
Sub ReLabelUpToDownTables()
Dim I As Long
Dim xRngPre As Range
Dim xRngNext As Range
Application.ScreenUpdating = False
With ActiveDocument
For I = .Tables.Count To 1 Step -1
With .Tables(I).Range
Set xRngNext = .Characters.First.Previous.Paragraphs.First.Range
xRngNext.Select
Set xRngPre = .Characters.Last.Next
xRngPre.End = xRngPre.End - 1
xRngPre.Select
With xRngPre
.InsertBefore vbCr
.Style = xRngNext.Style
.Start = .End - 1
.End = .Start
End With
If Len(xRngNext.Text) > 1 Then
xRngNext.End = xRngNext.End - 1
xRngNext.Cut
xRngNext.Delete
xRngPre.Paste
Else
xRngNext.Delete
End If
End With
Next
End With
Application.ScreenUpdating = True
End Sub
|
Εισαγάγετε πολλούς υπότιτλους πίνακα, εικόνων ή εξισώσεων στο έγγραφο του Word ταυτόχρονα:
Κανονικά, θα πρέπει να εισαγάγετε έναν τίτλο πίνακα, εικόνας ή εξίσωσης για τον πίνακα, την εικόνα ή την εξίσωση ένα προς ένα στο αρχείο Word. Αλλά, αν έχετε Kutols για το Word's Πολλαπλοί υπότιτλοι δυνατότητα, μπορείτε να εισαγάγετε τους λεζάντες πίνακα, εικόνας ή εξίσωσης για όλους τους πίνακες, εικόνες ή εξισώσεις όσο το δυνατόν γρηγορότερα.
Kutools για το Word: με περισσότερα από 100 εύχρηστα πρόσθετα Word, δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες. Κάντε κλικ για λήψη και δωρεάν δοκιμή τώρα! |
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...
