如何使用WORD Automation Server,在delphi中打开一个新文档,并插入分页符、换行符 (100分)

  • 主题发起人 主题发起人 DongJiang
  • 开始时间 开始时间
D

DongJiang

Unregistered / Unconfirmed
GUEST, unregistred user!
我的程序如下:
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
 
程序如下
template,newtemplate:olevariant;
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);
 
我也看 看。
 
附加功能 将问题提前
 
DongJiang:如果还想接着讨论请定期提前自己的帖子,如果不想继续讨论请结束帖子。
 
多人接受答案了。
 
后退
顶部