2 meios para redimensionar em lote todas as tabelas para ajustar o conteúdo ou a janela no seu e-mail do Outlook

Ao redigir um e-mail que contém muitas tabelas no corpo da mensagem, se você deseja redimensionar todas as tabelas em lote para ajustá-las ao conteúdo ou à janela atual, pode utilizar os métodos compartilhados neste artigo.

Depois de criar várias tabelas em um e-mail, para tornar o conteúdo do e-mail alinhado e ordenado, você pode redimensionar todas as tabelas para caber no conteúdo ou na janela da mensagem atual. Nesse caso, se houver apenas duas ou três tabelas, você pode usar o recurso de tabela “AutoAjuste” integrado para redimensioná-las uma a uma, conforme apresentado no Método 1 a seguir. Mas, se houver várias tabelas, você é melhor usar o Método 2, que usa código VBA para realizar facilmente o “Redimensionamento em Lote”.

Método 1: Redimensionar tabelas uma a uma por meio do recurso “AutoAjuste”

1. Em primeiro lugar, no e-mail aberto, coloque o cursor sobre uma tabela.
2. Em seguida, clique no ícone de cruz no canto superior esquerdo da tabela para selecioná-lo.
3. Em seguida, acesse a guia “Layout” na faixa de opções “Ferramentas de tabela”.
4. Aqui, localize e selecione a opção “AutoAjuste”.
5. Agora, selecione “Conteúdo de ajuste automático” ou “Janela de ajuste automático” de acordo com suas necessidades. A captura de tela a seguir mostra o resultado do exemplo – “Janela de Ajuste Automático”.
6. Imediatamente, a tabela selecionada é ajustada à janela.
7. Depois disso, você pode usar esse método para redimensionar as outras tabelas uma a uma.

Método 2: redimensionar em lote com Outlook VBA

1. No início, mantenha o e-mail aberto.
2. Posteriormente, acione o editor VBA do Outlook via “Alt + F11”.
3. Em seguida, coloque o seguinte código VBA em um módulo ou projeto.

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. Em seguida, pressione diretamente o botão da tecla “F5” para executar esta macro.
5. Quando a macro terminar, retorne ao e-mail. Você descobrirá que todas as tabelas foram redimensionadas para caber automaticamente na janela de mensagem.

Lide com problemas do Outlook com agilidade

É sabido que os usuários podem enfrentar diversos problemas no Outlook, como mensagens de erro comuns, travamentos repentinos e reinicializações automáticas abruptas, corrupção catastrófica de arquivos de dados e assim por diante. As soluções correspondentes variam de acordo com o tipo de problema. Por exemplo, para corrigir pequenos erros, você pode simplesmente usar a ferramenta de reparo da caixa de entrada. Mas, em caso de problemas graves, como problemas com arquivos PST, você deve recorrer a uma ferramenta de reparo externa robusta e comprovada, como o Outlook. DataNumen Outlook Repair para corrigir PST arquivo.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo correção de sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com