How to keep the footnote(endnote) reference numbers when pasting text between two documents?

macropod · #4 10-20-2015, 03:45 PM

If the footnote references are numeric, you could use code like:

Code:

Sub Demo()
Dim StrRef As String
With Selection
  If .Footnotes.Count > 0 Then
    StrRef = .Footnotes(1).Index
    MsgBox StrRef
  End If
End With
End Sub

If they're anything else (e.g. roman numerals), you'll need code like:

Code:

Sub Demo()
Dim Rng As Range, StrRef As String, i As Long
With Selection
  If .Footnotes.Count > 0 Then
    i = .Footnotes(1).Index
    Set Rng = .Footnotes(1).Reference
    With Rng
      'To get the actual reference text, we need to cross-reference it!
      .Collapse wdCollapseStart
      .InsertCrossReference wdRefTypeFootnote, wdFootnoteNumber, i, False, False
      .End = .End + 1
      StrRef = .Fields(1).Result
      .Fields(1).Delete
    End With
    MsgBox StrRef
  End If
End With
Set Rng = Nothing
End Sub

Do note what I said in my previous post, though, about the implications on the rest of your document of doing what you're suggesting. I think you'll find the result unacceptable.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Convert endnote/footnote to regular text	Cobb78	Word	5	07-11-2016 06:23 AM
Macro to find text only footnote numbers	TimFromPhx	Word VBA	7	04-10-2014 07:05 PM
Endnote in footnote?	kerstin	Word	2	06-26-2011 11:23 PM
endnote and import reference from word to endnote	uncung	Word	0	06-18-2011 08:09 AM
Cross-reference endnote text	smed	Word	3	01-14-2011 03:34 PM