wordvba

使用VBA操作Word表格

一、生成表格

PrivateSubCreateTable(mRowsAsInteger,mColumns)

DimmRangeAsRange

SetmRange=

geStart:=,End:=

SetSelfGenTable=(Range:=mRange,NumRows:=mRows,

NumColumns:=mColumns)

EndSub上面过程的作用是在活动文档的末尾插入一个mRows行，mColumns列的表格。

二、在读写表格中的单元格写入单元格使用如下代码：

(Row:=curRow,Column:=curColumn).After"文本"上面代码

的做用时在curRow行，curColumn列处插入字符“文本”。

其中TableObject为表格对象，如果使用了生成表格中的例子，那么可以用SelfGenTable来

替代TableObject。

三、调整单元格对齐方式水平对齐设置

ent=水平对齐常数(具体的常数可以查看帮助文件的说明)

如何选择单元格？

选定特定单元格

(Row:=1,Column:=1).Select'选定单元格1,1选定行

(i).Select'选定第i行

选定列

s(i).Select'选定第i列选定整个表格

首先执行表格元素选择程序，然后再使用ent设置对齐方

式。

垂直对齐方式

alAlignment=垂直对齐常数也是首先选择表格元素，可以使单个单

元格，单个行、单个列或者整个表格。似乎也可以同时选择多个单元格、多个行、多个列，有

兴趣的朋友可以自行寻找答案。

四、设置表格边线类型下面的代码对整个表格的所有边线设置成细实线：

WithSelection

.Borders(wdBorderBottom).LineStyle=

s(wdBorderLeft).LineStyle=

s(wdBorderRight).LineStyle=wdLineStyleSingle

.Borders(wdBorderTop).LineStyle=

s(wdBorderHorizontal).LineStyle=wdLineStyleSingle

.Borders(wdBorderVertical).LineStyle=wdLineStyleSingleEndWith同样是对

Selection进行设置，所以可以依照上面的方法对特定的单元格、行或者列的边线样式进行分

别设置，这里就不再列举了。

五、调整表格尺寸下面的代码对一个六列的表格设置宽度，宽度采用百分比宽度，从左至右

的宽度百分比依次为：30，10，10，30，10，10：

DimWidthP(0To2)AsInteger

DimjAsIntegerdimiasIntegerWidthP(0)=30WidthP(1)=10WidthP(2)=10j=0

Fori=-1

Ifj>2Then

j=0

EndIf

s(i+1).PreferredWidthType=wdPreferredWidthPercent

s(i+1).PreferredWidth=WidthP(j)

j=j+1Next上面的代码通过Columns的PreferredWidthType属性设置表格列宽的形

式，这里选择的是百分比列宽，可以根据自己的实际情况选择其他列宽形式，然后再设置相应

的数值。表格的行高请读者以此类推(实际上我还没设置过行高，都用自动生成的就够了)编写

操作表格的程序时需要注意，Word表格的行列起始值为1，而不是0。

下面是一个拆分字符串的代码，当插入表格的文本过长时，可以设定一个长度，超过这个长

度就进行回车，这样保证在设定的单元格宽度内能够写下长文本。单元格的高度会自动调整

以使文本能完整的显示，这也就是我为什么没有通过代码设置单元格高度的原因。

PrivateFunctionFoldText(mLenAsInteger,mStrAsString)AsString'折叠文字函数，

mLen为折叠前的文字长度，mStr为文字的内容DimiAsInteger

DimtmpStr(0To1)AsString'临时字符串

IfLen(mStr)>mLenThen

DoWhileLen(mStr)>mLentmpStr(0)=Left(mStr,mLen)mStr=Right(mStr,

Len(mStr)-mLen)tmpStr(1)=tmpStr(1)+tmpStr(0)+vbCrLf

LooptmpStr(1)=tmpStr(1)+mStr

El

tmpStr(1)=mStr

EndIf

FoldText=tmpStr(1)

EndFunction