3 Cara Pantas untuk Menyalin Semua Gambar dari Dokumen Word ke E-mel Outlook

Sekiranya anda ingin menyalin semua gambar dari dokumen Word ke e-mel Outlook, anda boleh menggunakan 3 pendekatan yang diperkenalkan dalam artikel ini.

Contohnya, anda menyelesaikan dokumen Word yang mengandungi banyak gambar. Kemudian, anda ingin menggunakan semula gambar-gambar ini dalam dokumen untuk menyusun e-mel Outlook. Dalam keadaan ini, anda memerlukan penyelesaian pantas untuk menyalin gambar dari dokumen dokumen ke e-mel di Outlook dengan cepat. Melihat keperluan ini, di sini kami akan mengajar anda 3 cara untuk mendapatkannya.

Kaedah 1: Salin Satu persatu

1. Mula-mula, di Outlook, buat e-mel baru.
2. Kemudian, buka dokumen Word sumber.
3. Seterusnya, pilih gambar dalam dokumen Word.
4. Tekan "Ctrl + C" untuk menyalinnya.
5. Selepas itu, akses ke e-mel Outlook.
6. Terakhir, tekan "Ctrl + V" di badan mesej untuk menampal gambar yang disalin.
7. Sekarang, gunakan cara ini untuk menyalin gambar lain dari dokumen ke e-mel ini satu persatu.

Kaedah 2: Simpan Imej & Masukkan Batch ke dalam E-mel

1. Pada mulanya, dalam dokumen Word yang dibuka, pergi ke "File"> "Save As".
2. Kemudian, dalam kotak dialog pop timbul, pilih folder tujuan dan pilih "Halaman Web" di bidang "Simpan sebagai jenis".
3. Seterusnya, klik butang "Simpan".
4. Selepas itu, tutup aplikasi Word seperti biasa.
5. Selepas itu, buat e-mel Outlook baru.
6. Di tetingkap mesej, beralih ke tab "Masukkan" dan klik butang "Gambar".
7. Kemudian, di kotak dialog baru, pergi ke lokasi untuk menyimpan dokumen Word sebagai laman web.
8. Kemudian, buka folder yang disebut sebagai "xxx_files".
9. Seterusnya, pilih gambar yang ingin anda masukkan.
10. Akhirnya, klik butang "Masukkan".
11. Anda dapat melihat bahawa gambar yang dipilih telah dimasukkan ke dalam e-mel.

Kaedah 3: Salinan Kumpulan melalui VBA

1. Pada mulanya, buka dokumen Word.
2. Kemudian, tekan "Alt + F11" untuk mengakses editor Word VBA.
3. Seterusnya, salin kod VBA di bawah ke dalam modul.

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. Selepas itu, tekan kekunci "F5" untuk menjalankan makro ini.
5. Apabila makro selesai, anda akan mendapat e-mel Outlook baru yang mengandungi semua gambar dokumen Word, seperti tangkapan skrin berikut:

Jaga Pandangan Anda dengan Cermat

Setiap pengguna biasa mungkin menghadapi berbagai masalah di Outlook. Sejujurnya, jika anda menjaga Outlook, anda dapat mengelakkan masalah yang teruk dengan berkesan. Contohnya, anda mesti selalu menutup Outlook anda dan tidak mempercayai e-mel yang tidak diketahui dengan mudah. Juga, adalah bijaksana untuk mendapatkan alat memperbaiki PST yang berkelayakan, seperti DataNumen Outlook Repair. Ia boleh diperbaiki PST yang rosak masalah seperti gabus.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com