3 mënyra të shpejta për të kopjuar të gjitha imazhet nga një dokument Word në një email të Outlook

Nëse dëshironi të kopjoni të gjitha imazhet nga një dokument Word në një email të Outlook, mund të përdorni 3 qasjet e prezantuara në këtë artikull.

Për shembull, ju përfundoni një dokument Word që përmban shumë fotografi. Më vonë, dëshironi t'i ripërdorni këto fotografi në dokument për të krijuar një email të Outlook. Në këtë situatë, do të dëshironi një zgjidhje të shpejtë për të kopjuar shpejt imazhet nga dokumenti Word në një email në Outlook. Duke parë këtë kërkesë, këtu do t'ju mësojmë 3 mënyra për ta marrë atë.

Metoda 1: Kopjoni një nga një

1. Së pari, në Outlook, krijoni një email të ri.
2. Pastaj, hapni dokumentin burimor Word.
3. Tjetra, zgjidhni një fotografi në dokumentin Word.
4. Shtypni "Ctrl + C" për ta kopjuar atë.
5. Pas kësaj, hyni në emailin e Outlook.
6. Së fundi, shtypni "Ctrl + V" në trupin e mesazhit për të ngjitur imazhin e kopjuar.
7. Tani, përdorni këtë mënyrë për të kopjuar imazhet e tjera nga dokumenti në këtë email një nga një.

Metoda 2: Ruani imazhet dhe futni në grup në email

1. Fillimisht, në dokumentin e hapur Word, shkoni te "File" > "Ruaj si".
2. Më pas, në kutinë e dialogut që shfaqet, zgjidhni një dosje destinacioni dhe zgjidhni "Web Page" në fushën "Ruaj si lloj".
3. Tjetra, klikoni në butonin "Ruaj".
4. Pas kësaj, mbyllni aplikacionin Word si zakonisht.
5. Më pas, krijoni një email të ri të Outlook.
6. Në dritaren e mesazhit, kaloni në skedën "Fut" dhe klikoni në butonin "Foto".
7. Më vonë, në kutinë e re të dialogut, shkoni te lokacioni për ruajtjen e dokumentit Word si faqe interneti.
8. Pastaj, hapni dosjen e quajtur "xxx_files".
9. Më pas, zgjidhni imazhet që dëshironi të futni.
10. Në fund, klikoni në butonin "Fut".
11. Ju mund të shihni se imazhet e zgjedhura janë futur në email.

Metoda 3: Kopjimi i grupit nëpërmjet VBA

1. Në fillim hapni dokumentin Word.
2. Më pas, shtypni "Alt + F11" për të hyrë në redaktuesin Word VBA.
3. Më pas, kopjoni kodin VBA më poshtë në një 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. Pas kësaj, shtypni butonin "F5" për të ekzekutuar këtë makro.
5. Kur makro të përfundojë, do të merrni një email të ri të Outlook që përmban të gjitha imazhet e dokumentit Word, si pamja e mëposhtme e ekranit:

Kujdesuni për opinionin tuaj me kujdes

Çdo përdorues i rregullt mund të ketë qenë subjekt i problemeve të ndryshme në Outlook. Për të qenë i sinqertë, nëse kujdeseni për Outlook-in tuaj, mund të shmangni në mënyrë efektive çështjet e tmerrshme. Për shembull, ju duhet të mbyllni gjithmonë Outlook-in tuaj ndoshta dhe të mos i besoni lehtësisht ndonjë emaili të panjohur. Gjithashtu, është e kujdesshme të mbash një mjet të kualifikuar të rregullimit të PST, si p.sh DataNumen Outlook Repair. Mund të riparohet PST e korruptuar çështje si një tapë.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rikuperimi mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com