Runtimeerror 429 ActiveX component cannot create object

[lila1314]

I wrote this to read the fileinformations from a power point
prensentation and put them in a table in a word document.
Anyway, I always get an error on opening the presentation (I marked the
line in the code)

Runtimeerror 429 ActiveX component cannot create object

Would be really pleased if someone could help.
Thx Ivonne

Sub AuslesenPowerPoint()
Application.DisplayAlerts = False
Dim file As String
Dim name As String
Dim thema As String
Dim kommentar As String
Dim appWD As PowerPoint.Application

file = Dir$("O:\Oper\PowerPoint\*.*", vbNormal)

While file <> ""

'On Error Resume Next
Set appWD = GetObject(, "PowerPoint.Application")
If Err.Number <> 0 Then
Err.Clear
Set appWD = CreateObject("PowerPoint.Application")
End If
appWD.Visible = True

'On Error GoTo fehlermeldung

Presentations.Open FileName:=("O:\Oper\PowerPoint\" & file),
ReadOnly:=msoFalse
name =
Presentations(file).BuiltInDocumentProperties("Title").Value
thema =
Presentations(file).BuiltInDocumentProperties("Subject").Value
kommentar =
Presentations(file).BuiltInDocumentProperties("Comments").Value

Documents("Oper1.htm").Tables(1).Select
Selection.InsertRows (1)
Selection.TypeText Text:=(name)
Selection.MoveRight
Selection.TypeText Text:=(kommentar)

file = Dir$()

Wend
Exit Sub
fehlermeldung: MsgBox (Err.Description & Err.Number)
End Sub