如何在IE中以只读的属性直接打开硬盘中的word,excel文档?

<object id=FileDialog style="left: 0px; TOP: 0px" classid="clsid:f9043c85-f6f2-101a-a3c9-08002b2f49fb" codebase="http://activex.microsoft.com/controls/vb5/comdlg32.cab">
</object>
<input type=button value="打开Word文档" onclick='OpenFile()'>
<input type=button value="HTML格式" onclick='window.confirm(App.innerHTML)'>
<div align=left id=App style="border:1 solid #000000;background-color:#FFFFFF;height:400px;overflow:auto;width:100%;z-index:2" contentEditable></div>
<script>
function OpenFile()
{
 try
 {
  FileDialog.CancelError=true;
  FileDialog.Filter="Word模板|*.doc|Word模板|*.dot";
  FileDialog.ShowOpen();
  var WordApp=new ActiveXObject("Word.Application");
  WordApp.Application.Visible=false;
  var Doc=WordApp.Documents.Open(FileDialog.filename);
  Doc.Activate();
  Doc.Parent.Options.InsertedTextColor=4;
  Doc.Parent.Options.InsertedTextMark=2;
  Doc.Parent.Options.DeletedTextColor=4;
  Doc.Parent.Options.DeletedTextMark=1;
  Doc.TrackRevisions=true;
  Doc.PrintRevisions=true;
  Doc.ShowRevisions=true;
  Doc.Application.UserName="";
  var Range=Doc.Range();
  Range.Select();
  var Selection=WordApp.Selection;
  Selection.Copy();
  App.focus();
  document.execCommand("Paste");
  App.focus();
  WordApp.DisplayAlerts=false;
  Doc.Close();
  WordApp.DisplayAlerts=true;
  WordApp.Quit();
 }
 catch(e){}
 return false;
}
</script>
posted on 2005-07-20 10:49  轻松逍遥子  阅读(2514)  评论(5编辑  收藏  举报