怎样用delphi在word中画两个不同的表格啊

Question

请问一下用delphi的worddocument组件怎样在word中画两个不同的表格，搞了一天了，求大家帮帮忙吧！在线等。

Answer 1

var wdPar,wdRange:OleVariant;
FWord :Variant; 
FDoc :Variant;
wdPar:=FWord.ActiveDocument.Paragraphs.Add;
wdRange:=wdPar.Range;
wdRange := FWord.ActiveDocument.Content;
wdRange.Collapse(wdCollapseEnd);
FDOC.Tables.Add(wdRange,2,5);
FDOC.Tables.Item(1).Cell(1,1).Range.Text:='1111  ';直接画，不用任何控件

Answer 2

FWord := CreateOleObject('Word.Application');
FWord.Visible := True;
FDOC :=FWord.Documents.Add;
这几句加上,画2个表不会覆盖掉的