Vous saisissez une date au format classique court (ex. : 25/9/2015) et vous souhaitez, via un raccourci clavier, la convertir en toutes lettres (ex. : vingt-cinq septembre deux mille quinze). Pour cela, la macro est indispensable. Il suffira ensuite de lui affecter un raccourci clavier. Voir ici comment procéder.

Voici la macro sachant qu'un tel format nécessite d'entrer trois fois la date afin d'obtenir les trois parties formatées. Avant de lancer la macro, saisissez votre date et sélectionnez-la.

 

Sub date_lettres()


'macro écrite par m@rina
Dim madate As String
    madate = Selection
    With Selection
    .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= "MERGEFIELD " & madate & "\@ dd \* cardtext"
    .InsertAfter Text:=Space(1)
    .MoveRight 1
    .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= "MERGEFIELD " & madate & "\@ MMMM"
    .InsertAfter Text:=Space(1)
    .MoveRight 1
    .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= "MERGEFIELD " & madate & "\@ yyyy \* cardtext"
    End With
    ActiveWindow.View.ShowFieldCodes = False
End Sub

 

NB : N'espérez pas obtenir, par exemple, le mot "Premier" pour le premier jour du mois. Word n'est pas aussi intelligent et le champ ne fait que convertir des nombres.

N'espérez pas non plus obtenir des spécificités de type français de Belgique (ou d'ailleurs) telles que septante, nonante.... Word ne connaît pas non plus.

On peut toujours convertir les champs en texte (Ctrl+Maj+F9) et faire les corrections manuellement.

Statistiques

Aujourd'hui213
Hier2602
Cette semaine8061
Total depuis 20049546601

4
visiteurs actuellement en ligne