1、如何用C#®程實(shí)現(xiàn)動(dòng)態(tài)生成Word文檔并填充數(shù)據(jù)的效果呢？要使用C斛作word，首先要添加引用：I 、添加引用->COM->MicrosoftWordII ."0ObjectLibrary2、在.cs文件中添加usingWord;下面的例子中包括C#寸Word文檔的創(chuàng)建、插入表格、設(shè)置樣式等操作：(例子中代碼有些涉及數(shù)據(jù)信息部分被省略，重要是介紹一些C#!Mword文檔的方法)publicstringCreateWordFile(stringCheckedInfo).stringmessage=""try.ObjectNothing=Syst

2、em.Reflection.Missing.Value;Directory.CreateDirectory("C:/CNSI");/創(chuàng)建文件所在目錄stringname="CNSI_"+DateTime.Now.ToShortString()+".doc"objectfilename="C:/CNSI/"+name;/文件保存路徑/創(chuàng)建Word文檔Word.ApplicationWordApp=newWord.ApplicationClass();Word.DocumentWordDoc=WordApp.Docum

3、ents.Add(refNothing,refNothing,refNothing,refNothing);/添加頁眉WordApp.ActiveWindow.View.Type=WdViewType.wdOutlineView;WordApp.ActiveWindow.View.SeekView=WdSeekView.wdSeekPrimaryHeader;WordApp.ActiveWindow.ActivePane.Selection.InsertAfter("頁眉內(nèi)容");WordApp.Selection.ParagraphFormat.Alignment=Wor

4、d.WdParagraphAlignment.wdAlignParagraphRight;/設(shè)置右對(duì)齊WordApp.ActiveWindow.View.SeekView=WdSeekView.wdSeekMainDocument;/跳出頁眉設(shè)置WordApp.Selection.ParagraphFormat.LineSpacing=15f;/設(shè)置文檔的行間距/移動(dòng)焦點(diǎn)并換行objectcount=14;objectWdLine=Word.WdUnits.wdLine;/換一行;WordApp.Selection.MoveDown(refWdLine,refcount,refNothing)

5、;/移動(dòng)焦點(diǎn)WordApp.Selection.TypeParagraph();/插入段落/文檔中創(chuàng)建表格Word.TablenewTable=WordDoc.Tables.Add(WordApp.Selection.Range,12,3,refNothing,refNothing);/設(shè)置表格樣式newTable.Borders.OutsideLineStyle=Word.WdLineStyle.wdLineStyleThickThinLargeGap;newTable.Borders.InsideLineStyle=Word.WdLineStyle.wdLineStyleSingle;ne

6、wTable.Columns1.Width=100f;newTable.Columns2.Width=220f;newTable.Columns3.Width=105f;/填充表格內(nèi)容newTable.Cell(1,1).Range.Text="產(chǎn)品詳細(xì)信息表"newTable.Cell(1,1).Range.Bold=2;/設(shè)置單元格中字體為粗體/合并單元格newTable.Cell(1,1).Merge(newTable.Cell(1,3);WordApp.Selection.Cells.VerticalAlignment=Word.WdCellVerticalAlig

7、nment.wdCellAlignVerticalCenter;/垂直居中WordApp.Selection.ParagraphFormat.Alignment=Word.WdParagraphAlignment.wdAlignParagraphCenter;/水平居中/填充表格內(nèi)容newTable.Cell(2,1).Range.Text="產(chǎn)品基本信息"newTable.Cell(2,1).Range.Font.Color=Word.WdColor.wdColorDarkBlue;/設(shè)置單元格內(nèi)字體顏色/合并單元格newTable.Cell(2,1).Merge(new

8、Table.Cell(2,3);WordApp.Selection.Cells.VerticalAlignment=Word.WdCellVerticalAlignment.wdCellAlignVerticalCenter;/填充表格內(nèi)容newTable.Cell(3,1).Range.Text="品牌名稱："newTable.Cell(3,2).Range.Text=BrandName;/縱向合并單元格newTable.Cell(3,3).Select();/選中一行objectmoveUnit=Word.WdUnits.wdLine;objectmoveCount=5

9、;objectmoveExtend=Word.WdMovementType.wdExtend;WordApp.Selection.MoveDown(refmoveUnit,refmoveCount,refmoveExtend);WordApp.Selection.Cells.Merge();/插入圖片stringFileName=Picture;/圖片所在路徑objectLinkToFile=false;objectSaveWithDocument=true;objectAnchor=WordDoc.Application.Selection.Range;WordDoc.Application

10、.ActiveDocument.InlineShapes.AddPicture(FileName,refLinkToFile,refSaveWithDocument,refAnchor);WordDoc.Application.ActiveDocument.InlineShapes1.Width=100f;/圖片寬度WordDoc.Application.ActiveDocument.InlineShapes1.Height=100f;/圖片高度/將圖片設(shè)置為四周環(huán)繞型Word.Shapes=WordDoc.Application.ActiveDocument.InlineShapes1.Co

11、nvertToShape();s.WrapFormat.Type=Word.WdWrapType.wdWrapSquare;newTable.Cell(12,1).Range.Text="產(chǎn)品特殊屬性"newTable.Cell(12,1).Merge(newTable.Cell(12,3);/在表格中增加行WordDoc.Content.Tables1.Rows.Add(refNothing);WordDoc.Paragraphs.Last.Range.Text="文檔創(chuàng)建時(shí)間："+DateTime.Now.ToString();/落款”“WordDo

12、c.Paragraphs.Last.Alignment=Word.WdParagraphAlignment.wdAlignParagraphRight;/文件保存WordDoc.SaveAs(reffilename,refNothing,refNothing,refNothing,refNothing,refNothing,refNothing,refNothing,refNothing,refNothing,refNothing,refNothing,refNothing,refNothing,refNothing,refNothing);WordDoc.Close(refNothing,r

13、efNothing,refNothing);WordApp.Quit(refNothing,refNothing,refNothing);message=name+"文檔生成成功，以保存到C:CNSI下”;catch.message="文件導(dǎo)出異常！"returnmessage;usingSystem;usingSystem.Collections.Generic;usingSystem.ComponentModel;usingSystem.Data;usingSystem.Drawing;usingSystem.Linq;usingSystem.Text;usi

14、ngSystem.Windows.Forms;usingWord;usingSystem.IO;namespaceWindowsForms_WordpublicpartialclassForm1:FormpublicForm1()InitializeComponent();privatevoidForm1_Load(objectsender,EventArgse)publicstringCreateWordFile(stringChenkedInfo)stringmessage=""tryobjectNothing=System.Reflection.Missing.Val

15、ue;/創(chuàng)建文件目錄Directory.CreateDirectory("d:/Test");stringname="Test_"+DateTime.Now.ToShortDateString()+".doc"/收件保存路徑objectfilename="d:/Test/"+name;/創(chuàng)建word文檔Word.ApplicationWordApp=newWord.ApplicationClass();Word.DocumentWordDoc=WordApp.Documents.Add(refNothing,ref

16、Nothing,refNothing,refNothing);/添加頁眉WordApp.ActiveWindow.View.Type=WdViewType.wdOutlineView;WordApp.ActiveWindow.View.SeekView=WdSeekView.wdSeekCurrentPageHeader;WordApp.ActiveWindow.ActivePane.Selection.InsertAfter("頁眉內(nèi)容");/設(shè)置右對(duì)齊WordApp.Selection.ParagraphFormat.Alignment=Word.WdParagraph

17、Alignment.wdAlignParagraphRight;/跳出頁眉設(shè)置WordApp.ActiveWindow.View.SeekView=WdSeekView.wdSeekMainDocument;/股置文檔的行間距WordApp.Selection.ParagraphFormat.LineSpacing=15f;/移動(dòng)焦點(diǎn)并換行objectcount=14;objectWdLine=Word.WdUnits.wdLine;/換一行WordApp.Selection.MoveDown(refWdLine,refcount,refNothing);/移動(dòng)焦點(diǎn)WordApp.Select

18、ion.TypeParagraph();/fif入段落/文檔中創(chuàng)建表格Word.TablenewTable=WordDoc.Tables.Add(WordApp.Selection.Range,12,3,refNothing,refNothing);/設(shè)置表格樣式newTable.Borders.OutsideLineStyle=Word.WdLineStyle.wdLineStyleThickThinMedGap;newTable.Borders.InsideLineStyle=Word.WdLineStyle.wdLineStyleSingle;newTable.Columns1.Widt

19、h=100f;newTable.Columns2.Width=220f;newTable.Columns3.Width=105f;/填充表格內(nèi)容newTable.Cell(1,1).Range.Text=產(chǎn)品詳細(xì)信息表""newTable.Cell(1,1).Range.Bold=2;/設(shè)置單元格中字體為粗體/合并單元格newTable.Cell(1,1).Merge(newTable.Cell(1,3);WordApp.Selection.Cells.VerticalAlignment=Word.WdCellVerticalAlignment.wdCellAlignVer

20、ticalCenter;垂直居中WordApp.Selection.ParagraphFormat.Alignment=Word.WdParagraphAlignment.wdAlignParagraphCenter;水平居中/填充表格內(nèi)容newTable.Cell(2,1).Range.Text=產(chǎn)品基本信息""newTable.Cell(2,1).Range.Font.Color=Word.WdColor.wdColorDarkBlue;設(shè)置單元格內(nèi)字體顏色/合并單元格newTable.Cell(2,1).Merge(newTable.Cell(2,3);WordApp

21、.Selection.Cells.VerticalAlignment=Word.WdCellVerticalAlignment.wdCellAlignVerticalCenter;/填充表格內(nèi)容newTable.Cell(3,1).Range.Text=品牌名稱："H.newTable.Cell(3,2).Range.Text="BrandName"/?/縱向合并單元格newTable.Cell(3,3).Select();/娃中一行objectmoveUnit=Word.WdUnits.wdLine;objectmoveCount=5;objectmoveExt

22、end=Word.WdMovementType.wdExtend;WordApp.Selection.MoveDown(refmoveUnit,refmoveCount,refmoveExtend);WordApp.Selection.Cells.Merge();/插入圖片stringFileName="d:/"/圖片所在路徑objectLinkToFile=false;objectSaveWithDocument=true;objectAnchor=WordDoc.Application.Selection.Range;WordDoc.Application.ActiveDocument.InlineShapes.AddPicture(FileName,refLinkToFile,refSaveWithDocument,refAnchor);WordDoc.Application.ActiveDocument.InlineShapes1.Width=100f;圖片高度/將圖片設(shè)置為四周環(huán)繞型Word.Shapes=WordDoc.Application.ActiveDocument.InlineShapes1.ConvertToShape();s.WrapFormat.Type=Word.WdWrapType.wdWrapSquare;newTable