宏程序运行时出现：运行时错误'-2147418113(8000ffff)'

我编写了一个宏程序，用EXCEL实现批量修改CAD标题栏的属性值，程序基本上是可以运行的，但在运行“属性导入”时，当程序运行到            On Error GoTo ERROR1
            If LCase(Filename) = LCase(Cells(RowNo, 1).Value) Then
                Doc.Save
            Else
                Doc.SaveAs FullName, zc2004_dwg
            End If
如果是执行Doc.SaveAs FullName, zc2004_dwg时，有时会出现：

运行时错误'-2147418113(8000ffff)'：


注意，是有时。有时是可以通过的，但什么时候程序运行是可以通过，什么时候会出现这样的问题，好象没有规律，随机的。不知道是什么原因，恳请大家帮忙分析。
附上附件。

感谢！

说明：我用的是中望CAD+ 2014，Office是2007完整版