Κατά τη σύνταξη ενός μηνύματος ηλεκτρονικού ταχυδρομείου που περιέχει πολλούς πίνακες στο σώμα των μηνυμάτων, εάν θέλετε να αλλάξετε το μέγεθος όλων των πινάκων για να χωρέσουν σε περιεχόμενο ή στο τρέχον παράθυρο, μπορείτε να χρησιμοποιήσετε τις μεθόδους που κοινοποιούνται σε αυτό το άρθρο.
Αφού δημιουργήσετε πολλούς πίνακες σε ένα μήνυμα ηλεκτρονικού ταχυδρομείου, ώστε να ευθυγραμμιστούν και να τακτοποιηθούν τα περιεχόμενα του email, μπορείτε να ελπίζετε να αλλάξετε το μέγεθος όλων των πινάκων ώστε να ταιριάζουν στα περιεχόμενα ή στο τρέχον παράθυρο μηνύματος. Σε αυτήν την περίπτωση, εάν υπάρχουν μόνο δύο ή τρία τραπέζια, μπορείτε απλώς να χρησιμοποιήσετε τη δυνατότητα του ενσωματωμένου πίνακα "Αυτόματη προσαρμογή" για να αλλάξετε το μέγεθός τους ένα προς ένα, όπως εισάγεται στην ακόλουθη μέθοδο 1. Αλλά, εάν υπάρχουν πολλοί πίνακες, μπορείτε καλύτερα να χρησιμοποιήσω τη Μέθοδο 2, η οποία χρησιμοποιεί τον κώδικα VBA για να πραγματοποιήσει εύκολα το "Batch Resize".
Μέθοδος 1: Αλλαγή μεγέθους των πινάκων ένα προς ένα μέσω της λειτουργίας "Αυτόματη προσαρμογή"
- Πρώτα απ 'όλα, στο ανοιχτό email, τοποθετήστε τον κέρσορα πάνω από ένα τραπέζι.
- Στη συνέχεια, κάντε κλικ στο σταυρό εικονίδιο στην αριστερή επάνω γωνία του πίνακα για να το επιλέξετε.
- Στη συνέχεια, μεταβείτε στην καρτέλα "Διάταξη" στην κορδέλα "Επιτραπέζια εργαλεία".
- Εδώ, βρείτε και επιλέξτε την επιλογή "Αυτόματη προσαρμογή".
- Τώρα, επιλέξτε "AutoFit Contents" ή "AutoFit Window" σύμφωνα με τις ανάγκες σας. Το παρακάτω στιγμιότυπο οθόνης δείχνει το αποτέλεσμα του παραδείγματος - "AutoFit Window".
- Αμέσως, ο επιλεγμένος πίνακας ταιριάζει στο παράθυρο.
- Μετά από αυτό, μπορείτε να χρησιμοποιήσετε αυτόν τον τρόπο για να αλλάξετε το μέγεθος των άλλων πινάκων ένα προς ένα.
Μέθοδος 2: Αλλαγή μεγέθους με το Outlook VBA
- Στην αρχή, διατηρήστε ανοιχτό το email.
- Στη συνέχεια, ενεργοποιήστε το πρόγραμμα επεξεργασίας του Outlook VBA μέσω του "Alt + F11".
- Στη συνέχεια, τοποθετήστε τον ακόλουθο κώδικα VBA σε μια ενότητα ή έργο.
Sub ResizeAllTables_FitContentsOrWindow()
Dim objMail As Outlook.MailItem
Dim objMailDocument As Word.Document
Dim objTables As Word.Tables
Dim i As Integer
Dim objTable As Word.Table
Set objMail = Outlook.Application.ActiveInspector.CurrentItem
Set objMailDocument = objMail.GetInspector.WordEditor
Set objTables = objMailDocument.Tables
If objTables.Count > 0 Then
For i = 1 To objTables.Count
Set objTable = objTables.Item(i)
'Fit the window
objTable.AutoFitBehavior wdAutoFitWindow
'Fit the contents, use the following line instead
'objTable.AutoFitBehavior wdAutoFitContent
Next
End If
End Sub
- Στη συνέχεια, πατήστε απευθείας το πλήκτρο "F5" για να εκτελέσετε αυτήν τη μακροεντολή.
- Όταν ολοκληρωθεί η μακροεντολή, επιστρέψτε στο email. Θα διαπιστώσετε ότι όλοι οι πίνακες έχουν αλλάξει μέγεθος για να ταιριάζει αυτόματα στο παράθυρο μηνύματος.
Αντιμετωπίστε τα προβλήματα του Outlook με ευελιξία
Είναι γνωστό ότι οι χρήστες μπορούν να αντιμετωπίσουν διάφορα προβλήματα στο Outlook, όπως συνηθισμένα μηνύματα σφάλματος, ξαφνικό κολλημα και απότομη αυτόματη επανεκκίνηση, καταστροφική καταστροφή αρχείων δεδομένων και ούτω καθεξής. Οι αντίστοιχες λύσεις θα πρέπει να διαφέρουν ανάλογα με το είδος των προβλημάτων. Για παράδειγμα, για να διορθώσετε μικροσκοπικά σφάλματα, μπορείτε απλώς να χρησιμοποιήσετε το εργαλείο επιδιόρθωσης εισερχομένων. Ωστόσο, σε περίπτωση σοβαρών προβλημάτων, όπως προβλήματα με αρχεία PST, θα πρέπει να καταφύγετε σε ένα ισχυρό και αποδεδειγμένα αξιόπιστο εξωτερικό εργαλείο επιδιόρθωσης, όπως το DataNumen Outlook Repair προς την επιδιορθώστε το PST αρχείο.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιόρθωση sql και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com