Can't use Dialogs.Item(wdDialogFileOpen)

[vbdummy]

I am not able to use Dialogs.Item(wdDialogFileOpen) because of the way I'm using word inside of another application. The code below works outside of the application but not in it:

Sub FileInsert()
 
ChangeFileOpenDirectory _
    "F:\Some\Folder\OnThe\Network"
 
With Dialogs.Item(wdDialogFileOpen)
    .Name = "*.doc"
If .Display = -1 Then
    Selection.InsertFile FileName:=.Name, Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False
 
End If
End With
 
End Sub

I'm looking to see if there is another method to do the same thing but not using the Dialogs command. The InsertFile command still works in the application but you have to choose a file to insert. I want to select the file. Any thoughts or am I SOL.....

Thanks

[kadghar]

I am not able to use Dialogs.Item(wdDialogFileOpen) because of the way I'm using word inside of another application. The code below works outside of the application but not in it:

Sub FileInsert()

ChangeFileOpenDirectory _
"F:\Some\Folder\OnThe\Network"

With Dialogs.Item(wdDialogFileOpen)
.Name = "*.doc"
If .Display = -1 Then
Selection.InsertFile FileName:=.Name, Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False

End If
End With

End Sub

I'm looking to see if there is another method to do the same thing but not using the Dialogs command. The InsertFile command still works in the application but you have to choose a file to insert. I want to select the file. Any thoughts or am I SOL.....

Thanks

you can always "cheat" a little bit:
create an object, open an Word Application in it, and use its dialogs ;)

dim obj1 as object
set obj1 = createobject("word.application")
With obj1.Dialogs.Item(80)  'dont use word constants outside word, check what's its numeric value.
    .Name = "*.doc"
If .Display = -1 Then
   Selection.InsertFile FileName:=.Name, Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False
End If
End With

that should help the Dialogs thing... now, i dont know what's that "selection.insertfile" for, that might cause you further problems. Give it a check.

HTH

[vbdummy]

Hi HTH,

Thank you for your help. That worked. The insert file command is so we can put the body of a document into another document, its used for transcription in this case.

I made a few changes to perfect it. Below is the code that I'm using:

Sub InsertFile()

ChangeFileOpenDirectory _
"F:\Some\Folder\On The\Network"

Dim obj1 As Object
Set obj1 = CreateObject("word.application")
obj1.ChangeFileOpenDirectory _
"F:\Some\Folder\On The\Network"
With obj1.Dialogs.Item(80) 'dont use word constants outside word, check what's its numeric value.
.Name = "*.doc"
If .Display = -1 Then
Selection.InsertFile FileName:=.Name, Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
End If
End With
obj1.Quit

End Sub

I'm not sure why I had to use the ChangeFileOpenDirectory twice but with only one of them it would open to My Docs every time and then we needed to close the object once done. Again thank you for your help I really appreciate it.