AW: Rückmeldung wäre nett gewesen ,,,
03.12.2006 21:33:06
Sebastian Brandt
Sorry, aber ich bin bisher nicht zum Antworten gekommen. Vielen Dank für den Link. Habe dort die »DSOFile.dll« (.exe-Version) runtergeladen und folgende Funktion zusammengestrickt (welche ggf. die Registrierung noch mit erledigt):
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
Läuft bestens. Genaue Details sind ausführlich im Link (s.o.) zu finden. Danke an alle Beteiligten. Bin immer wieder begeister, wie schnell und qualifiziert sich dieses Forum präsentiert...