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

Messages postés
489
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
22 novembre 2007
- - Dernière réponse : malhivertman1
Messages postés
489
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
22 novembre 2007
- 23 mai 2006 à 09:52
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..
++
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
220
Date d'inscription
jeudi 30 mars 2006
Statut
Membre
Dernière intervention
26 octobre 2007
1
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 125 internautes nous ont dit merci ce mois-ci

Commenter la réponse de lex1111
Messages postés
489
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
22 novembre 2007
0
Merci
merci pour cette réponse qui me va bien.

Bonne journée.
Commenter la réponse de malhivertman1