Everything related to our flagship word processor.
4 posts • Page 1 of 1
How about adding bookmark to all the first lines of paragraph? The macro below will do the job.
Code: Select all
### Bookmark First Lines ### Require Pro Version '2.1' $prefix = @S'_' /* • $prefix above defined will make it easier to distinguish bookmarks added by this macro from other bookmarks. • If your document has not other bookmarks, use @S'' which will add nothing to bookmark names. */ $doc = Document.active if $doc == @undefined exit 'No open document, exiting...' end $paragraphStarts = $doc.text.findAll '^(?=\S)', 'E-i' # Get the location of paragraph starts followed by a visible character. if $paragraphStarts.count > 0 foreach $start in $paragraphStarts $firstLine = TextSelection.new($start.text, $start.text.rangeOfLineAtIndex($start.location)) # Get TextSelection object for this paragraph start. $bookmarkName = $prefix & $firstLine.substring Push Target Selection $firstLine Add Bookmark As $bookmarkName Pop Target Selection end end Set Navigator Mode 'Bookmarks by Location' Set Navigator Shown @true ### end of macro
I just had an idea. Macro is not necessary. Switch to the Style sheet and add a TOC level to the paragraph style for normal text. First portion of every paragraph in that style will show up in the Navigator.editor10 wrote:I seem to remember something like this long ago in Nisus.