Σε αυτό το άρθρο, θα θέλαμε να μοιραστούμε 2 εύκολες μεθόδους για να προσαρμόσετε τα περιεχόμενα ώστε να χωρούν σε κελιά στον πίνακα του Word.
Όταν ασχολείστε με έναν πίνακα στο έγγραφο του Word, είναι δύσκολο να διασφαλίσετε ότι όλα τα κελιά του πίνακα παραμένουν σε σταθερό μέγεθος. Κανονικά, με την εισαγωγή περισσότερων λέξεων σε ένα κελί, θα αναδιπλώνεται αυτόματα το κείμενο. Παρακάτω είναι ένα παράδειγμα:
Αυτό σίγουρα δεν είναι εντυπωσιακό. Τι θα λέγατε να βρείτε τρόπους να διορθώσετε ένα μέγεθος τραπεζιού αλλά να κάνετε τα περιεχόμενα να ταιριάζουν;
Ακολουθούν 2 διαθέσιμοι τρόποι:
Μέθοδος 1: Ρυθμίστε έναν πίνακα μία φορά
- Αρχικά, κάντε κλικ στο σύμβολο συν στην επάνω αριστερή γωνία του πίνακα για να το επιλέξετε.
- Στη συνέχεια, κάντε δεξί κλικ στον επιλεγμένο πίνακα.
- Στη συνέχεια επιλέξτε «Ιδιότητες πίνακα».
- Τώρα, στο πλαίσιο διαλόγου "Ιδιότητες πίνακα", κάντε πρώτα κλικ στην καρτέλα "Κελί".
- Στη συνέχεια, κάντε κλικ στο «Επιλογές» στη δεξιά κάτω γωνία του πλαισίου.
- Τώρα θα ανοίξετε το πλαίσιο διαλόγου "Επιλογές κελιών". Μεταβείτε στο τμήμα "Επιλογές" και καταργήστε την επιλογή του πλαισίου "Ανατύλιξη κειμένου".
- Και επιλέξτε το πλαίσιο "Προσαρμογή κειμένου".
- Στη συνέχεια, κάντε κλικ στο "OK".
- Και θυμηθείτε να κάνετε κλικ στο "OK" στο παράθυρο διαλόγου "Ιδιότητες πίνακα".
Τώρα η διάταξη των περιεχομένων θα αλλάξει ανάλογα. Εδώ είναι τι θα πάρετε:
Μέθοδος 2: Χρησιμοποιήστε κωδικούς VBA
Το πρόγραμμα επεξεργασίας VBA στο Word σάς επιτρέπει να πληκτρολογείτε κώδικες για να προσαρμόσετε τις δικές σας δυνατότητες του Word για να κάνετε τις εργασίες σας με γρήγορο και καθαρό τρόπο. Έτσι μπορείτε άνετα να χρησιμοποιήσετε κωδικούς για να κάνετε το θαύμα.
- Πρώτα απ 'όλα, κάντε κλικ στην καρτέλα "Προγραμματιστής". Εάν δεν την έχετε ήδη, μπορείτε να ανατρέξετε σε αυτό το άρθρο: Πώς να εισαγάγετε μουσική υπόκρουση στο έγγραφο του Word
- Στη συνέχεια, κάντε κλικ στο "Visual Basic" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA.
- Στο πρόγραμμα επεξεργασίας VBA, βρείτε το έργο με το όνομα του εγγράφου μετά από αυτό και κάντε κλικ στο "ThisDocument".
- Στη συνέχεια, κάντε κλικ στο "Εισαγωγή" στη γραμμή εργαλείων.
- Και επιλέξτε "Module" στο μενού.
- Τώρα θα ανοίξετε την περιοχή επεξεργασίας, απλώς επικολλήστε τους κωδικούς εκεί:
Sub AutoFitTextForAllTableCells()
' Check if there are any tables in the document
If ActiveDocument.Tables.Count > 0 Then
Dim objTable As Table
Dim objCell As Cell
' Process each cell in each table and set the options accordingly
For Each objTable In ActiveDocument.Tables
For Each objCell In objTable.Range.Cells
objCell.WordWrap = False
objCell.FitText = True
Next
Next
Else
MsgBox("There is no table in this document!")
End If
End Sub
Προετοιμαστείτε για την επικείμενη αποτυχία
Τα περιστατικά πάντα θα σας ακινητοποιούν. Ο καλύτερος τρόπος λοιπόν είναι να αφιερώσετε χρόνο και να προετοιμαστείτε. Τα προληπτικά μέτρα μπορεί να περιλαμβάνουν τη δημιουργία αντιγράφων ασφαλείας αρχείων και την εξόφληση κάποιων χρημάτων για να λάβετε ένα κατεστραμμένο εργαλείο ανάκτησης εγγράφων του Word. Δεδομένου ότι η απώλεια δεδομένων μπορεί να συμβεί σε οποιονδήποτε και οπουδήποτε, ήρθε η ώρα να κάνετε κάτι.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων Εργαλείο επιδιόρθωσης σφαλμάτων δεδομένων Excel και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com