---

Hi Ho...

Kann mir jemand sagen wie ich abfragen kann ob ein Bauteil eine Abgeleitete Komponennte ist oder nicht ????

Vielen Dank ung Grüsse... ;-))

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

versuch mal:

odoc.ReferencedFileDescriptors.Count

Wenn der Wert > 0 ist und dein odoc ein ipt ist, hast du eine abgeleitete Komponente.

Gruß
Reinhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Reinhard..

Erst einmal vielen Dank für die schnelle Antwort..

Code:

---

odoc.ReferencedFileDescriptors.Count

---

klappt solange die Abgeleitete Kommponennte nicht abgeklemmt ist...
Aber auch dann möchte ich wissen ob es eine AK ist..

Geht das ??? 

LG
Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

probier mal:

Code:

---

Option Explicit

Public Sub test()

Dim ThePane As BrowserPane
Dim odoc As Document
Set odoc = ThisApplication.ActiveDocument

Set ThePane = odoc.BrowserPanes("PmDefault")

Dim temp As String
Dim oTopNode As BrowserNode

Set oTopNode = ThePane.TopNode
Dim i As Integer
i = 1
Dim Node As BrowserNode 'need to loop thru nodes to match label
For Each Node In oTopNode.BrowserNodes

    temp = Node.BrowserNodeDefinition.Label
    If Right(temp, 3) = "iam" Or Right(temp, 3) = "ipt" Then
        MsgBox "DerivedComp"
    End If

Next

End Sub

---

Gruß
Reinhard

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Reinhard....

Es klappt.. ;-)

Vielen Dank und Lieben Gruss aus dem Norden..

Andreas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP