Article ID: 161805
Article Last Modified on 1/19/2007
WordApp.Assistant.Help
WordApp.Help helptype:=wdHelp
Sub Test()
Dim WordApp As Object
'Begin using OLE Automation to communicate with Microsoft Word 97.
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
AppActivate WordApp.Name
'Display Help in Microsoft Word 97. Using this line of code will
'ultimately cause the problem to occur.
WordApp.Help helptype:=wdHelp
'Quit Microsoft Word 97. The crash actually occurs here.
WordApp.Quit
Set WordApp = Nothing
End Sub
If you replace the following line
WordApp.Help helptype:=wdHelpwith the following line
WordApp.Assistant.Helpthe error does not occur.
Additional query words: 8.00 97 OFF97 XL97 WORD97 ACC97 PPT97
Keywords: kbcode kberrmsg kbprogramming KB161805