Envelope.Address (Word)

Returns the envelope delivery address as a Range object.

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"