Input box to find file in WORD

[vane0326]

I have this code But for some reason it does not work. It pops up a inputbox and I type the file name in the box and hit enter it suppose to find the file in word but does nothing,

Any Ideas?

Sub FindFile()

Dim GetFile()
Dim Filename As String
On Error Resume Next
Filename = InputBox("What File do you wish to open?")
Workbooks.Open ("C:\" & Filename & ".DOC")


End Sub

 

[vane0326]

Hi Tom,

Just to let you know this code for Microsoft Publisher works now. But I can't figuer it out how to keep the code in the Visual Basic. I tried to do as a Add-in but it wont take it. It works only if I manually import the module in but thats not efficient, it would be nice to just open Microsoft Publisher and the code is there. If you have any ideas please let know.

Thanks!

Sub Find_File()
Dim myFile$
myFile = InputBox _
("Enter the Publisher document file name:", _
"What File do you wish to open?", _
"YourFileName")
If myFile = "" Then Exit Sub
 
Dim myPath$, myDoc$
myPath = "C:\"
myDoc = myPath & myFile & ".Pub"
 
If Dir(myDoc) = "" Then
    MsgBox "The file ''" & myPub & "'' was not found.", 48, "No such animal."
    Exit Sub
End If
 
Application.Open myDoc
 
End Sub