vc操纵word问题:查找到图片后如何得到该图片的长宽信息

[hetanjinfan]

一个Word文档中已经有一张BMP图片。我已经实现用VC打开该文档，并Find查找到该图片，问题是不知道接下来怎么得到图片的长和宽的值,请高手赐教。
相关代码如下：

COleVariant covTrue((short)TRUE),covFalse((short)FALSE),covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);

_Application app; //定义一个WORD的应用对象
app.CreateDispatch(_T("Word.Application"))) //启动WORD
app.SetVisible(true); //设置用户可见
Documents docs=app.GetDocuments();
docs.Open( //打开文档
COleVariant((LPCSTR)m_csPath,VT_BSTR),
covFalse, // 确定转换
covTrue, // 只读打开
covFalse, // 添加到最近使用文件列表
covOptional, // PasswordDocument.
covOptional, // PasswordTemplate.
covFalse, // Revert.
covOptional, // WritePasswordDocument.
covOptional, // WritePasswordTemplate.
COleVariant(long(1)), // Format. 如果是Word97，这便是最好一个参数
covOptional, // 编码 下面是Word 2000/2002专用的参数
covTrue) // 可见

Selection sel=app.GetSelection();
Find find=sel.GetFind();
find.ClearFormatting();
find.Execute( //开始查找图片
COleVariant(_T("^g"),VT_BSTR),
covFalse,
covFalse,
covFalse,
covFalse,
covFalse,
covTrue,
COleVariant(long(1)),
covFalse,
COleVariant("",VT_BSTR),
covFalse,
covFalse,
covFalse,
covFalse,
covFalse)

接下来怎么做呢?
图查片找到了,怎么得到那图片的长宽值?
请高手赐教,不胜感激.

[hetanjinfan]

哎~怎么没人帮帮我.

[菜牛]

获得图片对象就可以直接读取属性啊。你先用VBA代码试试看。

[LanglyTiger]

http://www.vckbase.com/document/viewdoc/?id=1483

[hetanjinfan]

谢谢LanglyTiger的回复，让我了解了一个重要的知识点。
可是，应该用不到复合文件的相关方法吧。应该调用某些VBA，MSWORD.OLB中的方法应能实现吧。
Find.Execute()后应该有什么方法能得到Find到的对象吧。

[hetanjinfan]

就是不知道怎么得到图片对象啊。
如果是AddPicture(...),可以把返回值赋给InLineShap 对象，就可以控制长宽了。
但我是用Find找到文档中已经存在的图片，Find.Execute(...)返回的是BOOL形，不知道怎么得到被找到的图片对象呀。

相关WORD宏如下，请高手帮帮我：

Sub Macro1()
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^g"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.InlineShapes(1).Fill.Visible = msoFalse
Selection.InlineShapes(1).Fill.Solid
Selection.InlineShapes(1).Fill.Transparency = 0#
Selection.InlineShapes(1).Line.Weight = 0.75
Selection.InlineShapes(1).Line.Transparency = 0#
Selection.InlineShapes(1).Line.Visible = msoFalse
Selection.InlineShapes(1).LockAspectRatio = msoTrue
Selection.InlineShapes(1).Height = 171.5
Selection.InlineShapes(1).Width = 209.2
Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic
Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
Selection.InlineShapes(1).PictureFormat.CropRight = 0#
Selection.InlineShapes(1).PictureFormat.CropTop = 0#
Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
End Sub

[hetanjinfan]

晕死,自己再顶.请高手帮帮忙啊!

[hetanjinfan]

哎~帖子这么快就沉的没影了