Si të bashkëngjitni shpejt faqet specifike të një dokumenti Word në një email të Outlook

MS Word ka një veçori të drejtpërdrejtë që mbështet përdoruesit për të dërguar dokumentin aktual të Word-it si një bashkëngjitje me email. Por ndonjëherë, ju mund të shpresoni vetëm të bashkëngjitni faqet specifike të një dokumenti Word në një email të Outlook. Tani, ky artikull do t'ju ndajë një metodë.

Për të dërguar një dokument të tërë Word si bashkëngjitje emaili në aplikacionin MS Word, thjesht mund të shkoni te menyja "File" dhe të kaloni te skeda "Ruaj & Dërgo", nën të cilën mund të gjeni një buton "Dërgo si bashkëngjitje". Megjithatë, ndonjëherë, ajo që dëshironi të dërgoni mund të jenë vetëm faqe specifike të dokumentit. Në këtë situatë, ju mund të përdorni metodën e paraqitur në vijim për ta realizuar atë.

Bashkangjitni faqet specifike të një dokumenti Word në një email

1. Së pari, duhet të hapni dokumentin burimor Word, faqet specifike të të cilit dëshironi t'i dërgoni me email.
2. Pastaj, pasi të futeni në dritaren e MS Word, duhet të shtypni butonat "Alt + F11".
3. Më pas, do të keni akses në redaktuesin VBA në MS Word.
4. Pas kësaj, duhet të aktivizoni “Microsoft Outlook Object Library”. Mund të klikoni “Tools” > “Reference” për ta aktivizuar.
5. Më pas, ju duhet të kopjoni kodin e mëposhtëm VBA në një modul që nuk është në përdorim.

Sub AttachSpecificPagesToOutlookEmail()
    Dim strDocumentName As String
    Dim objSelectedPages As Word.Range
    Dim objTempDocument As Word.Document
    Dim objTempRange As Word.Range
    Dim i As Long
    Dim strTempDocument As String
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
 
    strDocumentName = Left(ActiveDocument.Name, InStr(ActiveDocument.Name, ".") - 1)
 
    'Copy the contents from Page 2 to 4
    'You can change the page as per your own needs
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2
    Set objSelectedPages = Selection.Range
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4
    objSelectedPages.End = Selection.Bookmarks("\Page").Range.End
    objSelectedPages.Select
    objSelectedPages.Copy
 
    'Paste the copied contents into a new Word Document
    Set objTempDocument = Word.Application.Documents.Add
    objTempDocument.Activate
    Set objTempRange = objTempDocument.Range(0, 0)
    objTempRange.PasteAndFormat (wdFormatOriginalFormatting)

    For i = objTempDocument.Paragraphs.Count To 1 Step -1
        If Len(objTempDocument.Paragraphs(i).Range) = 1 Then
           objTempDocument.Paragraphs(i).Range.Delete
        Else
           Exit For
        End If
    Next i
 
    'Save this document
    strTempDocument = "E:\" & strDocumentName & " (Excerpt).doc"
    objTempDocument.SaveAs2 strTempDocument, wdFormatDocument
 
    'Attach the new document to a new Outlook email
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Attachments.Add (strTempDocument)
    objMail.Display
 
    objTempDocument.Close False
    Kill strTempDocument
End Sub

6. Më në fund, mund ta ekzekutoni këtë makro. Thjesht shtypni butonin e tastit F5 ose trokitni lehtë mbi ikonën "Run" në shiritin e veglave.
7. Pasi të përfundojë makroja, do të shfaqet një email i ri i Outlook, i cili është bashkangjitur me një fragment të dokumentit burimor Word, si pamja e mëposhtme e ekranit:

Ekstraktoni të dhënat maksimale nga skedari i korruptuar i Outlook

Nëse e keni përdorur Outlook për dekada të tëra, mund të jeni përballur me probleme të ndryshme të Outlook, duke përfshirë mesazhe të brendshme të gabimit që shfaqen, përplasje të papritura si dhe dëmtime serioze të skedarëve. Për faktin se scanpst, mjeti i integruar i riparimit, mund të përballet vetëm me problemet e vogla, më mirë të mbani në dorë një mjet të jashtëm të fuqishëm rregullues, të themi DataNumen Outlook Repair. Është në gjendje të nxjerrë të dhëna maksimale nga skedari i të dhënave të dëmtuara të Outlook.

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ë rregullim sql dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com