Funktioniert: Dim Part1 As Part Set Part1 = Document1.Part If Part1.IsActive then Call RunPart(Part1, FileOutTxt) End If Funktioniert nicht: (Object doesn't support this property or method) Dim Product1 As Product Set Product1 = Document1.Product IF Product1.IsActive then Call RunTree(Product1, FileOutTxt) End If