2 prostriedky na dávkovú zmenu veľkosti všetkých tabuliek tak, aby sa zmestili na obsah alebo okno v e-maile programu Outlook

Pri vytváraní e-mailu, ktorý obsahuje veľa tabuliek v tele správy, ak chcete hromadne zmeniť veľkosť všetkých tabuliek, aby sa zmestili do obsahu alebo aktuálneho okna, môžete použiť metódy zdieľané v tomto článku.

Po vytvorení niekoľkých tabuliek v e-maile, aby bol obsah e-mailu zarovnaný a usporiadaný, môžete dúfať, že zmeníte veľkosť všetkých tabuliek tak, aby sa zmestili do obsahu alebo okna aktuálnej správy. V tomto prípade, ak existujú iba dve alebo tri tabuľky, stačí použiť vstavanú funkciu tabuľky „Automatické prispôsobenie“ na zmenu veľkosti jednej po druhej, ako je uvedené v nasledujúcej metóde 1. Ak však existuje viacero tabuliek, mal lepšie použiť metódu 2, ktorá používa kód VBA na jednoduché uskutočnenie „zmeny veľkosti dávky“.

Metóda 1: Zmena veľkosti tabuliek po jednej pomocou funkcie „Automatické prispôsobenie“.

1. Najprv v otvorenom e-maile umiestnite kurzor na tabuľku.
2. Potom kliknite na ikonu krížika v ľavom hornom rohu tabuľky a vyberte ju.
3. Ďalej prejdite na kartu „Rozloženie“ na páse „Nástroje tabuľky“.
4. Tu nájdite a vyberte možnosť „Automatické prispôsobenie“.
5. Teraz vyberte „Automatické prispôsobenie obsahu“ alebo „Automatické prispôsobenie okna“ podľa vašich potrieb. Nasledujúca snímka obrazovky zobrazuje výsledok príkladu – „Automatické prispôsobenie okna“.
6. Vybraná tabuľka sa ihneď prispôsobí oknu.
7. Potom môžete tento spôsob použiť na zmenu veľkosti ostatných tabuliek jeden po druhom.

Metóda 2: Dávková zmena veľkosti pomocou programu Outlook VBA

1. Na začiatku nechajte e-mail otvorený.
2. Následne spustite editor Outlook VBA pomocou „Alt + F11“.
3. Potom vložte nasledujúci kód VBA do modulu alebo projektu.

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. Potom priamo stlačte tlačidlo „F5“ na spustenie tohto makra.
5. Keď makro skončí, vráťte sa k e-mailu. Zistíte, že veľkosť všetkých tabuliek bola zmenená tak, aby sa automaticky prispôsobili oknu správy.

Riešte problémy s Outlookom svižne

Je známe, že používatelia môžu v programe Outlook zaznamenať rôzne problémy, ako sú bežné chybové hlásenia, náhle uviaznutie a náhle automatické rozlíšenietarting, katastrofálne poškodenie dátového súboru a pod. Príslušné riešenia by sa mali líšiť podľa druhu problémov. Ak chcete napríklad opraviť drobné chyby, môžete jednoducho použiť nástroj na opravu doručenej pošty. Ale v prípade vážnych problémov, ako sú problémy so súbormi PST, by ste sa mali uchýliť k robustnému a osvedčenému externému nástroju na opravu, ako napr. DataNumen Outlook Repair na opraviť PST súbor.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S