Discussion :

[dederfred]

Bonjour,
Je dois mettre en forme un document j'atteins certain point de mon document grâce au signet jusque la tout va bien mais après quand je veux par exemple mettre après un signet des phrases avec mise en forme du genre :
Bonjour, [saut de ligne]
Monsieur, madame jean [saut de ligne]
[Texte centré en gras] votre contrat vient de se finir attention !!!! [Saut de ligne]

Le code pour l'accès au signet est cela mais je ne peux rentrer plus que une phrase ....

Code :

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

1
2
3
4
5
6
7
8
 
 if mesSignets.Exists('immeubleDepartement') then 
      begin 
          monSignet := mesSignets.Item('immeubleDepartement');
          monSignet.Select;
          placeSignet := monSignet.Range ;
          placeSignet.InsertAfter(Departement_Immeuble_var); 
      end;

Si vous connaissait une solution, je pence que pour certain d’entre vous c’est un jeu d’enfant mais vue que je ne sais pas du tout comment faire …..
Dans tout les cas merci d’avance .

[defluc]

J'essaierais
placeSignet.InsertAfter(Departement_Immeuble_var+#13); pour les sauts de ligne.

Pour le gras, je sélectionne le texte puis
Selection.Font.Bold := 9999998;

[dederfred]

Donc il faut obligatoirement utiliser .InsertAfter(Departement_Immeuble_var+#13);
??
il existe pas une commande juste pour ce positioner a cet endroit ?

[dederfred]

Mon problème vient du faite que j'ai des données dynamique a rentrer et que une boucle est immettable entre les parenthèse du InsertAfter(Departement_Immeuble_var);

[defluc]

C'est pas clair, ton problème.

Si je comprends bien, tu te positionnes où tu le souhaites grâce à ton onglet.
Après cela, tu peux ajouter toutes les phrases que tu veux séparées par des sauts de lignes, même en utilisant une boucle.

Sois plus précis, quitte à donner un exemple, pour que je puisse t'aider plus efficacement.

Delphinement

[dederfred]

j'ai trouvé une solution a mon probleme (un debut)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 if mesSignets.Exists('immeubleDepartement') then 
      begin 
          monSignet := mesSignets.Item('immeubleDepartement');
          monSignet.Select;
          placeSignet := monSignet.Range ;
          for i:=0 to enfant.count do 
            begin
                placeSignet.InsertAfter(enfant+#13);
                 placeSignet.InsertAfter(age[i]+#13);
                 placeSignet.InsertAfter(ecole[i]+#13);
                 placeSignet.InsertAfter(date[i]+#13);
            end;
      end;

le signet change de place quand on ajoute du texte //j'ai eu de la chance.