实现动态生成Word代码,CSharp代码库,德仔网

代码语言
代码分类
【CSharp】实现动态生成Word
作者:dezai / 发布于2014/6/20/ 461
首先，添加引用：COM->Microsoft Word 11.0 Object Library。

	using System;
	using System.Collections.Generic;
	using System.Linq;
	using System.Text;
	using System.IO;
	using Microsoft.Office.Interop.Word;
	using System.Reflection;
	
	namespace TestWord
	{
	 class Program
	 {
	 static void Main(string[] args)
	 {
	 object oMissing = System.Reflection.Missing.Value;
	 object oEndOfDoc = "\\endofdoc"; //endofdoc是预定义的bookmark
	
	 //创建一个document.
	 Microsoft.Office.Interop.Word._Application oWord;
	 Microsoft.Office.Interop.Word._Document oDoc;
	 oWord = new Microsoft.Office.Interop.Word.Application();
	 oWord.Visible = true;
	 oDoc = oWord.Documents.Add(ref oMissing, ref oMissing,
	 ref oMissing, ref oMissing);
	
	 //在document的开始部分添加一个paragraph.
	 Microsoft.Office.Interop.Word.Paragraph oPara1;
	 oPara1 = oDoc.Content.Paragraphs.Add(ref oMissing);
	 oPara1.Range.Text = "Heading 1";
	 oPara1.Range.Font.Bold = 1;
	 oPara1.Format.SpaceAfter = 24; //24 pt 行间距
	 oPara1.Range.InsertParagraphAfter();
	
	 //在当前document的最后添加一个paragraph
	 Microsoft.Office.Interop.Word.Paragraph oPara2;
	 object oRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
	 oPara2 = oDoc.Content.Paragraphs.Add(ref oRng);
	 oPara2.Range.Text = "Heading 2";
	 oPara2.Format.SpaceAfter = 6;
	 oPara2.Range.InsertParagraphAfter();
	
	 //接着添加一个paragraph
	 Microsoft.Office.Interop.Word.Paragraph oPara3;
	 oRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
	 oPara3 = oDoc.Content.Paragraphs.Add(ref oRng);
	 oPara3.Range.Text = "This is a sentence of normal text. Now here is a table:";
	 oPara3.Range.Font.Bold = 0;
	 oPara3.Format.SpaceAfter = 24;
	 oPara3.Range.InsertParagraphAfter();
	
	 //添加一个3行5列的表格，填充数据，并且设定第一行的样式
	 Microsoft.Office.Interop.Word.Table oTable;
	 Microsoft.Office.Interop.Word.Range wrdRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
	 oTable = oDoc.Tables.Add(wrdRng, 3, 5, ref oMissing, ref oMissing);
	 oTable.Range.ParagraphFormat.SpaceAfter = 6;
	 int r, c;
	 string strText;
	 for (r = 1; r <= 3; r++)
	 for (c = 1; c <= 5; c++)
	 {
	 strText = "r" + r + "c" + c;
	 oTable.Cell(r, c).Range.Text = strText;
	 }
	 oTable.Rows[1].Range.Font.Bold = 1;
	 oTable.Rows[1].Range.Font.Italic = 1;
	
	 //接着添加一些文字
	 Microsoft.Office.Interop.Word.Paragraph oPara4;
	 oRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
	 oPara4 = oDoc.Content.Paragraphs.Add(ref oRng);
	 oPara4.Range.InsertParagraphBefore();
	 oPara4.Range.Text = "And here's another table:";
	 oPara4.Format.SpaceAfter = 24;
	 oPara4.Range.InsertParagraphAfter();
	
	 //添加一个5行2列的表，填充数据并且改变列宽
	 wrdRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
	 oTable = oDoc.Tables.Add(wrdRng, 5, 2, ref oMissing, ref oMissing);
	 oTable.Range.ParagraphFormat.SpaceAfter = 6;
	 for (r = 1; r <= 5; r++)
	 for (c = 1; c <= 2; c++)
	 {
	 strText = "r" + r + "c" + c;
	 oTable.Cell(r, c).Range.Text = strText;
	 }
	 oTable.Columns[1].Width = oWord.InchesToPoints(2); //设置列宽
	 oTable.Columns[2].Width = oWord.InchesToPoints(3);
	
	 //Keep inserting text. When you get to 7 inches from top of the
	 //document, insert a hard page break.
	 object oPos;
	 double dPos = oWord.InchesToPoints(7);
	 oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range.InsertParagraphAfter();
	 do
	 {
	 wrdRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
	 wrdRng.ParagraphFormat.SpaceAfter = 6;
	 wrdRng.InsertAfter("A line of text");
	 wrdRng.InsertParagraphAfter();
	 oPos = wrdRng.get_Information
	 (Microsoft.Office.Interop.Word.WdInformation.wdVerticalPositionRelativeToPage);
	 }
	 while (dPos >= Convert.ToDouble(oPos));
	 object oCollapseEnd = Microsoft.Office.Interop.Word.WdCollapseDirection.wdCollapseEnd;
	 object oPageBreak = Microsoft.Office.Interop.Word.WdBreakType.wdPageBreak;
	 wrdRng.Collapse(ref oCollapseEnd);
	 wrdRng.InsertBreak(ref oPageBreak);
	 wrdRng.Collapse(ref oCollapseEnd);
	 wrdRng.InsertAfter("We're now on page 2. Here's my chart:");
	 wrdRng.InsertParagraphAfter();
	
	 //添加一个chart
	 Microsoft.Office.Interop.Word.InlineShape oShape;
	 object oClassType = "MSGraph.Chart.8";
	 wrdRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
	 oShape = wrdRng.InlineShapes.AddOLEObject(ref oClassType, ref oMissing,
	 ref oMissing, ref oMissing, ref oMissing,
	 ref oMissing, ref oMissing, ref oMissing);
	
	 //Demonstrate use of late bound oChart and oChartApp objects to
	 //manipulate the chart object with MSGraph.
	 object oChart;
	 object oChartApp;
	 oChart = oShape.OLEFormat.Object;
	 oChartApp = oChart.GetType().InvokeMember("Application",
	 BindingFlags.GetProperty, null, oChart, null);
	
	 //Change the chart type to Line.
	 object[] Parameters = new Object[1];
	 Parameters[0] = 4; //xlLine = 4
	 oChart.GetType().InvokeMember("ChartType", BindingFlags.SetProperty,
	 null, oChart, Parameters);
	
	 //Update the chart image and quit MSGraph.
	 oChartApp.GetType().InvokeMember("Update",
	 BindingFlags.InvokeMethod, null, oChartApp, null);
	 oChartApp.GetType().InvokeMember("Quit",
	 BindingFlags.InvokeMethod, null, oChartApp, null);
	 //... If desired, you can proceed from here using the Microsoft Graph
	 //Object model on the oChart and oChartApp objects to make additional
	 //changes to the chart.
	
	 //Set the width of the chart.
	 oShape.Width = oWord.InchesToPoints(6.25f);
	 oShape.Height = oWord.InchesToPoints(3.57f);
	
	 //Add text after the chart.
	 wrdRng = oDoc.Bookmarks.get_Item(ref oEndOfDoc).Range;
	 wrdRng.InsertParagraphAfter();
	 wrdRng.InsertAfter("THE END.");
	
	 Console.ReadLine();
	 }
	 }
	}
评论列表
本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。
试试其它关键字
　动态　　生成Word　　Word　
同语言下
可能有用的
dezai贡献的其它代码(1065)