2 Mezzi per ridimensionare in batch tutte le tabelle per adattarle al contenuto o alla finestra nell'e-mail di Outlook

Quando si compone un'e-mail che contiene molte tabelle nel corpo del messaggio, se si desidera ridimensionare in batch tutte le tabelle per adattarle al contenuto o alla finestra corrente, è possibile utilizzare i metodi condivisi in questo articolo.

Dopo aver creato diverse tabelle in un'e-mail, in modo da rendere allineati e ordinati i contenuti dell'e-mail, potresti sperare di ridimensionare tutte le tabelle per adattarle ai contenuti o alla finestra del messaggio corrente. In questo caso, se ci sono solo due o tre tabelle, puoi semplicemente utilizzare la funzione di tabella "AutoFit" incorporata per ridimensionarle una per una, come introdotto nel seguente Metodo 1. Ma, se ci sono più tabelle, tu sarebbe meglio utilizzare il Metodo 2, che utilizza il codice VBA per realizzare facilmente "Ridimensionamento batch".

Metodo 1: ridimensiona le tabelle una per una tramite la funzione "AutoFit".

1. Prima di tutto, nell'e-mail aperta, posiziona il cursore su una tabella.
2. Quindi, fai clic sull'icona a forma di croce nell'angolo in alto a sinistra della tabella per selezionarla.
3. Successivamente, accedi alla scheda "Layout" nella barra multifunzione "Strumenti tabella".
4. Qui, trova e seleziona l'opzione "AutoFit".
5. Ora seleziona "AutoFit Contents" o "AutoFit Window" in base alle tue esigenze. Lo screenshot seguente mostra il risultato dell'esempio: "AutoFit Window".
6. Immediatamente, la tabella selezionata viene adattata alla finestra.
7. Successivamente, puoi utilizzare questo modo per ridimensionare le altre tabelle una per una.

Metodo 2: ridimensionamento in batch con Outlook VBA

1. All'inizio, mantieni l'e-mail aperta.
2. Successivamente, attiva l'editor VBA di Outlook tramite "Alt + F11".
3. Successivamente, inserisci il seguente codice VBA in un modulo o progetto.

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

4. Quindi, premi direttamente il tasto "F5" per eseguire questa macro.
5. Al termine della macro, torna all'e-mail. Scoprirai che tutte le tabelle sono state ridimensionate per adattarsi automaticamente alla finestra del messaggio.

Gestisci i problemi di Outlook con agilità

È noto che gli utenti possono riscontrare vari problemi in Outlook, come messaggi di errore comuni, blocchi improvvisi e riavvii automatici bruschi, danneggiamento catastrofico dei file di dati e così via. Le soluzioni corrispondenti dovrebbero variare a seconda del tipo di problema. Ad esempio, per correggere piccoli errori, è sufficiente utilizzare lo strumento di ripristino della posta in arrivo. Ma, in caso di problemi seri, come problemi con i file PST, è necessario ricorrere a uno strumento di riparazione esterno robusto e collaudato, come DataNumen Outlook Repair a correggere PST file.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui correzione sql e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com