Thread: [Solved] Adding footnote number as part of footnote text – part deux
View Single Post
 
Old 10-25-2019, 05:15 AM
gmaxey gmaxey is online now Windows 10 Office 2016
Expert
  
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,601
gmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nice
Default
Code:
Sub ScratchMacro()
For Each m_oFN In ActiveDocument.Footnotes
  m_oFN.Range.InsertBefore "{Note " & fcnGetFootnoteReferenceIndex & "} " '& m_oFN.Range.Text
Next
lbl_Exit:
Exit Sub
End Sub
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote