home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / lotus / english / lotus031.dsk / PRSIT.LSS < prev    next >
Encoding:
Text File  |  1995-10-06  |  2.2 KB  |  83 lines
  1. ' The Present-It Script
  2. ' Copies selected text from the current document to the clipboard,
  3. ' launches Freelance, and creates presentation content from the
  4. ' text on the clipboard.
  5.  
  6. Sub    PrsIt()
  7.     On Error Goto HandleProblem
  8.     ' Use these flags to detect the most common errors.
  9.     NullSelectionFailure = False
  10.     LaunchFailure = False
  11.  
  12.     'Save previous view info
  13.     IsPrevViewOutline = CurrentWindow.WinViewPrefs.IsInOutline
  14.     ' Show outline, if not already showing
  15.     If IsPrevViewOutline = False Then
  16.         .BeginChange True
  17.         CurrentWindow.WinViewPrefs.IsInOutline = True
  18.         .EndChange True
  19.     End If
  20.     ' Copy to clipboard
  21.     NullSelectionFailure = True
  22.     .CopySelection
  23.     NullSelectionFailure = False
  24.     
  25.  
  26.     ' Fire up Freelance
  27.     LaunchFailure = True
  28.     Set FLG = CreateObject("Freelance.Application.96")
  29.     LaunchFailure = False
  30.     Set Doc = FLG.NewDocument()
  31.     ' Otherwise the new presentation will be inaccessible
  32.     FLG.Visible = True
  33.     ' Go to the Freelance outline view
  34.     Doc.ViewMode = FLG.GetEnum("ViewOutliner")
  35.     ' Paste in the WP doc
  36.     Doc.Paste
  37.     ' Go to the Freelance sorter view
  38.     Doc.ViewMode = FLG.GetEnum("ViewSorter")
  39.     PageCount = Doc.Pages.Count
  40.     If PageCount = 1 Then
  41.         ' Nothing pasted?
  42.         ' Print "debug: no pages created"
  43.     Else
  44.         ' Last page is the empty title page - get rid of it.
  45.         Set LastPage = Doc.Pages.Item(PageCount)
  46.         LastPage.Remove
  47.     End If
  48.     ' Return to draw view
  49.     Doc.ViewMode = FLG.GetEnum("ViewDraw")
  50.     ' Leave Freelance running with new document active.
  51.     goto AllIsWell
  52.  
  53. HandleProblem:
  54.     On Error Goto VeryEnd
  55.     If NullSelectionFailure = False Then
  56.         If LaunchFailure = False Then
  57.             MessageBox error$(), 48, "Error Creating Presentation"
  58.         Else
  59.             MessageBox "Lotus Freelance Graphics 96 must be installed before running this procedure.", 48, "Error Creating Presentation"
  60.         End If
  61.     Else
  62.         MessageBox "Please select the text you wish to use before running this procedure.", 48, "Error Creating Presentation"
  63.     End If
  64.     Resume Out
  65.  
  66. AllIsWell:
  67.     ' Print "Completed successfully."
  68.  
  69. Out:
  70.     ' Restore view if not outline
  71.     If IsPrevViewOutline = False Then
  72.         .BeginChange True
  73.         CurrentWindow.WinViewPrefs.IsInOutline = False
  74.         .EndChange True
  75.     End If
  76. VeryEnd:
  77.  
  78. End Sub 'PRSIT
  79.  
  80. Sub Main
  81.     Call PrsIt
  82. End Sub
  83.