haaask.blogg.se

'Here we can simply search for superscripted text, remove the formatting and 'Interestingly enough, the removal of the EndNotes does not affect the Bookmarks. 'What we are left with are Bookmarks that now refer to the non-existing EndNotes. 'leaving only the bracketed numbers we "typed" there. 'Also, all the EndNote references in the main document would have been removed, 'we "typed" at the bottom of the document in the first loop. 'Now the document should have no EndNotes objects, only the EndNote text that 'each EndNote would have the same reference number, i.e. 'renumber the EndNotes as we delete them, so if we did the delete in the loop above, 'The reason for doing 2 seperate loops is because Word will automatically " & NoteText) '"Type" the EndNote text at the end of the document. Reference.End)Ĭall Selection.TypeText(NoteReference & ". enter the EndNote text at the bottom of the document.Ĭall Selection.SetRange(.Reference.End. enter the reference number in brackets in the main document, e.g. If = wdPrintView Or = wdWebView Or = wdPrintPreview ThenĪ = wdSeekMainDocument 'the endnotes, we may be left with some Bookmarks which we'll have 'All the other references are stored as Bookmarks. 'occurrance in the main document is stored as an EndNote reference. 'NOTE: When there are multiple references to one EndNote, only one 'document or section will be entered as plain text at the end of the 'The text of the EndNotes that Word normally places at the end of the

Formatting is removed and the number places in brackets.

'(usually a superscripted number) with a hardcoded text representation of 'We will do this by replacing the EndNote reference in the main document 'We want to keep the information as is, but as text in the main document 'Word stores the EndNotes as EndNote objects in the EndNotes collection. 'This procedure converts all EndNotes in a document to normal text. However, using the same macro in Word 2010, although it appears to have completed the task, the cross-references although appearing to haveīeen converted, remain as "field results" and therefore when I copy and paste, or click the result and press F9, get something similar to the following: The following code worked great in Word 2003, taking my endnotes and cross-references and replacing them with text.