home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / lotus / english / lotus031.dsk / BOOKMARK.LSS < prev    next >
Encoding:
Text File  |  1995-07-31  |  852 b   |  22 lines
  1.     REM For best results, run this script in a new document.
  2.     
  3.     REM Enter some text    
  4.     .Type "This is a bookmark."
  5.     REM Select the word "bookmark"
  6.     .Type "[Left][ctrlshiftLeft]"
  7.     REM Mark the text    
  8.     MarkerName = .Mark($LwpMarkerTypeBookmark)
  9.     REM Create a bookmark named "Sample from the marked text
  10.     .Division.BookmarkManager.AddBookmark "Sample", MarkerName
  11.     
  12.     REM Use a TextMarker to manipulate the bookmark.    
  13.     Dim bookmark As TextMarker
  14.     Set bookmark = .Division.Foundry.Markers(.Division.BookmarkManager.Bookmarks("Sample").MarkerName)
  15.     
  16.     textToMessage = "The current bookmark contains the word """ + bookmark.GetMarkedText() + """"
  17.     Messagebox textToMessage,, "Script Sample"
  18.     REM Replace the bookmark with the words "sample bookmark"
  19.     bookmark.Replace $LWPReplaceObjectTypeCharacter, "sample bookmark"
  20.     
  21.     .GotoBookmark "Sample"
  22.