home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 January / pcwk_01_1999_B.iso / Lotus123 / ITALIAN / LOTUS006.DSK / SCRIPTS / AUTOMAT.TPL next >
Encoding:
Text File  |  1996-09-26  |  1.6 KB  |  56 lines
  1. 'Automation example
  2.     'This script does find on the field itemno
  3.     'for values less than 10.  Then it stores
  4.     'the values statically in a new WordPro
  5.     'document.
  6.     
  7.     Dim RowCount As Integer
  8.     
  9.     Set MyFind = New Find("itemno", "< 10")
  10.     CurrentDocument.window.FindSort MyFind
  11.     
  12.     RowCount = CurrentDocument.Window.NumRecordsFound
  13.     
  14.     'Create a new instance of the WordPro application
  15.     Set WordPro = CreateObject("WordPro.Application")
  16.     
  17.     'With is used as shorthand for the WordPro object created
  18.     With WordPro
  19.         'Make WordPro visible
  20.         .visible = True
  21.         'Create a new WordPro document
  22.         .newdocument
  23.         ' create table with one extra row for headings
  24.         .CreateTable False,"Default Table",5, RowCount + 1
  25.         'First print the column headings:
  26.         .type "Item No"
  27.         'The following line tabs to the next cell
  28.         Call .table.gototablecell(117,1)
  29.         .type "Item"
  30.         Call .table.gototablecell(117,1)
  31.         .type "Description"
  32.         Call .table.gototablecell(117,1)
  33.         .type "Date of Purchase"
  34.         Call .table.gototablecell(117,1)
  35.         .type "Value"
  36.         Call .table.gototablecell(117,1)
  37.         'Now type the values:
  38.         'Go to the first record
  39.         CurrentDocument.Window.FirstRecord
  40.         For c=0 To RowCount
  41.             'These objects happen to be in
  42.             'the correct order to match
  43.             'the columns headings
  44.             Forall objects In CurrentView.ObjectList
  45.                 'Check the object type before printing
  46.                 If objects.Type = $APRFIELDBOX Then
  47.                     .type objects.Text
  48.                     Call .table.gototablecell(117,1)
  49.                 End If
  50.             End Forall
  51.             'Go to the next record
  52.             CurrentDocument.Window.NextRecord
  53.         Next
  54.         
  55.     End With
  56.