标题:
怎样调用word？
[打印本页]
作者:
幽魂
时间:
2006-4-18 13:56
标题:
怎样调用word？
我有一页面，里面有一部分文字是静态写上的，又一部分是读数据库读出来的。
现在我想把页面的文字打印出来，想调用word进行排版，怎样调用。
除了Ctrl C 和Ctrl V， 还有什么办法吗？
请各位高手帮忙！
作者:
ghmc
时间:
2006-4-18 13:57
<HTML>
<HTML XMLNS:IE>
<title>将浏览器文本导入到word</title>
<SCRIPT>
function onDownloadDone(s) {
content.value=s;
}
</SCRIPT>
<textarea name="content" cols=30 rows=20>
点击Text2Word,可以把这里的数据转成为Word.
也可先导入文本件.
点击浏览选择文本文件.
再点击Text2Word,把文本文件的数据转成为Word.
</textarea>
<IE
ownload ID="oDownload" STYLE="behavior:url(#default#download)" />
<input type=file name='p' onchange="oDownload.startDownload(p.value,
onDownloadDone)" size="20">
<input type="button" onclick="Text2Word(document.all.content.value)"
value="Text2Word">
<input type="button" onclick="Text2Word(document.documentElement.innerHTML)"
value="导出该页源代码到Word">
<script>
function Text2Word(str)
{
var wrd=new ActiveXObject("Word.Application")
wrd.visible=true
wrd.Documents.Open("c:\\word.doc")
wrd.Selection.TypeText(str)
wrd.Application.Activate()
wrd.ActiveDocument.SaveAs("c:\\word2.doc")
//wrd.quit();
wrd=null
}
</script>
</HTML>
作者:
诡异
时间:
2006-4-18 13:58
Dim objWD objDOC
set objWD=creatobject("word.application")
objWD.visible=true
objWD.document.add
set objDOC=objWD.activeDocument
objDOC.typetext="word"
objDOC.saveas "word.doc"
objWD.quit
set objDOC=nothing
set objWD=nothing
欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)
Powered by Discuz! 6.0.0
ownload ID="oDownload" STYLE="behavior:url(#default#download)" />