Inserting a File into a Word Document with a Dialog Box 2

[pfrancis]

Ok. I know I can use selection.insertfile with the file path to insert a file, but the file that needs to be inserted has a different name each time. Is there a way to open the dialog box to select the file. The box would be the same as if the user had selected the "Insert" menu and then clicked "File..." Thank you for your help.

 

[PHV]

Take a look at Application.Dialogs(wdDialogInsertFile)

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[pfrancis]

Thank you, this does help. Another question though. If I want to specify a directory to start in and a file type, how do I do that? Thanks again for your help.

 

[JVerdaasdonk]

Hi Francis,

This will do what you want:

Sub INSERTFILE()
sDir = "C:\Documents and Settings\Joost\Bureaublad\Kopie II\*.Doc"

    With Application.Dialogs(wdDialogInsertFile)
        .Name = sDir
        .Show
    End With
End Sub

Enjoy
Joost Verdaasdonk

 

[pfrancis]

JVerdaasdonk, Thank you for your help. I tried using what you posted, but I am still not getting what I want. I'm trying to get .txt files. Using the sDir (with *.txt at the end) as the .Name, sometimes I get the right directory and sometimes I don't, but I always get the .txt files. Do you know why this would happen? or if there is another way to set these properties? Thank you again for your help.

 

[PHV]

Depending of the version of word you may consider this:
Application.ChangeFileOpenDirectory "\path\to\otherdir\"

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[pfrancis]

PHV, Thank you, that worked like a charm.

 

[JVerdaasdonk]

Hi Francis & PHV,

PHV is right this depends on the version. I had no problems with the code above.

But here's another snippet whit a little more effort:

Sub INSERTFILETXT()
Dim strData As String
Application.ChangeFileOpenDirectory "C:\Documents and Settings\Joost\Bureaublad\Kopie II\"

Dim dlg As Dialog
Set dlg = Dialogs(wdDialogInsertFile)
    With dlg
       .Name = "*.txt"
        If dlg.Show = -1 Then
          strData = .Name
           If InStr(strData, "\") = 0 Then
            strData = CurDir() + "\" + strData
           End If
        End If
    End With
End Sub

Lets hope whe'l strike oil this time!

Enjoy,
Joost Verdaasdonk