使用VBA操作Word表格

《使用VBA操作Word表格》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、使用VBA操作Word表格一、生成表格PrivateSubCreateTable(mRowsAsInteger,mColumns)DimmRangeAsRangeSetmRange=ActiveDocument.RangemRange.SetRangeStart:=ActiveDocument.Range.End,End:=ActiveDocument.Range.EndSetSelfGenTable=ActiveDocument.Tables.Add(Range:=mRange,NumRows:

2、=mRows,NumColumns:=mColumns)EndSub上面过程的作用是在活动文档的末尾插入一个mRows行，mColumns列的表格。二、在读写表格中的单元格写入单元格使用如下代码：TableObject.Cell(Row:=curRow,Column:=curColumn).Range.InsertAfter"文本"上面代码的做用时在curRow行，curColumn列处插入字符“文本”。其中TableObject为表格对象，如果使用了生成表格中的例子，那么可以用SelfGenTa

3、ble来替代TableObject。三、调整单元格对齐方式水平对齐设置Selection.ParagraphFormat.Alignment=水平对齐常数（具体的常数可以查看帮助文件的说明）如何选择单元格？选定特定单元格TableObject.Cell(Row:=1,Column:=1).Select’选定单元格1,1选定行TableObject.Rows(i).Select’选定第i行选定列TableObject.Columns(i).Select’选定第i列选定整个表格TableObject.

4、Select首先执行表格元素选择程序，然后再使用Selection.ParagraphFormat.Alignment设置对齐方式。垂直对齐方式Selection.Cells.VerticalAlignment=垂直对齐常数也是首先选择表格元素，可以使单个单元格，单个行、单个列或者整个表格。似乎也可以同时选择多个单元格、多个行、多个列，有兴趣的朋友可以自行寻找答案。四、设置表格边线类型下面的代码对整个表格的所有边线设置成细实线：SelfGenTable.SelectWithSelection   

5、.Borders(wdBorderBottom).LineStyle=wdLineStyleSingle   .Borders(wdBorderLeft).LineStyle=wdLineStyleSingle   .Borders(wdBorderRight).LineStyle=wdLineStyleSingle   .Borders(wdBorderTop).LineStyle=wdLineStyleSingle   .Borders(wdBorderHorizontal).LineStyl

6、e=wdLineStyleSingle   .Borders(wdBorderVertical).LineStyle=wdLineStyleSingleEndWith同样是对Selection进行设置，所以可以依照上面的方法对特定的单元格、行或者列的边线样式进行分别设置，这里就不再列举了。五、调整表格尺寸下面的代码对一个六列的表格设置宽度，宽度采用百分比宽度，从左至右的宽度百分比依次为：30，10，10，30，10，10：DimWidthP(0To2)AsIntegerDimjAsIntegerd

7、imiasIntegerWidthP(0)=30WidthP(1)=10WidthP(2)=10j=0Fori=0ToSelfGenTable.Columns.Count-1   Ifj>2Then       j=0   EndIf   SelfGenTable.Columns(i+1).PreferredWidthType=wdPreferredWidthPercent   SelfGenTable.Columns(i+1).PreferredWidth=WidthP(j)   j=j+1Ne

8、xt上面的代码通过Columns的PreferredWidthType属性设置表格列宽的形式，这里选择的是百分比列宽，可以根据自己的实际情况选择其他列宽形式，然后再设置相应的数值。表格的行高请读者以此类推（实际上我还没设置过行高，都用自动生成的就够了）===============================================编写操作表格的程序时需要注意，Word表格的行列起始值为1，而不是0。===================================