Discussion :

[akeix]

Bonjour,

Pour mettre des bordure à mon tableau, j'utilse les procédures donnée dans la FAQ C++ Builder : Comment mettre en forme le tableau ?.

Cela fonctionne tres bien sauf pour les colonnes intérieures.
En effet, quand je fixe les bordures des colonnes intérieures, j'ai une exception qui est levée !

Avez-vous déjà eu ce problème ? Avez-vous des solutions ?

Merci d'avance

Cordialement,

[ShaiLeTroll]

Je trouve regrettable que les valeurs d'index de Borders->Items[] soit en dur dans la FAQ alors qu'il y a Borders Interface et WdBorderType Enumeration

Issu de msword9.olb (.\CBuilder6\Include\Vcl\word_2k.h)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
typedef enum WdBorderType
{
  wdBorderTop = 0xFFFFFFFF, 
  wdBorderLeft = 0xFFFFFFFE, 
  wdBorderBottom = 0xFFFFFFFD, 
  wdBorderRight = 0xFFFFFFFC, 
  wdBorderHorizontal = 0xFFFFFFFB, 
  wdBorderVertical = 0xFFFFFFFA, 
  wdBorderDiagonalDown = 0xFFFFFFF9, 
  wdBorderDiagonalUp = 0xFFFFFFF8
} WdBorderType;

A Part cela, cela ne devrait pas, c'est une valeur qui existe !
Les Bordures Intérieures, en lisant la FAQ je n'avais pas compris ce que c'était, en ouvrant Word et le Menu "Bordure et Trame", je vois mieux !

Pour LineStyle, Idem, utilise les constantes de word_2k.h, après tout l'header est fourni, même si tu travailles en LateBiding, rien n'empêche de s'en servir pour la lisibilité du 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
typedef enum WdLineStyle
{
  wdLineStyleNone = 0, 
  wdLineStyleSingle = 1, 
  wdLineStyleDot = 2, 
  wdLineStyleDashSmallGap = 3, 
  wdLineStyleDashLargeGap = 4, 
  wdLineStyleDashDot = 5, 
  wdLineStyleDashDotDot = 6, 
  wdLineStyleDouble = 7, 
  wdLineStyleTriple = 8, 
  wdLineStyleThinThickSmallGap = 9, 
  wdLineStyleThickThinSmallGap = 10, 
  wdLineStyleThinThickThinSmallGap = 11, 
  wdLineStyleThinThickMedGap = 12, 
  wdLineStyleThickThinMedGap = 13, 
  wdLineStyleThinThickThinMedGap = 14, 
  wdLineStyleThinThickLargeGap = 15, 
  wdLineStyleThickThinLargeGap = 16, 
  wdLineStyleThinThickThinLargeGap = 17, 
  wdLineStyleSingleWavy = 18, 
  wdLineStyleDoubleWavy = 19, 
  wdLineStyleDashDotStroked = 20, 
  wdLineStyleEmboss3D = 21, 
  wdLineStyleEngrave3D = 22, 
  wdLineStyleOutset = 23, 
  wdLineStyleInset = 24
} WdLineStyle;

Maintenant, pour la violation d'accès, vérifie que ton tableau (ta sélection) comporte bien plusieurs colonnes, sinon, comme il n'y a pas de colonne, tu n'as pas le droit d'affecter un style
Vérifie si "vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1").OlePropertyGet("Borders").OleFunction("Item", "-6")" est différent de NULL

[akeix]

Mon tableau fait 123 lignes x 4 colonnes.

J'ai essayé le code suivant :

Code :

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

1
2
3
4
5
6
7
8
Variant v1,v2;
 
v1 = vWDocument.OlePropertyGet("Tables");
v2 = v1.OleFunction("Item", "1");
v1 = v2.OlePropertyGet("Range");
v2 = v1.OlePropertyGet("Borders");
v1 = v2.OleFunction("Item", wdBorderVertical);
v1.OlePropertySet("LineStyle", wdLineStyleSingle);

L'exception est levée lors de l'exécution de la ligne :

Code :

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

v1 = v2.OleFunction("Item", wdBorderVertical);

Par contre, je n'ai pas de probleme si je fixe la bordure droite de chaque colonne.

Je continue à chercher.

[ShaiLeTroll]

HasHorizontal et HasVertical devrait te permettre de vérifier l'accès à wdBorderVertical avant de utiliser Item[]

[akeix]

Bon, j'ai trouvé... c'est un mauvais copier-coller de ma part !

Il faut supprimer : OlePropertyGet("Range")

Donc voici la ligne correct (conforme à la FAQ) :

Code :

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

vWDocument.OlePropertyGet("Tables").OleFunction("Item", "1").OlePropertyGet("Borders").OleFunction("Item", wdBorderVertical).OlePropertySet("LineStyle", wdLineStyleSingle);

Merci pour votre aide

Bonne journée