Question

全部显示

应用于 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 对象。

示例

当应用于 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