home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW04_S1.LSS < prev    next >
Text File  |  1996-08-06  |  2KB  |  78 lines
  1. Option Public
  2. Sub Main
  3.     
  4.     
  5. 'Declare and set variables for Current Application,Text,and Preferences
  6.     
  7.     Dim Ca As WPApplication
  8.     Dim Catxt As Text
  9.     Dim Caprf As Preferences
  10.     
  11.     Set Ca = CurrentApplication
  12.     Set    Catxt = CurrentApplication.Text
  13.     Set Caprf = CurrentApplication.Preferences
  14.     
  15. 'Move to the end of the document
  16.     
  17.     Call Catxt.MoveToEnd ($LwpLocationTypeDocument)
  18.     
  19. 'Insert a line break and go to the next line
  20.     
  21.     Call Catxt.InsertBreak ($LwpBreakTypeLine)
  22.     
  23. ' Set current text to a larger script font
  24.     
  25.     Catxt.Font.WindowsName = "Brush Script"
  26.     Catxt.Font.Size = 16
  27.     
  28. ' Output name
  29.     '
  30.     Call Ca.Type (Caprf.Username)
  31.     
  32. ' Set current text to a smaller plain font
  33.     
  34.     Catxt.Font.WindowsName = "Arial"
  35.     Catxt.Font.Size = 10
  36.     
  37.     
  38. ' Output title & Company
  39.     
  40.     Call Catxt.InsertBreak ($LwpBreakTypeLine)
  41.     
  42.     If (Caprf.Title <> "") Then
  43.         Call Ca.Type (Caprf.Title + ", ")
  44.     End If
  45.     
  46.     Call Ca.Type (Caprf.Company)
  47.     
  48. ' If phone is available, put on next output line
  49.     
  50.     If (Caprf.PhoneNumber <> "") Then    
  51.         
  52.         Call Catxt.InsertBreak ($LwpBreakTypeLine)
  53.         Call Ca.Type ("Phone: " + Caprf.PhoneNumber)
  54.         
  55.     End If
  56.     
  57. ' If fax is available, put on next output line
  58.     
  59.     If (Caprf.FaxNumber <> "") Then    
  60.         
  61.         Call Catxt.InsertBreak ($LwpBreakTypeLine)
  62.         Call Ca.Type ("Fax: " + Caprf.FaxNumber)
  63.         
  64.         
  65.     End If
  66.     
  67.     
  68.     ' If electronic mail address is available, put on next output line
  69.     
  70.     If (Caprf.Email <> "") Then    
  71.         
  72.         Call Catxt.InsertBreak ($LwpBreakTypeLine)
  73.         Call Ca.Type ("E-mail: " + Caprf.Email)
  74.         
  75.     End If
  76.     
  77. End Sub
  78.