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