如何生成word文档的源码

来源:互联网 发布:库存优化方案 编辑:程序博客网 时间:2024/05/17 07:38

using System;
using System.Collections;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Web;
using System.Web.SessionState;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.HtmlControls;
using Word;

namespace WebApplication2
{
   /// <summary>
   /// WebForm1 的摘要说明。
   /// </summary>
   public class WebForm1 : System.Web.UI.Page
   {
      protected System.Web.UI.WebControls.TextBox SaveAs;
      protected System.Web.UI.WebControls.Label Label2;
      protected System.Web.UI.WebControls.Label Label1;
      protected System.Web.UI.WebControls.Label result;
      protected System.Web.UI.WebControls.Button Button1;
      protected System.Web.UI.WebControls.TextBox wordText;
      private void Page_Load(object sender, System.EventArgs e)
      {
         // 在此处放置用户代码以初始化页面
      }

      #region Web 窗体设计器生成的代码
      override protected void OnInit(EventArgs e)
      {
         //
         // CODEGEN: 该调用是 ASP.NET Web 窗体设计器所必需的。
         //
         InitializeComponent();
         base.OnInit(e);
      }
      
      /// <summary>
      /// 设计器支持所需的方法 - 不要使用代码编辑器修改
      /// 此方法的内容。
      /// </summary>
      private void InitializeComponent()
      {    
         this.Button1.Click += new System.EventHandler(this.Button1_Click);
         this.Load += new System.EventHandler(this.Page_Load);

      }
      #endregion


      private void Button1_Click(object sender, System.EventArgs e)
      {
         Object Nothing=System.Reflection.Missing.Value; 
         object filename=@SaveAs.Text;
         Word.Application WordApp=new Word.ApplicationClass(); 
         Word.Document WordDoc=WordApp.Documents.Add(ref Nothing,ref Nothing,ref Nothing,ref Nothing);
         Word.Table table=WordDoc.Tables.Add(WordApp.Selection.Range,1,1,ref Nothing,ref Nothing);
         table.Cell(1,1).Range.Text=wordText.Text;
         WordDoc.Paragraphs.Last.Range.Text="Wellcome To Aspxcn.Com"; 
         WordDoc.SaveAs(ref filename,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing);
         WordDoc.Close(ref Nothing, ref Nothing, ref Nothing);
         WordApp.Quit(ref Nothing, ref Nothing, ref Nothing); 
         result.Text="文档路径:<a href='"+SaveAs.Text+"'>"+SaveAs.Text+"</a>(点击链接查看)<br>生成结果:成功!";
      }
   }
   
}

在web.config中要设置权限。

windows+R----->......
windows+R----->dcomcnfg------>我的电脑----->microsoft word文档------>属性------>安全性------>访问控制

原创粉丝点击