Recherche

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

Statistiques

France 76,0% France
Canada 7,9% Canada
États-Unis d'Amérique 4,7% États-Unis d'Amérique

Total:

66

Pays
018274370
Aujourd'hui: 10
Hier: 145
Cette semaine: 693
Semaine dernière: 783
Ce mois: 2.632