On peut bien sûr faire rapidement un Recherche-Remplace ordinaire, mais si le cas se répète régulièrement, ce sera vite lassant et le mieux est d'utiliser la macro suivante, en lui attribuant un raccourci clavier.
Sub tirets()
If (Selection.Start <> Selection.End) Then
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = "-"
.Forward = True
.Wrap = wdFindStop
End With
Selection.Find.Execute Replace:=wdReplaceAll
Else: MsgBox "Vous n'aviez rien sélectionné !"
End If
End Sub
If (Selection.Start <> Selection.End) Then
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = " "
.Replacement.Text = "-"
.Forward = True
.Wrap = wdFindStop
End With
Selection.Find.Execute Replace:=wdReplaceAll
Else: MsgBox "Vous n'aviez rien sélectionné !"
End If
End Sub
