I kept digging throug the object browser and finally found this.  I thought
I'd share it just in case someone else had the same question.

Sub envelopetest()
Debug.Print ActiveDocument.GetLetterContent.RecipientName
Debug.Print ActiveDocument.GetLetterContent.RecipientAddress
End Sub

This should extract the address from a document.  You could assign the text
to a string and manipulate it as necessary.  I plan on making my own envelope
printer due to the inability of controling formatting in the given 'envelope'
object.