Ok, merci cela fonctionne pour un document qui ne contient que du texte, mes
documents comportent egalement des tableaux, comment puis-je integrer ses
tableaux avec.
Merci d'avance.
-------Message original-------
De : pr...@fr.openoffice.org
Date : 07/19/04 10:34:58
A : pr...@fr.openoffice.org
Sujet : Re: [prog] Copier / Coller un document dans un autre
Bonjour Alexandre,
Alexandre MILLOT a écrit :
Bonjour,
Mon problème est simple, je cherche à faire un copier coller d'un
document swriter à l'interieur d'un autre document.
J'utilise dispatch (copy et paste) mais j'arrive pas à selectionner
l'integralité de mon document à copier.
Merci de me donner un coup de main.
Alexandre
sub SelectionnerTout
Dim oDoc
Dim oText As Object
Dim oCurseur As Object
oDoc=ThisComponent
oText = oDoc.Text
'curseur d'écriture au début
oCurseur= oText.createTextCursor
'curseur d'écriture à la fin, en sélectionnant
oCurseur.gotoEnd(true)
'rendre la sélection visible pour l'utilisateur (inutile)
oDoc.CurrentController.Select(oCurseur)
end sub
Agnès S.