Discussion :

[tim69000]

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

[tim69000]

qq me met une note trés mauvaise mais ne repond pas, sympa..

pour la peine je met 5 même si je ne suis pas aidé pour autant

[zazaraignée]

qq me met une note trés mauvaise mais ne repond pas, sympa..

pour la peine je met 5 même si je ne suis pas aidé pour autant

Salut

Je ne crois pas que ce soit une question de mauvaise note... quoi qu'il en soit, d'habitude on utilise la fonction remplacer pour des mots ou des expressions relativement courtes. J'ai l'impression que tu en demande trop à cette pauvre pauvre petite fonction, ouille alors!

Explique nous le contexte. Y'a peut-être une autre solution plus adaptée.

[tim69000]

En fait, je n'utilise pas le Replace pour remplacer le texte car qd je prend le texte de mon Word dans un range, tout mes champs " { MERGEFIELD } " se transforme en prenant des petits carré a la place des '{' '}' ce qui fait planter mon programme. La seul solution que j'avais trouvé étant d'utiliser cette autre fonction..

[zazaraignée]

je ne comprends pas d'avantage ce que tu veux faire...

Il y a donc des champs dans ton texte? Et pourquoi sélectionner la moitié du contenu du document?

Explications claires requises.

+ bout de code qui plante

SVP

[tim69000]

Le contexte, c'est juste que j'ai un fichier word et des que mon prog trouve dans ce fichier le mot "para1" (fait dans une boucle), il remplace "para1" par le contenu de ce paragraphe stocké dans la base de données.

Il n'y a rien qui plante, c'est juste qu'avec la ligne que j'ai mis au dessus, si le contenu de mon paragraphe est trop long, il ne fais rien.

[tim69000]

Essaie le remplacement en mettant le texte de remplacement dans une variable
(Pas testé)
A+

J'ai essayé, mais sans succés..

[tim69000]

je suis dsl mais je ne comprend pas quand tu dis

copie du texte de remplacement - tout le texte de remplacement - et collage dans le "Remplacer par...

[tim69000]

Dans Word, Menu Edition -> Remplacer
Rechercher -> tu mets le texte à remplacer
Remplacer par -> là tu mets le texte de remplacement

A+

Donc j'ai essayé ça et ca me met carrement "Windows a rencontré une erreur et doit se fermer" ???

[zazaraignée]

Salut

C'est encore moi avec mes questions qui ne règlent rien mais qui peuvent peut-être donner des pistes.

Il est long comment, le texte de remplacement contenu dans ta base de données? Contient-il plus d'un paragraphes? Et si tu mettait un encadré de texte (sans les bordures, si elles t'emm...) lié à un RecordSet?

[tim69000]

je vais tout essayer ce que vous m'avez conseillé et je vous dit. mais la solution d'ouskel me semble bien

[tim69000]

par contre, j'ai un petit soucis. pas de probleme pour remplacer mon texte par rien mais comment dire que j'insere mon champ à l'endroit du remplacement. je pensé utiliser la methode SelStart mais le focus n'est pas sur le Word et il n'est pas a l'endroit du remplacement..

si tu pouvait m'indiquer la voie..merci

[tim69000]

Comment faire pour mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Text1.Text = Mid(Text1.Text, 1, Text1.SelStart) 
               & monchamp & Mid(Text1.Text, Text1.SelStart + 1)

mais sous Word?

[tim69000]

merci bien ouskel, ca marche

Bonne journée.