2 moyens de redimensionner par lots toutes les tables pour s'adapter au contenu ou à la fenêtre de votre e-mail Outlook

Lorsque vous composez un e-mail contenant de nombreux tableaux dans le corps du message, si vous souhaitez redimensionner par lots tous les tableaux pour les adapter au contenu ou à la fenêtre actuelle, vous pouvez utiliser les méthodes partagées dans cet article.

Après avoir créé plusieurs tableaux dans un e-mail, afin d'aligner et d'ordonner le contenu de l'e-mail, vous pouvez espérer redimensionner tous les tableaux pour les adapter au contenu ou à la fenêtre de message actuelle. Dans ce cas, s'il n'y a que deux ou trois tables, vous pouvez simplement utiliser la fonction de table "AutoFit" intégrée pour les redimensionner une par une, comme indiqué dans la méthode 1 suivante. Mais, s'il y a plusieurs tables, vous feriez mieux d'utiliser la méthode 2, qui utilise le code VBA pour réaliser facilement "Batch Resize".

Méthode 1 : redimensionner les tableaux un par un via la fonction "AutoFit"

1. Tout d'abord, dans l'e-mail ouvert, placez le curseur sur un tableau.
2. Ensuite, cliquez sur l'icône en forme de croix dans le coin supérieur gauche du tableau pour la sélectionner.
3. Ensuite, accédez à l'onglet "Mise en page" dans le ruban "Outils de tableau".
4. Ici, recherchez et sélectionnez l'option "AutoFit".
5. Maintenant, sélectionnez "AutoFit Contents" ou "AutoFit Window" selon vos besoins. La capture d'écran suivante montre le résultat de l'exemple - "AutoFit Window".
6. Aussitôt, le tableau sélectionné est ajusté à la fenêtre.
7. Après cela, vous pouvez utiliser cette méthode pour redimensionner les autres tableaux un par un.

Méthode 2 : redimensionner par lots avec Outlook VBA

1. Au début, gardez l'e-mail ouvert.
2. Ensuite, lancez l'éditeur Outlook VBA via "Alt + F11".
3. Ensuite, placez le code VBA suivant dans un module ou un projet.

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. Ensuite, appuyez directement sur la touche "F5" pour exécuter cette macro.
5. Une fois la macro terminée, revenez à l'e-mail. Vous constaterez que tous les tableaux ont été redimensionnés pour s'adapter automatiquement à la fenêtre de message.

Gérer les problèmes d'Outlook avec agilité

Il est connu que les utilisateurs peuvent rencontrer divers problèmes dans Outlook, tels que des messages d'erreur courants, un blocage soudain et une résolution automatique abrupte.tarting, corruption catastrophique des fichiers de données, etc. Les solutions correspondantes doivent varier selon le type de problèmes. Par exemple, pour corriger de petites erreurs, vous pouvez simplement utiliser l'outil de réparation de la boîte de réception. Mais, en cas de problèmes graves, tels que des problèmes avec les fichiers PST, vous devez recourir à un outil de réparation externe robuste et éprouvé, tel que DataNumen Outlook Repair à fixer PST fichier.

Introduction de l'auteur:

Shirley Zhang est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris correction sql et produits logiciels de réparation Outlook. Pour plus d'informations, visitez www.datanumen.com