S
softman11
Unregistered / Unconfirmed
GUEST, unregistred user!
这是我的程序,为了通过word输出我对报表:
count:=adotable1.RecordCount;
wordapplication1.Caption:='我的报表';
wordapplication1.Visible:=true;
wordapplication1.Connect;
mydoc:=wordapplication1.Documents.Add(emptyparam,emptyparam,emptyparam,emptyparam);
wordapplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
wordapplication1.Selection.Font.Bold := wdToggle;
wordapplication1.Selection.TypeText('工程进度安排表');
wordapplication1.Selection.Font.Bold := wdToggle;
wordapplication1.Selection.TypeParagraph;
mytable:=mydoc.Tables.Add(wordapplication1.Selection.Range,count,5,1,0);
wordapplication1.Selection.Columns.PreferredWidthType := wdPreferredWidthPoints;
mytable.Columns[1].PreferredWidth:=200;
但是运行最后一句的时候。报错,说“item不是一种属性”。不知是什么原因。我在vb下使用这些代码没有任何问题。
由于本人只有150点,所以只能奉献50点。希望不要见笑。谢谢了!
count:=adotable1.RecordCount;
wordapplication1.Caption:='我的报表';
wordapplication1.Visible:=true;
wordapplication1.Connect;
mydoc:=wordapplication1.Documents.Add(emptyparam,emptyparam,emptyparam,emptyparam);
wordapplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
wordapplication1.Selection.Font.Bold := wdToggle;
wordapplication1.Selection.TypeText('工程进度安排表');
wordapplication1.Selection.Font.Bold := wdToggle;
wordapplication1.Selection.TypeParagraph;
mytable:=mydoc.Tables.Add(wordapplication1.Selection.Range,count,5,1,0);
wordapplication1.Selection.Columns.PreferredWidthType := wdPreferredWidthPoints;
mytable.Columns[1].PreferredWidth:=200;
但是运行最后一句的时候。报错,说“item不是一种属性”。不知是什么原因。我在vb下使用这些代码没有任何问题。
由于本人只有150点,所以只能奉献50点。希望不要见笑。谢谢了!