Microsoft KB Archive/210553

= WD2000: "Save As" Command Cannot Be Executed from Automated Word Instance =

Article ID: 210553

Article Last Modified on 11/23/2006

-

APPLIES TO


 * Microsoft Word 2000 Standard Edition

-



This article was previously published under Q210553



SYMPTOMS
When you automate a new instance of Microsoft Word and you attempt to overwrite an existing file, the Save As command cannot be run, and the file is not overwritten.



WORKAROUND
Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Partner or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Partners, please visit the following Microsoft Web site:

https://partner.microsoft.com/global/30000104

For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site:

http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Sample Macro
The following macro exhibits the behavior described in the "Symptoms" section of this article. Edit the following macro according to the steps listed later in this article. Dim appWord As New Word.Application Dim doc As Document Dim dlg As Dialog

Set doc = appWord.Documents.Add Set dlg = appWord.Dialogs(wdDialogFileSaveAs) appWord.Visible = True appWord.Activate dlg.Show

Editing the Sample Macro
To work around this issue, follow these steps:  Remove the New keyword from the Dim appWord statement.  Add the following statement before the Set Doc statement. Set appWord = Word.Application 

When you edit the sample macro, the result is the following macro: Dim appWord As Word.Application Dim doc As Document Dim dlg As Dialog

Set appWord = Word.Application Set doc = appWord.Documents.Add Set dlg = appWord.Dialogs(wdDialogFileSaveAs) appWord.Visible = True appWord.Activate dlg.Show



STATUS
Microsoft has confirmed that this is a problem in the Microsoft products that are listed at the beginning of this article.

Keywords: kbbug kbnofix KB210553

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.