一聚教程网:一个值得你收藏的教程网站

热门教程

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文档






热门栏目