AddressFromTop Property 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.

addr = "Michael Bunney" & vbCr & "123 Skye St." & vbCr _
    & "Our Town, WA  98040"
retaddr = "Kate Dresen" & vbCr & "123 Main" & vbCr _
    & "Other Town, WA  98040"
With Documents.Add.Envelope
    .Insert Address:=addr, ReturnAddress:=retaddr
    .AddressFromTop = InchesToPoints(1.75)
    .AddressFromLeft = InchesToPoints(3.75)
End With
ActiveDocument.ActiveWindow.View.Type = wdPrintView