关于word2003-c#编程最后篇
这篇本来想写点dosframer的内容和word2003的一些格式,插入方面的内容,但总感到很凌乱.怕写不好
想来想去,要转gis方面了.以后不知道什么时候有时间写office方面的.
所以这里把关于word2003在c#下编程最后点内容献给大家,不足之处,日后增补.
今天德国把我不喜欢的c罗干了,开心.看德科的样子又伤心.支持荷兰的顶下!
1.关于dsoframer.
这是个不错的东东,可以把自己生成的文档用dsoframer打开打印编辑保存.
具体大家看看http://support.microsoft.com/kb/311765/zh-cn
里面有详细的例子.需要在项目中实现office或html编辑的朋友可以参考.网上资料说明很多.
会c++的朋友还可以扩展.这1点是我极力推荐的原因.
2.关于在word文档中插入图表的问题.
因为graph是个独立的东东,所以要添加引用.
using Microsoft.Office.Interop.Graph;
//插入图表//strbookmark-要插入图表的书签名字//dt-图表的数据//ChartType-是图表类型//public Microsoft.Office.Interop.Graph.XlChartType ChartType = Microsoft.Office.Interop.Graph.XlChartType.xl3DPie; private void InsertGraphtoBookmark(string strbookmark,System.Data.DataTable dt,ref Microsoft.Office.Interop.Word.Document wDoc, ref Microsoft.Office.Interop.Word.Application WApp)
{
int i, j; object missing = System.Reflection.Missing.Value; object oClassType = "MSGraph.Chart.8";//获取书签对象,换句话,把光标移过来 object bookmark = strbookmark; WApp.ActiveDocument.Bookmarks.get_Item(ref bookmark).Select(); //WApp.Selection.InlineShapes[0].OLEFormat.Open(); //初始化一张图表 Microsoft.Office.Interop.Graph.Chart wdChart = (Microsoft.Office.Interop.Graph.Chart)WApp.Selection.InlineShapes.AddOLEObject(ref oClassType, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing).OLEFormat.Object; //wrdChart.Application.Visible = false; //改变图表格式 wdChart.ChartType =ChartType; wdChart.Application.PlotBy = Microsoft.Office.Interop.Graph.XlRowCol.xlColumns;//根据Y轴来画图表 Microsoft.Office.Interop.Graph.Axis axis = (Microsoft.Office.Interop.Graph.Axis)wdChart.Axes(1, 1);//设置X轴的属性 wdChart.Application.DataSheet.Cells.Clear();//清空表格的初始数据 //填充图表数据,起始的行号和列号都是1 for (i = 0; i < dt.Columns.Count; i++)//初始化列名
{
wdChart.Application.DataSheet.Cells[1, i + 1] = dt.Columns[i].ColumnName;
} for (i = 0; i < dt.Rows.Count; i++)//填充数据 { for (j = 0; j < dt.Columns.Count; j++) { wdChart.Application.DataSheet.Cells[i + 2, j + 1] = dt.Rows[i][j].ToString(); } } //axis.MaximumScale = 1;//X轴最大刻度 //axis.MajorUnit = 0.1; wdChart.Legend.Delete(); wdChart.Width = 500; //wrdChart.Height = 666; //oShape.Height = oWord.InchesToPoints(3.57f); //更新图表并保存退出 wdChart.Application.Update(); wdChart.Application.Quit();
}3.给文档添加背景
文档背景添加可以采用插入图片方式,把图片放到文字下面去.模拟的盖章就可以这样处理.
我这里是个整个文档加上默认背景.不过效果出不来,vb版本没问题,郁闷ing
//背景 private void FillBackground(ref Microsoft.Office.Interop.Word.Document wDoc, ref Microsoft.Office.Interop.Word.Application WApp) { WApp.ActiveDocument.Background.Fill.Visible = Microsoft.Office.Core.MsoTriState.msoTrue; WApp.ActiveDocument.Background.Fill.ForeColor.RGB = System.Drawing.ColorTranslator.ToWin32(System.Drawing.Color.FromArgb(94, 158, 255)); WApp.ActiveDocument.Background.Fill.BackColor.RGB = System.Drawing.ColorTranslator.ToWin32(System.Drawing.Color.FromArgb(25, 235, 250)); WApp.ActiveDocument.Background.Fill.Transparency = float.Parse("0.6"); WApp.ActiveDocument.Background.Fill.PresetGradient( Microsoft.Office.Core.MsoGradientStyle.msoGradientHorizontal,1, Microsoft.Office.Core.MsoPresetGradientType.msoGradientDaybreak); }4.水印.
当然插入艺术字也可以.不过2者不一样.水印是针对整个文档,每一页多有.
这样,把给用户的打印模板全+上水印,没授权水印一直存在.当然用户文档的等级也一目了然.
//水印 private void SetWatermark(ref Microsoft.Office.Interop.Word.Document wDoc, ref Microsoft.Office.Interop.Word.Application WApp) { object missing = System.Reflection.Missing.Value; WApp.ActiveDocument.Sections[1].Range.Select();//这个不能少了,少了水印出不来了 WApp.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekCurrentPageHeader; //给文档全部+上水印 WApp.Selection.HeaderFooter.Shapes.AddTextEffect( Microsoft.Office.Core.MsoPresetTextEffect.msoTextEffect10, "请勿带出", "Arial Black", 24, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoFalse, 0, 0, ref missing).Select(ref missing); //文档中加入艺术字 //WApp.ActiveDocument.Shapes.AddTextEffect(Microsoft.Office.Core.MsoPresetTextEffect.msoTextEffect10, // "请勿带出", "Arial Black", 24, Microsoft.Office.Core.MsoTriState.msoFalse, // Microsoft.Office.Core.MsoTriState.msoFalse, 0, 0, ref missing).Select(ref missing); WApp.Selection.ShapeRange.Name = "PowerPlusWaterMarkObject1"; WApp.Selection.ShapeRange.TextEffect.NormalizedHeight = Microsoft.Office.Core.MsoTriState.msoFalse; WApp.Selection.ShapeRange.Line.Visible = Microsoft.Office.Core.MsoTriState.msoFalse; WApp.Selection.ShapeRange.Fill.Visible = Microsoft.Office.Core.MsoTriState.msoTrue; WApp.Selection.ShapeRange.Fill.Solid(); WApp.Selection.ShapeRange.Fill.ForeColor.RGB = System.Drawing.ColorTranslator.ToWin32(System.Drawing.Color.ForestGreen); WApp.Selection.ShapeRange.Fill.Transparency =float.Parse("0.5"); WApp.Selection.ShapeRange.Rotation = 315; WApp.Selection.ShapeRange.LockAspectRatio = Microsoft.Office.Core.MsoTriState.msoTrue; WApp.Selection.ShapeRange.Height =WApp.CentimetersToPoints(float.Parse("4.13")); WApp.Selection.ShapeRange.Width = WApp.CentimetersToPoints(float.Parse("16.52")); WApp.Selection.ShapeRange.WrapFormat.AllowOverlap =-1; WApp.Selection.ShapeRange.WrapFormat.Side = (Microsoft.Office.Interop.Word.WdWrapSideType)Microsoft.Office.Interop.Word.WdWrapType.wdWrapNone; WApp.Selection.ShapeRange.WrapFormat.Type = Microsoft.Office.Interop.Word.WdWrapType.wdWrapNone; WApp.Selection.ShapeRange.RelativeHorizontalPosition =(Microsoft.Office.Interop.Word.WdRelativeHorizontalPosition) Microsoft.Office.Interop.Word.WdRelativeVerticalPosition.wdRelativeVerticalPositionMargin; WApp.Selection.ShapeRange.RelativeVerticalPosition = Microsoft.Office.Interop.Word.WdRelativeVerticalPosition.wdRelativeVerticalPositionMargin; WApp.Selection.ShapeRange.Left =(float) Microsoft.Office.Interop.Word.WdShapePosition.wdShapeCenter; WApp.Selection.ShapeRange.Top =(float) Microsoft.Office.Interop.Word.WdShapePosition.wdShapeCenter; WApp.ActiveWindow.ActivePane.View.SeekView = Microsoft.Office.Interop.Word.WdSeekView.wdSeekMainDocument; }5.好了,写完了.其实还有好多东西要学习.比如修订,保护...
office的编程部分到这里结束,以后可能要写点EXT+ajax+json+c#方面和mapinfo方面内容.不过这2个进行中,搞完一并发上来.
祝大家心情愉快.
