John,
I once found something similiar on the Word MVP site, but don't
remember where:
Sub ScratchMacro()
With Dialogs(wdDialogFileOpen)
If .Display <> 0 Then
MsgBox WordBasic.FilenameInfo(.Name, 1)
Else
MsgBox "No file selected"
End If
End With
End Sub
DevalilaJohn - 14 Apr 2006 20:30 GMT
Thanks Greg, it's just what I needed
> John,
>
[quoted text clipped - 10 lines]
> End With
> End Sub