iopbin.blogg.se

'(oEndCrsr, oCrsr.HyperLinkURL, TRUE)įor i = oAllEndnotes.To change all the notes in a document from one type to another, open the Footnote And Endnote dialog box. ' only now we can insert Endnote text (the HyperLink URL) OEndnote = oDocument.createInstance(".Endnote") ' Loop through them and save the link URL as Endnote text OAllHyperLinks = oDocument.findAll(oSearchDesc()) OSearchDesc.SetSearchAttributes(SrchAttributes()) OSearchDesc = oDocument.CreateSearchDescriptor ' Derived from 2.0.3 / Gimmicks / GetHyperlinks()ĭim SrchAttributes(0) as new .PropertyValue I have no idea how to do any of the above.Ĭode: Select all ' Insert hyperlinks from the current document as Endnotes. Loops so the macra needs only to be used once for the entire file. Select by itself between the ] and the \n. Dynamically takes the link for any endnote instead of only using the one I used to make the macro. So this code should be modified so that it Rem dispatcher.executeDispatch(document, ".uno:Open", "", 0, Array())ĭispatcher.executeDispatch(document, ".uno:GoToNextWord", "", 0, Array())ĭispatcher.executeDispatch(document, ".uno:WordRightSel", "", 0, Array())ĭispatcher.executeDispatch(document, ".uno:Cut", "", 0, Array())ĭim args20(0) as new .PropertyValueĪrgs20(0).Value = "c_lf1292_footnote_nt_037"ĭispatcher.executeDispatch(document, ".uno:JumpToMark", "", 0, args20())ĭispatcher.executeDispatch(document, ".uno:InsertFootnote", "", 0, Array())ĭispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array()) Rem -ĭocument = ĭispatcher = createUnoService(".DispatchHelper")ĭim args1(0) as new .PropertyValueĪrgs1(0).Value = "lf1292_footnote_nt_037"ĭispatcher.executeDispatch(document, ".uno:JumpToMark", "", 0, args1()) I did try to make a macro with the recording tool. Use the Insert -> Footnotes command and paste in the appropriate spot after confirmation. Go back to the appropriate spot in the main body, using the link associated with. Select the body of the note, between the right bracket ] and the \n. In the text body, CTRL+Left click on a ("endnote") link to go to the endnote itself (the link is either associated with an uppercase number or, most of the time, with one or more words in the text)Ģ. There may be one or more carriage return in the body of an endnote.ġ. It's the unprintable character that looks somewhat like Pi ( π). The notes themselve have the following structure: I already converted the file into an ODT document. Of course, I could do it manually, but there are more than 250 of these, so I'd rather avoid it. I wish to print the file, but that implies modifying it so these "Endnotes" become footnotes (anything else would make them completely useless). To be clear, they are links of that kind: I downloaded an html file that includes (whithin the file) internal links that work as endnotes.