嘿,怎么发表的内容改不了啦!!现在又遇到问题啦(就是在保存的时候要覆盖原文件,格式不变都为.htm),让那个保存对话框不出现。高手快来8,自己up~~~btn_modify click code var MyWordApp, newDoc : Variant; filename:string; begin filename:=ADOQfilepathfile_path.AsString+''+ADOQgetfilenamec_fullfilename.AsString; try // load Word if VarIsEmpty(MyWordApp) then begin MyWordApp := CreateOleObject('Word.Application'); // run word MyWordApp.Visible := true; // show it onscreen newDoc:=MyWordApp.documents.Add(FileName); end else ShowMessage( 'Word is already running!' ); except end;
var
MyWordApp, newDoc : Variant;
filename:string;
begin filename:=ADOQfilepathfile_path.AsString+''+ADOQgetfilenamec_fullfilename.AsString;
try
// load Word
if VarIsEmpty(MyWordApp) then
begin
MyWordApp := CreateOleObject('Word.Application'); // run word
MyWordApp.Visible := true; // show it onscreen
newDoc:=MyWordApp.documents.Add(FileName);
end
else
ShowMessage( 'Word is already running!' );
except
end;
ADOQgetfilename.Close; //读取更改后的文件
ADOQgetfilename.Open;
WebBrowser1.Navigate(ADOQfilepathfile_path.AsString+''+ADOQgetfilenamec_fullfilename.AsString);大哥帮帮忙啦!!急用啊~~~~
分不够再加啦~~~~