为什么会出现自动化错误？

[babyboyhfd]

源程序：
sub dealwithtables()
dim h as new word.application
dim celnum as integer
dim rmcount as integer
rmcount=3
h.documents.open "" '打开一个表格文档
celnum = 0

celnum = h.ActiveDocument.Tables(1).Columns(1).Cells.count

h.ActiveDocument.Tables(1).Columns(1).Cells(celnum).Range.Select
h.Selection.MoveUp Unit:=wdLine, count:=(rmcount - 1), Extend:=wdExtend
h.Selection.Delete
h.ActiveDocument.Tables(1).Columns(1).Cells(celnum).Range.Select
h.Selection.MoveUp Unit:=wdLine, count:=(rmcount), Extend:=wdExtend
h.Selection.Cells.Merge
rmcount = 0
h.activedocument.save
h.activedocument.close
end sub


上述程序在Word的宏中运行不会出现错误，但是我把它放在vb程序中的时候，提示自动化错误。
哪位高手能够帮忙解决一下？80分酬谢！

[ZBXX631]

没有错，不过这一句中要写上文件名：
h.documents.open "E:\ssdsf\MYDOCUMENT\well.doc" '打开一个表格文档

[ZBXX631]

补充一句工程中要添加引用，将MICROSOFT WORD 10.0引用进来.
(单击“工程”-”引用“-选中MICROSOFT WORD 10.0 object library)

[babyboyhfd]

首先，感谢楼上！
但这样做并没有解决问题！以前我曾经编过一个vb小程序测试，可以运行！但它不稳定！

希望高手继续帮忙指点！谢谢！

[klbt]

关注，帮你顶。