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

Résolu

malhivertman1 Messages postés 489 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 22 novembre 2007 - 22 mai 2006 à 16:16
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 

Code :

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..
++

A voir également:

2 réponses

Réponse 1 / 2

lex1111 Messages postés 220 Date d'inscription jeudi 30 mars 2006 Statut Membre Dernière intervention 26 octobre 2007 1
22 mai 2006 à 18:28

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

Réponse 2 / 2

malhivertman1 Messages postés 489 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 22 novembre 2007 1
23 mai 2006 à 09:52

merci pour cette réponse qui me va bien.

Bonne journée.

Discussions similaires

Fonction DISTINCT

Faire une somme dans un select

select sum sur plusieurs tables

select ...from(select ...from..)

Select avec Linq

Votre réponse

Discussions similaires