参考以下的拆分代码,对照以下就知道了按行拆分出一行就可以了。
numrows := 2;
numcols := 1;
mergeSplit := False;//定义为OleVariant wrdDoc.Document.Tables.Item (iTableId{第几个表格}).Rows.Item (iRowCount{第几行}).Cells.Split (numRows, numCols, mergesplit); //以行拆分
//要求之前不能有纵向合并的单元格。否则按下循环处理,i为列号
wrdDoc.Document.Tables.Item (iTableId{第几个表格}).Cell(iRowCount,i+1).Split(numrows,numcols); //以单元格循环拆分,速度慢
numrows := 2;
numcols := 1;
mergeSplit := False;//定义为OleVariant wrdDoc.Document.Tables.Item (iTableId{第几个表格}).Rows.Item (iRowCount{第几行}).Cells.Split (numRows, numCols, mergesplit); //以行拆分
//要求之前不能有纵向合并的单元格。否则按下循环处理,i为列号
wrdDoc.Document.Tables.Item (iTableId{第几个表格}).Cell(iRowCount,i+1).Split(numrows,numcols); //以单元格循环拆分,速度慢
你自己动手合并一个单元格并把它录制到宏中
看一下相应的VBA代码
然后转入delphi没错的很好使
我一直都这么用