用Delphi操作Word时,如何在表格前面加一段文字? 每次插入表格时,前面的文字都被替换掉,不知怎么回事。请高人指教,如何在表格的前一段先插一段文字,然后再插入表格? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 写完文字换行FWord.Selection.Typeparagraph;再写表格 写了一段你看下吧,希望对你有帮助procedure TForm1.Button1Click(Sender: TObject);varFWord :Variant; FDoc :Variant;wdPar,wdRange:OleVariant;begin FWord := CreateOleObject('Word.Application'); FWord.Visible := True; FDOC :=FWord.Documents.Add; FWord.Selection.TypeText(' 2222 '); FWord.Selection.paragraphs.Alignment := wdAlignParagraphCenter; FWord.Selection.Typeparagraph; 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:='333';end; 如何移动纪录,不是光标移动而是真正的数据移动 请问大家,有没有这样得表格,表格里面含组件得(下拉框和checkbox等等) 急求一个考试系统的源码,先谢了 如何根据ADOQUERY中某一列的值,动态改变DBGRID中相应行的颜色?急...... 求递归算法 delphi难题,请教各位 怎样刹掉一个正在运行的程序? 关于文件创建和读的代码,这段代码错在哪里? 各位兄弟救我,一个很简单的问题害的我好苦 ?那位能告诉我在哪里可以下载到 win32 API电子文档!!在下感激不尽!!!!!!( 求一查询语句,在线等候 点击一个toolbutton,然后在image上通过鼠标移动画一条直线填充方格
再写表格
procedure TForm1.Button1Click(Sender: TObject);
var
FWord :Variant;
FDoc :Variant;
wdPar,wdRange:OleVariant;
begin
FWord := CreateOleObject('Word.Application');
FWord.Visible := True;
FDOC :=FWord.Documents.Add;
FWord.Selection.TypeText(' 2222 ');
FWord.Selection.paragraphs.Alignment := wdAlignParagraphCenter;
FWord.Selection.Typeparagraph;
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:='333';
end;