Discussion :

[AymenJ]

Salut,
Mon probleme c'est que j'ai une fonction qui cherche et remplace dans un document word, mais lorseque la taille du texte de remplacement est grande alors ça ne marche plus. (Remplacement.Text).

Voici la méthode que j'utilise :
-------------------------------------

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
With DocApp.Selection.Find
            .Text = "#" & texte1 & "#"
            .Replacement.Text = texte2.ToString()
            .Forward = True
            .Wrap = Word.WdFindWrap.wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
DocApp.Selection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll)

---------------------------------------

Merci.

[Heureux-oli]

Si tu pouvais nous dire de quoi tu pars et à quoi tu veux arriver, il y peut-être une autre solution plus rapide.

Passer par des objet selection n'est pas une bonne chose en soi.

[AymenJ]

Salut,

je fais la creation automatique de courriers dans une application web (asp net, vb net, sql server 2005), j'ai des documents modeles suivant les quels je vais creer des courriers contenant des informations specifiques.
Donc j'ai un document modeles dans le quel je fais Find/Replace.
Je dispose d'une autre methode (en utilisant les bookmarks ou signets) mais j'aimerais bien utiliser la methode que j'ai cite audessus.

Voila, Cordialement.

[Heureux-oli]

La méthode des signets est de loin plus élégante.
On ne passe pas par une sélection, ce qui accélère le traitement.

La raison pour laquelle ton code bloque m'est inconnue.
Combien de caractères contient le texte à rechercher ?

[AymenJ]

Salut,

j'ai pas eu de problemes avec le texte à rechercher mais plutot avec le texte que je vais inserer : s'il est long (je sais pas la longuer maximale) alors une exception se produit. (le texte est trop long).

Cordialement.