affichage de variables

Bonjour,

J'ai un tableau de 3 objets de type partdocument. Pour des besoins de
recherche, il me faut comparer ces 3 objets, Malheureusement le nombre
d'objets interne est tellement grand que je ne peux pas les afficher à
l'écran pour les comparer. Et je n'ai trouvé aucun moyen de les imprimer
dans leur totalité.

Est-ce qu'il y a un moyen d'imprimer chacun des objets avec toutes les
propriétés, merci

Slts

Dom

 

The same in google traduction ...

I have a table of 3 objects of the type partdocument. For needs for
Researc, it is necessary me to compare these 3 objects. Unfortunately the
internal number of objects is so large that I cannot post them with the
screen to compare them. And I was not able any to print them in their
totality. Is it possible to print each object with all the properties,
thank you


The code :

Public Sub memorisepiecenoncoupee()
Dim oRefDoc As Document
Dim oMonDoc(2) As PartDocument
Dim count As Integer

Set oAssy = ThisApplication.ActiveDocument
For Each oRefDoc In oAssy.ReferencedFiles

Select Case oRefDoc.DocumentType
Case kPartDocumentObject
If (oRefDoc.DisplayName = "piece.ipt") Or (oRefDoc.DisplayName =
"piece2.ipt") Or (oRefDoc.DisplayName = "piece3.ipt") then
Set oMonDoc(count) = oRefDoc
count = count + 1
End If
End Select
Next
End Sub

regards

Dom