procedure
var
TargetFrameName,PostData,Heads,Flags : OleVariant;
begin
inherited;
TargetFrameName := '';
PostData := false;
Heads := '';
Flags := 0;
try
if Select = 1 then
WebBrowser1.Navigate(sys_WordTempFilePath + 'TempFile1.doc', Flags,
TargetFrameName, PostData, Heads)
else
if Select = 2 then
WebBrowser1.Navigate(sys_WordTempFilePath + 'TempFile2.doc', Flags,
TargetFrameName, PostData, Heads);
except
ShowMessage('程序无法打开Word文件！请确认本机的Microsoft Word正常可用。');
Exit;
end;
end;
