C#编程实现动态天生Word文档
核心提示：如何用C#编程实现动态天生Word文档并填充数据的效果呢？要使用C#操纵word，首先要添加援用：
如何用C#编程实现动态天生Word文档并填充数据的效果呢？要使用C#操纵word，首先要添加援用：
1、添加援用->COM->Microsoft Word 11.0 Object Library
2、在.cs文件中添加
using Word;
下面的例子中包括C#对Word文档的创建、插进表格、设置样式等操纵：
（例子中代码有些触及数据信息部份被省略，重要是先容1些C#操纵word文档的方法）
public string CreateWordFile( string CheckedInfo)
... {
string message = "" ;
try
... {
Object Nothing = System.Reflection.Missing.Value;
Directory.CreateDirectory( " C:/CNSI " ); // 创建文件所在目录
string name = " CNSI_ " + DateTime.Now.ToShortString() + " .doc " ;
object filename = " C://CNSI// " + name; // 文件保存路径
// 创建Word文档
Word.Application WordApp = new Word.ApplicationClass();
Word.Document WordDoc = WordApp.Documents.Add( ref Nothing, ref Nothing, ref Nothing, ref Nothing);
// 添加页眉
WordApp.ActiveWindow.View.Type = WdViewType.wdOutlineView;
WordApp.ActiveWindow.View.SeekView = WdSeekView.wdSeekPrimaryHeader;
WordApp.ActiveWindow.ActivePane.Selection.InsertAfter( " [页眉内容] " );
WordApp.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight; // 设置右对齐
WordApp.ActiveWindow.View.SeekView = WdSeekView.wdSeekMainDocument; // 跳出页眉设置
WordApp.Selection.ParagraphFormat.LineSpacing = 15f; // 设置文档的行间距
// 移动焦点并换行
object count = 14 ;
object WdLine = Word.WdUnits.wdLine; // 换1行;
WordApp.Selection.MoveDown( ref WdLine, ref count, ref Nothing); // 移动焦点
WordApp.Selection.TypeParagraph(); // 插进段落
// 文档中创建表格
Word.Table newTable = WordDoc.Tables.Add(WordApp.Selection.Range, 12 , 3 , ref Nothing, ref Nothing);
// 设置表格样式
newTable.Borders.OutsideLineStyle = Word.WdLineStyle.wdLineStyleThickThinLargeGap;
newTable.Borders.InsideLineStyle = Word.WdLineStyle.wdLineStyleSingle;
newTable.Columns[ 1 ].Width = 100f;
newTable.Columns[ 2 ].Width = 220f;
newTable.Columns[ 3 ].Width = 105f;
// 填充表格内容
newTable.Cell( 1 , 1 ).Range.Text = " 产品具体信息表 " ;
newTable.Cell( 1 , 1 ).Range.Bold = 2 ; // 设置单元格中字体为粗体
// 合并单元格
newTable.Cell( 1 , 1 ).Merge(newTable.Cell( 1 , 3 ));
WordApp.Selection.Cells.VerticalAlignment = Word.WdCellVerticalAlignment.wdCellAlignVerticalCenter; // 垂直居中
WordApp.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter; // 水平居中
1 2 下1页
核心提示：如何用C#编程实现动态天生Word文档并填充数据的效果呢？要使用C#操纵word，首先要添加援用：
// 填充表格内容
newTable.Cell( 2 , 1 ).Range.Text = " 产品基本信息 " ;
newTable.Cell( 2 , 1 ).Range.Font.Color = Word.WdColor.wdColorDarkBlue; // 设置单元格内字体色采
// 合并单元格
newTable.Cell( 2 , 1 ).Merge(newTable.Cell( 2 , 3 ));
WordApp.Selection.Cells.VerticalAlignment = Word.WdCellVerticalAlignment.wdCellAlignVerticalCenter;
// 填充表格内容
newTable.Cell( 3 , 1 ).Range.Text = " 品牌名称： " ;
newTable.Cell( 3 , 2 ).Range.Text = BrandName;
// 纵向合并单元格
newTable.Cell( 3 , 3 ).Select(); // 选中1行
object moveUnit = Word.WdUnits.wdLine;
object moveCount = 5 ;
object moveExtend = Word.WdMovementType.wdExtend;
WordApp.Selection.MoveDown( ref moveUnit, ref moveCount, ref moveExtend);
WordApp.Selection.Cells.Merge();
// 插进图片
string FileName = Picture; // 图片所在路径
object LinkToFile = false ;
object SaveWithDocument = true ;
object Anchor = WordDoc.Application.Selection.Range;
WordDoc.Application.ActiveDocument.InlineShapes.AddPicture(FileName, ref LinkToFile, ref SaveWithDocument, ref Anchor);
WordDoc.Application.ActiveDocument.InlineShapes[ 1 ].Width = 100f; // 图片宽度
WordDoc.Application.ActiveDocument.InlineShapes[ 1 ].Height = 100f; // 图片高度
// 将图片设置为4周环绕型
Word.Shape s = WordDoc.Application.ActiveDocument.InlineShapes[ 1 ].ConvertToShape();
s.WrapFormat.Type = Word.WdWrapType.wdWrapSquare;
newTable.Cell( 12 , 1 ).Range.Text = " 产品特殊属性 " ;
newTable.Cell( 12 , 1 ).Merge(newTable.Cell( 12 , 3 ));
// 在表格中增加行
WordDoc.Content.Tables[ 1 ].Rows.Add( ref Nothing);
WordDoc.Paragraphs.Last.Range.Text = " 文档创建时间： " + DateTime.Now.ToString(); // “题名”
WordDoc.Paragraphs.Last.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight;
// 文件保存
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);
message = name + " 文档天生成功，以保存到C:CNSI下 " ;
}
catch
... {
message = " 文件导出异常！ " ;
}
return message;
}
上1页 1 2 http://www.fw8.net/TAG:图片,文件,文档,表格,页眉
|
评论加载中...
|
邮 箱：admin@fw8.net 