Problème de fonction

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
ced57350
NOOuvel adepte
NOOuvel adepte
Messages : 11
Inscription : 29 mai 2006 19:55

Problème de fonction

Message par ced57350 »

J'aimerais réduire ces trois opération en une seule fonction et je ne sais pas comment faire.

Code : Tout sélectionner

SignetAction=Doc.createInstance("com.sun.star.text.Bookmark")
SignetAction.Name="pourAction"
if Doc.bookmarks.hasByName("pourAction") and Doc.bookmarks.hasByName("FinAction") and trouve=true then  
	
                SignetDeb=Doc.bookmarks.getByName("pourAction") 
	SignetFin=Doc.bookmarks.getByName("FinAction") 
	Texte=SignetDeb.Anchor.Text 
	Curseur=Texte.createTextCursor(SignetDeb.Anchor.End)    	'le curseur est placé au signetdebut
   	Curseur.gotoRange(SignetFin.Anchor.Start, true)  'le curseur se deplace jusqu'au signet de fin 
   	Curseur.string="modification 1"	'modifie le contenu texte du curseur	
	Texte.insertTextContent(Curseur.Start,SignetAction,False)
end if

Code : Tout sélectionner

SignetInfo=Doc.createInstance("com.sun.star.text.Bookmark")
	SignetInfo.Name="pourInfo"
	
	if Doc.bookmarks.hasByName("pourInfo")  and Doc.bookmarks.hasByName("FinInfo") and trouve=true then  
   		SignetDeb=Doc.bookmarks.getByName("pourInfo") 
   		SignetFin=Doc.bookmarks.getByName("FinInfo") 
   		Texte=SignetDeb.Anchor.Text 
   		Curseur=Texte.createTextCursor(SignetDeb.Anchor.End)    	'le curseur est placé au signetdebut
   		Curseur.gotoRange(SignetFin.Anchor.Start, true)             'le curseur se deplace jusqu'au signet de fin 
   		Curseur.string="modification 2" 							'modifie le contenu du curseur	
   		Texte.insertTextContent(Curseur.Start,SignetInfo,False)						  
	end if

Code : Tout sélectionner

SignetCopie=Doc.createInstance("com.sun.star.text.Bookmark")
	SignetCopie.Name="copie"
	
	if Doc.bookmarks.hasByName("copie")  and Doc.bookmarks.hasByName("FinCopie") and trouve=true then  
   		SignetDeb=Doc.bookmarks.getByName("copie") 
   		SignetFin=Doc.bookmarks.getByName("FinCopie") 
   		Texte=SignetDeb.Anchor.Text 
   		Curseur=Texte.createTextCursor(SignetDeb.Anchor.End)    	'le curseur est placé au signetdebut
   		Curseur.gotoRange(SignetFin.Anchor.Start, true)             'le curseur se deplace jusqu'au signet de fin 
   		Curseur.string="modification 3" 						  	'modifie le contenu du curseur	
		Texte.insertTextContent(Curseur.Start,SignetCopie,False)
	end if
Merci pour votre aide
Avatar de l’utilisateur
cris59
Membre enthOOusiaste
Membre enthOOusiaste
Messages : 482
Inscription : 20 mars 2006 15:15
Localisation : Paris

Message par cris59 »

Je t'ai expliqué comment il fallait faire dans un précédent sujet

http://user.services.openoffice.org/fr/ ... c1546.html

cris59
WinXP PRO SP2 avec OOo2.2 & Vista avec OOo2.3.1
& Debian avec OOo2.2

http://www.cpserv.net/