home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98B.iso / Lotus / FRENCH / LOTUS025.DSK / SCRIPTS / PRSIT.LSS < prev   
Text File  |  1997-03-06  |  2KB  |  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")
  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 "SΘlectionnez le texte α utiliser avant d'exΘcuter cette procΘdure.", 48, "Erreur de crΘation de prΘsentation"
  57.  
  58.     Else    
  59.         If LaunchFailure = True Then
  60.             MessageBox "Lotus Freelance Graphics 97 doit Ωtre installΘ avant d'exΘcuter cette procΘdure.", 48, "Erreur de crΘation de prΘsentation"
  61.         End If
  62.         
  63.     End If
  64.     Resume Out
  65.  
  66. AllIsWell:
  67.     ' Print "ProcΘdure terminΘe avec succΦs."
  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.