ActiveX控件就行了,和语言有什么关系?
解决方案 »
- quartz cornExpression 配置文件中 仅执行一次(当启动的时候) 怎么写
- 新手提问,公司想做个java ee项目,不知道用哪个框架好
- 求教ibatis自定义resultMap自动装载集合问题
- 错误
- 有关javamail带附件的问题,各位大侠请进
- 求助项目编译成war包放入weblogic里出错找不到类文件
- 求助
- struts初学者有个问题想请教各位高手
- 请高手赐教!看这个问题用b/s结构怎么解决,发表意见就给分,不够再添,多谢了!
- ■■我觉得异步机制最大的缺点就是。。。。谁能回答就是高手!!!
- mysql 的jdbc驱动一般在哪儿下载阿?
- tomcat 从开始菜单无法启动,必须要去bin文件下双击startup.bat来执行,这是为什么?
真的是非常感谢,大家帮助。。
<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>