Bonjour,

Je cherche à selectionner la moitié du texte de mon word. Parce qu'en fait je me sert de la commande
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
MonWord.DOCUMENTS(MonChemin).Content.Select
Set range = MonWord.Selection
range.Find.Execute FindText:="montexte", ReplaceWith:="monautretexte",
 Format:=True, Replace:=wdReplaceAll
qui selectionne tout mon texte. Mais quand mon "monautretexte" est trop long, il ne remplace pas et sort de ma procédure, sans message d'erreur. Je pensais donc a la solution de couper mon word en 2 mais si qq a mieu, j'accepte volontiers..