'Insert a number before the footnote content and bookmark it Bookmarks.Add Name:="_FRef" & i, Range:=Rng1 InsertCrossReference wdRefTypeFootnote, wdFootnoteNumber, i, False, False 'Insert a number before the footnote reference and bookmark it 'Format the footnote reference as hidden text 'Define two ranges: one to the footnote reference the other to the footnote content 'Give Word a chance to do its housekeeping 'Restore the Rng1 endnote reference bookmark Hyperlinks.Add Anchor:=Rng2, SubAddress:="_ERef" & i Hyperlinks.Add Anchor:=Rng1, SubAddress:="_ENum" & i 'Insert hyperlinks between the endnote references Bookmarks.Add Name:="_ENum" & i, Range:=Rng2 'Insert a number before the endnote content and bookmark it Bookmarks.Add Name:="_ERef" & i, Range:=Rng1 InsertCrossReference wdRefTypeEndnote, wdEndnoteNumber, i, False, False 'To get the actual reference text, we need to cross-reference it! 'Insert a number before the endnote reference and bookmark it 'Format the endnote reference as hidden text 'Define two ranges: one to the endnote reference the other to the endnote content ' Store current Track Changes status, then switch off ' Store current Status Bar status, then switch on The fourth macro (KillHLnkNoteRefs) reverses that process.ĭim TrkStatus As Boolean ' Track Changes flagĭim Rng1 As Range, Rng2 As Range, StrRef As String, i As Long To have the Note References hyperlink to the actual endnote or footnote you could use the third macro (HLnkNoteRefs). The HyperlinkEndNotesFootNotes macro doesn't change that behaviour. The second macro (KillEndNoteFootNoteHyperLinks) reverses the process.įurthermore, Word's Note References always point to the reference in the body of the document, not to the endnote or footnote itself. The following macro replicates the endnote & footnote references (which become hidden text) with bookmarked hyperlinks. When a document is saved in PDF format, endnote & footnote references cease to act as hyperlinks.
0 kommentar(er)
