3 greiti būdai, kaip nukopijuoti visus vaizdus iš „Word“ dokumento į „Outlook“ el

Jei norite nukopijuoti visus vaizdus iš „Word“ dokumento į „Outlook“ el. laišką, galite naudoti 3 šiame straipsnyje pateiktus metodus.

Pavyzdžiui, baigiate kurti Word dokumentą, kuriame yra keli paveikslėliai. Vėliau šias nuotraukas norėsite pakartotinai panaudoti dokumente kurdami "Outlook" el. laišką. Esant tokiai situacijai, jums reikia greito sprendimo, kaip greitai nukopijuoti vaizdus iš Word dokumento į el. laišką programoje „Outlook“. Atsižvelgdami į šį reikalavimą, mes išmokysime jus 3 būdų, kaip jį įgyvendinti.

1 būdas: nukopijuokite po vieną

1. Pirmiausia „Outlook“ sukurkite naują el.
2. Tada atidarykite šaltinio Word dokumentą.
3. Tada Word dokumente pasirinkite paveikslėlį.
4. Norėdami nukopijuoti, paspauskite „Ctrl + C“.
5. Po to prieiga prie „Outlook“ el.
6. Galiausiai pranešimo tekste paspauskite „Ctrl + V“, kad įklijuotumėte nukopijuotą vaizdą.
7. Dabar naudokite šį būdą, norėdami po vieną nukopijuoti kitus vaizdus iš dokumento į šį el. laišką.

2 būdas: išsaugokite vaizdus ir įdėkite paketą į el

1. Iš pradžių atidarytame „Word“ dokumente eikite į „Failas“ > „Išsaugoti kaip“.
2. Tada iššokančiajame dialogo lange pasirinkite paskirties aplanką ir lauke „Išsaugoti kaip tipą“ pasirinkite „Tinklalapis“.
3. Tada spustelėkite mygtuką „Išsaugoti“.
4. Po to uždarykite „Word“ programą kaip įprasta.
5. Tada sukurkite naują „Outlook“ el.
6. Pranešimo lange pereikite prie skirtuko „Įterpti“ ir spustelėkite mygtuką „Paveikslėlis“.
7. Vėliau naujame dialogo lange eikite į „Word“ dokumento kaip tinklalapio išsaugojimo vietą.
8. Tada atidarykite aplanką, vadinamą „xxx_files“.
9. Tada pasirinkite vaizdus, ​​kuriuos norite įterpti.
10. Galiausiai spustelėkite mygtuką „Įterpti“.
11. Matote, kad pasirinkti vaizdai buvo įterpti į el.

3 būdas: paketinis kopijavimas per VBA

1. Pirmiausia atidarykite „Word“ dokumentą.
2. Tada paspauskite „Alt + F11“, kad pasiektumėte „Word VBA“ redaktorių.
3. Tada nukopijuokite toliau pateiktą VBA kodą į 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. Po to paspauskite klavišą F5, kad paleistumėte šią makrokomandą.
5. Kai makrokomanda bus baigta, gausite naują „Outlook“ el. laišką, kuriame bus visi „Word“ dokumento vaizdai, pvz., ši ekrano kopija:

Rūpestingai prižiūrėkite savo „Outlook“.

Kiekvienas įprastas vartotojas galėjo turėti įvairių „Outlook“ problemų. Tiesą sakant, jei rūpinatės savo „Outlook“, galite veiksmingai išvengti baisių problemų. Pavyzdžiui, tikriausiai visada turite uždaryti „Outlook“ ir nepasitikėti jokiais nežinomais el. Be to, protinga įsigyti kvalifikuotą PST taisymo įrankį, pvz DataNumen Outlook Repair. Gali taisyti sugadintas PST tokias problemas kaip kamštis.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant mdf atkūrimas ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com