如何用delphi实现word文档的预览,很急!!!!!!!!
解决方案 »
- BDE6 怎么连接oracle数据库 啊
- alphacontrols控件输出exe程序没有皮肤怎么办?
- 用webrowser浏览网页,如何才能通过防火墙的阻挡。
- 求助,向各位大大请教一个 菜单问题,谢谢!
- 哪位朋友请告诉我啊这个问题怎么解决啊!小妹一定会很感谢你的啊!!
- 数据库字段自动生成
- 怎样创建某个文件的快捷方式?
- 好看的笑话,笑死俺了!问题:listview如何加入图片?
- 请教jpg格式的透明显示问题:用photoshop画的字,怎样让他透明显示在另外一副jpg的图片上
- -=-=-用户输入两个日期(用DateTimePickker),怎么判断它们的先后顺序呢?很急!-=-=-
- 如何设定windows的默认输入法?
- 问一个ttreeview的问题
WordFileName:string;
WordApp,WordDoc :Variant;
FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, Format,Encoding,Visible: OleVariant;
begin
FileName := WordFileName;
ConfirmConversions := False;
ReadOnly := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument :='';
WritePasswordTemplate :='';
Format := wdOpenFormatDocument;
Encoding := false;
Visible := true ; WordApp:=CreateOleObject('Word.Application');
WordDoc:=CreateOleobject('Word.Document'); WordDoc:=WordApp.Documents.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format,Encoding,Visible); WordDoc.PrintPreview;不过执行预览语句的时候不会停留,马上会接着执行下一句,我还不知道解决办法