Microsoft KB Archive/212386

From BetaArchive Wiki

Article ID: 212386

Article Last Modified on 10/11/2006



APPLIES TO

  • Microsoft Word 2000 Standard Edition



This article was previously published under Q212386


SUMMARY

You can change the default folder and file names that appear when you click Open on the File menu.

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers 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 requirements.

Changing the Default Directory

To change the default directory that appears when you click Open on the File menu, use either of the following methods.

Method 1: Manually change the default directory.

  1. On the Tools menu, click Options.
  2. Select the File Locations tab.
  3. Under File types, select Documents, and then click Modify.
  4. Change to the location you want.

Method 2: Use a macro to change the default directory.

NOTE: When you quit Word for Windows after you have modified or added these changes, you may be prompted to save the changes to the Normal template. Choose Yes to save your changes.

Macro to change the default document folder:

Sub SetDefaultFolder()
   ' Set the default directory.
   ' Note: Substitute any existing directory.
   Options.DefaultFilePath(Path:=wdDocumentsPath) = "D:\My Documents"
End Sub
                

Changing the Default FileOpen Extension


Use the following example Visual Basic for Applications macro to set the default FileOpen extension:

NOTE: The name of the macro must be FileOpen.

Sub FileOpen()
   Dim MyDialog As Dialog
   Set MyDialog = Dialogs(wdDialogFileOpen)
   MyDialog.Name = "*.txt"
   MyDialog.Show
End Sub
                

NOTE:Setting MyDialog.Name = "*.*" will display Files of Type: All Files (*.*). When using certain document formats with the Name Property of the dialog object, such as *.rtf, the Files of Type list shows All Word Documents(*.doc; *.dot; *.htm; *.html; *.url; * instead of, in this case, the expected value of Rich Text Format (*.rtf). However, this does not affect the listing in the dialog box of the specified file type. Only those file types specified by the Name Property of the dialog object will appear when the Open dialog box (on the File menu) is displayed.

REFERENCES

For more information about getting help with Visual Basic for Applications, please see the following articles in the Microsoft Knowledge Base:

226118 OFF2000: Programming Resources for Visual Basic for Applications

212536 OFF2000: How to Run Sample Code from Knowledge Base Articles



Additional query words: vb vba vbe grey gray unavailable set filespec filetype format

Keywords: kbdtacode kbhowto kbmacro kbprogramming kbusage KB212386