A partir de Word 2003, ce sont des fautes de typographie que Word est capable de déceler en faisant une vérification grammaticale. Il suffit de cocher l'option "Ponctuation et espacement stylistiques" dans les paramètres de vérification de grammaire pour les repérer.

Par ailleurs, notons que la fonctionnalité Mise en forme automatique ne corrige pas ce problème, alors qu'elle devrait le corriger si l'on a bien coché l'option du remplacement de guillemets dans les options de correction automatique/Mise en forme automatique.

S'il y a beaucoup de corrections à faire, on peut utiliser un recherche-remplace :

  • Ouvrir la boîte de dialogue Remplacer (Ctrl + H)
  • Cliquer sur le bouton Plus pour ouvrir la boîte entièrement et cocher l'option "Caractères génériques"
  • Rechercher : ([! ;^s])([;;:;\!;\?])([!/;\\])
  • Remplacer par : \1^s\2\3

Si c'est quelque chose qui revient souvent, devant la complexité de ce recherche-remplace, on peut utiliser la macro suivante.

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