admin 管理员组

文章数量: 1087649

Word在线编辑

需要降低IE安全级别

<object id=FileDialog style="left: 0px; TOP: 0px" classid="clsid:f9043c85-f6f2-101a-a3c9-08002b2f49fb" codebase=".cab">
</object>
<input type=button value="打开Word文档" οnclick='OpenFile()'>
<input type=button value="HTML格式" οnclick='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>

本文标签： Word在线编辑

版权声明：本文标题：Word在线编辑 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1687332081a90499.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。