Document.SendMail (Word)

Abre uma janela de mensagem para enviar o documento especificado através do Microsoft Exchange.

Use a propriedade SendMailAttach para controlar se o documento é enviado como texto na janela de mensagem ou como um anexo.

Options.SendMailAttach = True 
ActiveDocument.SendMail