3 rychlé způsoby, jak zkopírovat všechny obrázky z dokumentu aplikace Word do e-mailu aplikace Outlook

Pokud chcete zkopírovat všechny obrázky z dokumentu aplikace Word do e-mailu aplikace Outlook, můžete použít 3 přístupy uvedené v tomto článku.

Například dokončíte dokument aplikace Word, který obsahuje více obrázků. Později budete chtít tyto obrázky v dokumentu znovu použít k vytvoření e-mailu aplikace Outlook. V této situaci budete toužit po rychlém řešení, jak rychle zkopírovat obrázky z wordového dokumentu do e-mailu v Outlooku. Při pohledu na tento požadavek vás zde naučíme 3 způsoby, jak jej získat.

Metoda 1: Kopírujte jeden po druhém

1. Nejprve v aplikaci Outlook vytvořte nový e-mail.
2. Potom otevřete zdrojový dokument aplikace Word.
3. Dále vyberte obrázek v dokumentu aplikace Word.
4. Pro zkopírování stiskněte "Ctrl + C".
5. Poté získáte přístup k e-mailu aplikace Outlook.
6. Nakonec stiskněte „Ctrl + V“ v těle zprávy a vložte zkopírovaný obrázek.
7. Nyní tímto způsobem zkopírujte další obrázky z dokumentu do tohoto e-mailu jeden po druhém.

Metoda 2: Uložit obrázky a dávkové vložení do e-mailu

1. Nejprve v otevřeném dokumentu aplikace Word přejděte na „Soubor“ > „Uložit jako“.
2. Poté ve vyskakovacím dialogovém okně vyberte cílovou složku a v poli „Uložit jako typ“ vyberte „Webová stránka“.
3. Dále klikněte na tlačítko „Uložit“.
4. Poté zavřete aplikaci Word jako obvykle.
5. Následně vytvořte nový Outlook e-mail.
6. V okně zprávy přejděte na kartu „Vložit“ a klikněte na tlačítko „Obrázek“.
7. Později v novém dialogovém okně přejděte do umístění pro uložení dokumentu aplikace Word jako webové stránky.
8. Poté otevřete složku s názvem „xxx_files“.
9. Dále vyberte obrázky, které chcete vložit.
10. Nakonec klikněte na tlačítko „Vložit“.
11. Můžete vidět, že vybrané obrázky byly vloženy do e-mailu.

Metoda 3: Dávkové kopírování přes VBA

1. Nejprve otevřete dokument aplikace Word.
2. Poté stiskněte "Alt + F11" pro přístup k editoru Word VBA.
3. Dále zkopírujte níže uvedený kód VBA do modulu.

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. Poté stiskněte klávesu „F5“ pro spuštění tohoto makra.
5. Po dokončení makra obdržíte nový e-mail aplikace Outlook obsahující všechny obrázky dokumentu aplikace Word, jako je následující snímek obrazovky:

Pečujte o svůj výhled

Každý běžný uživatel mohl mít v aplikaci Outlook různé problémy. Abych byl upřímný, pokud se budete starat o svůj Outlook, můžete se efektivně vyhnout hrozným problémům. Například musíte pravděpodobně vždy zavřít svůj Outlook a nedůvěřovat žádným neznámým e-mailům. Také je rozumné získat kvalifikovaný opravný nástroj PST, jako je DataNumen Outlook Repair. Může to opravit poškozený PST problémy jako korek.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně zotavení mdf a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com