expression.SenderNamefromTop
expression Required. An expression that returns an Envelope object.
Remarks
For more information on using Microsoft Word with Asian languages, see Word features for Asian languages.
Example
This example checks that the active document is a mail merge envelope and that it is formatted for vertical type. If so, it positions the recipient and sender address information.
Sub NewEnvelopeMerge()
With ActiveDocument
If .MailMerge.MainDocumentType = wdEnvelopes Then
With ActiveDocument.Envelope
If .Vertical = True Then
.RecipientNamefromLeft = InchesToPoints(2.5)
.RecipientNamefromTop = InchesToPoints(2)
.RecipientPostalfromLeft = InchesToPoints(1.5)
.RecipientPostalfromTop = InchesToPoints(0.5)
.SenderNamefromLeft = InchesToPoints(0.5)
.SenderNamefromTop = InchesToPoints(2)
.SenderPostalfromLeft = InchesToPoints(0.5)
.SenderPostalfromTop = InchesToPoints(3)
End If
End With
End If
End With
End Sub