2 Mittel zum Batch-Ändern der Größe aller Tabellen, um sie an den Inhalt oder das Fenster Ihrer Outlook-E-Mail anzupassen

Wenn Sie beim Erstellen einer E-Mail, die viele Tabellen im Nachrichtentext enthält, die Größe aller Tabellen stapelweise ändern möchten, um sie an den Inhalt oder das aktuelle Fenster anzupassen, können Sie die in diesem Artikel beschriebenen Methoden verwenden.

Nachdem Sie mehrere Tabellen in einer E-Mail erstellt haben, um den E-Mail-Inhalt auszurichten und zu ordnen, können Sie die Größe aller Tabellen an den Inhalt oder das aktuelle Nachrichtenfenster anpassen. In diesem Fall können Sie, wenn nur zwei oder drei Tabellen vorhanden sind, die integrierte Tabellenfunktion "AutoFit" verwenden, um die Größe einzeln zu ändern, wie in der folgenden Methode 1 beschrieben. Wenn jedoch mehrere Tabellen vorhanden sind, können Sie Verwenden Sie besser die Methode 2, bei der VBA-Code verwendet wird, um „Batch Resize“ einfach zu realisieren.

Methode 1: Ändern Sie die Größe von Tabellen nacheinander über die Funktion „AutoFit“

1. Platzieren Sie in der geöffneten E-Mail zunächst den Cursor über einer Tabelle.
2. Klicken Sie dann auf das Kreuzsymbol in der linken oberen Ecke der Tabelle, um es auszuwählen.
3. Rufen Sie als Nächstes die Registerkarte "Layout" in der Multifunktionsleiste "Tabellentools" auf.
4. Suchen Sie hier die Option „AutoFit“ und wählen Sie sie aus.
5. Wählen Sie nun je nach Bedarf "AutoFit-Inhalt" oder "AutoFit-Fenster". Der folgende Screenshot zeigt das Ergebnis des Beispiels - "AutoFit-Fenster".
6. Die ausgewählte Tabelle wird sofort an das Fenster angepasst.
7. Danach können Sie auf diese Weise die Größe der anderen Tabellen nacheinander ändern.

Methode 2: Batch-Größenänderung mit Outlook VBA

1. Lassen Sie die E-Mail zu Beginn geöffnet.
2. Anschließend den Outlook VBA-Editor über „Alt + F11“ auslösen.
3. Fügen Sie als Nächstes den folgenden VBA-Code in ein Modul oder Projekt ein.

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. Drücken Sie dann direkt die Taste „F5“, um dieses Makro auszuführen.
5. Wenn das Makro fertig ist, kehren Sie zur E-Mail zurück. Sie werden feststellen, dass die Größe aller Tabellen so geändert wurde, dass sie automatisch in das Nachrichtenfenster passen.

Behandeln Sie Outlook-Probleme mit Agilität

Es ist bekannt, dass Outlook-Nutzer verschiedene Probleme haben können, wie z. B. häufige Fehlermeldungen, plötzliches Einfrieren und unerwartete Neustarts, schwerwiegende Datenbeschädigung usw. Die entsprechenden Lösungen hängen von der Art des Problems ab. Kleinere Fehler lassen sich beispielsweise mit dem Posteingangsreparaturtool beheben. Bei schwerwiegenden Problemen, wie z. B. mit PST-Dateien, empfiehlt sich jedoch ein zuverlässiges und bewährtes externes Reparaturtool. DataNumen Outlook Repair zu PST beheben Datei.

Einführung des Autors:

Shirley Zhang ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich SQL Fix und Outlook-Reparatursoftwareprodukte. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX