delphi6.0 的打开WORD文档的问题,高手请进,万分特急,第一个解决问题的高手棒上50分。说到做到,绝不食言。(50分)

  • 主题发起人 PLA-APIN
  • 开始时间
P

PLA-APIN

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
current_tables:Tables;
template,newtemplate:OleVariant;
//year,month,day:word;
//sjstr:string;
begin
try
WordApplication1.Connect ;
except
MessageDlg('Word may not be installed',mtError,[mbok],0);
Abort;
end;
template:=ExtractFileDir(Application.ExeName)+'/modal/打印封面';
newtemplate:=False;
WordApplication1.Connect;
WordApplication1.Visible:=False;
WordApplication1.Caption:='打印封面';
WordApplication1.Documents.Add(template,newtemplate);
current_tables:=WordApplication1.ActiveDocument.Get_Tables;
wordapplication1.Visible:=true;
end;
这段程序在DELPHI5.0可以通过,但在DELPHI6.0过不去。
显示这行WordApplication1.Documents.Add(template,newtemplate);有错。哪位大虾帮忙?
 
没有在用D6,不过也关心该问题。
 
两个办法:
1.WordApplication1.Documents.AddOld(template,newtemplate);
2.WordApplication1.Documents.AddOld(template,newtemplate,EmptyParam,Flase);
错误的原因是原来的add()变成了现在的addold(),
现在的add()有四个参数.



 
2.WordApplication1.Documents.Add(template,newtemplate,EmptyParam,Flase);
写错了.
 
sandy suen:
感谢!我已经在前两天自己也发现原来的ADD变为ADDOLD,但还是非常感谢你。
小弟还有个问题,就是ADD的四个参数各表示什么意思,还不是特别清楚,特向你请教。
谢谢!
 
sandy suen:
感谢!我已经在前两天自己也发现原来的ADD变为ADDOLD,但还是非常感谢你。
小弟还有个问题,就是ADD的四个参数各表示什么意思,还不是特别清楚,特向你请教。
谢谢!
 
源代码:
function Add(var Template: OleVariant; var NewTemplate: OleVariant;
var DocumentType: OleVariant; var Visible: OleVariant): WordDocument; safecall;
 
顶部