Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

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'hui266
Hier1383
Cette semaine266
Ce mois33529
Total depuis 200410768937

13
visiteurs actuellement en ligne