应用程序级VB控制Word实现表格水平居中和垂直居中

在VB中控制WORD表格垂直居中很容易，但是水平居中就有点麻烦，经过多次实践，终于搞明白了问题所在：

在VB中是无法通过控制整个表格实现一次性水平居中的，只有逐个单元格实现水平居中，虽然速度有点慢，但毕竟解决了水平居中问题

        otable = odoc.Tables.Add(odoc.Bookmarks.Item("\endofdoc").Range, 5, 8)  '添加5×8表格
        otable.Range.Font.Size = 11        ’定义表格字体大小
        otable.Range.Font.Name = "宋体"    '定义表格字体名称
        otable.Rows.Height = 30              '定义表格行高
        otable.Style = "网格型"               '定义表格样式

        otable.Columns(1).Width = 130  '定义表格第一列宽

        '开始逐个单元格实现水平居中

        For i As Integer = 1 To 5            '5行
            For j As Integer = 1 To 8        '8列
                otable.Cell(i, j).Range.Cells.VerticalAlignment = Word.WdCellVerticalAlignment.wdCellAlignVerticalCenter   '实现水平居中

            Next
        Next

 需要注意的是：无法通过表格级一次实现水平居中的，只有逐个单元格才能实现水平居中。