Sådan vedhæftes hurtigt de specifikke sider i et Word-dokument til en Outlook-e-mail

Outlook-løsninger September 29, 2025

MS Word har en direkte funktion, der understøtter brugere til at sende det aktuelle Word-dokument som en vedhæftet fil til e-mail. Men nogle gange håber du måske kun at vedhæfte de specifikke sider i et Word-dokument til en Outlook-e-mail. Nu vil denne artikel dele dig en metode.

For at sende et helt Word-dokument som vedhæftet fil i MS Word-applikationen kan du blot gå til menuen "File" og skifte til "Save & Send" -fanen, hvorunder du kan finde en "Send som vedhæftet fil" -knap. Men til tider kan det, du vil sende, kun være bestemte sider i dokumentet. I denne situation kan du bruge metoden, der er introduceret i det følgende, for at opnå det.

Vedhæft hurtigt de specifikke sider i et Word-dokument til en Outlook-e-mail

Vedhæft de specifikke sider i et Word-dokument til en e-mail

  1. Først skal du åbne kildedokumentet, hvis specifikke sider du vil sende i e-mail.
  2. Derefter skal du trykke på “Alt + F11” -tastknapperne, når du kommer ind i MS Word-vinduet.
  3. Dernæst får du adgang til VBA-editoren i MS Word.
  4. Derefter skal du aktivere "Microsoft Outlook Object Library". Du kan klikke på "Værktøjer" > "Reference" for at opnå det.
  5. Derefter skal du kopiere følgende VBA-kode til et modul, der ikke er i brug.
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

VBA-kode - Vedhæft de specifikke sider i et Word-dokument til en e-mail

  1. Endelig kan du køre denne makro. Bare tryk på F5-tasten eller tryk på ikonet "Kør" i værktøjslinjen.
  2. Når makroen er færdig, vises en ny Outlook-e-mail, der er vedhæftet et uddrag af kildedokumentet, som følgende skærmbillede:ny email

Uddrag maksimale data fra korrupt Outlook-fil

Hvis du har brugt Outlook i årtier, er du muligvis blevet konfronteret med forskellige Outlook-problemer, herunder popup-indre fejlmeddelelser, pludselige nedbrud samt alvorlige filskader. På grund af det faktum, at scanpst, indbygget reparationsværktøj, kan kun håndtere de små problemer, du må hellere holde et eksternt kraftfuldt fixværktøj praktisk, siger DataNumen Outlook Repair. Det er i stand til at trække maksimale data fra den beskadigede Outlook-datafil.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder sql rettelse og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.