话题275271的标题是: 如何使用WORD Automation Server,在delphi中打开一个新文档,并插入分页符、换行符 (100分)
分类:OLE/Automationdo
ngJiang (2000-07-02 20:03:00)
我的程序如下:
WordDocument1.ConnectTo(WordApplication1.Documents.Add(EmptyParam,EmptyParam));
WordDocument1.Tables.Add(WordDocument1.Range,3,3);
WordDocument1.Content.InsertBreak(wdPageBreak);
WordApplication1.Visible:=true;
但编译不通过,出现错误:
[Error] word.pas(52): Types of actual and formal var parameters must be identical
少陵 (2000-07-03 1:09:00)
程序如下
template,newtemplate
levariant;
newtemplate:=false;
template:=emptyparam;
WordApplication1.Visible:=True;
WordApplication1.Documents.Add (template,newtemplate);
WordDocument1.ConnectTo(WordApplication1.Documents.Item (itemindex) );
WordApplication1.Selection.Font.Set_Size(18) ;
WordApplication1.Selection.Font.Set_Bold(2);
WordApplication1.Selection.TypeText('附表(一)');
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.ParagraphFormat.Set_Alignment(1);
WordApplication1.Selection.Font.Set_Size(12) ;
WordApplication1.Selection.Font.Set_Bold(0);
WordApplication1.Selection.Tables.Add(WordApplication1.Selection.Get_Range,row,16);
ddmcall (2000-07-03 6:41:00)
我也看 看。
hsw (2000-07-06 20:18:00)
>>
chen66 (2000-07-19 10:43:00)
``
wjiachun (2000-10-05 22:10:00)
附加功能 将问题提前
wjiachun (2000-11-11 10:12:00)
DongJiang:如果还想接着讨论请定期提前自己的帖子,如果不想继续讨论请结束帖子。
g622 (2000-11-15 19:08:00)
多人接受答案了。
飓风_1 (2000-11-17 9:07:00)
多谢!!
少陵-100,的回答最终被接受。