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

157787698

在程序执行到下面代码时出现此问题：
M1.Create pathmdi12
3 m  c3 C# @; a8 J" o1 HM2.Create pathmdi11
- f# m9 @5 q$ K$ _4 R) \  U
% C2 f8 h+ x8 i. O! J+ N6 B$ H提示如下：

6 q. U. T% R  ^3 d) p. k
6 J& Q* F+ k( ~9 `, g6 S( f但是在程序第一遍执行时可以正常运行，第二遍即出现此问题
0 ?- J( y6 D% ?- r* d
我的电脑上是office2003，不会出现此问题；但是一旦拿到装office2007的电脑就会出现这个问题

请问是怎么回事？如何解决？
# h+ D5 B: Q# T/ S* n1 B3 p
$ Y% ^8 h0 _6 O4 G( r不知道斑竹woaishuijia是否遇到过此问题？或者其他朋友是否遇到过此问题？如果有解决方案，请不吝赐教，不胜感激

woaishuijia

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

157787698

谢谢斑竹
5 r6 r. m' C  @7 Y: D5 H& M
引用的对象应该是正确的
( g: R& m; u" `2 ^; D
5 S9 V% W/ w2 w# p/ r' `因为对象是在前一段程序中生成的，而且第一次运行时可以正确执行并输出期望的结果，但第二次就会出现偏移，plottofile方法输出的图形相对于图纸发生偏移，目前没有找到原因，第三次运行时会出现本贴所说的错误提示
$ c5 h) o/ A# B0 G( }
为了切断其他可能的联系，我重建了个按钮，输入如下程序：
public aa as long
Private Sub CommandButton9_Click()
Dim M1 As MODI.Document, M2 As MODI.Document  '合并
8 u+ a6 Z9 [, `- ?+ c) }  oDim bb, path As String
aa = aa + 100
# _, Y% ?9 I; v) xbb = Str(aa)
; I3 P* \5 s. R! tpath = "d:\我的图纸\" & bb & ".mdi"
6 @1 M$ x/ c1 |  qSet M1 = New MODI.Document
, y" d5 T8 k1 Z. q    Set M2 = New MODI.Document
    M1.Create "d:\我的图纸\1111.mdi"
    M2.Create "d:\我的图纸\2222.mdi"
    M1.Images.Add M2.Images(0), Nothing
  _1 p6 }8 Z& L6 S+ C    M1.SaveAs path
    M1.Close
- Q" A4 r. n" u: E/ @9 O, h    M2.Close
End Sub
此程序在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
. ?7 A- i2 t0 H" u0 o0 o  M$ i在 End Sub 前面加上 Set M1 = Nothing 和 Set M2 = Nothing 试试

2 o+ @! w# e2 l. K, X/ ^4 k
% O8 t2 k2 d! M- `0 e试过了，没用
9 ]+ Y1 o' d/ G  K0 r
- r, ?* a) m# ^- q+ i
测试发现：有时候程序会死在  M1.Create "d:\我的图纸\1111.mdi"  这一句，一直在这里运行，不再向下执行，但如果暂停然后再运行，则出现致命错误

& T' n3 N! U, `3 Y/ d9 d另外，我去MSDN网站看了一下，只有《Microsoft Office 2003 Edition Document Imaging VBA Language Reference》，没有适用于office2007的版本
9 p& d& u& i. M4 S% d. I4 Q/ f$ ?
[ 本帖最后由 157787698 于 2009-11-13 08:47 编辑 ]

157787698

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

% C# R, W$ R" n- U" A$ T不知道斑竹有没有遇到过这种问题？