![]() |
|
#1
|
||||
|
||||
![]()
The following macro should do the job. It is best to try it on a copy of the original document first:
Code:
Sub ConvertCustomFootnotesToAutoFootnotes() 'Macro created by Stefan Blom, MVP, May 2016 Dim ftText As String Dim r As Range Dim ftCount As Long Dim i As Long ftCount = ActiveDocument.Footnotes.Count For i = ftCount To 1 Step -1 ftText = ActiveDocument.Footnotes(i).Range.Text Set r = ActiveDocument.Footnotes(i).Reference.Duplicate ActiveDocument.Footnotes(i).Delete ActiveDocument.Footnotes.Add Range:=r, Text:=ftText Next i End Sub
__________________
Stefan Blom Microsoft Word MVP Microsoft 365 apps for business Windows 11 Professional |
![]() |
Tags |
footnote counter, footnote numbering |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
mudum | Word | 2 | 12-03-2015 06:27 AM |
![]() |
cgp1689 | Word | 6 | 10-13-2015 08:24 AM |
![]() |
jsswadley | Word | 2 | 03-17-2015 04:44 PM |
Footnote get double numbering | malgorzata | Word | 2 | 12-12-2014 12:45 AM |
footnote problem | Palinkasocsi | Word | 0 | 08-07-2010 01:13 AM |