Reply to thread

Message: [QUOTE="Shauna Kelly, post: 5863176"] Hi Fredrik The following should get you started: Sub ReplaceFootnotesWithTheirText() Dim nCounter As Long Dim fn As Word.Footnote Dim rngFN As Word.Range For nCounter = ActiveDocument.Footnotes.Count To 1 Step -1 'Get a reference to our footnote Set fn = ActiveDocument.Footnotes(nCounter) 'Work out where to copy the text Set rngFN = fn.Reference rngFN.Collapse wdCollapseEnd 'Copy the text of the footnote into the body of the document rngFN.FormattedText = fn.Range.FormattedText 'Delete the footnote fn.Delete Next nCounter End Sub Hope this helps. Shauna Kelly. Microsoft MVP. [URL]http://www.shaunakelly.com/word[/URL] [/QUOTE]