资源描述：
《新概念英语20071210》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、usingSystem;usingSystem.Data;usingSystem.Data.SqlClient;usingSystem.Data.Sql;usingSystem.IO;usingSystem.Configuration;usingSystem.Collections;usingSystem.Web;usingSystem.Web.Security;usingSystem.Web.UI;usingSystem.Web.UI.WebControls;usingSystem.Web.UI.WebControls.WebParts;usingSystem
2、.Web.UI.HtmlControls;usingWord=Microsoft.Office.Interop.Word;usingBuilderProject.DAL;publicpartialclassDefault2:System.Web.UI.Page{protectedvoidPage_Load(objectsender,EventArgse){Stringstr_ID="CFB-450001";CreateWord(str_ID);}protectedvoidCreateWord(Stringstr_ID){intcount=1;//产生table数
3、量Word.ApplicationClassapp=newWord.ApplicationClass();Word._Documentdoc=null;objectmissingValue=System.Reflection.Missing.Value;objectoriginalFormat=System.Reflection.Missing.Value;objectrouteDocument=System.Reflection.Missing.Value;objectdocreadonly=false;objectNOTsaveChanges=false;o
4、bjectfileName=@"G:BuildProjectBudgetForm.doc";doc=app.Documents.Open(reffileName,refmissingValue,refdocreadonly,refmissingValue,refmissingValue,refmissingValue,refmissingValue,refmissingValue,refmissingValue,refmissingValue,refmissingValue,refmissingValue,refmissingValue,refmissingV
5、alue,refmissingValue,refmissingValue);try{///生成第一表objectBookHead="Head";Word.RangeHead=app.ActiveDocument.Bookmarks.get_Item(refBookHead).Range;DataSetdataSet=GetBudget(str_ID);intHeadrows=5;intHeadcols=6;doc.Tables.Add(Head,Headrows,Headcols,refmissingValue,refmissingValue);//给表格划线H
6、ead.Tables[1].Borders[Word.WdBorderType.wdBorderTop].LineStyle=Word.WdLineStyle.wdLineStyleSingle;Head.Tables[1].Borders[Word.WdBorderType.wdBorderLeft].LineStyle=Word.WdLineStyle.wdLineStyleSingle;Head.Tables[1].Borders[Word.WdBorderType.wdBorderRight].LineStyle=Word.WdLineStyle.wdL
7、ineStyleSingle;Head.Tables[1].Borders[Word.WdBorderType.wdBorderBottom].LineStyle=Word.WdLineStyle.wdLineStyleSingle;Head.Tables[1].Borders[Word.WdBorderType.wdBorderHorizontal].LineStyle=Word.WdLineStyle.wdLineStyleSingle;Head.Tables[1].Borders[Word.WdBorderType.wdBorderVertical].Li
8、neStyle=Word
