Thread: [Solved] Add points at the end of all footnotes
View Single Post
 
Old 09-27-2021, 04:01 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
  
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,159
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default
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
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote