Bonjour,
J'ai posé une question dans un autre post du forum concernant cette routine que vous avez écrite il y a bien longtemps...
https://forum.hardware.fr/hfr/Progr [...] 8116_1.htm
Ce serait super sympa si vous pouviez m'aider, car je suis vraiment bloqué...
Merci d'avance!
pyrof a écrit :
Bonjour,
Voici une macro avec un simple rechercher remplacer
Private Sub dudule()
Selection.HomeKey unit:=wdStory
ScreenUpdating = False
With Selection.find
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.Font.Bold = True
.MatchWildcards = True
.Text = "(\(*\))"
.Replacement.Text = "\1"
.Forward = True
.Execute Replace:=wdReplaceAll
End With
End Sub
Qui doit etre nettement plus rapide
|
Message édité par pphbourgeois le 10-11-2021 à 18:53:28
