Function bswUserTmplt()
Dim objDSOReader As Object
Dim objDSODocument As Object
Dim objDSOCustProp As Object
On Error GoTo ErrorHandler
TryAgain:
Set objDSOReader = CreateObject("DSOleFile.PropertyReader") 'Hier tritt ein Laufzeitfehler auf
Set objDSODocument = objDSOReader.GetDocumentProperties("C:\DateiName.doc")
bswUserTmplt = objDSODocument.Template
Set objDSODocument = Nothing
Set objDSOReader = Nothing
Exit Function
ErrorHandler:
If Err.Number = 429 Or Err.Number = &H8007007E Then
'Komponente ist nicht oder fehlerhaft registriert
Err.Clear
On Error GoTo -1 'Trick: Error Handling initialisieren
On Error Resume Next
Shell "regsvr32.exe /s " & Chr$(34) & "C:\Windows\DSOFile.dll" & Chr$(34), vbHide
If Err.Number <> 0 Then
MsgBox "Die Registrierung der Komponente DSOFile.dll ist fehlgeschlagen.", vbExclamation
Else
MsgBox "Die Komponente DSOFile.dll wurde erfolgreich registriert.", vbInformation
GoTo TryAgain
End If
End If
End Function
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen