收集的C#和Word操作的一些代码(本人未经测试)

一、WORD中对象的属性种类

InlineShapes有一个type属性,type 是WdInlineShapeType
WdInlineShapeType can be one of the following constants.

wdInlineShapeEmbeddedOLEObject

wdInlineShapeHorizontalLine

wdInlineShapeLinkedOLEObject

wdInlineShapeLinkedPicture

wdInlineShapeLinkedPictureHorizontalLine

wdInlineShapeOLEControlObject

wdInlineShapeOWSAnchor

wdInlineShapePicture

wdInlineShapePictureBullet

wdInlineShapePictureHorizontalLine

wdInlineShapeScriptAnchor

二、获取WORD中的对象

你在一个空文档里面插入一个PPT或者EXCEL等对象,可以通过下面的代码来获得这个对象的类型.
shape = wordDoc.InlineShapes[0];
OLEFormat olef = shape.OLEFormat;
MessageBox.Show(olef.ClassType.ToString());
//olef.Open();

三、插入图片后的图片大小问题

Excel2007环境下用worksheet.shapes.addpicture方法插入的图片,实际显示的位置和方法参数中设定的位置不同。什么原因?如何解决?

因为放大率100%的状态下设置的图片不会位置偏差,
所以在插入图片之前暂时设定放大率为100%(sheet.ActiveWindow.Zoom = 100), 图片设定完之后再把放大率给设回去。

sheet.ActiveWindow.Zoom = 100
修改为
sheet.Application.ActiveWindow.Zoom = 100

四、插入图片并置于文字之上

在word里面,插入的图片是一个inlineshape对象,衬于文字上下方的是shape对象,找到该对象,设置它的width   和height属性就是了。 

我成功了,,原来将嵌入型转化下就行了 
(嵌入型) 
Selection.InlineShapes(1).Height = 360.85  
Selection.InlineShapes(1).Width = 734.15  
(浮于文字上方) 
Selection.ShapeRange.Height = 360.85 
Selection.ShapeRange.Width = 734.15

五、用宏批量定位word中图片位置

Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数,图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 362 '设置高度
ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度
Next j

End Sub

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/xjzdr/archive/2008/11/06/3241284.aspx

posted @ 2009-08-21 17:45  根本风流  阅读(950)  评论(0编辑  收藏  举报