'ОТКРЫТЬ ПРОИЗВОЛЬНЫЙ ФАЙЛ MS OFFICE
Public FullFileName As String
Sub Open_file_MSO()

'Dan-K 
Dim wb As Object
Dim objExcel As Excel.Application
Dim objWord
Dim objPP As Object
'On Error Resume Next

CALL_FileDialog_1


If Right(FullFileName, 3) = "xls" _
Or Right(FullFileName, 3) = "lsm" _
Or Right(FullFileName, 3) = "lsb" _
Or Right(FullFileName, 3) = "lsx" _
Or Right(FullFileName, 3) = "ods" _
Then
'On Error GoTo 1
Set objExcel = CreateObject("Excel.Application")
Set wb = objExcel.Workbooks.Open(FullFileName)
objExcel.Visible = True
Exit Sub
1
objExcel.Quit
Exit Sub
End If

If Right(FullFileName, 3) = "doc" _
Or Right(FullFileName, 3) = "ocx" _
Or Right(FullFileName, 3) = "rtf" _
Or Right(FullFileName, 3) = "ocm" _
Or Right(FullFileName, 3) = "odt" _
Then
On Error GoTo 2
Set objWord = CreateObject("Word.Application")
Set wb = objWord.Documents.Open(FullFileName)
objWord.Visible = True
Exit Sub
2
objWord.Quit
Exit Sub
End If

If Right(FullFileName, 3) = "psx" _
Or Right(FullFileName, 3) = "psm" _
Or Right(FullFileName, 3) = "pps" _
Or Right(FullFileName, 3) = "ppt" _
Or Right(FullFileName, 3) = "ptm" _
Or Right(FullFileName, 3) = "ptx" _
Or Right(FullFileName, 3) = "odp" _
Then
On Error GoTo 3
Set objPP = CreateObject("Powerpoint.Application")
objPP.Visible = True
objPP.Presentations.Open FullFileName
Exit Sub
3
objPP.Quit
Exit Sub
End If


End Sub

Sub CALL_FileDialog_1()
On Error GoTo 1
FullFileName = ""
FullFileName = Application.GetOpenFilename([F_BUTTON_19], , [F_BUTTON_20], , False)
[AAAAA] = FullFileName
If FullFileName = "" Then Exit Sub
Exit Sub
1
FullFileName = ""

End Sub