Discussion :

[alexmorel]

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 :

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

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

Mais rien ne change...

Merci d'avance.

[pirbd]

Code :

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

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.

[anapurna]

salut

pour la font

Code :

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

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 :

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

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

@+ Phil

[alexmorel]

je cherche a mettre les bordure en gras !! pas le texte...

[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

[alexmorel]

Ta deuxième solution ne fonctione pas [anapurna]

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

[alexmorel]

Ben voilà j'ai trouvé :

Code :

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

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

Merci a tous ::::

[qi130]

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

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
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

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

Par similitude, le code

Code :

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

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 .