Bonjour!
Dans un document, j’ai des parties de texte en français et d’autres en anglais. Je veux que des espaces insécables soient insérés avant et après les mois lorsqu’une date est donnée. Alors voilà, j’ai la macro ci-dessus qui le fait pour les dates qui sont écrite en français (ex. : 31 mai 2009) mais j’ai besoin de l’adapter – dans la même macro - pour les dates en anglais (ex. : May 31, 2009)
Pouvez-vous me donner un coup de main?! Merci!!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 sub Espace () 'Espace insécable pour les dates en français Dim sInsécable As String sInsécable = Chr(160) Dim i As Byte With Selection.Find For i = 1 To 12 .Execute Format$(DateSerial(Year(Now), i, 1), " mmmm "), True, , , , , , wdFindContinue, False, sInsécable + Format$(DateSerial(Year(Now), i, 1), "mmmm") + sInsécable, wdReplaceAll Next i End With 'Espace insécable pour les dates en anglais ':)???
Partager