Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 06-13-2020, 12:13 PM
John 4 John 4 is offline Can I replace reference numbers with the footnotes to which they refer and link. Windows 10 Can I replace reference numbers with the footnotes to which they refer and link. Office 2016
Advanced Beginner
Can I replace reference numbers with the footnotes to which they refer and link.
 
Join Date: Oct 2019
Posts: 69
John 4 is on a distinguished road
Default Can I replace reference numbers with the footnotes to which they refer and link.

Dear experts,

I have a large document with 1000s of footnotes. The reference numbers in the text are superscripted and if you double left-click on them it takes you to the footnote; if you double left-click on the same reference number (which is repeated before the footnote) it takes you back to the reference number in the text.



This is all very impressive and handy, but I would like to insert all the footnotes into the text. Is there any way (using find-and-replace for example) of doing so?

Thanks for your time.
Reply With Quote
  #2  
Old 06-13-2020, 08:32 PM
macropod's Avatar
macropod macropod is offline Can I replace reference numbers with the footnotes to which they refer and link. Windows 7 64bit Can I replace reference numbers with the footnotes to which they refer and link. Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

You can't do that via Find/Replace, but it can be done via a macro:
Code:
Sub MoveFootNotes()
Application.ScreenUpdating = False
Dim RngSrc As Range, RngTgt As Range, f As Long
With ActiveDocument
  For f = .Footnotes.Count To 1 Step -1
    With .Footnotes(f)
      Set RngSrc = .Range
      Set RngTgt = .Reference
      RngSrc.End = RngSrc.End - 1
      RngTgt.Collapse wdCollapseStart
      RngTgt.FormattedText = RngSrc.FormattedText
      .Delete
    End With
  Next
End With
Set RngSrc = Nothing: Set RngTgt = Nothing
Application.ScreenUpdating = True
End Sub
For PC macro installation & usage instructions, see: Installing Macros
For Mac macro installation & usage instructions, see: Word:mac - Install a Macro
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
  #3  
Old 06-14-2020, 06:07 AM
RiSta RiSta is offline Can I replace reference numbers with the footnotes to which they refer and link. Windows 10 Can I replace reference numbers with the footnotes to which they refer and link. Office 2019
Novice
 
Join Date: Jun 2020
Posts: 7
RiSta is on a distinguished road
Default

Dear Macropod,

how can I add symbols ** before and after footnote?
Reply With Quote
  #4  
Old 06-14-2020, 04:14 PM
macropod's Avatar
macropod macropod is offline Can I replace reference numbers with the footnotes to which they refer and link. Windows 7 64bit Can I replace reference numbers with the footnotes to which they refer and link. Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,956
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

After:
RngTgt.FormattedText = RngSrc.FormattedText
insert:
RngTgt.InsertBefore "*"
RngTgt.InsertAfter "*"
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
  #5  
Old 06-15-2020, 02:42 PM
John 4 John 4 is offline Can I replace reference numbers with the footnotes to which they refer and link. Windows 10 Can I replace reference numbers with the footnotes to which they refer and link. Office 2016
Advanced Beginner
Can I replace reference numbers with the footnotes to which they refer and link.
 
Join Date: Oct 2019
Posts: 69
John 4 is on a distinguished road
Default

Many thanks Macropod for your speedy reply. I've tried using macros twice before and failed, but I'll give it another go considering the time it would save.

Thanks again
Reply With Quote
  #6  
Old 07-16-2020, 03:07 AM
John 4 John 4 is offline Can I replace reference numbers with the footnotes to which they refer and link. Windows 10 Can I replace reference numbers with the footnotes to which they refer and link. Office 2016
Advanced Beginner
Can I replace reference numbers with the footnotes to which they refer and link.
 
Join Date: Oct 2019
Posts: 69
John 4 is on a distinguished road
Default

The macro works very well, thank-you Macropod.

However I was wondering if it would be possible to be more selective when using it. As it is, it affects the entire document - would it be possible to go through one footnote at a time, or to only affect text that's selected?
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Can I replace reference numbers with the footnotes to which they refer and link. Convert/link superscript numbers to footnotes Apologist Word VBA 2 03-24-2019 02:54 AM
How do I edit my TOC to reference the section numbers instead of the page numbers??? mikey386 Word 0 12-17-2014 02:34 PM
Trying to link page numbers in the footer, but refuses to link after new section fl0shizzle Word 7 05-06-2014 12:15 PM
Can I replace reference numbers with the footnotes to which they refer and link. Reference number and cross reference for equation numbers to match the thesis format wmac Word 1 05-14-2013 08:54 PM
How do I refer to page numbers, when the numbers change as I prepare the document? StevenD Word 5 11-29-2012 12:52 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 05:17 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft