|
|
#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
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia 
|
| Tags |
| footnotes, ponctuation, vba |
|
|
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 |
Windows 10 
Office 2016
Threaded Mode