home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / ACROREAD / SUITE / DW10_S9.LSS < prev   
Encoding:
Text File  |  1997-01-29  |  862 b   |  33 lines
  1. Const F2 = 113
  2. Const F3 = 114
  3. Const F4 = 115
  4.  
  5. ' This is also in globals - it will be used to attach to the current session of Word Pro
  6. Dim CrntWPSession As WPApplication
  7.  
  8. Sub Main
  9.     ' Set our variable to the current session
  10.     Set CrntWPSession = .Application
  11.     ' Attach our event to Word Pro's keystroke event
  12.     On Event KeyStroke From CrntWPSession Call MyKeyStroke
  13. End Sub
  14.  
  15. Sub MyKeyStroke(Source As Wpapplication, Key As Integer, Modifier As Integer, Receivinglayout As String)
  16.     ' If they hit the [F2] key
  17.     Select Case Key
  18.     Case F2
  19.         ' change the style to Default Text
  20.         .Text.ParagraphStyleName = "Default Text"
  21.         End 2    
  22.     Case F3
  23.         ' change the style to Body Single
  24.         .Text.ParagraphStyleName = "Body Single"
  25.         End 2    
  26.     Case F4
  27.         ' change the style to Bullet 1
  28.         .Text.ParagraphStyleName = "Bullet 1"
  29.         End 2    
  30.     End Select
  31. End Sub
  32.  
  33.