Word VBA教程:NumberAcross属性

返回或设置一页中自定义邮件标签的数目。Long 类型,可读写。

expression.NumberAcross

expression   必需。该表达式返回一个CustomLabel对象。

说明

如果将本属性更改为对指定邮件标签版式无效的值,则会出现错误。

VBA示例

本示例新建一个名为“Dept. Labels”的自定义标签,并定义标签的版式(包括一页中标签的数目)。


Set myLabel = Application.MailingLabel.CustomLabels _
    .Add(Name:="Dept. Labels", DotMatrix:=False)
With myLabel
    .Height = InchesToPoints(0.5)
    .HorizontalPitch = InchesToPoints(2.06)
    .NumberAcross = 4
    .NumberDown = 4
    .PageSize = wdCustomLabelLetter
    .SideMargin = InchesToPoints(0.28)
    .TopMargin = InchesToPoints(0.5)
    .VerticalPitch = InchesToPoints(2)
    .Width = InchesToPoints(1.75)
End With

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号