user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

 

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

Statistiques

Aujourd'hui1613
Hier2006
Cette semaine7617
Ce mois50119
Total depuis 200413208738

17
visiteurs actuellement en ligne

29 juillet 2021