home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW10_S2.LSS < prev    next >
Text File  |  1996-10-20  |  2KB  |  44 lines
  1. Option Public
  2. %include "wpbitmsk.lss"
  3.  
  4.  
  5. Sub MarkupOptions
  6.     Dim CrntEditor As String
  7.     CrntEditor = .Preferences.UserName
  8.  
  9.     ' Section 1 - Specify markup options for the current editor.
  10.     With .ActiveDocument.EditorManager
  11.         ' Set font and attributes for inserted text by first
  12.         ' making sure the text reverts to its original style
  13.         ' then changing the color of the text to purple
  14.         .Editors(CrntEditor).InsertFont.FontColor.Red = 255
  15.         .Editors(CrntEditor).InsertFont.FontColor.Blue = 255
  16.         .Editors(CrntEditor).InsertFont.FontColor.Green = 0 
  17.         .Editors(CrntEditor).InsertFont.FontColor.Override = $LwpColorOverrideRgb
  18.         .Editors(CrntEditor).InsertFont.DoubleUnderline = False
  19.         .Editors(CrntEditor).InsertFont.Underline = False
  20.         .Editors(CrntEditor).InsertFont.Bold = False
  21.         .Editors(CrntEditor).InsertFont.Italic = True
  22.  
  23.         ' Section 2 - Specify font and attributes for deleted text.
  24.         .Editors(CrntEditor).DeleteFont.FontColor.Red = 128
  25.         .Editors(CrntEditor).DeleteFont.FontColor.Blue = 0
  26.         .Editors(CrntEditor).DeleteFont.FontColor.Green = 0
  27.         .Editors(CrntEditor).DeleteFont.FontColor.Override = $LwpColorOverrideRgb
  28.         .Editors(CrntEditor).DeleteFont.Overstrike = True
  29.         
  30.         ' Section 3 - Specify a color for highlighting text.
  31.         .Editors(CrntEditor).HiLiteColor.Red = 128
  32.         .Editors(CrntEditor).HiLiteColor.Blue = 128
  33.         .Editors(CrntEditor).HiLiteColor.Green = 255
  34.         .Editors(CrntEditor).HiLiteColor.Override = $LwpColorOverrideRgb
  35.         
  36.         ' Section 4 - Specify access rights so the current
  37.         ' editor has unlimited access.
  38.         .Editors(CrntEditor).Abilities = $LwpEditAbilEditCurrentOrNewVer
  39.         .Editors(CrntEditor).Locks = LwpEditLocksNoLocks
  40.         .Editors(CrntEditor).Suggestions = LwpEditSuggNoSuggestions
  41.         End With
  42. End Sub
  43.  
  44.