Ce code tient compte des exceptions en ce qui concerne les adresses web (http:)

 

Sub EspaceAvantPonctuationsDoubles()
'macro écrite par m@rina
With ActiveDocument.Content.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "([! ;^s])([;;:;\!;\?])([!/;\\])"
    .Replacement.Text = "\1^s\2\3"
    .Forward = True
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
End With

End Sub

Statistiques

Aujourd'hui600
Hier1419
Cette semaine15106
Total depuis 20049490366

6
visiteurs actuellement en ligne