Discussion :

[dederfred]

bonsoir je voulais savoir .

pourquoi quand je copie et colle mot pour mot le faq sur word :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.BtOpenDocClick(Sender: TObject);
var
    DocWord:_Document;
    FileName: OleVariant;
    Visible: OleVariant;
 
begin
    FileName:= 'Document.doc'; // ou .rtf ...
    Visible:=True;  // Le serveur COM est affiché 
    DocWord:= WordApplication1.Documents.Open(FileName,EmptyParam,EmptyParam,
                          EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                          EmptyParam,EmptyParam,EmptyParam,EmptyParam,Visible));
end;

j'ai le droit a cette erreur :

[Error] Interface_Termite.pas(783): Not enough actual parameters

après avoir vue l'erreur des double parenthese j'ai corriger et ca ne vient pas de cela .

Code au final :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.BtOpenDocClick(Sender: TObject);
var
    DocWord:_Document;
    FileName: OleVariant;
    Visible: OleVariant;
 
begin
    FileName:= 'Document.doc'; // ou .rtf ...
    Visible:=True;  // Le serveur COM est affiché 
    DocWord:= WordApplication1.Documents.Open(FileName,EmptyParam,EmptyParam,
                          EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                          EmptyParam,EmptyParam,EmptyParam,EmptyParam,Visible);
end;

[dederfred]

j'ai resolu mon probleme je mettrais dans la matiné

[qi130]

Salut et merci pour ta contribution.

Afin de permettre la rectification rapide de la FAQ, pourrais-tu préciser de quelle question/réponse il s'agit?

Merci d'avance.

[dederfred]

l'erreure se trouve la :
http://www.developpez.com/delphi/faq...#worddocouvrir

Il manque des arguments ce qui crée une erreure et une parenthese est en trop.

Avec bien sur les librairies : ComObj, OleServer, WordXP
Pour la version word 2000.

le correction donne cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Procedure TForm1.ouvertureFichierWord(FileName: OleVariant);
var
    DocWord:_Document;
    Visible: OleVariant;
 
begin
 
WordApplication1 := TWordApplication.Create(self);
Visible : = True;    
DocWord := WordApplication1.Documents.Open(cheminFichier,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Visible,EmptyParam,EmptyParam,EmptyParam);
 
End;

Si je ne me trompe .

[Laurent Dardenne]

Il manque des arguments ce qui crée une erreure et une parenthese est en trop.

On ne peut pas indiquer le code pour toutes les versions :

Attention certaines déclarations de procédures et fonctions sont différentes entre entre Word97 et Office2000, consulter l'aide en ligne sur la programmation VBA de Microsoft Word .

Pour la parenthèse on corrige ça.
Merci.