If Me.ComboBox4.ListIndex > -1 And Me.ComboBox5.ListIndex > -1 And Me.ComboBox6.ListIndex > -1 Then
Dim strFilePDF As String
Dim strFileDOCX As String
strFilePDF = "C:\...\" & Me.ComboBox4 & "\" & Me.ComboBox5 & "\" & Me.ComboBox6 & ".pdf"
strFileDOCX = "C:\...\" & Me.ComboBox4 & "\" & Me.ComboBox5 & "\" & Me.ComboBox6 & ".docx"
If FileExists(strFilePDF) Then
With CreateObject("Shell.Application")
Call .Open(strFilePDF)
End With
Else
Call MsgBox("Die PDF-Datei '" & strFilePDF & "' konnte nicht gefunden werden.", vbCritical)
End If
If FileExists(strFileDOCX) Then
Call CopyTableFromWordDocument(strFileDOCX)
Else
Call MsgBox("Die Word-Datei '" & strFileDOCX & "' konnte nicht gefunden werden.", vbCritical)
End If
End If