2 средства за групово преоразмеряване на всички таблици, за да се поберат в съдържанието или прозореца във вашия имейл на Outlook

Когато съставяте имейл, който съдържа много таблици в тялото на съобщението, ако искате групово преоразмеряване на всички таблици, така че да се побере в съдържанието или текущия прозорец, можете да използвате методите, споделени в тази статия.

След като създадете няколко таблици в имейл, за да направите съдържанието на имейла подравнено и подредено, може да се надявате да промените размера на всички таблици, така че да отговарят на съдържанието или на текущия прозорец на съобщението. В този случай, ако има само две или три таблици, можете просто да използвате вградената функция на таблицата „AutoFit“, за да ги преоразмерите една по една, както е представено в следващия метод 1. Но ако има няколко таблици, вие е по-добре да използвате Метод 2, който използва VBA код, за да реализира лесно „Пренасочване на партида“.

Метод 1: Преоразмеряване на таблици една по една чрез функцията „AutoFit“

1. На първо място, в отворения имейл поставете курсора над маса.
2. След това щракнете върху иконата на кръст в горния ляв ъгъл на таблицата, за да я изберете.
3. След това отворете раздела „Оформление“ в лентата „Инструменти за таблици“.
4. Тук намерете и изберете опцията “AutoFit”.
5. Сега изберете „AutoFit Contents“ или „AutoFit Window“ според вашите нужди. Следващата екранна снимка показва резултата от примера - „Прозорец за автоматично поставяне“.
6. Веднага избраната таблица е подходяща за прозорец.
7. След това можете да използвате този начин, за да преоразмерите другите таблици една по една.

Метод 2: Партидно преоразмеряване с Outlook VBA

1. В началото дръжте имейла отворен.
2. Впоследствие задействайте редактора на Outlook VBA чрез “Alt + F11”.
3. След това поставете следния VBA код в модул или проект.

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. След това натиснете директно бутона „F5”, за да стартирате този макрос.
5. Когато макросът завърши, върнете се към имейла. Ще откриете, че всички таблици са преоразмерени, за да се побере автоматично прозорецът на съобщението.

Справете се с проблемите на Outlook с пъргавина

Известно е, че потребителите могат да се сблъскат с различни проблеми в Outlook, като например често срещани съобщения за грешки, внезапно блокиране и рязко автоматично рестартиране, катастрофална повреда на файлове с данни и т.н. Съответните решения трябва да варират в зависимост от вида на проблема. Например, за да поправите малки грешки, можете просто да използвате инструмента за поправка на входящата поща. Но в случай на сериозни проблеми, като например проблеми с PST файлове, трябва да прибегнете до надежден и доказан външен инструмент за поправка, като например... DataNumen Outlook Repair да се коригирайте PST файл.

Въведение на автора:

Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително sql корекция и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com