Discussion :

[ouskel'n'or]

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 Sub

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

Pour VBA-Excel, c'est là, par la-breche