VBA : Rempl. texte dans doc Word par TextBox

Fermé
naiki31 - 6 oct. 2011 à 14:43
Bonjour,

J'ai créé un programme dans lequel les personnes doivent écrire un texte dans une TextBox. Une fois qu'ils appuient sur OK, la macro se lance, recherche dans le document Word le mot spécifique (par exemple : Prog_Textaremplacer) et le remplace par le texte qui a été inséré dans le TextBox.

Voici ce que ça donne :

Selection.Find.ClearFormatting
With Selection.Find
.Text = "Prog_calo_risques_outil_spec"
.Replacement.Text = RISQUESCALOOUTISPEC.TextBoxDESCOUTISPEC.Text
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With


Le problème c'est que ça marche bien lorsque le texte est "court" mais à partir du moment où il devient un peu long, ça plante et me met le débogage à partir de la ligne qui est soulignées.

Avez-vous une idée du pourquoi ?!!

Merci