怎样才能使藏在应用程序窗体后面的 word文档 显示出来。
解决方案 »
- 怎样根据ComboBox变化时Edit中的数据也跟着变化
- 现在公司用delphi的到底多不多啊?
- 哪里找得到XPMan单元?
- 关于Filewrite函数的简单问题,很简单,盼答。
- 如何调试COM+/mts对象?
- 使用Tquery进行查询,出现错误:When GROUP BY exists, every simple field in projectors must be in GROUP BY.这是怎么回事?
- sql server的问题,别的数据库可能也存在
- 问个简单的字符串处理问题
- 今天刚看delphi,请问procedure TForm1.Button1Click(Sender: TObject);这个是传值还是传参数的???
- 快来参与!!!为什么中国软件开发公司都只重学历而不是能力?????
- 急阿
- 高手快来救急啊,不然死定了!!!!!!
var
filename, ItemIndex, ConfirmConversions, ReadOnly, AddToRecentFiles,
PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, Format: OleVariant;
begin;
filename := str1;//文件名
ConfirmConversions := False;
AddToRecentFiles := False;
PasswordDocument := '';
PasswordTemplate := '';
Revert := True;
WritePasswordDocument := '';
WritePasswordTemplate := '';
Format := wdOpenFormatDocument;
try
wordapplication1.Visible := true; //word调用
except
application.MessageBox('调用word出错,请检测是否正确安装word!', Gsysname, mb_ok + mb_iconinformation);
abort;
end;
try
WordApplication1.Documents.Open(Filename, ConfirmConversions, ReadOnly,
AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert,
WritePasswordDocument, WritePasswordTemplate, EmptyParam);
except
begin
application.Messagebox(pchar('请检查文件是否存在!'), Gsysname, mb_ok + MB_ICONINFORMATION);
end;
end;
ItemIndex := 1;
WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
{Turn Spell checking of because it takes a long time if enabled and slows down Winword}
WordApplication1.Options.CheckSpellingAsYouType := False;
WordApplication1.Options.CheckGrammarAsYouType := False;
wordapplication1.Activate;
end;