Podczas tworzenia wiadomości e-mail zawierającej wiele tabel w treści wiadomości, jeśli chcesz zbiorczo zmienić rozmiar wszystkich tabel, aby pasowały do zawartości lub bieżącego okna, możesz skorzystać z metod udostępnionych w tym artykule.
Po utworzeniu kilku tabel w wiadomości e-mail, aby wyrównać i uporządkować zawartość wiadomości e-mail, możesz mieć nadzieję na zmianę rozmiaru wszystkich tabel w celu dopasowania do zawartości lub bieżącego okna wiadomości. W takim przypadku, jeśli są tylko dwie lub trzy tabele, możesz po prostu użyć wbudowanej funkcji „Autodopasowanie” tabeli, aby zmienić ich rozmiar jedna po drugiej, jak przedstawiono w następującej metodzie 1. Ale jeśli jest wiele tabel, ty lepiej skorzystaj z metody 2, która wykorzystuje kod VBA do łatwej realizacji „Zmiany rozmiaru partii”.
Metoda 1: Zmień rozmiar tabel jeden po drugim za pomocą funkcji „Autodopasowanie”.
- Przede wszystkim w otwartym e-mailu umieść kursor nad tabelą.
- Następnie kliknij ikonę krzyżyka w lewym górnym rogu tabeli, aby ją zaznaczyć.
- Następnie przejdź do zakładki „Układ” na wstążce „Narzędzia tabel”.
- Tutaj znajdź i wybierz opcję „Autodopasowanie”.
- Teraz wybierz „Autodopasowanie zawartości” lub „Autodopasowanie okna” zgodnie ze swoimi potrzebami. Poniższy zrzut ekranu pokazuje wynik przykładu – „Autodopasowanie okna”.
- Od razu wybrana tabela jest dopasowana do okna.
- Następnie możesz użyć tego sposobu, aby zmienić rozmiar innych tabel jeden po drugim.
Metoda 2: Zmiana rozmiaru wsadowego za pomocą programu Outlook VBA
- Na początku nie otwieraj wiadomości e-mail.
- Następnie uruchom edytor Outlook VBA za pomocą „Alt + F11”.
- Następnie umieść następujący kod VBA w module lub projekcie.
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
- Następnie bezpośrednio naciśnij przycisk klawisza „F5”, aby uruchomić to makro.
- Po zakończeniu makra wróć do wiadomości e-mail. Przekonasz się, że wszystkie tabele zostały przeskalowane, aby automatycznie dopasować je do okna wiadomości.
Zwinnie rozwiązuj problemy z programem Outlook
Wiadomo, że użytkownicy mogą napotykać różne problemy w Outlooku, takie jak typowe komunikaty o błędach, nagłe zawieszanie się i automatyczne ponowne uruchamianie, katastrofalne uszkodzenia plików danych itd. Odpowiednie rozwiązania powinny się różnić w zależności od rodzaju problemu. Na przykład, aby naprawić drobne błędy, można po prostu skorzystać z narzędzia do naprawy skrzynki odbiorczej. Jednak w przypadku poważnych problemów, takich jak problemy z plikami PST, należy skorzystać z solidnego i sprawdzonego zewnętrznego narzędzia do naprawy, takiego jak [brakuje kontekstu]. DataNumen Outlook Repair do naprawić PST plik.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym poprawka sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com