3 γρήγοροι τρόποι αντιγραφής όλων των εικόνων από ένα έγγραφο του Word σε ένα email του Outlook

Εάν θέλετε να αντιγράψετε όλες τις εικόνες από ένα έγγραφο του Word σε ένα email του Outlook, μπορείτε να χρησιμοποιήσετε τις 3 προσεγγίσεις που εισάγονται σε αυτό το άρθρο.

Για παράδειγμα, ολοκληρώνετε ένα έγγραφο του Word που περιέχει πολλές εικόνες. Αργότερα, θέλετε να επαναχρησιμοποιήσετε αυτές τις εικόνες στο έγγραφο για να συνθέσετε ένα email του Outlook. Σε αυτήν την περίπτωση, θα ζητήσετε μια γρήγορη λύση για να αντιγράψετε γρήγορα τις εικόνες από το έγγραφο του Word σε ένα email στο Outlook. Εξετάζοντας αυτήν την απαίτηση, εδώ θα σας διδάξουμε 3 τρόπους για να το αποκτήσετε.

Μέθοδος 1: Αντιγραφή ένα προς ένα

1. Πρώτα απ 'όλα, στο Outlook, δημιουργήστε ένα νέο email.
2. Στη συνέχεια, ανοίξτε το έγγραφο του Word προέλευσης.
3. Στη συνέχεια, επιλέξτε μια εικόνα στο έγγραφο του Word.
4. Πατήστε "Ctrl + C" για να το αντιγράψετε.
5. Μετά από αυτό, αποκτήστε πρόσβαση στο email του Outlook.
6. Τέλος, πατήστε "Ctrl + V" στο σώμα μηνυμάτων για να επικολλήσετε την αντιγραμμένη εικόνα.
7. Τώρα, χρησιμοποιήστε αυτόν τον τρόπο για να αντιγράψετε τις άλλες εικόνες από το έγγραφο σε αυτό το email ένα προς ένα.

Μέθοδος 2: Αποθήκευση εικόνων και μαζική εισαγωγή σε email

1. Αρχικά, στο ανοιχτό έγγραφο του Word, μεταβείτε στο "Αρχείο"> "Αποθήκευση ως".
2. Στη συνέχεια, στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε ένα φάκελο προορισμού και επιλέξτε "Ιστοσελίδα" στο πεδίο "Αποθήκευση ως τύπος".
3. Στη συνέχεια, κάντε κλικ στο κουμπί "Αποθήκευση".
4. Μετά από αυτό, κλείστε την εφαρμογή Word κανονικά.
5. Στη συνέχεια, δημιουργήστε ένα νέο email Outlook.
6. Στο παράθυρο μηνύματος, μεταβείτε στην καρτέλα "Εισαγωγή" και κάντε κλικ στο κουμπί "Εικόνα".
7. Αργότερα, στο νέο παράθυρο διαλόγου, μεταβείτε στην τοποθεσία για αποθήκευση του εγγράφου Word ως ιστοσελίδα.
8. Στη συνέχεια, ανοίξτε το φάκελο που ονομάζεται "xxx_files".
9. Στη συνέχεια, επιλέξτε τις εικόνες που θέλετε να εισαγάγετε.
10. Τέλος, κάντε κλικ στο κουμπί "Εισαγωγή".
11. Μπορείτε να δείτε ότι οι επιλεγμένες εικόνες έχουν εισαχθεί στο email.

Μέθοδος 3: Μαζική αντιγραφή μέσω VBA

1. Αρχικά, ανοίξτε το έγγραφο του Word.
2. Στη συνέχεια, πατήστε "Alt + F11" για πρόσβαση στο πρόγραμμα επεξεργασίας του Word VBA.
3. Στη συνέχεια, αντιγράψτε τον παρακάτω κώδικα VBA σε μια ενότητα.

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. Μετά από αυτό, πατήστε το πλήκτρο "F5" για να εκτελέσετε αυτήν τη μακροεντολή.
5. Όταν ολοκληρωθεί η μακροεντολή, θα λάβετε ένα νέο email Outlook που περιέχει όλες τις εικόνες του εγγράφου του Word, όπως το ακόλουθο στιγμιότυπο οθόνης:

Φροντίστε το Outlook με προσοχή

Κάθε κανονικός χρήστης ενδέχεται να έχει αντιμετωπίσει διάφορα προβλήματα στο Outlook. Για να είμαι ειλικρινής, εάν φροντίζετε το Outlook, μπορείτε να αποφύγετε αποτελεσματικά τρομερά ζητήματα. Για παράδειγμα, πρέπει πάντα να κλείσετε το Outlook πιθανώς και να μην εμπιστεύεστε εύκολα άγνωστα μηνύματα ηλεκτρονικού ταχυδρομείου. Επίσης, είναι συνετό να αποκτήσετε ένα εξειδικευμένο εργαλείο επιδιόρθωσης PST, όπως DataNumen Outlook Repair. Μπορεί να επισκευάσει κατεστραμμένο PST ζητήματα όπως ο φελλός.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων ανάκτηση MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com