user_mobilelogo
Etoiles inactivesEtoiles inactivesEtoiles inactivesEtoiles inactivesEtoiles inactives
 

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'hui1321
Hier2511
Cette semaine14632
Ce mois52878
Total depuis 200411097867

7
visiteurs actuellement en ligne