Word VBA教程:VerticalAlignment属性

应用于 Cell 和 Cells对象的 VerticalAlignment属性。

该属性返回或设置表格的一个或多个单元格中文字的垂直对齐方式。WdCellVerticalAlignment,可读写。

WdCellVerticalAlignment 可以是下列 WdCellVerticalAlignment 常量之一:
wdCellAlignVerticalBottom
wdCellAlignVerticalCenter
wdCellAlignVerticalTop

expression.VerticalAlignment

expression   必需。该表达式返回上述对象之一。

应用于 PageSetup对象的 VerticalAlignment属性。

该属性返回或设置文档或某节中每一页上文字的垂直对齐方式。WdVerticalAlignment,可读写。

WdVerticalAlignment 可以是下列 WdVerticalAlignment 常量之一:
wdAlignVerticalBottom
wdAlignVerticalCenter
wdAlignVerticalJustify
wdAlignVerticalTop

expression.VerticalAlignment

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

VBA示例

当应用于 Cell 和 Cells对象时。

本示例在一个新文档中创建一个 3x3 表格,并为表格中每一个单元格分配连续的单元格号。然后将第一行的高度设置为 20 磅,并在单元格的顶端垂直对齐文本。


Set newDoc = Documents.Add
Set myTable = newDoc.Tables.Add(Selection.Range, 3, 3)
i = 1
For Each c In myTable.Range.Cells
    c.Range.InsertAfter "Cell " & i
    i = i + 1
Next
With myTable.Rows(1)
    .Height = 20
    .Cells.VerticalAlignment = wdAlignVerticalTop
End With

当应用于 PageSetup对象时。

本示例改变第一个文档的垂直对齐方式,使文本在上边距和下边距之间居中。


Documents(1).PageSetup.VerticalAlignment = wdAlignVerticalCenter

本示例新建一个文档,并将相同的段落插入 10 次。然后设置新文档的垂直对齐方式,使 10 个段落在上边距和下边距之间等距排列(两端对齐)。


Set myDoc = Documents.Add
With myDoc.Content
    For i = 1 to 9
        .InsertAfter "This is a sentence."
        .InsertParagraphAfter
    Next i
    .InsertAfter "This is a sentence."
End With
myDoc.PageSetup.VerticalAlignment = wdAlignVerticalJustify

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号