87,987
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
source0 2003-05-08
- 打赏
- 举报
先谢谢两位，我正好也在找这样的东东。
不过这段代码有点小问题。首先是会弹个提示框出来，说ActiveX控件可能不安全。有没有办法不弹出这个提示框？第二点是页面打开以后会同时打开Word，给人感觉不太安全似的。用wrd.visible=false能不显示Word，但用任务管理器能发现是在后台运行。有没有什么办法能一点痕迹都没有呢？
不过这段代码有点小问题。首先是会弹个提示框出来，说ActiveX控件可能不安全。有没有办法不弹出这个提示框？第二点是页面打开以后会同时打开Word，给人感觉不太安全似的。用wrd.visible=false能不显示Word，但用任务管理器能发现是在后台运行。有没有什么办法能一点痕迹都没有呢？
rambozs 2003-05-08
- 打赏
- 举报
还的问一下，如果我要检测我自己做的一个软件呢？如何检测是否安装啊？？
孟子E章 2003-05-07
- 打赏
- 举报
<HTML>
<script>
var wrd=new ActiveXObject("Word.Application")
wrd.visible=true
alert("您的"+wrd.Application.Caption+"安装路径为：\n"+wrd.Application.Path+"\n版本号是："+wrd.Application.version+"\n注册使用者是："+wrd.Application.UserName)
//wrd.Documents.Open("c:\\exam.doc")
wrd.Selection.TypeText("This is some text.")
wrd.Application.Activate()
wrd.ActiveDocument.SaveAs("c:\\exam111.doc")
wrd=null
</script>
</HTML>
<script>
var wrd=new ActiveXObject("Word.Application")
wrd.visible=true
alert("您的"+wrd.Application.Caption+"安装路径为：\n"+wrd.Application.Path+"\n版本号是："+wrd.Application.version+"\n注册使用者是："+wrd.Application.UserName)
//wrd.Documents.Open("c:\\exam.doc")
wrd.Selection.TypeText("This is some text.")
wrd.Application.Activate()
wrd.ActiveDocument.SaveAs("c:\\exam111.doc")
wrd=null
</script>
</HTML>
