如何在word的指定位置插入表格

Question

如何在word的指定位置插入表格

Answer 1

给你个例子
procedure TForm1.Button1Click(Sender: TObject);
var
 path1,wdAutoFitFixed,wdWord8TableBehavior:olevariant;
 table1:table;
 cell1:cell;
begin
  worddocument1.Connect;
  with worddocument1 do
  begin
  tables.add(Range,2,5,wdAutoFitFixed,wdWord8TableBehavior);
  table1:=tables.Item(1);
  table1.Select;
  cell1:=table1.Cell(1,1);
   cell1.Select;
   cell1.Range.Text:='aaa';
  end;
  savedialog1.Execute;
  path1:=savedialog1.FileName;
  worddocument1.SaveAs(path1);
  worddocument1.Disconnect;
end;