---

Hallo,

wie lassen sich die Parameter in einer IAM oder in einer IPT am einfachsten bereinigen?
D.h. ich möchte früher definierte, jetzt aber nicht mehr benötigte Parameter schnell und einfach löschen.

Außerdem habe ich eine IDW, in der ein Parameter aus einer IPT abgerufen wird. Wie finde ich die genaue Stelle?
(Wenn ich die IPT umbenenne ist die IDW die einzige Datei, die beim Öffnen über das Fehlen der IPT meckert.)

Gruß
Matthias

P.S. Es handelt sich bei den Dateien um "alte Sünden".

P.P.S. Für eine erfolglose Suche im Forum bzw. unter F1 sind mir die richtigen Suchbegriffe eingefallen. 

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

---

Hallo Matthias,

vor einiger Zeit habe ich da mal etwas programmiert:

Code:

---

Public Sub DelUnusedParams()
'BY Lothar Boekels

If True Then
If Not MsgBox("Löscht nicht benutzte Parameter." & vbCrLf & vbCrLf & _
        "Nur in Parts und Assemblies!" & vbCrLf, vbOKCancel) = vbOK Then
        Exit Sub
End If
End If

    If ThisApplication.ActiveDocumentType <> kAssemblyDocumentObject And _
        ThisApplication.ActiveDocumentType <> kPartDocumentObject Then
        MsgBox "Only in Part or Assymbly document", vbCritical
        Exit Sub
    End If
   
    Dim oParams As Parameters
    Dim i, ii, iAnzGeloescht As Long
   
    Set oParams = ThisApplication.ActiveDocument.ComponentDefinition.Parameters
   
    ii = oParams.Count
    iAnzGeloescht = 0
   
    For i = ii To 1 Step -1
       
        Select Case oParams.Item(i).Type
           
            Case kModelParameterObject
                ' Model-Parameter
               
                If Not oParams.Item(i).ExposedAsProperty Then
                ' nur dann, wenn der Parameter nicht exportiert wird.
               
                    ' Versuch den Parameter zu löschen,
                    ' wenn dieser benutzt wird, geht das nicht !
                    On Error Resume Next
                    oParams.Item(i).Delete
                    If Err = 0 Then
                        iAnzGeloescht = iAnzGeloescht + 1
                    End If
                    Err.Clear
                End If
               
            Case kUserParameterObject
                ' User-Parameter
               
                If Not oParams.Item(i).ExposedAsProperty Then
                ' nur dann, wenn der Parameter nicht exportiert wird.
               
                    ' Versuch den Parameter zu löschen,
                    ' wenn dieser benutzt wird, geht das nicht !
                    On Error Resume Next
                    oParams.Item(i).Delete
                    If Err = 0 Then
                        iAnzGeloescht = iAnzGeloescht + 1
                    End If
                    Err.Clear
                End If
               
            Case kReferenceParameterObject
                ' Reference-Parameter
               
                If Not oParams.Item(i).ExposedAsProperty Then
                ' nur dann, wenn der Parameter nicht exportiert wird.
               
                    ' Versuch den Parameter zu löschen,
                    ' wenn dieser benutzt wird, geht das nicht !
                    On Error Resume Next
                    oParams.Item(i).Delete
                    If Err = 0 Then
                        iAnzGeloescht = iAnzGeloescht + 1
                    End If
                    Err.Clear
                End If
               
            Case kTableParameterObject
                '
                If Not oParams.Item(i).ExposedAsProperty Then
                ' nur dann, wenn der Parameter nicht exportiert wird.
               
                    ' Versuch den Parameter zu löschen,
                    ' wenn dieser benutzt wird, geht das nicht !
                    On Error Resume Next
                    oParams.Item(i).Delete
                    If Err = 0 Then
                        iAnzGeloescht = iAnzGeloescht + 1
                    End If
                    Err.Clear
                End If
               
        End Select
       
    Next
   
MsgBox "Von " & CStr(ii) & " Parametern konnten " & CStr(iAnzGeloescht) & " gelöscht werden."

End Sub

---

HTH

------------------
Gruß Lothar

-----------------------------------------------------
Wir unterstützen die Arbeit der
- Rettungshundestaffel des DRK Viersen

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

---

Hallo Lothar,

funktioniert prima.
Bis jetzt gibts üüüüüüüüüüberhaupt kein Problem. 

Danke.

Gruß
Matthias

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