'Insert hyperlinks between the footnote references Bookmarks.Add Name:="_FNum" & i, Range:=Rng2 'Insert a number before the footnote content and bookmark it Bookmarks.Add Name:="_FRef" & i, Range:=Rng1 '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 '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 ![]() '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 ![]() 'Give the OS a chance to do any background processing ' Store current Track Changes status, then switch off ' Store current Status Bar status, then switch on The hyperlinks also appear as such.ĭim TrkStatus As Boolean ' Track Changes flagĭim Rng1 As Range, Rng2 As Range, i As Long Assuming your footnotes are proper Word footnotes, and not just manually entered numbers with text at the bottom of the page, the following macro should work - it converts endnotes as well.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |