Envelope.AddressFromTop Property (Word)
Returns or sets the distance (in points) between the top edge of the envelope and the delivery address. Read/write Single .
expression A variable that represents a 'Envelope' object.
If you use this property before an envelope has been added to the document, an error occurs.
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