VB
VB学习者的乐园

在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

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

posted on 2010-09-25 23:23  天使爱比目鱼  阅读(2016)  评论(0编辑  收藏  举报