运行时错误2147417848（斑竹woaishuijia请进）

157787698

在程序执行到下面代码时出现此问题：
M1.Create pathmdi12
& k9 U2 i6 D" k, v- \+ @6 X# }7 ~: DM2.Create pathmdi11

/ Z9 T* p6 x# L提示如下：
! j& |" d0 D$ P" ~7 E6 {

但是在程序第一遍执行时可以正常运行，第二遍即出现此问题
9 }' k4 c9 a( ]% F) o
我的电脑上是office2003，不会出现此问题；但是一旦拿到装office2007的电脑就会出现这个问题

) l7 Q% y& g' [5 ~+ L9 t9 {4 I请问是怎么回事？如何解决？
% e. H+ p- {& u' @: F" L/ U& L
: c6 ~9 C' \0 ~* ^9 b不知道斑竹woaishuijia是否遇到过此问题？或者其他朋友是否遇到过此问题？如果有解决方案，请不吝赐教，不胜感激

woaishuijia

没用过office2007，猜想可能是 2007 版 Office Document Imaging 与 2003 版不同。建议到 MSDN 网站查看一下 office2007 的 VBA 参考。如果原因是这样的话，就需要在程序中加入识别版本并区别对待的内容。
另外，引用的对象是否正确？
还有，M1、M2 、M3 这些变量用过之后，是否有用 M1.Close 和 Set M1 = Nothing 语句关闭进程？
9 d) R/ r, R' Z3 ]  A5 q) d/ g附件是《Microsoft Office 2003 Edition Document Imaging VBA Language Reference》，以前从 MSDN 下载的。

157787698

谢谢斑竹
/ \' C  s$ q2 T' p
0 @( W, X: `) S' ]/ {引用的对象应该是正确的
2 w5 j% s( r" u8 }
" c2 @( Q* t4 M" ~- j$ o; ~因为对象是在前一段程序中生成的，而且第一次运行时可以正确执行并输出期望的结果，但第二次就会出现偏移，plottofile方法输出的图形相对于图纸发生偏移，目前没有找到原因，第三次运行时会出现本贴所说的错误提示
) p1 Y1 j% b1 W4 n+ R
( s& f* f4 X8 |5 k6 X, i, `& S为了切断其他可能的联系，我重建了个按钮，输入如下程序：
. w3 a( J/ f0 I' e+ Spublic aa as long
* p- y9 y) z' \) v) ePrivate Sub CommandButton9_Click()
Dim M1 As MODI.Document, M2 As MODI.Document  '合并
* Y. m* n8 i$ WDim bb, path As String
aa = aa + 100
bb = Str(aa)
path = "d:\我的图纸\" & bb & ".mdi"
4 V  a! p9 i$ Z; K/ O4 K$ USet M1 = New MODI.Document
8 n/ ?) z. D/ u/ I/ z. E    Set M2 = New MODI.Document
* o; U6 A- }2 k- a* ?4 E5 P4 ^    M1.Create "d:\我的图纸\1111.mdi"
    M2.Create "d:\我的图纸\2222.mdi"
    M1.Images.Add M2.Images(0), Nothing
    M1.SaveAs path
% Q+ q, \+ m; U/ N    M1.Close
- {9 R. V, h. m5 q    M2.Close
; A7 z4 A: Y9 }End Sub
. O# ^- y! V$ J5 J( ~5 l此程序在office 2003下正常运行，而在office2007也可以运行，但是仍然会不定时的出错，相同的错误提示

woaishuijia

在 End Sub 前面加上 Set M1 = Nothing 和 Set M2 = Nothing 试试

157787698

原帖由 woaishuijia 于 2009-11-12 20:04 发表 http://www.3dportal.cn/discuz/images/common/back.gif
3 }& A" S9 m# r& v( T. a* S2 P在 End Sub 前面加上 Set M1 = Nothing 和 Set M2 = Nothing 试试

" {3 i4 ^" a. k$ {8 d
试过了，没用

- b% n8 p& L# }% o* b
9 d9 y1 |( J% V( H测试发现：有时候程序会死在  M1.Create "d:\我的图纸\1111.mdi"  这一句，一直在这里运行，不再向下执行，但如果暂停然后再运行，则出现致命错误

另外，我去MSDN网站看了一下，只有《Microsoft Office 2003 Edition Document Imaging VBA Language Reference》，没有适用于office2007的版本

* d5 K+ I- @7 C[ 本帖最后由 157787698 于 2009-11-13 08:47 编辑 ]

157787698

还有另外一个问题：
; u8 \# d2 F; A0 Z8 Z4 {为什么plottofile方法打出来的图纸会出现偏移？我在程序中直接给点的坐标，不需要用户自己去选择，也就是不能使用getpoint方法
( U' k8 {# C5 U) X" w" Q
不知道斑竹有没有遇到过这种问题？