代码如下:Dim oWord As Object
Dim oDoc As Object
Set oWord = CreateObject("Word.Application")
Set oDoc = oWord.Documents.Open("e:\test\Mydoc.doc")  '这一句出错了,
Set oDoc = Nothing
Set oWord = noting

解决方案 »

  1.   

    实际上看内存里文档已经打开了,但是出错了,而且我写在文档打开事件的VBA宏没有执行。能这样实现吗?
    我的目的是想让带有宏的Word模板,在服务器上打开,并执行宏(这个宏必须在服务器上执行,因为宏包含访问数据库,这个数据库必须在服务器上才有访问权限),在服务器上生成一个新的Word文档,浏览器直接调用Word文档察看。我是想用Asp + Com,但是理论上可以,实际好像出错了,Com的代码如上。或者谁还能提出其他的实现方式吗?
      

  2.   

    To:Wentiduoduo
    错误是com里异常退出,忽略错误的话,文档被锁定了,无法打开。
      

  3.   

    你在本机上测试都通过了吗??
    每个参数都要设置属性''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    例子如下:
    '以下为部门的属性'上级部门ID
    Public Property Let SuperID(ByVal vData As Long)
      mvarSuperID = vData
    End Property
    Public Property Get SuperID() As Long
      SuperID = mvarSuperID
    End Property'本部门的ID
    Public Property Let ID(ByVal vData As Long)
      mvarID = vData
    End Property
    Public Property Get ID() As Long
      ID = mvarID
    End Property