Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Sub Remplacer() ActiveDocument.Shapes(1).TextFrame.TextRange.Text = Replace(ActiveDocument.Shapes(1).TextFrame.TextRange.Text, vbCr, "") End SubPour VBA-Excel, c'est là, par la-breche
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Sub Ecrire() ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "Coucou c'est nous" End sub
Partager