为什么我在vb中打开word 文档时出错？提示为method 'Add' of object "documents" failed

[buddy_wu]

Dim myWord As Word.Application
Dim myWordDoc As Word.Document

'Set myWord = New Word.Application
'Dim a As Object

Set myWord = CreateObject("word.application")
myWord.Documents.Add

[litsnake1]

set myWordDoc =myWord.Documents.Add()

[buddy_wu]

对不起,还是不行,是不是我的word有问题?执行到Documeng.Add 函数时就会出错。提示为“上次打开的模板或文档 出现严重错误”有 打开、修复、取消三个选项

[buddy_wu]

不是这个问题,即使我这样做了,可还是出这个问题
最开始的时候在CreateObject时候出错,但不知道什么时候开始就可以了,后来就在Add和Open方法时出错,不知道怎么回事,但我在Word下用Vba编写的时候没有错误.
如果知道为什么,请帮忙解决,先谢过了

[usechan]

'创建一个新Word文档
'返回值为新Word文档CreateNewDoc，参数strDocName为新文档的名称
Public Function CreateNewDoc(strDocName As String) As Word.Document
Dim appNew As Word.Application
Dim docNew As Word.Document

Set appNew = New Word.Application
Set docNew = appNew.Documents.Add
docNew.Activate
With appNew
.Caption = strDocName
.WindowState = wdWindowStateMaximize
.Visible = True
End With
Set CreateNewDoc = docNew
End Function