Erreure FAQ word ?

Version imprimable

Erreure FAQ word ?

bonsoir je voulais savoir .

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

Code:

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:

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;

14/11/2006, 07h45
dederfred

j'ai resolu mon probleme je mettrais dans la matiné
14/11/2006, 09h38
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.

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:

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 .

15/11/2006, 10h33
Laurent Dardenne

Citation:

Envoyé par dederfred

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 :

Citation:

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.