Discussion :

[djoao]

salut à tous.
voila mon probleme.

je "gere" word a partir de delphi mais je n'arrive pas à changer de police.donc j'ai ca pour commencer

OleBasic := CreateOleObject('Word.Basic');

je sais inserer du text , le mettre en gras grace à "OleBasic.Bold" mais je n'arrive pas a trouver la commande qui gere la taille de la police.

j'ai chercher sur le net mais toutes les commandes que je trouve ne marche pas chez moi.

j'aiessayer ca : olebasic.size
oleBasic.font.size......

quelqu'un pourrait me donner la commande?
merci

[Laurent Dardenne]

http://delphi.developpez.com/faq/?pa...dtexteattibuts

[djoao]

j'ai deja testé cette commande mais elle ne marche pas chez moi

[Laurent Dardenne]

Communique nous le code que tu utilises.
Quelle version d'Office et de Delphi ?

[djoao]

j'utilise la version 6 pro de DELPHI et office 2000
voila 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
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
procedure TfrmBibliothecaire.Button1Click(Sender: TObject);
var
  OleApplication :variant;
  OleBasic       :variant;
 
Begin
Try
  OleApplication:= GetActiveOleObject('Word.Application');
            // Pour se connecter si Word est déjà actif
Except
  OleApplication:= CreateOleObject('Word.Application');
End;
OleBasic       := CreateOleObject('Word.Basic');// création du lien OLE pour la classe "word.basic"
OleApplication.application.visible:=True; // pour rendre word visible
 
OleApplication.Documents.add; // pour créer un  nouveau document
 
// c'est ici que j'aimerais changer la police
 
OleBasic.Bold;
OleBasic.Insert('RAPPEL'#13);
OleBasic.Bold;
OleBasic.insert('coucou');
 
 
 
OleApplication := Unassigned;       // Pour libérer le variant
OleBasic  := Unassigned;
 
end;

[Laurent Dardenne]

Essaie avec

Code :

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

OleBasic.Selection.Font.Name := FontName;

Où FontName, de type String, contient le nom de la police.

Un exemple a vérifier :

Comment gérer les fontes ?

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
 
var
 WordFont: _Font;
 I : OLEVariant;
 
Begin
 I:=1;
 WordFont:=WordApplication1.Documents.Item(I).Sentences.Get_Last.Font;
 WordFont.Underline := 2;
 WordFont.Bold := 1;
 WordFont.Italic := 1;
 WordFont.Emboss := 1;
 WordFont.Engrave := 1;
 WordFont.shadow := 1;
 WordFont.DoubleStrikeThrough := 1;
 WordFont.StrikeThrough := 1;
 WordFont.Size := 14;
End;

[djoao]

salut à tous
tout d'abord merci pour votre aide..

voila pour la ligne elle ne marche pas.
et pour l'autre morceau je sais pas comment l'utiliser

ya oleWord.font('Arial'); qui marche mais ca change le font alors que moi je veux changer la taille de la police.

j'ai mis ici un petit programme en delphi que j'ai trouver sur le net,
auquel j'ai rajouter un bouton "Taille 24" c'est là que je veux changer la taille de la police, ca serra plus facile pour vous de tester.

voila lien:
http://<br /> http://www.geocities....word.zip<br />

[djoao]

de nouveau moi.

un copain a trouver donc c'est bon, il fallait utiliser oleapplication.
ca donne.
Oleapplication.Selection.Font.Size := 24;

merci a vous tous pour votre aide