Mettre une cellule en gras

Version imprimable

15/06/2004, 14h43
alexmorel

Mettre une cellule en gras
Je cherche comment mettre en gras une cellule d'un tableau que j'ai crée sous Word depuis Delphi.

Dans la faq on explique pour tou le tableau mais que je l'applique a une cellule rien ne se passe.
Code:

1 2 Tableaux.Cell(ligne, colonne).range.borders.InsideLineStyle:=wdlineStyleSingle;
Mais rien ne change...

Merci d'avance.
15/06/2004, 17h54
pirbd

Re: Mettre une cellule en gras
Code:

1 2 Tableaux.Cell(ligne, colonne).range.borders.InsideLineStyle:=wdlineStyleSingle;
Es-tu sur que c'est le bon paramètre et la bonne valeur : wdlineStyleSingle ne semble pas correspondre à du gras (bold)..

Enfin je dis ca comme ca, j'ai jamais fait se genre de truc.

salut

pour la font

Code:

1
2
3
MSWord.Selection.Font.Name := 'Times New Roman';
MSWord.Selection.Font.Size := 10 ;
MSWord.Selection.Font.Bold := True ;

pour les bords du tableaux

a priori cela devrais ce faire comme cela

Code:

1
2
3
4
5
6
7
 
   With Selection.Borders(wdBorderTop) do
   begin 
        LineStyle = wdLineStyleSingle;
        LineWidth = wdLineWidth050pt;
        Color = wdColorAutomatic;
    End;

@+ Phil

15/06/2004, 19h44
alexmorel

je cherche a mettre les bordure en gras !! pas le texte...
15/06/2004, 21h49
anapurna

salut

remarque que j'ai donnée deux reponse dans le cas
le plus improbable ou j'aurait pas bien compris la question :)

@+ Phil
17/06/2004, 08h31
alexmorel

Ta deuxième solution ne fonctione pas [anapurna]

Si quelqu'un a une autre idée , Merci d'avance

Ben voilà j'ai trouvé :
Code:

1 2 With Tableaux.Cell(ligne, colonne).Range.Borders.outsideLineStyle:=1;
Merci a tous ::::

A priori, l'enreg d'une macro de modif de la largeur des encadrés rapporte ça:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Macro1()
'
' Macro1 Macro
'
 
    Selection.Tables(1).Select
    With Selection.Tables(1)
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth450pt
            .ColorIndex = wdAuto
        End With
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth450pt
            .ColorIndex = wdAuto
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth450pt
            .ColorIndex = wdAuto
        End With
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth450pt
            .ColorIndex = wdAuto
        End With
        With .Borders(wdBorderHorizontal)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth450pt
            .ColorIndex = wdAuto
        End With
        With .Borders(wdBorderVertical)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth450pt
            .ColorIndex = wdAuto
        End With
        .Borders.Shadow = False
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth450pt
        .DefaultBorderColorIndex = wdAuto
    End With
End Sub

Y a donc plus qu'à adapter :lol:

Note bien qu'il faut a priori procéder pour chaque "trait" (haut, bas, etc...)

Par similitude, le code

Code:

Tableaux.Cell(ligne, colonne).range.borders.InsideLineStyle:=wdlineStyleSingle;

ne fait que formater le style du trait (ligne simple, tiret, pointillé, etc...): ligne simple dans ce cas.
La largeur semble dépendre des paramètres DefaultBorderLineWidth et LineWidth .