|
|
#14
05-14-2019, 07:28 PM
|
||||
|
||||
Simple:
Code:
Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument
Do While .Footnotes.Count > 0
With .Footnotes(1)
.Reference.InsertAfter "[!" & .Range.FormattedText & "!]"
.Delete
End With
Loop
End With
Application.ScreenUpdating = True
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 How to change superscript footnotes into genuine Word footnotes
|
Knounte29 | Word VBA | 41 | 01-16-2020 04:48 PM |
|
Help with Tracking: Bold in body text, but not in Footnotes
|
Bobbety | Word | 3 | 05-17-2015 11:17 PM |
|
word 2007 - footnotes and text box
|
glggluig | Word | 1 | 08-10-2014 04:09 AM |
| All my footnotes turned to blue underlined text. | bww | Word | 0 | 07-11-2013 08:35 AM |
|
create footnotes from custom text
|
mosrozen | Word VBA | 2 | 06-14-2012 06:59 AM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode