参考以下的拆分代码,对照以下就知道了按行拆分出一行就可以了。
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);    //以单元格循环拆分,速度慢