user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

Avec une macro :

Sub notes()
'macro écrite par m@rina
Dim note As Footnote, notetexte As String
Selection.HomeKey Unit:=wdStory
For Each note In ActiveDocument.Footnotes
notetexte = ActiveDocument.Footnotes(1).Range.Text
Selection.GoTo What:=wdGoToFootnote, Which:=wdGoToNext
note.Delete
Selection.InsertAfter "(" & notetexte & ")"
Next
End Sub

 

Ici le texte des notes s'insère à la place des appels de notes, entre parenthèses. On peut choisir autre chose bien entendu !
 

Statistiques

Aujourd'hui138
Hier1230
Cette semaine14735
Ce mois66542
Total depuis 200412823306

1
visiteurs actuellement en ligne

28 février 2021