Se você deseja imprimir rapidamente todas as tabelas sem os outros textos em um e-mail do Outlook, pode utilizar uma das 2 abordagens para fazer isso.
Quando você recebe um e-mail que contém muitas tabelas no corpo da mensagem, às vezes você pode querer extrair essas tabelas e imprimi-las apenas, sem os textos no corpo. No entanto, o Outlook não possui funções relacionadas para alcançá-lo. Assim, a seguir, compartilharemos com você 2 meios.
Método 1: imprimir todas as tabelas em páginas separadas
- Para% start com, inicie seu programa Outlook.
- Em seguida, na janela principal do Outlook, pressione os botões de tecla “Alt + F11”.
- Na janela subsequente “Microsoft Visual Basic for Applications”, você pode encontrar e abrir um módulo que não está em uso.
- Depois disso, você deve copiar o seguinte código VBA para este módulo.
Sub PrintAllTables_inOutlookEmail_Individually() Dim objMail As Outlook.MailItem Dim objMailDocument As Word.Document Dim objTable As Word.Table Dim lTableCount As Long Dim objWordApp As Word.Application Dim objWordDocument As Word.Document Dim i As Long 'Get the Source Mail Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1) Set objMailDocument = objMail.GetInspector.WordEditor lTableCount = objMailDocument.Tables.count Set objWordApp = CreateObject("Word.Application") objWordApp.Visible = True For i = 1 To lTableCount Set objTable = objMailDocument.Tables(i) objTable.Range.Copy 'Copiar cada tabela em cada conjunto de documentos do Word objWordDocument = objWordApp.Documents.Add objWordDocument.Content.Paste 'Imprimir cada documento objWordDocument.PrintOut objWordDocument.Close False Next objWordApp.Quit End Sub
- Posteriormente, você deve adicionar o novo projeto VBA à Barra de Ferramentas de Acesso Rápido. Vá para “Opções do Outlook”> guia “Barra de ferramentas de acesso rápido” para alcançá-lo.
- Finalmente você pode tirar uma foto.
- Em primeiro lugar, selecione um e-mail que contenha várias tabelas.
- Em seguida, clique no novo botão de macro na Barra de Ferramentas de Acesso Rápido.
- Ao mesmo tempo, todas as tabelas serão impressas em páginas individuais.
Método 2: imprimir todas as tabelas em série
- Em primeiro lugar, siga as Etapas 1 a 2 do caminho acima para ir para a janela “Microsoft Visual Basic for Applications”.
- Em seguida, acesse um módulo não utilizado, no qual você precisa copiar o seguinte código VBA para ele.
Sub PrintAllTables_inOutlookEmail_Continuously() Dim objMail As Outlook.MailItem Dim objMailDocument As Word.Document Dim objTable As Word.Table Dim lTableCount As Long Dim objWordApp As Word.Application Dim objWordDocument As Word.Document Dim objCell As Word.Cell Set objMail = Outlook.Application .ActiveExplorer.Selection.Item(1) Set objMailDocument = objMail.GetInspector.WordEditor 'Criar um documento do Word Set objWordApp = CreateObject("Word.Application") Set objWordDocument = objWordApp.Documents.Add objWordDocument.Activate objWordApp.Visible = True Para Cada objTable In objMailDocument.Tables objTable.Range.Copy 'Copiar todas as tabelas em um documento do Word com objWordDocument.Range .Collapse wdCollapseEnd .PasteSpecial wdPasteRTF .Text = vbCrLf End With Next 'Imprimir o documento do Word objWordDocument.PrintOut objWordDocument.Close False objWordApp .Sair End Sub
- Mais tarde, você pode adicionar a nova macro à Barra de Ferramentas de Acesso Rápido.
- Eventualmente, você seleciona um e-mail de origem e pressiona o botão de macro na barra de ferramentas de acesso rápido. Imediatamente, todas as tabelas deste e-mail serão copiadas em um documento do Word, que será impresso agora.
Proteja os dados do Outlook contra corrupção
Apesar de possuir vários recursos, o Outlook não pode escapar de erros, falhas e corrupção. Assim, quando você encontrar uma falha, seus dados do Outlook tenderão a se despedir de você. Assim, para prevenir Corrupção do Outlook, você precisa fazer alguns esforços, como bloquear vírus ocultos, continuar fechando o Outlook corretamente e assim por diante. Além disso, é prudente obter uma ferramenta de reparo experiente, como DataNumen Outlook Repair.
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 consertar mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.comc