87,975
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
wanghr100 2002-11-23
- 打赏
- 举报
<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>
<HTML>
<script language=Jscript>
var xlApp, xlSheet;
xlApp = new ActiveXObject("Excel.Application");
xlApp.Visible = true;
xlApp.Workbooks.Add();
xlApp.Workbooks.Open("C:\\book2.xls");
</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>
<HTML>
<script language=Jscript>
var xlApp, xlSheet;
xlApp = new ActiveXObject("Excel.Application");
xlApp.Visible = true;
xlApp.Workbooks.Add();
xlApp.Workbooks.Open("C:\\book2.xls");
</script>
</HTML>
harryyang 2002-11-21
- 打赏
- 举报
就是想用word打印ie中的全部內容.所以先要從ie拷貝到word中..
