操作WORD类时报错,高手请进...提示"未将对象引用设置到对象的实例"错误

[tgc99]

建一个ASP.NET WEB应用程序.
添加引用WORD的COM组件

高手给看一下,运行到"oDocument.Activate()"的时候,提示"未将对象引用设置到对象的实例"错误


Dim newClass As New Class1
''''''''''''''''''''''''''''''''
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

''调用Class1类()
newClass.setNew()
newClass.NewDocWithModel("C:\InfoMod.doc")

End Sub
''''''''''''''''''''''''''''''''''
'''类模块
Public Class Class1
Private oWordApplic As Word.Application
Private oDocument As Word.Document
Public Sub setNew()
oWordApplic = New Word.Application
End Sub
Public Sub NewDocWithModel(ByVal FileName As String)
Dim missing = System.Reflection.Missing.Value
Dim isVisible As Boolean = True
Dim strName As String
strName = FileName

oDocument = oWordApplic.Documents.Add(strName, missing, missing, isVisible)
oDocument.Activate()
End Sub
End Class

[dlzhangln]

Public Sub NewDocWithModel(ByVal FileName As ojbect )
Dim missing as ojbect = System.Reflection.Missing.Value
Dim isVisible As ojbect = True
Dim strName As ojbect
strName = FileName

oDocument = oWordApplic.Documents.Add(strName, missing, missing, isVisible)
oDocument.Activate()
End Sub

[dlzhangln]

Public Sub NewDocWithModel(ByVal FileName As string)
Dim missing as ojbect = System.Reflection.Missing.Value
Dim isVisible As ojbect = True
Dim strName As ojbect
strName = FileName

oDocument = oWordApplic.Documents.Add(strName, missing, missing, isVisible)
oDocument.Activate()
End Sub

[tgc99]

TO dlzhangln(才高七八斗，学富五六车，改行三四次，月入一两千!) ::

你好,改成Dim strName As ojbect 之后还是报同样的错..

[tgc99]

就是WORD组件权限的问题.

[yagangshi]

沙发

[jxzhang615]

帮顶