Sub open_file()

Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)

With fd
.Filters.Clear ' Clear all the filters (if applied before).
.Title = "Select a Word File"
.Filters.Add "Word Files", "*.doc?", 1
.AllowMultiSelect = False
If .Show = True Then
End If
End With

End Sub


Sub open_folder()


Dim fldr As FileDialog
Dim mPath As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Vyber zlozku s PDF"
.AllowMultiSelect = False
.InitialFileName = "C:"
If .Show <> -1 Then GoTo nextCode
mPath = .SelectedItems(1) & ""
End With


End Sub