3 Cara Cepat untuk Menyalin Semua Gambar dari Dokumen Word ke Email Outlook

Jika Anda ingin menyalin semua gambar dari dokumen Word ke email Outlook, Anda dapat menggunakan 3 pendekatan yang diperkenalkan di artikel ini.

Misalnya, Anda menyelesaikan dokumen Word yang berisi banyak gambar. Nanti, Anda ingin menggunakan kembali gambar-gambar ini di dokumen untuk membuat email Outlook. Dalam situasi ini, Anda akan mendambakan solusi cepat untuk menyalin gambar dengan cepat dari dokumen word ke email di Outlook. Melihat persyaratan ini, di sini kami akan mengajari Anda 3 cara untuk mendapatkannya.

Metode 1: Salin Satu Per Satu

1. Pertama, di Outlook, buat email baru.
2. Kemudian, buka dokumen Word sumber.
3. Selanjutnya, pilih gambar di dokumen Word.
4. Tekan "Ctrl + C" untuk menyalinnya.
5. Setelah itu, akses ke email Outlook.
6. Terakhir, tekan "Ctrl + V" di badan pesan untuk menempelkan gambar yang disalin.
7. Sekarang, gunakan cara ini untuk menyalin gambar lain dari dokumen ke email ini satu per satu.

Metode 2: Simpan Gambar & Masukkan Batch ke Email

1. Pertama, di dokumen Word yang dibuka, buka "File"> "Save As".
2. Kemudian, di kotak dialog popup, pilih folder tujuan dan pilih "Halaman Web" di kolom "Simpan sebagai jenis".
3. Selanjutnya, klik tombol "Simpan".
4. Setelah itu tutup aplikasi Word seperti biasa.
5. Selanjutnya, buat email Outlook baru.
6. Di jendela pesan, geser ke tab "Sisipkan" dan klik tombol "Gambar".
7. Nanti, di kotak dialog baru, masuk ke lokasi untuk menyimpan dokumen Word sebagai halaman web.
8. Kemudian, buka folder bernama “xxx_files”.
9. Selanjutnya, pilih gambar yang ingin Anda sisipkan.
10. Terakhir, klik tombol "Sisipkan".
11. Anda dapat melihat bahwa gambar yang dipilih telah dimasukkan ke dalam email.

Metode 3: Salinan Batch melalui VBA

1. Pertama, buka dokumen Word.
2. Kemudian, tekan "Alt + F11" untuk mengakses editor Word VBA.
3. Selanjutnya, salin kode VBA di bawah ini 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. Setelah itu, tekan tombol "F5" untuk menjalankan makro ini.
5. Saat makro selesai, Anda akan mendapatkan email Outlook baru yang berisi semua gambar dokumen Word, seperti tangkapan layar berikut:

Jagalah Pandangan Anda dengan Hati-hati

Setiap pengguna biasa mungkin mengalami berbagai masalah di Outlook. Sejujurnya, jika Anda menjaga Outlook Anda, Anda dapat menghindari masalah yang mengerikan secara efektif. Misalnya, Anda mungkin harus selalu menutup Outlook Anda dan tidak mempercayai email yang tidak dikenal dengan mudah. Juga, bijaksana untuk mendapatkan alat perbaikan PST yang memenuhi syarat, seperti DataNumen Outlook Repair. Itu bisa diperbaiki PST korup masalah seperti gabus.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com