Une recherche/remplacement en caractères génériques du type :
- chercher: [!^013]{15}
- remplacer par : \1^013
insère une marque de paragraphe tous les 15 caractères.
Sinon par macro :
Sub CoupeTexte()
'Macro écrite par Alain
Dim i
For i = 0 To 10
Selection.MoveRight Unit:=wdCharacter, Count:=256 Selection.TypeParagraph ' Pour saut de ligne visible
Selection.TypeParagraph
Next i
End Sub