Discussion :

[vbword]

Bonjour à tous.

J'ai un problème dans une macro word.
J'ai une zone de texte dans laquelle je souhaite pouvoir utilisé la touche Entrée pour le multiligne, ça c'est bon, ça marche.

Ce qui me pose problème, c'est au moment de la fonction Remplace.
Sur le document, chaque nouvelle ligne commence par ce caractère , et c'est embetant.

Donc si quelqu'un a la solution pour supprimer ce caractère, merci d'avance.

[helios77]

Si tu fais une recherche sur le code caractere chr(13) et que tu le supprimes en le remplaçant par "", çà ne marche pas ???

Bon courage, le développemenbt sous Word, c'est vraiment spécial
j'en ai déjà fait un peu et j'espère ne jamais avoir à en refaire

[ouskel'n'or]

Essaie de faire

Code :

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

1
2
ActiveDocument.Shapes(1).TextFrame.TextRange.Text = _
Replace(ActiveDocument.Shapes(1).TextFrame.TextRange.Text, vbCr, "")

Testé
A+

NB - C'est la même chose sur Excel

[vbword]

Ah .... excuses mon ignorance, mais je le met où ce code, au niveau de quelle commande ?

Donc pour info, ma zone de texte s'appelle txtdoc, au cas où ça peut servir ...


Merci d'avance

[ouskel'n'or]

Le code que je t'ai donné va dans une macro et supprime les retours à la ligne dans une zone de texte.

J'ai un problème dans une macro word.

C'est ce que Helios, au vu de sa réponse, et moi, avions compris.
Visiblement ce n'est pas ça.
Apparemment, tu as un problème d'affichage : Auquel cas, fais Ctrl + * et les carrés dont tu parles qui se trouvent en début de ligne dans les tableaux disparaîtront. Ctrl + * sert à visualiser les caractères invisibles et les caractères de contrôle utilisés dans le texte (tabulations, espace, retours à la ligne, espaces "durs" etc...)
Si ce n'est pas ça, dis-nous où se trouvent les ¤ puisque ce n'est pas dans la zone de texte.
A+

[vbword]

Autant pour moi.

Le dit caractère ne se trouve pas dans la zone de texte, mais sur le fichier word, une fois que la fonction Remplace est exécutée.
En rouge la zone de texte


Et donc voici le résultat une fois la fonction Remplace exécutée


Donc il se peut que le code que tu m'as fourni fonctionne, mais où le mettre dans le script ?

Dans les propriétés de la zone de texte, EnterKeyBehavior en True, et Multiligne est True aussi.