CSDN博客

img aspczlover

将浏览器文本导入到word

发表于2004/10/2 5:02:00  539人阅读

<HTML>
<HTML XMLNS:IE>

<SCRIPT>
    function onDownloadDone(s) {
        content.value=s;
    }
</SCRIPT>
<textarea name="content" cols=30 rows=20>
点击Text2Word,可以把这里的数据转成为Word.

也可先导入文本件.
点击浏览选择文本文件.
再点击Text2Word,把文本文件的数据转成为Word.
</textarea>
<IE:Download 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>

 

阅读全文
0 0

相关文章推荐

img
取 消
img