Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

 

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'hui794
Hier2224
Cette semaine13432
Ce mois31512
Total depuis 200410766920

9
visiteurs actuellement en ligne