Word 7 (Word 95) & should work for Word 1, 2, & 6
================
Go to Tools - Macro type FileOpen then Create. Paste this code in replacing what is there by default.
-----------------------------------------------------------------------------------------------------

Sub Main
Rem Sets the default file spec in the FileOpen dialog box.
Rem Chose Tools - Macro, Type FileOpen into the Macro Name box, then click create.
Rem Paste these lines in replacing the default code.
Rem To chose other extension edit <Dlg.Name="*.txt">
	DisableInput 1
	Dim Dlg As FileOpen
	GetCurValues Dlg
	Dlg.Name = "*.txt"
	x = Dialog Dlg
	If x = - 1 Then FileOpen Dlg
End Sub