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

157787698

在程序执行到下面代码时出现此问题：
M1.Create pathmdi12
M2.Create pathmdi11
8 w/ q4 n' z4 T5 M8 r( S: t
提示如下：
4 G! z6 b+ |& D% G
3 }2 R0 i1 L8 ^, m7 h
但是在程序第一遍执行时可以正常运行，第二遍即出现此问题

1 H! r8 U( ^+ l# L# ?& j我的电脑上是office2003，不会出现此问题；但是一旦拿到装office2007的电脑就会出现这个问题
  Y  a8 }% d5 D# p3 ^* t/ z
4 D# J- m! o% b7 t. ~! u* p请问是怎么回事？如何解决？
9 ?$ ~0 O! d+ {1 {4 ]+ y
. V# T6 E& `8 t. P! {: A不知道斑竹woaishuijia是否遇到过此问题？或者其他朋友是否遇到过此问题？如果有解决方案，请不吝赐教，不胜感激

woaishuijia

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

157787698

谢谢斑竹
9 ^% G: N" q9 G  K+ J2 F: @
! L" s4 {3 K7 \+ i8 k( u% r引用的对象应该是正确的
6 Q/ d" Y# i0 r. ~2 C4 U
因为对象是在前一段程序中生成的，而且第一次运行时可以正确执行并输出期望的结果，但第二次就会出现偏移，plottofile方法输出的图形相对于图纸发生偏移，目前没有找到原因，第三次运行时会出现本贴所说的错误提示
7 g) \8 u6 s/ R) e: t! |5 O1 M8 w
' J7 u! `$ |/ C0 K8 _' `* L为了切断其他可能的联系，我重建了个按钮，输入如下程序：
public aa as long
' S- Z# U- s/ M3 `+ m) o. NPrivate Sub CommandButton9_Click()
% c5 [# f! p3 W; e# t6 l: UDim M1 As MODI.Document, M2 As MODI.Document  '合并
. m/ ]6 U$ t9 _* ~/ ?1 t/ h) j% R" c7 b6 zDim bb, path As String
aa = aa + 100
bb = Str(aa)
5 ]8 b, ~$ b* `& gpath = "d:\我的图纸\" & bb & ".mdi"
- R: c7 p: X% C. J& ]: P' X  e2 Y: YSet M1 = New MODI.Document
( a# s$ x+ W5 }% f1 \+ t  T    Set M2 = New MODI.Document
3 i, K- D5 b# I0 T, i    M1.Create "d:\我的图纸\1111.mdi"
    M2.Create "d:\我的图纸\2222.mdi"
0 f# N* R7 B6 z0 u# w: P% n    M1.Images.Add M2.Images(0), Nothing
    M1.SaveAs path
& v- y% d* b) i    M1.Close
/ w, K1 ^* [: q# O9 h2 Q9 N    M2.Close
End Sub
$ {* N: p$ y& s7 ~2 C! v4 C此程序在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 b( L! F, b4 @$ L在 End Sub 前面加上 Set M1 = Nothing 和 Set M2 = Nothing 试试

6 \8 A2 b3 C$ Z: d0 j1 V
' ?2 _# G5 I/ V) \, J试过了，没用


6 X8 v; o  l/ W- P% F测试发现：有时候程序会死在  M1.Create "d:\我的图纸\1111.mdi"  这一句，一直在这里运行，不再向下执行，但如果暂停然后再运行，则出现致命错误

另外，我去MSDN网站看了一下，只有《Microsoft Office 2003 Edition Document Imaging VBA Language Reference》，没有适用于office2007的版本
% F( K; {& S8 {$ N/ w- N* B: m; Z
7 K) b; L. G9 a* I1 J/ G5 }[ 本帖最后由 157787698 于 2009-11-13 08:47 编辑 ]

157787698

还有另外一个问题：
% ]. B, r, L6 R% C; q+ E为什么plottofile方法打出来的图纸会出现偏移？我在程序中直接给点的坐标，不需要用户自己去选择，也就是不能使用getpoint方法

不知道斑竹有没有遇到过这种问题？