3 maneiras rápidas de copiar todas as imagens de um documento do Word para um e-mail do Outlook

Se você deseja copiar todas as imagens de um documento do Word para um e-mail do Outlook, pode usar as 3 abordagens apresentadas neste artigo.

Por exemplo, você termina um documento do Word que contém várias imagens. Posteriormente, você deseja reutilizar essas imagens no documento para compor um e-mail do Outlook. Nessa situação, você desejará uma solução rápida para copiar rapidamente as imagens do documento do Word para um e-mail no Outlook. Olhando para esse requisito, aqui ensinaremos 3 maneiras de obtê-lo.

Método 1: Copiar um por um

1. Primeiro, no Outlook, crie um novo e-mail.
2. Em seguida, abra o documento de origem do Word.
3. Em seguida, selecione uma imagem no documento do Word.
4. Pressione “Ctrl + C” para copiá-lo.
5. Depois disso, acesse o e-mail do Outlook.
6. Por fim, pressione “Ctrl + V” no corpo da mensagem para colar a imagem copiada.
7. Agora, use esta forma para copiar as outras imagens do documento para este e-mail, uma a uma.

Método 2: salvar imagens e inserir em lote no e-mail

1. Primeiramente, no documento do Word aberto, vá em “Arquivo” > “Salvar como”.
2. Em seguida, na caixa de diálogo pop-up, escolha uma pasta de destino e selecione “Página da Web” no campo “Salvar como tipo”.
3. A seguir, clique no botão “Salvar”.
4. Depois disso, feche o aplicativo Word normalmente.
5. Posteriormente, crie um novo e-mail do Outlook.
6. Na janela da mensagem, mude para a guia “Inserir” e clique no botão “Imagem”.
7. Mais tarde, na nova caixa de diálogo, vá para o local para salvar o documento do Word como página da web.
8. Em seguida, abra a pasta chamada “xxx_files”.
9. Em seguida, selecione as imagens que deseja inserir.
10. Por fim, clique no botão “Inserir”.
11. Você pode ver que as imagens selecionadas foram inseridas no e-mail.

Método 3: cópia em lote via VBA

1. Primeiro, abra o documento do Word.
2. Em seguida, pressione “Alt + F11” para acessar o editor Word VBA.
3. Em seguida, copie o código VBA abaixo em um módulo.

Sub CopyImagesToMail()
    Dim objTempDocument As Word.Document
    Dim objInlineShape As Word.InlineShape
    Dim objShape As Word.Shape
    Dim objOutlookApp As Object
    Dim objMail As Object
    Dim objMailDocument As Word.Document
    Dim objDocSelection As Word.Selection
 
    'Copy the whole document to a new Temp document
    Selection.WholeStory
    Selection.Copy
 
    Set objTempDocument = Word.Documents.Add
    objTempDocument.Application.Selection.PasteAndFormat (wdUseDestinationStylesRecovery)

    For Each objInlineShape In objTempDocument.InlineShapes
        objInlineShape.ConvertToShape
    Next
 
    'Clear text in the Temp document
    With objTempDocument.Content.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "[^2-^255]{1,}"
        .Replacement.Text = ""
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
 
    Do While objTempDocument.Shapes.Count > 0
       For Each objShape In objTempDocument.Shapes
           objShape.ConvertToInlineShape
       Next
    Loop
 
    'Copy the images in Temp Document
    objTempDocument.Application.Selection.WholeStory
    objTempDocument.Application.Selection.Copy
 
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
    'Create a new Outlook email
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objDocSelection = objMailDocument.Application.Selection
 
    'Paste the copied images into email
    objDocSelection.Collapse Direction:=wdCollapseStart
    objDocSelection.PasteAndFormat (wdUseDestinationStylesRecovery)
 
    objTempDocument.Close False
End Sub

4. Depois disso, pressione a tecla “F5” para executar esta macro.
5. Quando a macro terminar, você receberá um novo e-mail do Outlook contendo todas as imagens do documento do Word, como na captura de tela a seguir:

Cuide do seu Outlook com cuidado

Cada usuário comum pode estar sujeito a vários problemas no Outlook. Para ser honesto, se você cuidar do seu Outlook, poderá evitar problemas terríveis de maneira eficaz. Por exemplo, você deve sempre fechar seu Outlook provavelmente e não confiar prontamente em nenhum e-mail desconhecido. Além disso, é prudente obter uma ferramenta de correção de PST qualificada, como DataNumen Outlook Repair. Ele pode consertar PST corrompido questões como uma rolha.

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 recuperação mdf e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com