Discussion :

[dacid]

Bonjour à tous,

J'aimerais lister le contenu de plusieurs documents word.
Les concaténer dans un seul composant en quelque sortes.

Je pensait m'orienter vers le composant TOleContainer afin de garder la mise en forme, mais je ne suis pas sur qu'il puisse faire ça.

Genre, suite à un CreateLinkToFile, faire un AddLinkToFile.. Mais malheureusement, cette propriété n'existe pas.

Avez vous une idée ?

Merci d'avance.

[Laurent Dardenne]

Salut,

J'aimerais lister le contenu de plusieurs documents word.

et de créer une fichier word temporaire concaténant ces documents ?
En même temps on ne sait pas où tu souhaites les lister ? dans Word ou dans une appli externe ?

[dacid]

Bonjour Laurent,

Oups, j'ai un peu trop synthétisé...

En fait, je veux les afficher dans mon appli, à la manière d'un composant texte en gardant la mise en forme (la façon oleContainer me va très bien).

De plus, j'ai 2 cas de figure différents:

1 - Mon appli et ces fichiers Word seront sur un CD, il m'est donc impossible d'écrire dedans (s'il faut absolument écrire un nouveau fichier, je peux éventuellement utiliser le C:\temp de l'utilisateur).

2 - Il y aura une installation, on peut donc faire ce qu'on veux à condition de ne pas écraser les fichiers Word.

J'ai trouvé une manière qui consiste à en ouvrir un dans le oleContainer et d'y concaténer les autres en VBA Delphi, mais ce n'est pas très rapide.

Si vous avez mieux, je suis prenneur.

Merci

[Laurent Dardenne]

Salut,

Si vous avez mieux, je suis prenneur.

Non je ne vois pas.
Pour accéler le traitement peut être utiliser du rtf ?

[dacid]

En fait, je ne connais pas vraiment le RTF...

Comment tu ferais ça ?

[Laurent Dardenne]

Salut,

Comment tu ferais ça ?

après essai ce n'est pas une bonne idée.

Regarde du coté de Merge

Application de la méthode Merge à l'objet Subdocuments.
Dans un document maître, fusionne les sous-documents spécifiés dans un même sous-document.
expression.Merge(FirstSubdocument, LastSubdocument)

Issu de la doc de Word 2003.

[dacid]

J'ai plutot utilisé InsertFile().

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

monRange.InsertFile(FileName:=strTemp,Range:='',ConfirmConversions:=False,Link:=False, Attachment:=False);

En fait, je connaissait merge, mais plutot pour fusionner des cellules de tableau... Je ne sais pas s'il y a une différence (performance, facilité d'utilisation, ..).

Par contre, un truc...
Mon oleContainer n'affiche que la première page.
En plus, j'ai mis un scrollBox pour gérer le défilement, mais c'est très mal géré (j'ai du mettre un range fixe).
J'ai vu que le sujet a déjà été soulevé (dans les archives) mais aucune réponse y a été vraiment apportée.