Comment modifier la taille de la police dans Word ?

Version imprimable

10/12/2004, 11h37
djoao

Comment modifier la taille de la police dans Word ?

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
10/12/2004, 12h22
Laurent Dardenne

:faq:
http://delphi.developpez.com/faq/?pa...dtexteattibuts
10/12/2004, 13h57
djoao

j'ai deja testé cette commande mais elle ne marche pas chez moi :cry:
10/12/2004, 14h41
Laurent Dardenne

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

j'utilise la version 6 pro de DELPHI et office 2000
voila mon code

Code:

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;

Essaie avec

Code:

OleBasic.Selection.Font.Name := FontName;

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

Un exemple a vérifier :
Citation:
Comment gérer les fontes ?
Code:

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;

11/12/2004, 12h29
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 />
11/12/2004, 12h49
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