var
WordApp, WordDocuments, FileName: Variant;
begin
WinExec('D:\\SoftWare\\Microsoft Office\\Office\\WINWORD.exe',SW_SHOW);
WordApp:=CreateOleObject('Word.Application'); WordDocuments:=WordApp.Documents; FileName:=Variant('E:\\special.doc');
WordDocuments.Open(FileName);
end;
我调试了一下,Documents对象已经获得了,但是最后的OPEN函数却不能打开文件,也不报错,
请各位大大指点!
WordApp, WordDocuments, FileName: Variant;
begin
WinExec('D:\\SoftWare\\Microsoft Office\\Office\\WINWORD.exe',SW_SHOW);
WordApp:=CreateOleObject('Word.Application'); WordDocuments:=WordApp.Documents; FileName:=Variant('E:\\special.doc');
WordDocuments.Open(FileName);
end;
我调试了一下,Documents对象已经获得了,但是最后的OPEN函数却不能打开文件,也不报错,
请各位大大指点!
WordApp, WordDocuments: Variant;
FileName:String;
begin
// WinExec('D:\SoftWare\Microsoft Office\Office\WINWORD.exe',SW_SHOW);
WordApp:=CreateOleObject('Word.Application'); WordDocuments:=WordApp.Documents; FileName:=Variant('E:\special.doc');
WordDocuments.Open(FileName,True);
WordApp.Visible := True;
end;
WordApp, WordDocuments: Variant;
FileName:String;
begin
// WinExec('D:\SoftWare\Microsoft Office\Office\WINWORD.exe',SW_SHOW);
WordApp:=CreateOleObject('Word.Application'); WordDocuments:=WordApp.Documents; FileName:='E:\special.doc'; //此处应该这样
WordDocuments.Open(FileName,True);
WordApp.Visible := True;
end;