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

惊叹不已

搞了半天,原来是VBA的窗口打开时,FindWindow函数就能找到,否则就找不到.那就换另一种方法吧 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Sub Command1_Click() Err.Clear On Error Resume Next Dim App As Word.Application Dim doc As Word.Document Set App = GetObject(, "Word.application") If Err.Number = 0 Then MsgBox "Word已经运行" Else Set App = New Word.Application Set doc = App.Documents.Add App.Visible = True Err.Clear End If End Sub FindWindow函数第一个参数是类名,可以用GetClassName函数得到.

[此贴子已经被惊叹不已于2002-4-8 20:31:01编辑过]

惊叹不已

哈哈,lovesun兄,你真是命苦啊,老是遇到些稀奇古怪的问题,我重启后运行了数十次都没有问题,你也试试吧,再不行你只能只叹命苦了. [em06]

惊叹不已

重启机器试一下,我刚才没有引用Word9.0出错后,WinWnd也总是0,重启就行了. 我发现在VB中控制Office组件,如果出错的次数多了,运行结果就经常不正确,即使代码没有问题,一般重启都可以回复正常.

惊叹不已

这段代码运行很正常呀,你在WinWnd = FindWindow("OpusApp", "")后面加一行: Msgbox "WinWnd的值:" & WinWnd 看看WinWnd是不是总为0

惊叹不已

没有不同,我刚在VB中运行没问题,我的是WIN2000 Server,我在Win98运行也没问题,我用的是Word2000.

惊叹不已

不会呀,你试试 Private Sub Command2_Click() WinWnd = FindWindow("OpusApp", "") If WinWnd = 0 Then MsgBox "Word没有运行" End If End Sub 我运行这段程序,有Word窗口就没反应,没有Word窗口就弹出对话框,很正常呀.

惊叹不已

1.将上次的例子改一下. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Sub Command1_Click() Dim App As Word.Application WinWnd = FindWindow("OpusApp", "") If WinWnd = 0 Then 'Word没有运行 Set App = New Word.Application Dim doc As Word.Document Set doc = App.Documents.Add Else 'Word已经被运行 Set App = GetObject(, "Word.Application") '将Word赋给对象变量 End If App.Visible = True With App.Templates("Normal.dot").VBProject.VBComponents("ThisDocument").CodeModule .DeleteLines 1, .CountOfLines '删除全部代码 .CreateEventProc "Open", "Document" .InsertLines 2, "Msgbox""打开文档就会自动运行." Me.Print "代码总行数:" & .CountOfLines Me.Print "第二行的内容为:" & .Lines(2, 1) Me.Print "事件代码所在行:" & .ProcBodyLine("Document_Open", vbext_pk_Proc) Me.Print "事件内代码总行数:" & .ProcCountLines("Document_Open", vbext_pk_Proc) Me.Print "第3行属于事件:" & .ProcOfLine(3, vbext_pk_Proc) Me.Print "事件名称所在行:" & .ProcStartLine("Document_Open", vbext_pk_Proc) Me.Print "通用声明的行数" & .CountOfDeclarationLines Me.Print "是否含有字符'Open':" & .Find("Open", 1, 1, 10, 20) .InsertLines 5, "'I Like MM" .InsertLines 6, "'I also like MM " .ReplaceLine 5, "'We all like MM" End With App.Templates("Normal.dot").Save '保存模板 App.Quit Set App = Nothing End Sub 2.看顶端的贴子

惊叹不已

引用Microsoft Visual Basic For Application Extendsibility 5.3

惊叹不已

我运行是没有问题的,不知你增加了什么代码,再强调一次就是要退出Word再进入. 当然,我给你的例子是示范了如何在VB中编写Word的宏代码而已,只是示范了如何操作的方法,并不代表在使用时要生搬硬套,为了简单及保证能正确运行,我先把所有代码删除再插入代码,在实际使用中不一定要这样做,可以用Find方法查找是否存在某些内容和根据已有代码所在的行和行数来设置插入点和插入的内容.比如可以先Find查找是否存在Document_Open事件,不存在就增加,存在就找到它所在行,修改和插入行.

[此贴子已经被惊叹不已于2002-4-5 18:12:01编辑过]

惊叹不已

1.那就不要保存那行了,关闭Word时,会自动保存Normal.dot的. 2.关闭的语句是放在AutoExec中的,也就是说Word启动时就已经把VBA窗口Show出来,并马上关闭,再也不能打开了.你退出Word再进入吧.