Recherche

Word est capable de déceler les fautes de typographie en faisant une vérification grammaticale. Par ailleurs, si l'option des Guillemets est cochée dans la boîte de dialogue Correction automatique, onglet Lors de la frappe, les espaces insécables avant les double ponctuations se mettront automatiquement.

En revanche, la fonctionnalité Mise en forme automatique ne corrige pas ce problème, même si l'on a bien coché l'option du remplacement de guillemets dans les options de Correction automatique, onglet 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

 

 

 

Statistiques

France 72,0% France
Canada 7,7% Canada
Belgique 3,9% Belgique

Total:

114

Pays
018304831
Aujourd'hui: 28
Hier: 195
Cette semaine: 28
Semaine dernière: 2.383
Ce mois: 223