При составлении электронного письма, которое содержит много таблиц в теле сообщения, если вы хотите пакетно изменить размер всех таблиц, чтобы они соответствовали содержимому или текущему окну, вы можете использовать методы, описанные в этой статье.
После создания нескольких таблиц в электронном письме, чтобы сделать содержимое электронного письма выровненным и упорядоченным, вы можете надеяться изменить размер всех таблиц, чтобы они соответствовали содержимому или текущему окну сообщения. В этом случае, если есть только две или три таблицы, вы можете просто использовать встроенную функцию таблицы «Автоподбор», чтобы изменить их размер одну за другой, как показано в следующем методе 1. Но если таблиц несколько, вы лучше использовать метод 2, который использует код VBA для простой реализации «пакетного изменения размера».
Метод 1: изменение размера таблиц по одной с помощью функции «Автоподбор»
- Прежде всего, в открытом письме наведите курсор на таблицу.
- Затем щелкните значок крестика в левом верхнем углу таблицы, чтобы выбрать его.
- Затем перейдите на вкладку «Макет» на ленте «Работа с таблицами».
- Здесь найдите и выберите опцию «AutoFit».
- Теперь выберите «AutoFit Contents» или «AutoFit Window» в соответствии с вашими потребностями. На следующем снимке экрана показан результат примера — «Окно автоподбора».
- Сразу же выбранная таблица помещается в окно.
- После этого вы можете использовать этот способ для изменения размеров других таблиц одну за другой.
Способ 2: пакетное изменение размера с помощью Outlook VBA
- В начале держите письмо открытым.
- Затем запустите редактор Outlook VBA с помощью «Alt + F11».
- Затем поместите следующий код 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
- Затем напрямую нажмите кнопку «F5», чтобы запустить этот макрос.
- Когда макрос завершится, вернитесь к письму. Вы обнаружите, что все таблицы были изменены, чтобы автоматически соответствовать окну сообщения.
Устраняйте проблемы с Outlook с помощью гибкости
Известно, что пользователи могут сталкиваться с различными проблемами в Outlook, такими как распространенные сообщения об ошибках, внезапные зависания и резкие автоматические перезагрузки, катастрофическое повреждение файлов данных и так далее. Соответствующие решения должны зависеть от типа проблемы. Например, для исправления мелких ошибок можно просто использовать инструмент восстановления папки «Входящие». Но в случае серьезных проблем, таких как проблемы с PST-файлами, следует прибегнуть к надежному и проверенному внешнему инструменту восстановления, например, DataNumen Outlook Repair в исправить PST .
Об авторе:
Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая исправление sql и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com