Delete Translation report

[CadUser46]

We have loads of imported files that have the translation report in the model browser under the 3rd Party browser node.  I'd like to delete it while doing some other housekeeping tasks but so far i cant figure out how this is done.  Trying to delete the browser nodes results in an error.  Any clues?

Cheers

Craig

[Vladimir.Ananyev · Accepted solution]

References to the embedded translation reports are stored in the ReferencedOLEFileDescriptors collection and could be deleted using ReferencedOLEFileDescriptor.Delete method:

Sub Test()
    Dim oDoc As PartDocument
    Set oDoc = ThisApplication.ActiveDocument
 
    Dim oDescr As ReferencedOLEFileDescriptor
    Set oDescr = oDoc.ReferencedOLEFileDescriptors.Item(1)
    
    Debug.Print "Display name: " & oDescr.DisplayName
    oDescr.Delete
End Sub

So it could be easily included into your workflow.

Best regards,

[CadUser46]

Vladimir thank you.  Works perfect.

[J.Classens]

Hey, 

This iLogc rule is exactly what i need. 

I get the following error 

Errror on line 3: Set instructions arren't longer supported 

Errror on line 6: Set instructions arren't longer supported 

Errror on line 8: Method argument must be in parentheses

I couldn't discover why the  set instruction isn't longer supported.

Anybody suggestions?