Add points at the end of all footnotes

[Wan07]

Hello,



I need help to add points at the end of every footnotes for my PhD (1000+ footnotes...). I found this one on a french site (Faqword - Comment ajouter a la fin de chaque note de bas de page (ou de fin de document) un point qui a ete omis ?

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

It works but it disables all the fonts specifics in the footnotes, especialy the italics. Is it possible to modify it so it doesn't change the fonts but add the point either way ?

Thank you very much for your help, and sorry for my approximative english