2 måter å endre størrelse på alle tabeller for å passe innhold eller vindu i Outlook-e-posten

Når du skriver en e-post som inneholder mange tabeller i meldingsteksten, hvis du vil endre størrelsen på alle tabeller for å passe innholdet eller gjeldende vindu, kan du bruke metodene som er delt i denne artikkelen.

Etter å ha opprettet flere tabeller i en e-post, for å gjøre e-postinnholdet justert og ryddig, kan du håpe å endre størrelsen på alle tabellene for å passe til innholdet eller gjeldende meldingsvindu. I dette tilfellet, hvis det bare er to eller tre tabeller, kan du bare bruke den innebygde "AutoFit"-tabellfunksjonen for å endre størrelsen på dem én etter én, som introdusert i følgende metode 1. Men hvis det er flere tabeller, kan du det er bedre å bruke metode 2, som bruker VBA-kode for enkelt å realisere "Batch Resize".

Metode 1: Endre størrelse på tabeller en etter en via "AutoFit"-funksjonen

1. Først av alt, i den åpne e-posten, plasser markøren over en tabell.
2. Klikk deretter på kryssikonet i øvre venstre hjørne av tabellen for å velge det.
3. Deretter får du tilgang til "Layout"-fanen i "Tabellverktøy"-båndet.
4. Finn og velg alternativet "AutoFit" her.
5. Velg nå "Autotilpass innhold" eller "Autotilpass-vindu" i henhold til dine behov. Følgende skjermbilde viser resultatet av eksemplet – "AutoFit Window".
6. Med en gang passer det valgte bordet til vinduet.
7. Etter det kan du bruke denne måten til å endre størrelsen på de andre tabellene én etter én.

Metode 2: Endre størrelse på batch med Outlook VBA

1. I begynnelsen, hold e-posten åpen.
2. Deretter utløser du Outlook VBA-editor via "Alt + F11".
3. Deretter legger du følgende VBA-kode inn i en modul eller et prosjekt.

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. Deretter trykker du direkte på "F5"-tasten for å kjøre denne makroen.
5. Gå tilbake til e-posten når makroen er ferdig. Du vil finne at alle tabellene har blitt endret til automatisk å passe til meldingsvinduet.

Håndter Outlook-problemer med Agility

Det er kjent at brukere kan oppleve diverse problemer i Outlook, som vanlige feilmeldinger, plutselig fastlåsing og brå automatisk omstart, katastrofal filkorrupsjon og så videre. De tilsvarende løsningene bør variere avhengig av typen problemer. For eksempel, for å fikse små feil, kan du ganske enkelt bruke reparasjonsverktøyet for innboksen. Men i tilfelle alvorlige problemer, for eksempel problemer med PST-filer, bør du ty til et robust og velprøvd eksternt reparasjonsverktøy, for eksempel DataNumen Outlook Repair til fikse PST filen.

Forfatterintroduksjon:

Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql fikse og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med