AddressFromLeft 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 left edge of the envelope and the delivery address to 3.75 inches.

addr = "James Allard" & vbCr & "123 Skye St." & vbCr _
    & "Our Town, WA  98004"
retaddr = "Rich Andrews" & vbCr & "123 Main" & vbCr _
    & "Other Town, WA  98004"
With Documents.Add.Envelope
    .Insert Address:=addr, ReturnAddress:=retaddr
    .AddressFromLeft = InchesToPoints(3.75)
End With
ActiveDocument.ActiveWindow.View.Type = wdPrintView