Envelope.Address (Word)

Retorna o endereço de entrega do envelope como um objeto Range . Somente leitura.

On Error GoTo errhandler 
addr = ActiveDocument.Envelope.Address.Text 
MsgBox Prompt:=addr, Title:="Delivery Address" 
errhandler: 
If Err = 5852 Then MsgBox "Insert an envelope into the document"