使用VBA操作Word表格一、生成表格
PrivateSubCreateTable(mRowsAsInteger,mColumns)DimmRangeAsRange
SetmRange=ActiveDocument.RangemRange.SetRangeStart:=ActiveDocument.Range.End,End:=ActiveDocument.Range.EndSetSelfGenTable=ActiveDocument.Tables.Add(Range:=mRange,NumRows:=mRows,NumColumns:=mColumns)
EndSub
上面过程的作用是在活动文档的末尾插入一个mRows行，mColumns列的表格。
二、在读写表格中的单元格
写入单元格使用如下代码：
TableObject.Cell(Row:=curRow,Column:=curColumn).Range.InsertAfter"文本"
上面代码的做用时在curRow行，curColumn列处插入字符“文本”。
其中TableObject为表格对象，如果使用了生成表格中的例子，那么可以用SelfGenTable来替代TableObject。
三、调整单元格对齐方式
水平对齐设置
Selection.ParagraphFormat.Alignment=水平对齐常数（具体的常数可以查看帮助文件的说明）
如何选择单元格？
选定特定单元格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=垂直对齐常数
也是首先选择表格元素，可以使单个单元格，单个行、单个列或者整个表格。似乎也可以同时选择多个单元格、多个行、多个列，有兴趣的朋友可以自行寻找答案。
四、设置表格边线类型
下面的代码对整个表格的所有边线设置成细实线：
SelfGenTable.SelectWithSelection???.Borders(wdBorderBottom).LineStyle=wdLineStyleSingle???.Borders(wdBorderLeft).LineStyle=wdLineStyleSingle???.Borders(wdBorderRight).LineStyle=wdLineStyleSingle???.Borders(wdBorderTop).LineStyle=wdLineStyleSingle???.Borders(wdBorderHorizontal).LineStyle=wdLineStyleSingle???.Borders(wdBorderVertical).LineStyle=wdLineStyleSingleEndWith
同样是对Selection进行设置，所以可以依照上面的方法对特定的单元格、行或者列的边线样式进行分别设置，这里就不再列举了。
五、调整表格尺寸
下面的代码对一个六列的表格设置宽度，宽度采用百分比宽度，从左至右的宽度百分比依次为：30，10，10，30，10，10：
DimWidthP(0To2)AsInteger
DimjAsInteger
dimiasInteger
WidthP(0)=30WidthP(1)=10WidthP(2)=10
j=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+1Next
上面的代码通过Columns的PreferredWidthType属性设置表格列宽的形式，这里选择的是百分比列宽，可以根据自己的实际情况选择其他列宽形式，然后再设置相应的数值。
表格的行高请读者以此类推（实际上我还没设置过行高，都用自动生成的就够了）
===============================================
编写操作表格的程序时需要注意，Word表格的行列起始值为1，而不是0。
===============================================
下面是一个拆分字符串的代码，当插入表格的文本过长时，可以设定一个长度，超过这个长度就进行回车，这样保证在设定的单元格宽度内能够写下长文本。单元格的高度会自动调整以使文本能完整的显示，这也就是我为什么没有通过代码设置单元格高度的原因。
PrivateFunctionFoldText(mLenAsInteger,mStrAsString)AsString''折叠文字函数，mLen为折叠前的文字长度，mStr为文字的内容DimiAsIntegerDimtmpStr(0To1)AsString''临时字符串IfLen(mStr)>mLenThen???DoWhileLen(mStr)>mLen???????tmpStr(0)=Left(mStr,mLen)???????mStr=Right(mStr,Len(mStr)-mLen)???????tmpStr(1)=tmpStr(1)+tmpStr(0)+vbCrLf???Loop???tmpStr(1)=tmpStr(1)+mStrElse???tmpStr(1)=mStrEndIf
FoldText=tmpStr(1)
EndFunction
================================================
|
|
