Article ID: 259940 - Last Review: January 27, 2007 - Revision: 1.2

BUG: Word 2000 Does Not Quit After Keybindings.ClearAll is Called

View products that this article applies to.

System TipThis article applies to a different operating system than the one you are using. Article content that may not be relevant to you is disabled.

This article was previously published under Q259940

SYMPTOMS

Microsoft Word does not quit after you call the ClearAll method of the Keybindings collection object.

Back to the top

CAUSE

This problem occurs when you call the ClearAll method and there are no documents open in Word.

Back to the top

To work around this problem, make certain that there is at least one document open in Word before you call the ClearAll method. If necessary, you can close the open document after ClearAll runs. This workaround is illustrated in the "More Information" section of this article.

Back to the top

STATUS

Microsoft has confirmed that this is a bug in the Microsoft products that are listed at the beginning of this article. This problem was corrected in Microsoft Word 2002.

Back to the top

MORE INFORMATION

Steps to Reproduce Behavior

Start a new Standard EXE project in Visual Basic.
Add a button to the default form, Form1.

Add the following code to the Click event of the button:

Private Sub Command1_Click()

    'Start Microsoft Word and make it visible
    Dim oWord As Object
    Set oWord = CreateObject("Word.application")
    oWord.Visible = True

    'Clear all key bindings
    oWord.Keybindings.ClearAll

    'Quit Word
    oWord.Quit False
    Set oWord = Nothing

End Sub

Press the F5 key to run the program and click the button on Form1.

Results: Word is started and made visible but it does not quit as expected. Instead, Word appears to hang and does not accept any user input. You must use the Windows Task Manager to shut down Word.

Back to the top

Workaround

To workaround this problem, leave at least one document open prior to quitting Word. To implement this workaround in the previous sample, replace the code in Command1_Click with the following:

    'Start Microsoft Word and make it visible
    Dim oWord As Object
    Set oWord = CreateObject("Word.application")
    oWord.Visible = True

    'Clear all key bindings. Before calling Keybindings.ClearAll, create
    'a new document and then close it after Keybindings.ClearAll is called
    Dim oDoc As Object
    Set oDoc = oWord.Documents.Add
    oWord.Keybindings.ClearAll
    oDoc.Close False

    'Quit Word
    oWord.Quit False
    Set oWord = Nothing

Back to the top