关于ActiveX的话题，ole实现！求助！

<HTML>
<script>
function nn(){
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.Add()
//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><a href="javascript:void(0)" onclick="nn()">word文档</a>
</HTML>

解决方案 »

  1.   

    <HTML>
    <script>
    function nn(){
    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.Add()
    wrd.Documents.Open("c:\\exam.doc")
    wrd.Application.Activate()
    //wrd.ActiveDocument.SaveAs("c:\\exam111.doc")
    wrd=null
    }
    </script><a href="javascript:void(0)" onclick="nn()">word文档</a>
    </HTML>