Comment faire pour ajouter à la fin de chaque note de bas de page (ou de fin de document) un point qui a été omis ?

Un Recherche-Remplace aurait pu être utilisé : en gros, on recherche le retour paragraphe, et on remplace par un point et un retour paragraphe.

Sauf que... les retours paragraphes qui terminent les notes de bas de page ou de fin de document ne peuvent pas être remplacés par quoi que ce soit car ce sont des retours paragraphes générés automatiquement par Word et non supprimables.

La seule solution passe donc par une macro :

Sub notes()
'macro écrite par m@rina
Dim note As Endnote
Dim manote As String
For Each note In ActiveDocument.Endnotes
manote = note.Range.Text
If note.Range.Characters.Last <> "." Then
note.Range.Text = manote & "."
End If

Next
End Sub

Statistiques

Aujourd'hui452
Hier2316
Cette semaine13236
Total depuis 20049551776

11
visiteurs actuellement en ligne