Discussion :

[JB_PSA]

Bonjour à tous,
Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
//Positionner curseur fin du document
nPositionCurseur est un entier = -1
//Sélection du Texte
MaSélectionTNM est un DocFragment(TT_Theme, nPositionCurseur, 0)
// Mise en forme
MaSélectionTNM..MiseEnForme..CouleurTexte = Noir
MaSélectionTNM..MiseEnForme..PoliceTaille = gnTailleTexte
MaSélectionTNM..MiseEnForme..PoliceGras = Faux
MaSélectionTNM..MiseEnForme..PoliceNom = gsLapoliceEC
MaSélectionTNM..MiseEnPage..Alignement = chJustifié
//Insérer le texte
MaSélectionTNM..Texte += TexteAInserer

Le chjustifié ne fonctionne avec DocFragment
tester aussi avec docParagraphe pas mieux
La doc sur le sujet est très mince

alors qu'une fois le fichier ouvert dans TT en cliquant sur le bouton justifié de la barre d'outils cela fonctionne
le fichier fait 100 pages donc pas question de le faire à la main
Avez-vous une idée, une piste

Merci
JB

[JB_PSA]

Voila ce qu'il faut faire si d'autres ont le problème

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
PROCEDURE PR_TexteNormalNoir(TexteAInserer)
nPostionDebut, nPositionFin sont des entiers
//Positionner curseur fin du document
nPositionCurseur est un entier = -1
//taille du texte
nTaille est un entier=Taille(TexteAInserer)
//Sélection du Texte
MaSélectionTNM est un DocFragment(TT_Theme, nPositionCurseur, nTaille)
// Mise en forme
MaSélectionTNM..MiseEnForme..CouleurTexte = Noir
MaSélectionTNM..MiseEnForme..PoliceTaille = gnTailleTexte
MaSélectionTNM..MiseEnForme..PoliceGras = Faux
MaSélectionTNM..MiseEnForme..PoliceNom = gsLapoliceEC
//Insérer le texte
MaSélectionTNM..Texte += TexteAInserer
nPostionDebut=MaSélectionTNM..PositionDébut
nPositionFin=MaSélectionTNM..PositionFin
//alignement
//Justification
FragmentTexte est un DocFragment(TT_Theme,nPostionDebut,nPositionFin)
POUR TOUT MonElementCourant DE FragmentTexte..Element
	MonParagraphe est un DocParagraphe = MonElementCourant..Paragraphe
MonParagraphe..MiseEnPage..Alignement=chJustifié
FIN