2 Vahendid kõigi tabelite suuruse muutmiseks, et need sobiksid teie Outlooki meili sisu või aknaga

Outlooki lahendused September 29, 2025

Kui koostate meilisõnumi, mis sisaldab sõnumi kehas palju tabeleid, ja soovite muuta kõigi tabelite suurust pakettides, et need sobiksid sisu või praeguse aknaga, saate kasutada selles artiklis jagatud meetodeid.

Pärast meilis mitme tabeli loomist, et meili sisu oleks joondatud ja korrastatud, võite loota kõigi tabelite suurust muuta, et need sobiksid sisu või praeguse sõnumiaknaga. Sel juhul, kui tabeleid on ainult kaks või kolm, saate nende ükshaaval suuruse muutmiseks kasutada lihtsalt sisseehitatud funktsiooni AutoFit, nagu on kirjeldatud järgmises 1. meetodis. Kui aga tabeleid on mitu, oleks parem kasutada meetodit 2, mis kasutab VBA-koodi, et hõlpsasti teostada partii suuruse muutmist.

1. meetod: muutke tabelite suurust ükshaaval funktsiooni „Automaatne sobitamine” kaudu

  1. Kõigepealt asetage avatud meilis kursor tabeli kohale.
  2. Seejärel klõpsake selle valimiseks tabeli vasakus ülanurgas ristiikoonil.
  3. Järgmisena avage lindi "Tabelitööriistad" vahekaart "Paigutus".
  4. Siin leidke ja valige suvand "Automaatne sobitamine".
  5. Nüüd valige vastavalt oma vajadustele "Automaatne sisu" või "Automaatne sobitamine" aken. Järgmine ekraanipilt näitab näite tulemust - "Automaatne sobitamine aken".Akna automaatne sobitamine
  6. Valitud tabel mahub korraga aknasse.Muutke tabeli suurust, et see sobiks aknaga
  7. Pärast seda saate seda meetodit kasutada teiste tabelite ükshaaval suuruse muutmiseks.

2. meetod: partii suuruse muutmine Outlook VBA abil

  1. Alguses hoidke meil avatuna.
  2. Seejärel käivitage Outlook VBA redaktor, kasutades "Alt + F11".
  3. Järgmisena sisestage moodulisse või projekti järgmine VBA kood.
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

VBA kood – muutke kõigi tabelite suurust pakettides, et need mahuks või aknasse mahuks

  1. Seejärel vajutage selle makro käivitamiseks otse klahvi "F5".
  2. Kui makro on lõppenud, naaske meili juurde. Näete, et kõigi tabelite suurust on muudetud nii, et need mahuksid automaatselt sõnumiaknasse.Kõikide tabelite suurust muudetakse, et need sobiksid aknaga

Agility abil saate Outlooki probleemidega hakkama

On teada, et Outlooki kasutajad võivad kogeda mitmesuguseid probleeme, näiteks tavalised veateated, äkiline takerdumine ja automaatne taaskäivitamine, katastroofiline andmefailide rikkumine jne. Vastavad lahendused peaksid olenevalt probleemide tüübist erinema. Näiteks väikeste vigade parandamiseks võite lihtsalt kasutada postkasti parandamise tööriista. Tõsiste probleemide korral, näiteks PST-failidega seotud probleemide korral, peaksite aga kasutama tugevat ja hästi tõestatud välist parandamise tööriista, näiteks DataNumen Outlook Repair et paranda PST faili.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas sql parandus ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.