Discussion :

[Hamza]

Bonsoir

Voila j'ai créer un document Word et je l'utilise comme Model mais le probleme qui ce pose est que je n'ai pas trouvé le moyen de le remplir meme la methode qui se trouve dans la FAQ ne fonctionne pas, enfin je pense que c'est une histoire de declaration si c'est le cas j'aimerais bien que quelqu'un me dit comment je doit faire

Merci

[Bleys]

Salut,
Personnellement je ne sais pas comment faire, mais je pense que tu auras une réponse plus rapidement si tu ajoutes à ton sujet le code que tu as fait toi.
D'abord pour avoir une base pour te proposer une solution, ensuite pour le corriger et enfin pour que tu puisses mieux comprendre ce que tu as pas fait correctement.

Enfin ce n'est qu'une supposition


Bonne chance

[Hamza]

bon voila le code suivant permet de créer un nouveau document word et dessiner un tableau puis je le rempli (a ce niveau la sa ne pose aucun probleme)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var DocWord:_document;
    Tableau:Table;
    i:Integer;
begin
    WordApplication1.Connect;
    WordApplication1.Visible:=True;
    DocWord:=WordApplication1.Documents.Add(EmptyParam,EmptyParam);
    Tableau:=DocWord.Tables.Add(WordApplication1.Selection.Range,5,2);
    Tableau.Cell(1,1).Range.Text := 'Code Banque';
    Tableau.cell(1,2).range.text:= 'Nom Banque';
  For i:= 2 To Tableau.Rows.Count Do
    Tableau.Cell(i, 2).Range.Text := 'j'ai un probleme';

moi ce que je veux faire est d'ouvrir un doc word puis remplir le tableau qui se trouve deja (remplir par programmation)

le code suivant permet d'ouvrir un doc word

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var DocWord:_document; 
   Template,
   AsModel: OleVariant;
begin
    Open.execute;{composant TOpendialog}
    WordApplication1.Connect;
    WordApplication1.Visible:=True;
    Template:=open.filename;
    AsModel:=False;
    DocWord:=WordApplication1.Documents.Add(Template,AsModel);
 
end;

maintenant pour remplir un tableau que j'ai créer par programmation le code est

Code :

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

Tableau.Cell(1,1).Range.Text := 'Code Banque';

mais pour remplir un tableau qui existe deja dans le document Word ce code ne fontionne pas

je doit trouvé une solution parce que j'ai vraiment besoin


Merci

[edam]

peut etre je vais dire une betise;; mais la collection DocWord.Tables ne vous informe pas (nbr de tableau, leur nom,...)

[Laurent Dardenne]

Salut,

tableau and Word rubrique Delphi.

Utilise un signet pour te placer sur le tableau ou encore si ton tableau est tjr au même endroit utilise la liste de tableaux (Tables).

[denokan]

as-tu vraiment besoin d'utiliser un fichier Word ? ne serait-il pas plus simple d'utiliser un fichier texte, voire un File of Record ?
sinon un fichier Excel serai peut-être plus facile à utiliser qu'un tableau dans un document Word, non ?

[edam]

c'est l'utilisateur qui a le choix pas le developpeur!!!!