2 medios para cambiar el tamaño de todas las tablas por lotes para que se ajusten al contenido o la ventana de su correo electrónico de Outlook

Al redactar un correo electrónico que contiene muchas tablas en el cuerpo del mensaje, si desea cambiar el tamaño de todas las tablas por lotes para que se ajusten al contenido o la ventana actual, puede utilizar los métodos compartidos en este artículo.

Después de crear varias tablas en un correo electrónico, para que el contenido del correo electrónico esté alineado y ordenado, puede esperar cambiar el tamaño de todas las tablas para que se ajusten al contenido o la ventana del mensaje actual. En este caso, si solo hay dos o tres tablas, puede usar la función de tabla "Autoajuste" incorporada para cambiar su tamaño una por una, como se presenta en el siguiente Método 1. Pero, si hay varias tablas, usted Es mejor que use el Método 2, que usa código VBA para realizar fácilmente el "Cambio de tamaño de lote".

Método 1: Cambiar el tamaño de las tablas una a una mediante la función "Autoajuste"

1. En primer lugar, en el correo electrónico abierto, coloque el cursor sobre una tabla.
2. Luego, haga clic en el ícono de la cruz en la esquina superior izquierda de la tabla para seleccionarlo.
3. A continuación, acceda a la pestaña "Diseño" en la cinta "Herramientas de tabla".
4. Aquí, busque y seleccione la opción "Autoajuste".
5. Ahora, seleccione "Autoajustar contenido" o "Autoajustar ventana" según sus necesidades. La siguiente captura de pantalla muestra el resultado del ejemplo: "Ventana de ajuste automático".
6. De inmediato, la tabla seleccionada se ajusta a la ventana.
7. Después de eso, puede usar esta forma para cambiar el tamaño de las otras tablas una por una.

Método 2: Cambiar el tamaño por lotes con Outlook VBA

1. Al principio, mantenga abierto el correo electrónico.
2. Posteriormente, active el editor de Outlook VBA mediante "Alt + F11".
3. A continuación, coloque el siguiente código VBA en un módulo o proyecto.

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. Luego, presione directamente el botón de tecla "F5" para ejecutar esta macro.
5. Cuando termine la macro, vuelva al correo electrónico. Verá que se ha cambiado el tamaño de todas las tablas para ajustarse automáticamente a la ventana del mensaje.

Maneje los problemas de Outlook con agilidad

Se sabe que los usuarios pueden experimentar varios problemas en Outlook, como mensajes de error comunes, bloqueos repentinos y reinicios automáticos abruptos, corrupción catastrófica de archivos de datos, etc. Las soluciones correspondientes deben variar según el tipo de problema. Por ejemplo, para corregir errores menores, puede simplemente utilizar la herramienta de reparación de la bandeja de entrada. Pero, en caso de problemas graves, como problemas con archivos PST, debe recurrir a una herramienta de reparación externa robusta y bien probada, como DataNumen Outlook Repair a arreglar PST .

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo corrección de sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com