Discussion :

[dd16]

Voila, j'utilise le TWordAppication et le TWordDocument pour travailler sur un document Word et remplacer des chaines par d'autres.

J'utilise la bibliotheque Word2000 avec un delphi 7.1

Voici le code utilisé

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
 
 
        WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
 
    Param1 := 'tata';
    Param2 := False;
    Param3 := True;
    Param4 := wdFindStop;
    Param5 := wdCharacter;
    Param6 := wdReplaceAll;
    Param7 := 'toto';
 
    WordDocument.Range.Find.Execute(Param1, Param2,
      Param2, Param2,
      Param2, Param2,
      Param3, Param4, EmptyParam,
      Param7, Param6,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam);

Or il me retourne : Le relai a recu des données incorrectes.

Là je ne vois pas ce qui debloque donc si vous avez une piste, elle est la biencnue.

Merci

[Laurent Dardenne]

Salut,
essaie qq chose comme ceci :

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
39
40
41
42
43
44
45
 
procedure TForm1.Replace(ChaineAvant,ChaineApres:String);
var FindText,
    MatchCase,
    MatchWholeWord,
    MatchWildcards,
    MatchSoundsLike,
    MatchAllWordForms,
    Forward,
    Wrap,
    Format,
    ReplaceWith,
    Replace,
    MatchKashida,
    MatchDiacritics,
    MatchAlefHamza,
    MatchControl: OleVariant;
    MaZone: Range;
 
Begin
   //Cherche et remplace ChaineAvant par ChaineApres dans tout le document
 
  MaZone:=WordApplication1.ActiveDocument.Content;
  FindText:=ChaineAvant;
  MatchCase:=False;
  MatchWholeWord:=True;
  MatchWildcards:=False;
  MatchSoundsLike:=False;
  MatchAllWordForms:=False;
  Forward:=True;
  Wrap:=wdFindStop;
  Format:=False;
  ReplaceWith:=ChaineApres;
  Replace:=wdReplaceAll;
  MatchKashida:=False;
  MatchDiacritics:=False;
  MatchAlefHamza:=False;
  MatchControl:=False;
 
  MaZone.Find.Execute(FindText,MatchCase,MatchWholeWord,MatchWildcards,
                      MatchSoundsLike,MatchAllWordForms,Forward,Wrap,
                      Format,ReplaceWith,Replace,MatchKashida,MatchDiacritics,
                      MatchAlefHamza,MatchControl);
 
end;

[Anonymous]

Bonjour,

J'ai le meme problème, j'ai essaye la solution de Laurent et elle provoque la meme erreur, j'ai essaye d'utiliser la fonction ExecuteOld (verion Word 97) mais avec celle ci il ne me trouve rien !

Cordialement

[Laurent Dardenne]

Salut,
merci de préciser les versions des produits utilisés car trés peu d'entre nous sont diplômés des arts divinatoires.

[Anonymous]

J'utilise Delphi 5 Pro avec Windows XP et Office 2000.
J'utilise les composants d'office 2000 ou XP et non ceux de 97 (word2000.pas)

Cordialement.

[Anonymous]

J'ai trouvé, c'est un bug de Microsoft !!!

http://support.microsoft.com/default.aspx/kb/292744

Le problème : j'avais définit ma variable MaZone en Range, j'ai du la passer en OLEVariant, et ca fonctionne !

Ancien code qui bugait :

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
 
var MaZone : Range;
      FindText,
      MatchCase,
      MatchWholeWord,
      MatchWildcards,
      MatchSoundsLike,
      MatchAllWordForms,
      Forward,
      Wrap,
      Format,
      ReplaceWith,
      Replace : OleVariant;
 
...
 
      MaZone:=DocWord.Content;
      FindText := TexteARechercher.Strings[j];
      MatchCase := False;
      MatchWholeWord := False;
      MatchWildcards := False;
      MatchSoundsLike := False;
      MatchAllWordForms := False;
      Forward := True;
      Wrap := wdFindStop;
      Format := False;
      ReplaceWith := '';
      Replace := wdReplaceNone;
 
      MaZone.Find.Execute(FindText, MatchCase, MatchWholeWord,
                                     MatchWildcards, MatchSoundsLike,
                                     MatchAllWordForms, Forward,
                                     Wrap, Format, ReplaceWith, Replace,
                                     EmptyParam, EmptyParam, EmptyParam,
                                     EmptyParam);

Code pour eviter le bug

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
 
var MaZone,
      FindText,
      MatchCase,
      MatchWholeWord,
      MatchWildcards,
      MatchSoundsLike,
      MatchAllWordForms,
      Forward,
      Wrap,
      Format,
      ReplaceWith,
      Replace : OleVariant;
 
...
 
      MaZone:=DocWord.Content;
      FindText := TexteARechercher.Strings[j];
      MatchCase := False;
      MatchWholeWord := False;
      MatchWildcards := False;
      MatchSoundsLike := False;
      MatchAllWordForms := False;
      Forward := True;
      Wrap := wdFindStop;
      Format := False;
      ReplaceWith := '';
      Replace := wdReplaceNone;
 
      MaZone.Find.Execute(FindText, MatchCase, MatchWholeWord,
                                     MatchWildcards, MatchSoundsLike,
                                     MatchAllWordForms, Forward,
                                     Wrap, Format, ReplaceWith, Replace,
                                     EmptyParam, EmptyParam, EmptyParam,
                                     EmptyParam);

[Laurent Dardenne]

Merci.
Nous allons ajouter cette info dans la FAQ Delphi.