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

157787698

在程序执行到下面代码时出现此问题：
M1.Create pathmdi12
0 {8 Z2 M. l" g' \' LM2.Create pathmdi11

6 V; l9 Z) z  S提示如下：
; d& @' w7 M% [* R; o
3 z. S8 N4 \9 ]$ k* q
: b. [0 s6 Y/ g8 y9 k$ E8 t但是在程序第一遍执行时可以正常运行，第二遍即出现此问题

8 J( R/ ~. k% N% p" X我的电脑上是office2003，不会出现此问题；但是一旦拿到装office2007的电脑就会出现这个问题
- G; @& b+ ]) N* v9 w
1 E& c( `  G3 K+ I请问是怎么回事？如何解决？

+ E8 J+ _9 r& P' B; i8 I5 K7 o不知道斑竹woaishuijia是否遇到过此问题？或者其他朋友是否遇到过此问题？如果有解决方案，请不吝赐教，不胜感激

woaishuijia

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

157787698

谢谢斑竹

引用的对象应该是正确的

* F  L2 ^, q! K; {) e' }) {7 o0 t因为对象是在前一段程序中生成的，而且第一次运行时可以正确执行并输出期望的结果，但第二次就会出现偏移，plottofile方法输出的图形相对于图纸发生偏移，目前没有找到原因，第三次运行时会出现本贴所说的错误提示

7 N2 _9 R5 m! P- x" y" ]' @为了切断其他可能的联系，我重建了个按钮，输入如下程序：
public aa as long
( R3 F7 }6 t3 p6 H! a0 I4 iPrivate Sub CommandButton9_Click()
9 ~* ]; z7 ^& H7 Z7 X( CDim M1 As MODI.Document, M2 As MODI.Document  '合并
Dim bb, path As String
aa = aa + 100
0 {* T0 U7 `5 A- f$ Gbb = Str(aa)
path = "d:\我的图纸\" & bb & ".mdi"
# i; ^! r4 ^2 {  x% ]3 q) fSet M1 = New MODI.Document
    Set M2 = New MODI.Document
5 ?9 n9 ]4 t# z8 C+ K    M1.Create "d:\我的图纸\1111.mdi"
    M2.Create "d:\我的图纸\2222.mdi"
: z6 `( w; m; I5 k! r: [6 ~    M1.Images.Add M2.Images(0), Nothing
    M1.SaveAs path
    M1.Close
    M2.Close
End Sub
- W7 _3 q9 i0 ]/ F1 O0 V& u( C3 p此程序在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
9 h# `+ r6 P8 e5 X/ g4 p在 End Sub 前面加上 Set M1 = Nothing 和 Set M2 = Nothing 试试

- C3 ]% S5 g7 @* B/ p6 ~
试过了，没用
; E/ T6 {9 _# E# \5 ^
6 W; Z6 X: W* e. s9 \0 e
测试发现：有时候程序会死在  M1.Create "d:\我的图纸\1111.mdi"  这一句，一直在这里运行，不再向下执行，但如果暂停然后再运行，则出现致命错误
% S1 V- {0 C) ?" ]' F& }
) L8 \( R+ E  ?0 V另外，我去MSDN网站看了一下，只有《Microsoft Office 2003 Edition Document Imaging VBA Language Reference》，没有适用于office2007的版本
2 @) S- m7 \/ C8 x3 G5 ^( x3 y
: X; R# g' K0 Y[ 本帖最后由 157787698 于 2009-11-13 08:47 编辑 ]

157787698

还有另外一个问题：
8 ]/ R; F: ], R4 G为什么plottofile方法打出来的图纸会出现偏移？我在程序中直接给点的坐标，不需要用户自己去选择，也就是不能使用getpoint方法
6 T& x; u0 G* V$ k- c3 Z
. c; |. L5 Q9 \4 n0 D% W不知道斑竹有没有遇到过这种问题？