Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Word > Contribuez
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 02/03/2007, 18h17   #1
Inactif
 
Avatar de ouskel'n'or
 
Inscription : février 2005
Messages : 12 466
Détails du profil
Informations forums :
Inscription : février 2005
Messages : 12 466
Points : 11 930
Points : 11 930
Par défaut Remplacer ou écrire 1 texte dans une zone de texte

Code :
1
2
3
Sub Remplacer()
ActiveDocument.Shapes(1).TextFrame.TextRange.Text = Replace(ActiveDocument.Shapes(1).TextFrame.TextRange.Text, vbCr, "")
End Sub
Code :
1
2
3
Sub Ecrire()
ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "Coucou c'est nous"
End sub
Pour VBA-Excel, c'est , par la-breche
ouskel'n'or est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 01h56.


 
 
 
 
Partenaires

Hébergement Web