Add points at the end of all footnotes

Wan07 · #1 09-27-2021, 06:41 AM

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

Guessed · #2 09-27-2021, 04:01 PM

Try this instead

Code:

Sub notes()
  Dim note As Footnote
  For Each note In ActiveDocument.Footnotes
    If note.Range.Characters.Last <> "." Then
      note.Range.InsertAfter "."
    End If
  Next
End Sub

Wan07 · #3 09-28-2021, 03:43 AM

It worked perfectly ! Thank you so much ! You saved me hours of work

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Request for a macro to move footnotes (not formatted as footnotes) from end of page to end of doc	Pluckedchicken	Word VBA	0	09-03-2020 05:21 AM
How to change superscript footnotes into genuine Word footnotes	Knounte29	Word VBA	41	01-16-2020 04:48 PM
creating manuscript w/footnotes from separate documents containing chapters with footnotes-word 2010	Dottie	Publisher	0	02-19-2017 03:18 PM
Trouble using bullet points / sub bullet points within Word 2013	Mr Davo	Word	2	04-18-2016 04:31 PM
Edit Points in Curve: MS Office changes points properties itself, without my action.	Sergey SPb	PowerPoint	0	08-27-2012 05:33 AM