asp生成word文件

时间：2022-07-02 23:19:02 编辑：袖梨来源：一聚教程网

生成word文档

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

生成word文档

推荐专题

最新下载

热门教程

asp生成word文件

相关文章

热门栏目

php教程

asp.net教程

手机开发

css教程

网页制作

办公数码

jsp教程