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