是对表格操作吗?
如果是这样,那就这么做吧:
Procedure DeleteRow(RowIndex: Integer);
var
vRow: Row;
vTable: Table;
begin
vTable := wordApp.ActiveDocument.Tables(1);
if RowIndex = 0 or RowIndex > vTable.Rows.Count then
begin
MessageDlg('指定的RowIndex大于表格的行数!',mtError, [mbOK], 0);
Exit;
end;
vRow := vTable.Rows.Item(RowIndex);
vRow.Delete();
end;
注意:wordApp是delphi中的WordApplication组件。