Envelope.Vertical Property (Word)
True vertically orients text on Asian envelopes. Read/write Boolean.
Syntax
expression .Vertical
expression Required. A variable that represents an Envelope object.
Example
This example determines if the active document is a mail merge envelope document and if the language setting is Chinese, and if so, sets the envelope's orientation to vertical and updates the current document.
Sub VerticalEnvelope()
If ActiveDocument.MailMerge.MainDocumentType = wdEnvelopes And
Application.Language = msoLanguageIDChineseHongKong Then
With ActiveDocument.Envelope
.Vertical = True
.UpdateDocument
End With
End If
End Sub