home *** CD-ROM | disk | FTP | other *** search
/ Pegasus 5 / Pegasus_Vol_5_CD2.iso / lotus / lotus033.dsk / PRSIT.LSS < prev    next >
Text File  |  1995-11-28  |  2KB  |  84 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, "Fehler beim Erstellen der PrΣsentation"
  58.         Else
  59.                         MessageBox "Bitte markieren Sie den Text, den Sie verwenden wollen, bevor Sie die Prozedur starten.", 48, "Fehler beim Erstellen der PrΣsentation"
  60.         End If
  61.     Else
  62.                 MessageBox "Freelance Graphics 96 mu▀ installiert werden, bevor Sie diese Prozedur ausfⁿhren k÷nnen.", 48, "Fehler beim Erstellen der PrΣsentation"
  63.     End If
  64.     Resume Out
  65.  
  66.  
  67. AllIsWell:
  68.     ' Print "Completed successfully."
  69.  
  70. Out:
  71.     ' Restore view if not outline
  72.     If IsPrevViewOutline = False Then
  73.         .BeginChange True
  74.         CurrentWindow.WinViewPrefs.IsInOutline = False
  75.         .EndChange True
  76.     End If
  77. VeryEnd:
  78.  
  79. End Sub 'PRSIT
  80.  
  81. Sub Main
  82.     Call PrsIt
  83. End Sub
  84.