凌寒飘香

____成风破浪会有时,直把云帆济沧海!

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: :: 管理 ::
<HTML>
<script>
function openWord() {
var neword=new ActiveXObject("Word.Application")
neword.visible=true
neword.Documents.Add()
neword.Selection.TypeText("Hello Word!")
neword.Application.Activate()
neword.ActiveDocument.SaveAs("c:\\test.doc")
neword=null
}
</script>
<input type=button onClick="openWord()" value="OpenWord">
</HTML>
posted on 2006-08-25 09:43  凌寒飘香  阅读(220)  评论(0编辑  收藏  举报