home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98B.iso / Lotus / GERMAN / LOTUS026.DSK / SCRIPTS / PRSIT.LSS < prev   
Text File  |  1997-03-05  |  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")
  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.ActivePage.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 = True Then
  56.         MessageBox " Bitte markieren Sie den Text, den Sie verwenden wollen, bevor Sie die Prozedur starten.", 48, "Fehler beim Erstellen der PrΣsentation"
  57.  
  58.     Else    
  59.         If LaunchFailure = True Then
  60.             MessageBox "Freelance Graphics 97 mu▀ installiert werden, bevor Sie diese Prozedur ausfⁿhren k÷nnen.", 48, "Fehler beim Erstellen der PrΣsentation"
  61.         End If
  62.         
  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.  
  84.