使用VBA操作Word表格

1、使用vba操作word表格一、生成表格private sub createtable(mrows as integer, mcolumns)dim mrange as rangeset mrange = activedocument.rangemrange.setrange start:=activedocument.range.end, end:=activedocument.range.endset selfgentable = activedocument.tables.add(range:=mrange, numrows:=mrows, numcolumns:=mcolumns)end

2、 sub上面过程的作用是在活动文档的末尾插入一个mrows行，mcolumns列的表格。二、在读写表格中的单元格写入单元格使用如下代码：tableobject.cell(row:=currow, column:=curcolumn).range.insertafter 文本上面代码的做用时在currow行，curcolumn列处插入字符“文本”。其中tableobject为表格对象，如果使用了生成表格中的例子，那么可以用selfgentable来替代tableobject。三、调整单元格对齐方式水平对齐设置selection.paragraphformat.alignment=水平对齐常数（具

3、体的常数可以查看帮助文件的说明）如何选择单元格？选定特定单元格tableobject.cell(row:=1,column:=1).select选定单元格1,1选定行tableobject.rows(i).select选定第i行选定列tableobject.columns(i).select选定第i列选定整个表格tableobject.select首先执行表格元素选择程序，然后再使用selection.paragraphformat.alignment设置对齐方式。垂直对齐方式selection.cells.verticalalignment=垂直对齐常数也是首先选择表格元素，可以使单个单元格

4、，单个行、单个列或者整个表格。似乎也可以同时选择多个单元格、多个行、多个列，有兴趣的朋友可以自行寻找答案。四、设置表格边线类型下面的代码对整个表格的所有边线设置成细实线：selfgentable.selectwith selection .borders(wdborderbottom).linestyle = wdlinestylesingle .borders(wdborderleft).linestyle = wdlinestylesingle .borders(wdborderright).linestyle = wdlinestylesingle .borders(wdborderto

5、p).linestyle = wdlinestylesingle .borders(wdborderhorizontal).linestyle = wdlinestylesingle .borders(wdbordervertical).linestyle = wdlinestylesingleend with同样是对selection进行设置，所以可以依照上面的方法对特定的单元格、行或者列的边线样式进行分别设置，这里就不再列举了。五、调整表格尺寸下面的代码对一个六列的表格设置宽度，宽度采用百分比宽度，从左至右的宽度百分比依次为：30，10，10，30，10，10：dim widthp(0 t

6、o 2) as integerdim j as integerdim i as integerwidthp(0) = 30widthp(1) = 10widthp(2) = 10j = 0for i = 0 to selfgentable.columns.count - 1 if j 2 then j = 0 end if selfgentable.columns(i + 1).preferredwidthtype = wdpreferredwidthpercent selfgentable.columns(i + 1).preferredwidth = widthp(j) j = j + 1

7、next上面的代码通过columns的preferredwidthtype属性设置表格列宽的形式，这里选择的是百分比列宽，可以根据自己的实际情况选择其他列宽形式，然后再设置相应的数值。表格的行高请读者以此类推（实际上我还没设置过行高，都用自动生成的就够了）=编写操作表格的程序时需要注意，word表格的行列起始值为1，而不是0。=下面是一个拆分字符串的代码，当插入表格的文本过长时，可以设定一个长度，超过这个长度就进行回车，这样保证在设定的单元格宽度内能够写下长文本。单元格的高度会自动调整以使文本能完整的显示，这也就是我为什么没有通过代码设置单元格高度的原因。private function foldtext(mlen as integer, mstr as string) as string折叠文字函数，mlen为折叠前的文字长度，mstr为文字的内容dim i as integerdim tmpstr(0 to 1) as string 临时字符串if len(mstr) mlen then do while len(mstr) mlen tmpstr(0) = left(mstr, mlen) mstr = right(mstr, len(mstr) - mlen) tmpstr(1) = t