home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98B.iso / Lotus / ITALIAN / LOTUS025.DSK / SCRIPTS / PRSIT.LSS < prev   
Text File  |  1997-03-06  |  2KB  |  82 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 "Selezionare il testo da utilizzare prima di eseguire questa procedura.", 48, "Errore durante la creazione della presentazione"
  57.     Else    
  58.         If LaunchFailure = True Then
  59.             MessageBox "Per poter eseguire questa procedura Φ necessario che Lotus Freelance Graphics 96 sia installato.", 48, "Errore durante la creazione della presentazione"
  60.         End If
  61.         
  62.     End If
  63.     Resume Out
  64.  
  65. AllIsWell:
  66.     ' Print "Operazione riuscita."
  67.  
  68. Out:
  69.     ' Restore view if not outline
  70.     If IsPrevViewOutline = False Then
  71.         .BeginChange True
  72.         CurrentWindow.WinViewPrefs.IsInOutline = False
  73.         .EndChange True
  74.     End If
  75. VeryEnd:
  76.  
  77. End Sub 'PRSIT
  78.  
  79. Sub Main
  80.     Call PrsIt
  81. End Sub
  82.