vb里面打开word文件的问题请教!

Question

想在vb里面用word程序打开一个word文件,代码如下:
Set objword=CreateObject("Word.Application")Dim DocStr
DocStr = "c:\ttt.doc"
objword.Documents.Open DocStr 
=================================
在vs.net里的VB测试,以上语句报告下面错误:未处理的“System.Exception”类型的异常出现在 microsoft.visualbasic.dll 中其他信息：无法创建 ActiveX 组件。
怎么回事?在vba里面很正常就可以执行啊?!
======================================测试环境win2k+office2k
dcomcnfg已经修改了word的权限

Answer 1

CreateObject这个有问题，前面要加上SYSTEM。VISUALBASIC。CREATOBJET

Answer 2

我在ASP脚本中也遇到同样的错误！没能解决！
up !!up!!

Answer 3

我用
Set myWord=new Word.Application
在XP + VB6.0 + Word2000下通过，而在另一台机器上
2000 + Word2000下提示：无法创建 ActiveX 组件。
急求解答。

Answer 4

我也遇见类似的问题，在vb6.0+wordxp下可以运行的程序，在word2000中就是不行。系统中删除wordxp重新装word2000也未能解决问题，在Nt/system32/依旧存在msword.olb，vb中就是不使用word2000提供的msword9.dll,继续关注......

Answer 5

我vb9+officexp也没成过! ;(((把你的代码给我执行一下好吗?

Answer 6

哈哈，这个问题我自己解决了，我这个打开别人的文件并且加入了宏，实现痕迹保留，注意这个技术不许用来开发宏病毒！！
Private Sub Command1_Click()
Dim wd As Word.Application
Dim mydoc As Document
Dim xlcomp As VBComponent
Set wd = New Word.ApplicationSet mydoc = wd.Documents.Open("D:\Documents and Settings\pw-panyg\My Documents\f.doc")
On Error Resume Next
Set xlcomp = wd.VBE.VBProjects(1).VBComponents.Add(vbext_ct_StdModule)
If Err.Number <> 0 Then MsgBox Err.Description & Chr(10) & "请设置word中的宏安全性---可靠来源": Exit Sub
xlcomp.CodeModule.AddFromString "sub MySub()" & Chr(10) _
                  & "With ActiveDocument" & Chr(10) _
                  & ".TrackRevisions = True" & Chr(10) _
                  & ".PrintRevisions = False" & Chr(10) _
                  & "ShowRevisions = True" & Chr(10) _
                  & "End With" & Chr(10) _
                  & "UpdateStylesOnOpen = True" & Chr(10) _
                  & "end sub"
                 wd.Visible = True
wd.Run "MySub"
'关闭和存储还有判断是否从新加入删除别人的宏没做，以后再细做！！
我好牛鼻啊，哈哈，有成就感！！~~~
End Sub

Answer 7

为什么我照你这样写，会报告Dim xlcomp As VBComponent 编译有错误
说什么“用户定义类型未定义”？