View Single Post
 
Old 09-27-2021, 06:41 AM
Wan07 Wan07 is offline Mac OS X Office 2016 for Mac
Novice
 
Join Date: Sep 2021
Posts: 2
Wan07 is on a distinguished road
Default Add points at the end of all footnotes

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 ?

Code:
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
Reply With Quote