Discussion :

[richard038]

Bonjour,

Je travaille sur une appli qui doit doit insérer des données dans un fichier WORD pré-rempli. J'ais trouvé la FAQ et tout commence à fonctionner.

Mon problème c'est pour sélectionner les tableaux sur lesquels je doit ajouter du texte.
Pour ajouter du texte à certains endroits définis j'utilise les signets.
Par contre je n'ais pas trouvé de solution pour identifier clairement un tableau (word utilise une définition incrémentale de ces tableaux).

Merci

[Laurent Dardenne]

Salut,

Par contre je n'ais pas trouvé de solution pour identifier clairement un tableau (word utilise une définition incrémentale de ces tableaux).

Peut-être en utilisant la propriété Range ?

[qi130]

Ce n'est a priori pas faisable.

Confronter à ce problème, j'ai résolu en adressant le tableau par son n° d'ordre dans le document: (là, c'est le 11ème, je le remplis avec le contenu d'un grid)

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
    vTableaux:=vWDocument.Tables;
    vTableau:=vTableaux.item(11);
// Ajout du nb de ligne nécessaire 
//   on ajoute 1 ligne de moins car le tableau contient déjà 1 ligne vide
    For i:=1 to KStringGrid1.RowCount-1 do begin
      //Récupére la derniére ligne
       BeforeRow:=vTableau.Rows.Item(vTableau.Rows.Count);
      // Ajoute avant la derniére
       vTableau.Rows.Add(BeforeRow);
    end;
// Remplissage 
    For i:=0 to KStringGrid1.RowCount-1 do begin
      vTableau.Cell(i+2, 1).Range.Text := KStringGrid1.Cells[0,i]+
                                         ' ('+KStringGrid1.Cells[8,i]+') par '+
                                          KStringGrid1.Cells[9,i];
      For j:=1 to 6 do  // 6 colonnes identiques
         vTableau.Cell(i+2,j+1).Range.Text := KStringGrid1.Cells[1+j,i];
      vTableau.Cell(i+2,8).Range.Text := KStringGrid1.Cells[10,i];      // justif
      vTableau.Cell(i+2,9).Range.Text := KStringGrid1.Cells[11,i];      // volumétrie
    end;

Mon tableau contient 1 ligne d'entête.
Il contient aussi 1 ligne vide afin de pouvoir faire in InsertBefore (pas d'autre possibilité )

Regarde dans la pour le type des variables utilisées

[richard038]

Le numéro d'ordre n'est pas suffisament fiable (du moins dans mon cas, où les usagers peuvent modifier le document, et qu'il peut être nécessaire de faire des mise à jour du fichier word)

[AllanMT]

Essaye d'utiliser les données externes, les tableaux référencant ces données externes (bases de données, fichiers délimités...).

[richard038]

Qu'est-ce que tu entends par données externes, contenu du tableau ?