当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp中将内容生成word文档的函数

ASP
asp分页（自己整理的2个分页程序）
ASP常用的系统配置函数
雨哲防采集策略之列表篇
雨哲浅谈关于防采集而不影响收录内容篇
asp数据库连接函数
ajax XMLHTTP Post Form时的表单乱码综合解决
ASP注入详细命令40条
用ASP实现MSSQL用户密码破解
ASP创建对象的两种方法比较
ASP字符串转换为整形、双精度型、布尔
ASP计算str2在str1中出现的次数
asp采集抓取网上房产信息的代码
ASP注册登陆实例代码
ASP中使用FileSystemObject时提高性能的方法
分享一个好东东,动态Include文件 (Dynamic File Includes)
解决 JScript 中使用日期类型数据时出现类型错误的问题
在ASP里面创建GUID
在JScript中使用缓存技术的实际代码
ASP javascript Application对象的Contents和StaticObjects做Cache的一些经验
海阳2006+功能中的潜水王

No. « 74 75 76 77 »

技术文章搜索

关键字

ASP 中的 asp中将内容生成word文档的函数

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-08-14   浏览: 330 ::
收藏到网摘: n/a

日常工作中经常需要把很多内容直接转换成word文档，于是写了个生成word文档的asp函数，代码如下：


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>生成word文档</title>
</head>

<script language="vbscript">
sub builddoc()
    On Error Resume Next

    Dim wApp

    Set wApp = CreateObject("Word.Application")
    If Err.number > 0 Then
        Alert "没法保存为Word文件,请正确安装Word97"
    else
    wApp.visible = True
    wApp.Documents.add
   
                     wApp.Selection.TypeParagraph
                     wApp.Selection.Font.Bold = True
                     wApp.Selection.TypeText "programfan"
                     wApp.Selection.ParagraphFormat.Alignment = 1
                      rem 居 中  

                     wApp.Selection.TypeParagraph  
                     wApp.Selection.Font.Bold = false                  
                     wApp.Selection.TypeText "-- programfan.com"
                     wApp.Selection.TypeParagraph   
                     wApp.Selection.ParagraphFormat.LeftIndent = wApp.CentimetersToPoints(0)
                     wApp.Selection.ParagraphFormat.FirstLineIndent = wApp.CentimetersToPoints(0.72/2*2)
                     wApp.Selection.TypeParagraph
                     wApp.Selection.Font.Bold = false
                     wApp.Selection.ParagraphFormat.Alignment = 0
                    
                      
                      
                         wapp.selection.typetext document.form1.doc1.value
                        wApp.Selection.TypeParagraph   

                      rem 居 右
                     wApp.Selection.TypeParagraph  
                     wApp.Selection.Font.Bold = false                 
                     wApp.Selection.TypeText Now()
                     wApp.Selection.TypeParagraph  
                     wApp.Saved = true
                    wapp.ActiveDocument.SaveAs "c:\a.doc"
                    wapp.close
                    
  end if

end sub
</script>
<body>
<form name="form1" >
<p>　</p>
<p><textarea rows="8" name="doc1" cols="46"></textarea></p>
<p>　</p>
<p>生成word文档<input type="button" value="生成" name="B1" onclick="builddoc()"></p>
</form>
</body>
</html>