Word VBA教程:Vertical属性

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

expression.Vertical

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

说明

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号