Vertical 属性

如果该属性值为 True，则在亚洲信封和邮件标签上垂直排列文字。Boolean 类型，可读写。

expression   必需。该表达式返回“应用于”列表中的一个对象。

说明

该属性仅应用于邮件标签或设置用于邮件合并的信封，并且只适用亚洲语言。

示例

本示例确定活动文档是否为邮件合并邮件标签文档，并确定其语言设置是否为日语。如果是，则设置邮件标签的方向为纵向。

Sub VerticalLabel()
    If ActiveDocument.MailMerge.MainDocumentType = wdMailingLabels And
        Application.Language = msoLanguageIDJapanese Then
            Application.MailingLabel.Vertical = True
    End If
End Sub

本示例确定活动文档是否为邮件合并信封文档，并确定其语言设置是否为中文。如果是，则设置信封的方向为纵向并更新当前文档。

Sub VerticalEnvelope()
    If ActiveDocument.MailMerge.MainDocumentType = wdEnvelopes And
        Application.Language = msoLanguageIDChineseHongKong Then
            With ThisDocument.Envelope
                .Vertical = True
                .UpdateDocument
            End With
    End If
End Sub