Discussion :

[wojc01]

Bonjour à tous...

J'utilise actuellement l'exemple de pilotage OpenOffice de Windev pour créer un questionnaire OpenOffice.
J'aimerais insérer depuis un champs RTF, un texte formater dans OpenOffice Writer, mais je n'arrive à aucun résultat.
Dans mon champ RTF, le texte est bien formater (Texte souligné, retour à la ligne, gras...ect...), mais lorsqu'il est inséré dans le document OpenOffice Writer, le texte n'est plus formaté (Le texte n'est plus souligné ni gras)

Quelqu'un a t-il une solution?
Merci.

[=JBO=]

Bonjour,

J'ai bien compris que tu te bases sur un exemple, mais je n'ai pas le temps de le regarder de près.

Aussi, pour nous aider à t'aider, tu pourrais peut-être nous montrer le code d'insertion du texte RTF dans le document OpenOffice ?

Ce code utilise-t-il le presse-papiers ?
Si c'est le cas, il faut faire attention à utiliser la bonne fonction, je pense à VersPressePapierRTF().
_

[wojc01]

Merci de m'aider =JBO=
Voici le code utilisé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
// Document ouvert ?
SI gpclEditeur:DocumentActif() ALORS
	// Variable
	sTexte est une chaîne = Ouvre(FEN_Insertion)
 
	SI sTexte <> "" ALORS
		gpclEditeur:InsérerTexte(RTFVersTexte(sTexte))
	FIN
SINON
	Erreur("Aucun document n'a été détecté.")
FIN

Merci...

[klbsjpolp]

Bonjour, la fonction RTFVersTexte() retire toutes la mises en forme RTF de ta chaine. Tu dois utiliser une méthode d'insertion qui prend en compte le RTF pour ne pas perdre le formatage.

[wojc01]

Merci klbsjpolp...
Quelle est la méthode d'insertion qui prend en compte le RTF?
Merci...

[=JBO=]

Bonjour,

Que se passe-t-il si tu tentes d'insérer directement le texte RTF ?

Code WLangage :

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

	gpclEditeur:InsérerTexte(sTexte)

... mais il est très probable que tu verras alors directement les directives de formatage du texte RTF.

J'ai regardé l'exemple.
Il n'est pas prévu de gérer l'insertion de texte au format RTF (apparemment).
Donc, je pense qu'il te faudra développer cette fonctionnalité.

Le mieux serait d'aller poster la question sur le forum Open.Office.Org.
A savoir:

« Avec OLE Automation, quel est le code pour insérer un texte RTF dans un document ? »

Une fois que tu auras la réponse, tu pourras adapter (enrichir) l'exemple.
_

[wojc01]

Merci =JBO=...
Effectivement, si je mets :

gpclEditeur:InsérerTexte(sTexte)

alors je vois directement les directives de formatage du texte RTF.
Je vais essayer de poser la question sur le forum OpenOffice.org.
Si quelqu'un a une solution en attendant, n'hésitez pas...

Merci pour votre aide.