如何使用 VBScript 和 Word 文档在表格中垂直居中单元格的文本

Question

>我试过使用

With myTable.Rows(1) 
 .Height = 20 
 .Cells.VerticalAlignment = wdAlignVerticalTop 
End With

但它似乎不适用于 VBScript，有人知道如何做我想做的事情吗？

Answer 1

如果您使用的是 vbscript，则 vbscript 不知道您的单词枚举常量的值。因此，要么为这些常量赋值，要么直接使用数字/常量，如下所示：

With myTable.Rows(1) 
 .Height = 20 
 .Cells.VerticalAlignment = 1              '1 means WdCellVerticalAlignment(see link below)
End With

单击此处 -- 单词枚举常量

另外，如果您使用的是Word VBA而不是vbscript，则应提及正确的枚举常量。在您的情况下，它不应该wdAlignVerticalTop.相反，它应该是WdCellVerticalAlignment的。