Your code is set up (correctly) to use a wildcard replace to insert the found integer within the several places in the HTML-like code, but what you see as a digit for the footnote/endnote number is actually just a special placeholder, so each instance of the \1 would end up with a sequentially numbered integer, and not the same one you'll want in each part of your code. This will get the square brackets around all of the footnote references for you, and remove the superscripting. However, if you use superscripts elsewhere, and if the document has consistently used Word's footnote functions, you would be safer specifying the Style=Footnote Reference in the Find what, and Style=Default Paragraph Font in the Replace with box. If so, you can readily add the with the Find and Replace dialog: Find Format=Superscript, and Replace Format=Not Superscript/Subscript with in the Replace with box (the ^& represents "find what"). a reference within the body, and an entity starting with the corresponding number and the note content.) So that the footnote in the text appears as (normal case) but with the accompanying link and anchor and similarly with the endnote.ĭoes your original document have the footnote/endnote content set as Word footnote/endnotes? (i.e. What I would like to do is to modify this macro so that, if the footnote is 1(in superscript, or subscript), it converts it to This is fine as long as the footnotes and endnotes are surrounded by square brackets and are in normal case (not superscript or subscript). endnote 1 (in red), it asks if it has to be converted and then replaces it with: , it asks if it has to be converted and then replaces it with:Į.g.
The block of endnotes have to be colored red. It searches a document for footnotes and endnotes which have to be in the form of a integer number surrounded by square brackets e.g.
If MsgBox("Should I replace", vbYesNo) = vbYes Then Options.AutoFormatAsYouTyp eReplaceQu otes = False
0 kommentar(er)
