AddressFromTop Property

Returns or sets the distance (in points) between the top edge of the envelope and the delivery address. Read/write Single.

Note   If you use this property before an envelope has been added to the document, an error occurs.

Example

This example creates a new document and adds an envelope with a predefined delivery address and return address. The example then sets the distance between the top edge of the envelope and the delivery address to 1.75 inches and sets the distance between the left edge of the envelope and the delivery address is set to 3.75 inches.

Dim strAddress As String
Dim strReturn As String

strAddress = "Michael Bunney" & vbCr & "123 Skye St." & vbCr _
    & "Our Town, WA  98040"
strReturn = "Kate Dresen" & vbCr & "123 Main" & vbCr _
    & "Other Town, WA  98040"

With Documents.Add.Envelope
    .Insert Address:=strAddress, ReturnAddress:=strReturn
    .AddressFromTop = InchesToPoints(1.75)
    .AddressFromLeft = InchesToPoints(3.75)
End With

ActiveDocument.ActiveWindow.View.Type = wdPrintView