Open all WORD files in a folder

[pete4505]

Is there a way to open all the WORD files in a folder without having to specify each by name?

 

[Bowers74]

This'll do it for you:

Sub OpenMultipleFiles()
Dim Filt As String, Title As String, Msg As String
Dim i As Integer
Dim FileName As Variant
Filt = "Word Dcuments (*.doc),*.doc,"
Title = "Select File(s) to Import"
FileName = Excel.Application.GetOpenFileName(FileFilter:=Filt, _
                            Title:=Title, MultiSelect:=True)
If Not IsArray(FileName) Then
MsgBox "No file was selected."
    Exit Sub
End If
For i = LBound(FileName) To UBound(FileName)
Documents.Open FileName(i)
Next i
End Sub

Don't worry about the Excel.Application part, it works for Word. I actually use this pretty often!

Enjoy!


Peace!

Mike

Never say Never!!!
Nothing is impossible!!!