Supprimer espace ponctuation dans Word
Bonjour à toutes et à tous. Mon souci est le suivant: supprimer l'espace crée par Word après les deux points (:). À priori, comme vous pouvez le voir sur le fichier joins, j'ai trouvé la solution. Sauf que Word me signale toujours l'erreur. Comment faire pour supprimer ce
tte erreur? Merci pour votre aide.
Bonjour
Le problème c'est qu'il faut des espaces avant (pas après) les deux points.
Pour s'en convaincre exécuter en VBA l'instruction : ActiveDocument.CheckGrammar
Je sais. C'et le système typographique français. Mais quand j'écris, je ne met pas d'espace entre le mot et les deux points ou le point-virgule. Donc je voudrais supprimer cet espace. En cochant ou décochant dans les options, j'arrive à supprimer cet espace, mais Word me le signale comme erreur. D'où ma question. Merci
Si j'execute successivement
1- CheckGrammarErrors (->erreurs détectées)
2-ReplaceAll
3- CheckGrammarErrors (->plus aucune erreurs détectées)
Et bien sur pas d'espace avant deux point
Sub CheckGrammarErrors()
ActiveDocument.CheckGrammar
End Sub
Sub replaceAll()
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Execute FindText:=" .", ReplaceWith:=".", _
Replace:=wdReplaceAll
Selection.Find.Execute FindText:=" ,", ReplaceWith:=",", _
Replace:=wdReplaceAll
Selection.Find.Execute FindText:=" :", ReplaceWith:=":", _
Replace:=wdReplaceAll
Selection.Find.Execute FindText:=" ;", ReplaceWith:=";", _
Replace:=wdReplaceAll
Selection.Find.Execute FindText:=" ", ReplaceWith:=" ", _
Replace:=wdReplaceAll
Selection.Find.Execute FindText:=" ", ReplaceWith:=" ", _
Replace:=wdReplaceAll
Selection.Find.Execute FindText:="( ", ReplaceWith:="(", _
Replace:=wdReplaceAll
Selection.Find.Execute FindText:=" )", ReplaceWith:=")", _
Replace:=wdReplaceAll
Selection.Find.Execute FindText:=". ", ReplaceWith:=". ", _
Replace:=wdReplaceAll
End Sub