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
2、)End Sub上面过程的作用是在活动文档的末尾插入一个 mRows 行，mColumns 列的表格。二、在读写表格中的单元格写入单元格使用如下代码：TableObject.Cell(Row:=curRow, Column:=curColumn).Range.InsertAfter “文本“上面代码的做用时在 curRow 行，curColumn 列处插入字符“文本” 。其中 TableObject 为表格对象，如果使用了生成表格中的例子，那么可以用 SelfGenTable 来替代 TableObject。三、调整单元格对齐方式水平对齐设置Selection.ParagraphFormat.
3、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=
4、垂直对齐常数也是首先选择表格元素，可以使单个单元格，单个行、单个列或者整个表格。似乎也可以同时选择多个单元格、多个行、多个列，有兴趣的朋友可以自行寻找答案。四、设置表格边线类型下面的代码对整个表格的所有边线设置成细实线：SelfGenTable.SelectWith Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle.Borders(wdBorderRight).LineStyle = wdLineStyleSing
5、le.Borders(wdBorderTop).LineStyle = wdLineStyleSingle.Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle.Borders(wdBorderVertical).LineStyle = wdLineStyleSingleEnd With同样是对 Selection 进行设置，所以可以依照上面的方法对特定的单元格、行或者列的边线样式进行分别设置，这里就不再列举了。五、调整表格尺寸下面的代码对一个六列的表格设置宽度，宽度采用百分比宽度，从左至右的宽度百分比依次为：30，10，10，30
6、，10，10：Dim WidthP(0 To 2) As IntegerDim j As Integerdim i as IntegerWidthP(0) = 30WidthP(1) = 10WidthP(2) = 10j = 0For i = 0 To SelfGenTable.Columns.Count - 1If j 2 Thenj = 0End IfSelfGenTable.Columns(i + 1).PreferredWidthType = wdPreferredWidthPercentSelfGenTable.Columns(i + 1).PreferredWidth = Wid
7、thP(j)j = j + 1Next上面的代码通过 Columns 的 PreferredWidthType 属性设置表格列宽的形式，这里选择的是百分比列宽，可以根据自己的实际情况选择其他列宽形式，然后再设置相应的数值。表格的行高请读者以此类推（实际上我还没设置过行高，都用自动生成的就够了）=编写操作表格的程序时需要注意，Word 表格的行列起始值为 1，而不是 0。=下面是一个拆分字符串的代码，当插入表格的文本过长时，可以设定一个长度，超过这个长度就进行回车，这样保证在设定的单元格宽度内能够写下长文本。单元格的高度会自动调整以使文本能完整的显示，这也就是我为什么没有通过代码设置单元格高度的
8、原因。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 ThenDo While Len(mStr) mLentmpStr(0) = Left(mStr, mLen)mStr = Right(mStr, Len(mStr) - mLen)tmpStr(1) = tmpStr(1) + tmpStr(0) + vbCrLfLooptmpStr(1) = tmpStr(1) + mStrElsetmpStr(1) = mStrEnd IfFoldText = tmpStr(1)End Function=
