piupiu666 a écrit :
Bonjour,
Je cherche à faire une macro Word afin de remplacer les points par les virgules dans les chiffres, dans ma sélection. J'en est faite une mais elle me remplace les virgules entre tous les chiffres du document, pas seulement dans ma sélection. Des suggestions?
Voici ma macro:
Sub PointVirg()
Do While Selection.Find.Execute(FindText:="^#.^#", _
Forward:=True, _
Format:=True) = True
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^#.^#"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=","
Selection.Delete Unit:=wdCharacter, Count:=1
Loop
End Sub
|