Comment écrire une macro qui ajoute des espaces insécables devant les double ponctuations, uniquement quand ils ont été omis ?
- Détails
- Catégorie parente: Faq Word
- Catégorie : VBA solutions
- Mis à jour le samedi 22 octobre 2011 08:59
- Affichages : 2934
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
