Delphi怎么样在一个Word文档中把一个已经存在的表格动态的复制多个（表格之间空一或两行）？

Question

谢谢！

Answer 1

窗体上引用D6 Servers VCL "server" ->"TWordDocument"和"TWordApplication"procedure TForm1.Button1Click(Sender: TObject);
var
  FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
  PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument,
  WritePasswordTemplate, Format: OleVariant;
  ItemIndex :OleVariant;
  i:integer;
  mytable:table;
  myrange:range;
  rend:OleVariant;
begin
  filename:='包含表格的word文档';
  ConfirmConversions := False;
  ReadOnly := False;
  AddToRecentFiles := False;
  PasswordDocument := '';
  PasswordTemplate := '';
  Revert := True;
  WritePasswordDocument := '';
  WritePasswordTemplate := '';
  Format := wdOpenFormatDocument;
  wordapplication1.Visible:=true;
  try
    WordApplication1.Documents.Open(FileName, ConfirmConversions, ReadOnly,
    AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert,
    WritePasswordDocument, WritePasswordTemplate, Format,emptyparam,emptyparam);
  except begin
    Application.MessageBox('请检查文档是否能用WORD打开!','aa',MB_iconasterisk);
    abort;
  end;
  end;
  ItemIndex := 1;
  WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
  mytable:=WordDocument1.Tables.Item(1);
  mytable.Select;
  worddocument1.Range.InsertAfter(''+#13);
  wordapplication1.Selection.Copy;
  rend:=worddocument1.Range.End_-1;
  myrange:=WordDocument1.Range(rend,rend);
  myrange.Paste;
  wordapplication1.Quit;
  wordapplication1.Disconnect;
end;

Answer 2

请 anbeel(番薯好吃，但不宜多吃)  到我另外的一个贴子（相同问题的贴子）
http://community.csdn.net/Expert/topic/3442/3442850.xml?temp=.1020624