一个很急的问题 ( 积分: 50 )

  • 主题发起人 主题发起人 cf83325
  • 开始时间 开始时间
C

cf83325

Unregistered / Unconfirmed
GUEST, unregistred user!
各位同志帮帮我把。急待解决。。
一个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)

接下来怎么做呢?
图查片找到了,怎么得到那图片的长宽值?
请高手赐教,不胜感激.
 
怎么没有人回答啊。。帮帮我啊。。。
 

Similar threads

D
回复
0
查看
956
DelphiTeacher的专栏
D
D
回复
0
查看
892
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部