Prompt User for Text File

[Ken Hudson]

In Excel I can use the following code to prompt a user to open a text file.
With this code only text files are displayed in the file open window.

FileOpenName = Application.GetOpenFilename("Text Files (*.txt),*.txt", 1,
"Find Text File", , False)

Is there a way to get the same result in a Word macro?

TIA.

 

[Bear]

Ken:

You'll need to use Word's built-in dialog. I can't seem to make the .Format
property work as I'd expect, but the following does what you want.

With Application.Dialogs(wdDialogFileOpen)
.Name = "*.TXT"
' .Format = wdOpenFormatText
.Show
End With

Bear

 

[Ken Hudson]

Thanks Bear.
And is there a way to include a message prompt when that dialog box opens?
E.g. "Find text file showing your sales."

 

[Bear]

Ken:

I don't know of any simple way to alter the title of a built-in dialog box.

You can easily display a message before the dialog box opens.

MsgBox "Browse to the text file that shows your sales.", vbInformation,
"Ken's Tools"

Displays a box with just an Ok button.

Bear

 

[Perry]

Dim d As FileDialog
Set d = Application.FileDialog(msoFileDialogOpen)
d.Title = "search textfiles"

d.Filters.Add "My Textfiles (*.txt)", "*.txt"

d.FilterIndex = d.Filters.Count
If d.Show Then
sFileName = d.SelectedItems(0)
End If


--
Krgrds,
Perry

System:
Vista/Office Ultimate
VS2005/VSTO2005 SE

 

[Russ]

What version of VBA does this code work with? Does a reference to a library
or .dll have to be made to get it to work in Word VBA? Or will it only work
in Visual Basic or Visto?

 

[Shauna Kelly]

Hi Russ

For what it's worth, Perry's code runs for me in VBA in Word 2003 if I make
two tiny changes as follows: add the Dim statement to create the variable,
and choose .SelectedItems(1), not (0).

Dim sFileName As String

Dim d As FileDialog
Set d = Application.FileDialog(msoFileDialogOpen)
d.Title = "search textfiles"

d.Filters.Add "My Textfiles (*.txt)", "*.txt"

d.FilterIndex = d.Filters.Count
If d.Show Then
sFileName = d.SelectedItems(1)
End If

Hope this helps.

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word

 

[Russ]

Shauna,
Thanks for the reply.
It must be the version of VBA.
The macro doesn't seem to work on Word 97 at work or MacWord 2004 at home.
An error message highlights 'd as FileDialog' and says 'User-defined type
not defined'.

 

[Shauna Kelly]

Hi Russ

The FileDialog object wasn't invented till about Word 2002. Before that,
there was no equivalent. Look at the VBA section at http://www.word.mvps.org
for alternatives that will work in Word 97.

Hope this helps.

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word

 

[Russ]

Thanks Shauna,
I have been using the alternatives in Word97 and the workaround to be able
to pick multiple items through code. I was hoping that a simple reference in
Word97 would allow me to use the newer FileDialog object that allows titles,
selecteditems, filters, etc.