怎样用开发语言在word中建宏？

wgl

我的程序运行到： Set st = App.Templates("Normal.dot").VBProject.VBComponents.Add(vbext_ct_StdModule) 这一句时出错，错误消息为： Run-time error '5941': The requested member of the collection does not exist. 救命阿，大虾

lovesun

还是上回的问题： 我的意思是当用户正在使用word时，也就是有word文档处于打开状态时，如果运行了我的这段程序，当运行到App.Templates("Normal.dot").Save时出现错误提示： word无法保存此文件，因为它已在别处打开(c:\documents and settings\...\Normal.dot),在VB中提示word无法写文件。如果我不用App.Templates("Normal.dot").Save，那么不会出错，但是当关闭原来已经打开的word文档时，它的里面并不存在你刚才程序里面的宏，所以它会覆盖你刚才的修改。执行的程序等于没有执行。 2.按钮的图标换成自己的图标的方法找到了吗？

lovesun

用WinWnd = FindWindow("OpusApp", "")语句怎么判断不出来有word文档打开呢？ 我先打开一个文档，在执行上述程序，它总是返回0.

lovesun

在Word的宏中用可以，我是在VB中用这段程序的，还是不行，有什么不同吗？

lovesun

我的机器配置和你一样，我的程序部分代码如下：运行到WinWnd = FindWindow("OpusApp", "")时返回值总是0.但是我已经有文档打开了。 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Sub Form_Load() Dim App As Word.Application Dim doc As Word.Document Dim wdModule As Object Dim i As Integer Dim existed As Boolean Dim Founded As Boolean Dim WinWnd As Variant WinWnd = FindWindow("OpusApp", "") If WinWnd = 0 Then 'Word没有运行 Set App = New Word.Application Set doc = App.Documents.Add Else 'Word已经被运行 Set App = GetObject(, "Word.Application") '将Word赋给对象变量 End If

[此贴子已经被作者于2002-4-8 14:52:33编辑过]

lovesun

是总是0.

lovesun

我在别人机器运行也总是0

lovesun

可以了。

lovesun

我刚才在同事机器上运行第一次是可以判断word 在运行的，我运行第二次的时候就不行了。

lovesun

我重启了，还是不行，有没有别的办法？