Wanneer u een e-mail opstelt die veel tabellen in de berichttekst bevat en u de grootte van alle tabellen in batch wilt aanpassen aan de inhoud of het huidige venster, kunt u de methoden gebruiken die in dit artikel worden gedeeld.
Nadat u verschillende tabellen in een e-mail hebt gemaakt, om de inhoud van de e-mail uitgelijnd en geordend te maken, kunt u hopen dat u de grootte van alle tabellen kunt aanpassen aan de inhoud of het huidige berichtvenster. Als er in dit geval slechts twee of drie tabellen zijn, kunt u gewoon de ingebouwde "AutoFit" -tafelfunctie gebruiken om ze een voor een te vergroten of verkleinen, zoals geïntroduceerd in de volgende methode 1. Maar als er meerdere tabellen zijn, kunt u U kunt beter methode 2 gebruiken, die VBA-code gebruikt om gemakkelijk "Batch Resize" te realiseren.
Methode 1: Wijzig de grootte van tabellen een voor een via de functie "AutoFit"
- Plaats allereerst in de geopende e-mail de cursor op een tafel.
- Klik vervolgens op het kruisje in de linkerbovenhoek van de tabel om het te selecteren.
- Ga vervolgens naar het tabblad "Indeling" in het lint "Hulpmiddelen voor tabellen".
- Zoek en selecteer hier de optie "AutoFit".
- Selecteer nu "AutoFit-inhoud" of "AutoFit-venster" volgens uw behoeften. De volgende schermafbeelding toont het resultaat van het voorbeeld - "AutoFit Window".

- De geselecteerde tafel is meteen geschikt voor het venster.
- Daarna kunt u op deze manier de grootte van de andere tabellen een voor een wijzigen.
Methode 2: Batch-formaat wijzigen met Outlook VBA
- Houd de e-mail in het begin geopend.
- Activeer vervolgens de Outlook VBA-editor via "Alt + F11".
- Plaats vervolgens de volgende VBA-code in een module of project.
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
- Druk vervolgens rechtstreeks op de toets "F5" om deze macro uit te voeren.
- Keer terug naar de e-mail als de macro is voltooid. U zult zien dat het formaat van alle tabellen is aangepast om automatisch in het berichtvenster te passen.
Behandel Outlook-problemen met behendigheid
Het is bekend dat gebruikers diverse problemen kunnen ondervinden in Outlook, zoals veelvoorkomende foutmeldingen, plotseling vastlopen en abrupt automatisch herstarten, catastrofale beschadiging van gegevensbestanden, enzovoort. De bijbehorende oplossingen variëren afhankelijk van het soort probleem. Om kleine fouten te herstellen, kunt u bijvoorbeeld de tool voor het herstellen van de inbox gebruiken. Maar in geval van ernstige problemen, zoals problemen met PST-bestanden, is het raadzaam om een robuuste en beproefde externe hersteltool te gebruiken, zoals... DataNumen Outlook Repair naar repareer PST bestand.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder sql-oplossing en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com


