[VB6] Selection de la moitié de mon texte dans Word [Résolu]

Signaler
Messages postés
489
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
22 novembre 2007
-
Messages postés
489
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
22 novembre 2007
-
Bonjour,


Je cherche à selectionner la moitié du texte de mon word. Parce qu'en fait je me sert de la commande <!-- BEGIN TEMPLATE: bbcode_code -->

Code :

MonWord.DOCUMENTS(MonChemin).Content.Select
Set range = MonWord.Selection
range.Find.Execute FindText:="montexte", ReplaceWith:="monautretexte",
Format:=True, Replace:=wdReplaceAll

<!-- END TEMPLATE: bbcode_code --> 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..
++

2 réponses

Messages postés
220
Date d'inscription
jeudi 30 mars 2006
Statut
Membre
Dernière intervention
26 octobre 2007
1
pour couper en 2 tu fais :

nb_lettre=len(text_a_couper)

premiere_part=mid(text_a_couper,1,int(nb_lettre/2))

deuxieme_part=mid(text_a_couper,int(nb_lettre/2)+1, nb_lettre)

voila
Messages postés
489
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
22 novembre 2007

merci pour cette réponse qui me va bien.

Bonne journée.