Discussion :

[damene]

Bonjour!

Je travaille avec Delphi 7 Entreprise.

Je voulais créer un document word en utilisant un modèle prédéfini.
J'ai utilisé le bout de code de la FAQ Delphi : Comment créer un nouveau document à partir d'un modèle.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForme.Button1Click(Sender: TObject);
var DocWord:_document;
   Template,
   AsModel: OleVariant;
begin
    WordApplication1.Connect;
    WordApplication1.Visible:=True;
    Template:='C:\DelphiPrg\Toto\LettreAvecEnteteA5.doc';
    AsModel:=False;
    DocWord:=WordApplication1.Documents.Add(Template,AsModel);
end;

A la compilation je reçois le message suivant :
"Pas assez de paramètres originaux' pour l'instrcution de la ligne 10.

Dans le help je n'arrive pas à trouver la syntaxe de WordApplication1.Documents.Add().

Quelqu'un peut-il m'aider à corriger l'erreur?

Merci!

[damene]

Bonjour!

J'ai contourné le problème en utilisant une méthode piochée dans DelphiMichel

procedure TForme.Button1Click(Sender: TObject);
var OleApplication, OleBasic :variant;
begin
OleApplication := CreateOleObject('Word.Application');// création du lien OLE
OleBasic := CreateOleObject('Word.Basic');// création du lien OLE
OleApplication.application.visible:=True; // pour rendre word visible
OleApplication.documents.open('C:\DelphiPrg\GCabGastro\LettreViergeA4.doc');
end;


Merci