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

最新推荐文章于 2020-12-10 17:38:23 发布

王爷的大房子

最新推荐文章于 2020-12-10 17:38:23 发布

阅读量1.5k

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/lxzhangying/archive/2010/09/25/1834909.html

本文介绍如何使用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

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

转载于:https://www.cnblogs.com/lxzhangying/archive/2010/09/25/1834909.html