收集的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