Identificateur non déclaré

**seb68270** · 14/10/2014, 14h54

Bonjour,

J'ai créé une fonction permettant de chercher une chaîne de caractère dans un fichier word donc voici le code:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
function WordResearchFunction(Word: string; FileName: string): Boolean;
var
  DocWord: _document;
  NomFich: OLEVariant;
  MaZone, MaRecherche: Range;
  Param1, Param2, Param3, Param4, Param5, Param6: OLEVariant;
begin
  MessageDlg('Recherche dans le fichier ' + FileName,mtCustom,[mbOk], 0);
  vMSWord.Connect;
  vMSWord.Visible := True;
  NomFich := FileName;
  DocWord := vMSWord.Documents.Open(NomFichier,EmptyParam,
                   EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                   EmptyParam,EmptyParam,EmptyParam,EmptyParam);

  Param1 := 0;
  MaZone := DocWord.Range(Param1,Param1);
  Param1 := Word;
  Param2 := False;
  Param3 := True;
  Param4 := wdFindStop;
  Param5 := wdCharacter;
  Param6 := 1;

  with MaZone.Find do
  begin
     while Execute(Param1,Param2,Param2,Param2,Param2,
                Param2,Param3,Param4,emptyparam,emptyparam,emptyparam)=true do
     begin;
         MaRecherche:= Parent as Range;
         MaRecherche.Font.colorindex:=5;
     end;
  end;
end;

Le problème est que j'ai l'erreur "Identificateur non déclaré" pour "Range" et "_document" dans la déclarations des variables ainsi que pour "wdFindStop" et "wdCharacter" dans le code (j'ai mis en gras dans le code ces différents éléments).

Etant débutant en Delphi, je me suis basé sur ceci pour la fonction: FAQ Delphi

Merci d'avance

**retwas** · 14/10/2014, 16h31

il te manque surement un uses

**seb68270** · 14/10/2014, 16h59

Ok mais lequel?

Voici ce que j'ai:

Code :

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

1
2
3
4
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

**Fxg** · 14/10/2014, 18h13

excel2000

**seb68270** · 15/10/2014, 09h41

Merci j'ai ajouté excel2000 et word2000 et ça ne me met plus ces erreurs d'identificateurs non définis, par contre lors de la compilation j'ai une erreur au niveau des 2 lignes en gras:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
function WordResearchFunction(Word: string; FileName: string): Boolean;
var
  DocWord: _document;
  NomFich: OLEVariant;
  { MaZone, MaRecherche: Range; }
  MaZone, MaRecherche: Range;
  Param1, Param2, Param3, Param4, Param5, Param6: OLEVariant;
begin
  MessageDlg('Recherche dans le fichier ' + FileName,mtCustom,[mbOk], 0);
  vMSWord.Connect;
  vMSWord.Visible := True;
  NomFich := FileName;
  DocWord := vMSWord.Documents.Open(NomFichier,EmptyParam,
                   EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                   EmptyParam,EmptyParam,EmptyParam,EmptyParam);

  Param1 := 0;
  MaZone := DocWord.Range(Param1,Param1);
  Param1 := Word;
  Param2 := False;
  Param3 := True;
  Param4 := wdFindStop;
  Param5 := wdCharacter;
  Param6 := 1;

  with MaZone.Find do
  begin
     while Execute(Param1,Param2,Param2,Param2,Param2,
                Param2,Param3,Param4,emptyparam,emptyparam,emptyparam)=true do
     begin;
         MaRecherche:= Parent as Range;
         MaRecherche.Font.colorindex:=5;
     end;
  end;
end;

Le compilateur me marque les erreurs suivantes:

[DCC Erreur] PageDemarrage.pas(149): E2010 Types incompatibles : '_Document' et 'Variant'
[DCC Erreur] PageDemarrage.pas(163): E2035 Pas assez de paramètres originaux

**Fxg** · 15/10/2014, 18h00

Ligne 13 ce ne serait pas Nomfich au lieu de NomFichier en simple lecture rapide sans préjuger des erreurs évoquées.

**seb68270** · 16/10/2014, 09h16

Oups oui effectivement, même si ça ne résout pas mes erreurs: merci quand même

**seb68270** · 20/10/2014, 15h27

Petit "up" car j'ai toujours ces messages d'erreur ...

**tourlourou** · 20/10/2014, 16h30

Le compilateur te dit "pas assez de paramètres" pour la fonction Find.Execute : le msdn en attend 15 pour Word2013. Combien attendus pour Word2000 ? Sûrement pas le nombre que tu en utilises, toujours !

Et lors de l'appel DocWord := vMSWord.Documents.Open(...); il te dit "Types incompatibles : '_Document' et 'Variant'" : essaye de déclarer DocWord comme Variant plutôt que comme _Document, pour vérifier si c'est plus compatible...

**seb68270** · 20/10/2014, 17h43

Merci

Pour la fonction Find.Execute, le problème est réglé (plus de message d'erreur à ce sujet).

Concernant les types incompatibles, j'avais déjà testé en mettant DocWord en Variant ou en OLEVariant plutôt qu'en _document mais cela me met une erreur au niveau de "MaZone := DocWord.Range(Param1,Param1);" qui est l'erreur suivante:

2010 Types incompatibles : 'Range' et 'Variant'

Et je ne peux pas mettre "MaZone" en OLEVariant ou Variant sous peine d'avoir une erreur "Identificateur non déclaré" pour "Execute" et "Parent".

**tourlourou** · 20/10/2014, 18h34

Type de code trouvé sur Google :

Code :

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

Excel2kRange :=(IUnknown)Excel2kRangeVar as Excel2000.ExcelRange;

Il doit y avoir une possibilité de coder sur ce modèle.

**seb68270** · 22/10/2014, 10h47

Envoyé par tourlourou

Type de code trouvé sur Google :

Code :

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

Excel2kRange :=(IUnknown)Excel2kRangeVar as Excel2000.ExcelRange;

Il doit y avoir une possibilité de coder sur ce modèle.

Merci j'ai effectué la modification hier matin, voici le code de la fonction maintenant:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
function WordResearchFunction(Word: string; FileName: string): Boolean;
var
  DocWord: OLEVariant;
  NomFich: OLEVariant;
  { MaZone, MaRecherche: Range; }
  MaZone, MaRecherche: Range;
  Param1, Param2, Param3, Param4, Param5, Param6: OLEVariant;
begin
  MessageDlg('Recherche dans le fichier ' + FileName,mtCustom,[mbOk], 0);
  vMSWord := CreateOleObject('Word.Application');  
  vMSWord.Connect;
  vMSWord.Visible := True;
  NomFich := FileName;
  DocWord := vMSWord.Documents.Open(NomFich, EmptyParam,
                   EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                   EmptyParam,EmptyParam,EmptyParam,EmptyParam);
 
  Param1 := 0;
  MaZone := IUnknown(DocWord.Range(Param1,Param1)) as Range;
  Param1 := Word;
  Param2 := False;
  Param3 := True;
  Param4 := wdFindStop;
  Param5 := wdCharacter;
  Param6 := 1;
 
  with MaZone.Find do
  begin
     while Execute(Param1,Param2,Param2,Param2,Param2,
                Param2,Param3,Param4,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam)=true do
     begin;
         MaRecherche:= Parent as Range;
         MaRecherche.Font.colorindex:=5;
     end;
  end;
  vMSWord.disconnect;
end;

Le problème maintenant c'est que quand je compile et lance l'application, j'obtiens une erreur "Le projet a déclenché la classe d'exception EVariantInvalidOpError avec le message 'Opération de variant incorrecte'" et quand je cliquer sur "Arrêter" quand j'utilise cette fonction, de même que la ligne "vMSWord.Connect;" est surlignée.

**seb68270** · 23/10/2014, 10h49

En fait petite modif:

Ça me met cette erreur quand je ne mets pas la ligne 11 (vMSWord := CreateOleObject('Word.Application')

, en revanche cela me met l'erreur suivante quand je la mets:

Le projet a declenché la classe d'exception EOleError avec le message 'Méthode 'Connect' non supportée par l'objet Automation'

En surlignant toujours ensuite la ligne du connect.

**tourlourou** · 23/10/2014, 11h35

Quel est le type de vMSWord ?

**seb68270** · 23/10/2014, 13h59

Envoyé par tourlourou

Quel est le type de vMSWord ?

vMSWORD est de type variant

**tourlourou** · 23/10/2014, 15h05

Je pense que la méthode Connect est utilisée par un objet TWordApplication et que ton code n'en a pas besoin : si tu essayes comme ceci, est-ce que ça passe ?

Code :

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

1
2
3
  vMSWord := CreateOleObject('Word.Application');  
//  vMSWord.Connect;
  vMSWord.Visible := True;

**seb68270** · 24/10/2014, 10h38

Effectivement ça marche: merci beaucoup!

En revanche, lors de ma recherche de fichier (mais bon c'est la procédure qui le fait et non cette fonction), la procédure me trouve 2 fichiers commençant par "~$" et me met l'erreur suivante lors de la lecture du second fichier :

Le projet a déclenché la classe d'exception EOleException avec le message 'Le fichier apparemment endommagé'."

De même que je me retrouve avec plusieurs processus de Word quand je regarde dans le gestionnaire des tâches , bien qu'ayant mis les 2 lignes suivantes dans la fonction:

Code :

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

1
2
3
 
DocWord.Close(wdSaveChanges);
DocWord := Unassigned;

**tourlourou** · 24/10/2014, 20h39

Essaye peut-être vMSWord := Unassigned;

**seb68270** · 27/10/2014, 09h14

Envoyé par tourlourou

Essaye peut-être vMSWord := Unassigned;

Le problème persiste malgré cela. Je précise qu'au moment de l'erreur, la ligne suivante est surlignée:

Code :

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

1
2
3
4
 
DocWord := vMSWord.Documents.Open(NomFich, EmptyParam,
                   EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                   EmptyParam,EmptyParam,EmptyParam,EmptyParam);

**seb68270** · 28/10/2014, 11h39

J'ai réussi à régler le problèmes de la lecture des fichiers commençant par "~$" mais j'ai toujours ces fameux processus de Word qui restent lancer dans le gestionnaire des tâches après exécution de l'application ...

Identificateur non déclaré

Langage Delphi

Discussions similaires

Partager

Partager