Call email and attach a word document

Hi,

I currently use the following code to create a word document from within excel.

Sub ExcelRangeToWord()


Dim WordApp As Object
Dim WordDoc As Object

Range("A141:AG173").Copy

Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Add
WordApp.Visible = True

WordDoc.Select

WordDoc.PageSetup.Orientation = 1

With WordDoc.PageSetup
        .Linenumbering.Active = False
        .TopMargin = (50)
        .BottomMargin = (50)
        .LeftMargin = (2)
        .RightMargin = (2)
End With


WordApp.Selection.PasteSpecial Link = False, DataType:=wdPasteEnhancedMetafile, _
   Placement:=wdinline, DisplayAsIcon:=False

End Sub

What I would like to now be able to do call outlook to generate and email, attach the word document and send the email.

I can see various codes for sending excel documents or just emails from within excel but nothing that fits my need and anything I try to adapt wont work.

Anyone able to offer some help?

Thanks in advance

Sorry for the delay in getting back been away.

Excellent thanks for this works a charm!!

Just a quick follow up, is it possible to set the word document as a temporary file then once the email is created destroy the file so it doesn't get used again?

Ahh don't worry just figured out I can use the Kill command after the email.
Thanks again.