user_mobilelogo

Word 365: Vous saurez tout !

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

 

En savoir plus.

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'hui3201
Hier3355
Cette semaine10000
Ce mois72797
Total depuis 200412591429

16
visiteurs actuellement en ligne

25 novembre 2020