Probleme d'adaptation de recherche/remplacement OleWord

Version imprimable

Je cherche le moyen de rechercher et remplacer une chaine de caractere je reussi a selectionner la chaine mais pas a la remplacer.
le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OleFunction("ClearFormatting");
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertyGet("Replacement").OleFunction("ClearFormatting");
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("Text", "toto"); // texte que l'on veut remplacer
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertyGet("Replacement").OlePropertySet("Text", "tata"); // texte qui va remplacer
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("Forward",true);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("Wrap", 1);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("Format", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchCase", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchWholeWord", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchWildcards", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchSoundsLike", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchAllWordForms", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OleProcedure("Execute");

La chaine recherchee "toto" est selectionnee.
Si je modifie la derniere ligne comme suit j'ai une erreur nom inconnu.

Code:

1
2
 
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertyGet("Execute").OleProcedure("Replace", 2);

le code en VB:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "toto"
        .Replacement.Text = "tata"
        .Forward = True
        .Wrap = wdFindContinue ' = 1
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll ' = 2

Ca fait plusieurs jours que j'y suis et je n'y arrive pas, si quelqu'un a une idee? elle sera bien venue.

Il n'y a pas eut de reponse mais j'ai quand meme trouve c'est ma fonction qui n'etait pas complete
la ligne qui ne fonctionnait pas

Citation:

vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OleFunction("Execute", "toto", false, true, false, false, false, true, false, false, "tata", 2);

le code complet:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OleFunction("ClearFormatting");
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertyGet("Replacement").OleFunction("ClearFormatting");
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("Text", "toto"); // texte que l'on veut remplacer
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertyGet("Replacement").OlePropertySet("Text", "tata"); // texte qui va remplacer
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("Forward",true);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("Wrap", 1);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("Format", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchCase", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchWholeWord", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchWildcards", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchSoundsLike", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OlePropertySet("MatchAllWordForms", false);
vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OleFunction("Execute", "toto", false, true, false, false, false, true, false, false, "tata", 2);

Apres divers essais on simplifie par
le code:
Code:

1 2 vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OleFunction("Execute", "toto", false, true, false, false, false, true, false, false, "tata", 2);
la fonction fait la recherche et le remplacement donc plus besoin du reste du code

31/08/2006, 16h09
blondelle
Version definitive qui remplace tous les mots recherches par un autre dans le documents de la position du curseur jusque la fin du document
le code:
Code:

1 2 vMSWord.OlePropertyGet("Selection").OlePropertyGet("Find").OleFunction("Execute", "toto", false, true, false, false, false, true, false, false, "tata", 2, false, false, false, false);
Pour les expressions remplacees par true ou false voir execute, methode dans l'aide VB
31/08/2006, 19h52
blondelle

Comme ca marche je met un petit resolu