采用DELPHI控制WORD,并进行表格处理。但需求为4个表格,而在程序运行时
第3、4个表格则出现在第2个表中,即位置乱了。
原代码部分如下: WordApplication1.Selection.Set_Start(WordApplication1.Selection.Get_End_);
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.SetRange(200,200);//设定段落范围 、
Doc.Tables.Add(WordApplication1.Selection.Range,ADOQuery1.RecordCount+1,3);//创建表格
Doc.Tables.Item(NNN).Columns.Item(1).Width:=150;//设定第1列宽度
Doc.Tables.Item(NNN).Columns.Item(2).Width:=80;//设定第2列宽度
Doc.Tables.Item(NNN).Columns.Item(3).Width:=100;//设定第3列宽度
Doc.Tables.Item(NNN).Cell(1,1).Range.Text:='项目值';
Doc.Tables.Item(NNN).Cell(1,2).Range.Text:='客户数量';
Doc.Tables.Item(NNN).cell(1,3).Range.text:='所占百分比(%)';变更NNN为指定的表格1,2,3,4哪位高手如能解决,立马给分!
第3、4个表格则出现在第2个表中,即位置乱了。
原代码部分如下: WordApplication1.Selection.Set_Start(WordApplication1.Selection.Get_End_);
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.SetRange(200,200);//设定段落范围 、
Doc.Tables.Add(WordApplication1.Selection.Range,ADOQuery1.RecordCount+1,3);//创建表格
Doc.Tables.Item(NNN).Columns.Item(1).Width:=150;//设定第1列宽度
Doc.Tables.Item(NNN).Columns.Item(2).Width:=80;//设定第2列宽度
Doc.Tables.Item(NNN).Columns.Item(3).Width:=100;//设定第3列宽度
Doc.Tables.Item(NNN).Cell(1,1).Range.Text:='项目值';
Doc.Tables.Item(NNN).Cell(1,2).Range.Text:='客户数量';
Doc.Tables.Item(NNN).cell(1,3).Range.text:='所占百分比(%)';变更NNN为指定的表格1,2,3,4哪位高手如能解决,立马给分!
WordApplication1.Selection.SetRange(200,200)SetRange第一个参数为起始点,第二个参数为结束点。
按你需求,应将两个参数定位于最后位置,而不是一个定值。可以将两个参数赋值较大,如
WordApplication1.Selection.SetRange(200000,200000)
试试看!