La phrase devra être sélectionnée avant de lancer la macro.
L'utilisateur peut déterminer le nombre de répétitions de la phrase.
Ce nombre est de 50 par défaut. Il peut être modifié dans l'InputBox.
Sub phrasetest()
' Macro réalisée le 20/03/01 par Clément Marcotte
Selection.Copy
With Selection.ParagraphFormat
.SpaceAfter = 0
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphLeft
End With
a = InputBox("Indiquez le nombre de répétitions","Choix du nombre de répétitions", 50)
For i = 1 To a
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Paste
Next
End Sub