Manipulation de word - copier / coller

Posté par Helenea le 20/3/2008 10:36:13
Bonjour,

Je dois créer un document word dont les paragraphes sont "à la carte", c'est à dire que chaque utilisateur peu choisir d'éditer ou pas certains paragraphes.

Chaque paragraphes correspond à un fichier word. (je n'ai pas souhaiter les sauvegarder une base HF au vu des mise en pages complexes (images avec du texte autour, images se superposants, etc.).

Afin de créer mon document final, j'avais tout d'abord employé la technique suivante :

Création d'un objet cword,
Positionnement sur le signet qui va bien
Insertion des fichiers correspondant aux paragraphes.

Malheureusement lorsque dans mon paragraphe j'ai plusieurs mises en page différentes (notamment format portrait ou paysage) cette dernière n'est pas insérée.

Je voudrais donc changer de tactique et faire un copier / coller de mon texte

J'ai donc deux objets CWord
Un pour le document maître
Un pour le document que je vais copier

J'ouvre mon document maitre
Je me positionne sur le signet qui va bien
J'ouvre mon document source
Je copie l'ensemble du texte avec un ":m_xWord>>Selection>>WholeStory"

et c'est la que je bloque. Je n'arrive pas à coller ce que je viens de sélectionner avec mon second objet dans le document maître ...

Voici mon code :
lpclWordDest = allouer cWord(Faux)
lpclWordDest:Visible(Faux)
lpclWordDest:Ouvrir(ComplèteRep(gsRepUtilitaires) + "MasterTest.doc")

lpclWordSrc = allouer cWord(Faux)
lpclWordSrc:Visible(Faux)

lsFichierSrc = ComplèteRep(gsRepDocumentsFR)+Paragraphe2.ParagrapheID+".doc"
SI fFichierExiste(lsFichierSrc) ALORS
	//ouverture du fichier source
	lpclWordSrc:Ouvrir(lsFichierSrc)

	//on sélectionne tout
	lpclWordSrc:SelectionneTout()
			
	//on le met dans le presse papier
	lpclWordSrc:Copier()
			
	//on le colle dans le fichier de destination
	lpclWordDest:Coller()

	//on ferme le fichier source
	lpclWordSrc:Fermer()
FIN

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=5773&post_id=23490