2 prostředky k dávkové změně velikosti všech tabulek tak, aby odpovídaly obsahu nebo oknu v e-mailu aplikace Outlook

Pokud chcete při psaní e-mailu, který obsahuje mnoho tabulek v těle zprávy, hromadně změnit velikost všech tabulek tak, aby odpovídala obsahu nebo aktuálnímu oknu, můžete použít metody sdílené v tomto článku.

Po vytvoření několika tabulek v e-mailu, aby byl obsah e-mailu zarovnán a uspořádán, můžete doufat, že změníte velikost všech tabulek tak, aby odpovídaly obsahu nebo aktuálnímu oknu zprávy. V tomto případě, pokud existují pouze dvě nebo tři tabulky, můžete pomocí funkce vestavěné tabulky „Automatické přizpůsobení“ měnit jejich velikost po jedné, jak je uvedeno v následující metodě 1. Pokud však existuje více tabulek, můžete měl lépe použít metodu 2, která používá kód VBA ke snadné realizaci „Batch Resize“.

Metoda 1: Změna velikosti tabulek po jedné pomocí funkce „Automatické přizpůsobení“

1. Nejprve v otevřeném e-mailu umístěte kurzor na tabulku.
2. Poté klikněte na ikonu křížku v levém horním rohu tabulky a vyberte ji.
3. Dále přejděte na kartu „Rozvržení“ na pásu karet „Nástroje tabulky“.
4. Zde vyhledejte a vyberte možnost „Automatické přizpůsobení“.
5. Nyní vyberte „AutoFit Contents“ nebo „AutoFit Window“ podle vašich potřeb. Následující snímek obrazovky ukazuje výsledek příkladu - „Okno automatického přizpůsobení“.
6. Vybraná tabulka se najednou vejde do okna.
7. Poté můžete tímto způsobem postupně měnit velikost ostatních tabulek.

Metoda 2: Dávková změna velikosti pomocí aplikace Outlook VBA

1. Na začátku nechte e-mail otevřený.
2. Následně spusťte editor Outlook VBA pomocí „Alt + F11“.
3. Dále vložte následující kód VBA do modulu nebo 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. Poté toto makro spusťte přímo stisknutím tlačítka „F5“.
5. Po dokončení makra se vraťte na e-mail. Zjistíte, že u všech tabulek byla změněna velikost, aby se automaticky vešly do okna zprávy.

Zvládněte potíže s Outlookem s agilitou

Je známo, že uživatelé se mohou v Outlooku setkat s různými problémy, jako jsou běžné chybové zprávy, náhlé zaseknutí a náhlé automatické restartování, katastrofické poškození datových souborů atd. Příslušná řešení by se měla lišit v závislosti na druhu problému. Například k opravě drobných chyb můžete jednoduše použít nástroj pro opravu doručené pošty. V případě vážných problémů, jako jsou problémy se soubory PST, byste se však měli uchýlit k robustnímu a osvědčenému externímu nástroji pro opravu, jako je například DataNumen Outlook Repair na opravit PST soubor.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně oprava sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com