NoteStripper also makes it possible to convert parenthetical notes to embedded ones and vice versa, and it provides a variety of other tools to make working with notes a snap. Then, if you need to, you can turn them back into text notes before sending them off to the typesetter.
But that’s not all NoteStripper works the other way, too, turning plain-text notes into embedded, automatically-numbering ones, so you can edit notes without having to renumber them manually. It’s a useful program for people who need to turn notes into actual text, perhaps to be imported into QuarkXPress or PageMaker. NoteStripper strips Word’s embedded, automatically-numbering notes as numbered text to the end of a document, replacing the automatic reference numbers with superscript numbers. Set r1 = ActiveDocument.Range(ft.Reference.Sentences(1).Start, ft.Reference.Start) You will no doubt need to fiddle around with it a bit, but this should get you going in the right direction…ĭim ft As Footnote Dim r1 As Range, ftstr As String, markįor Each ft In If that’s helpful to you, dandy! If not, just replace ftstr = ft.Range.TextĪctiveDocument.Range(mark, mark + Len(Str(ft.Index) & ftstr)).Font.Superscript = TrueĪctiveDocument.Range(mark, mark + Len(Str(ft.Index))).Font.Superscript = True Well, I just finished this up and then realized that I think I misinterpreted your original request: what the following does is replace the footnote reference with a super-scripted footnote number with the actual text content of the footnote itself also included in the superscript. We primarily do layout work on a Mac (so Applescript may be an option), but work on the text on a PC – so both platforms are available. If, however, we could first have Word go through the document and every time it sees a footnote reference, change it to plain superscripted (or bold, or something identifiable) text that matches the original (i.e., it would keep the numbering), life would be extraordinarily easier. It doesn’t import the footnotes at all (well, there are ways to shuffle things, but that’s a different question). When Quark imports a document from Word, it skips over the footnote reference (the number) and instead inserts a blank space. We want to take a Word document with foot- or endnotes and import it into Quark (6 now, 8 soon). I’m not sure if I’m phrasing this well, so here’s the end goal: Is it possible to write a macro/vba code in Word (2000 or Mac upgrading the version may be in the cards if necessary) to find foot/endnote references in a document and copy them in a different format?
0 kommentar(er)
