home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / wordautoma.tcl < prev    next >
Text File  |  1996-10-31  |  5KB  |  117 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #      (c)     Westmount Technology    1994
  4. #
  5. #      File:        @(#)wordautoma.tcl    /main/titanic/2
  6. #      Description:    Ole Automation Interface for Word.Basic    
  7. #            these are the used methods that do not
  8. #            dispatch automatically (because of type mismatches)
  9. #            therefore they are specified here
  10. #---------------------------------------------------------------------------
  11. # SccsId = @(#)wordautoma.tcl    /main/titanic/2   31 Oct 1996 Copyright 1994 Westmount Technology
  12.  
  13. # If Word gives a type mismatch on a method it is possible
  14. # to specify the method parameter(s) ourselves via the
  15. # 'knownDispatch' method.
  16. # The format is:
  17. # knownDispatch <name> <type specification> ?parameters?
  18. # name            - the name of the method
  19. # type specification    - hexadecimal encoded parameter type specification
  20. # parameters        - parameter values
  21. # 
  22. # The type specification has a 4 digit string for every parameter.
  23. # So for 5 parameters it has 20 digits. If the number of digits/4 do
  24. # not match the number of parameters an error is generated.
  25. # 
  26. # most common problem with Word is that the 2 byte signed int
  27. # (VT_I2 = 0002) is not recognized.
  28. #
  29. #  Parameter encoding:
  30. #
  31. #  VT_EMPTY            0000          nothing                     
  32. #  VT_NULL             0001          SQL style Null              
  33. #  VT_I2               0002          2 byte signed int           
  34. #  VT_I4               0003          4 byte signed int           
  35. #  VT_R4               0004          4 byte real                 
  36. #  VT_R8               0005          8 byte real                 
  37. #  VT_CY               0006          currency                    
  38. #  VT_DATE             0007         date                        
  39. #  VT_BSTR             0008          OLE Automation string       
  40. #  VT_DISPATCH         0009          IDispatch FAR*              
  41. #  VT_ERROR            000A          SCODE                       
  42. #  VT_BOOL             000B          True=-1, False=0            
  43. #  VT_VARIANT          000C          VARIANT FAR*                
  44. #  VT_UNKNOWN          000D          IUnknown FAR*               
  45. #  VT_I1               0010          signed char                 
  46. #  VT_UI1              0011          unsigned char               
  47. #  VT_UI2              0012          unsigned short              
  48. #  VT_UI4              0013          unsigned short              
  49. #  VT_I8               0014          signed 64-bit int           
  50. #  VT_UI8              0015          unsigned 64-bit int         
  51. #  VT_INT              0016          signed machine int          
  52. #  VT_UINT             0017          unsigned machine int        
  53. #  VT_VOID             0018          C style void                
  54. #  VT_HRESULT          0019                                    
  55. #  VT_PTR              001A          pointer type                
  56. #  VT_SAFEARRAY        001B          (use VT_ARRAY in VARIANT)   
  57. #  VT_CARRAY           001C          C style array               
  58. #  VT_USERDEFINED      001D          user defined type           
  59. #  VT_LPSTR            001E          null terminated string      
  60. #  VT_LPWSTR           001F          wide null terminated string 
  61.  
  62.  
  63. Class WordAutomationObject : {OleAutoObject} {
  64.     constructor
  65.     method destructor
  66.     method chkInsert
  67.  
  68.     method EditBookmark
  69.     method SetDocumentProperty
  70.     method FormatParagraph
  71.     method FormatPicture
  72.     method CharRight
  73. }
  74.  
  75. constructor WordAutomationObject {class this} {
  76.     set this [OleAutoObject::constructor $class $this Word.Basic]
  77.     # load English interface file for Word
  78.     $this loadTypeLibrary [m4_path_name etc wb70en32.tlb]
  79.     return $this
  80. }
  81.  
  82. method WordAutomationObject::destructor {this} {
  83.     
  84. }
  85.  
  86. method WordAutomationObject::chkInsert {this {str ""}} {
  87.     # wrapper for Insert
  88.     # if str == "" skip Insert
  89.     #
  90.     if {$str != ""} {
  91.         #  VT_BSTR  0008  OLE Automation string       
  92.         set tp 0008
  93.         $this knownDispatch Insert $tp $str
  94.     }
  95. }
  96.  
  97. method WordAutomationObject::EditBookmark {this name sortBy add del goto} {
  98.     set tp 00080002000b000b000b
  99.     $this knownDispatch EditBookmark $tp $name $sortBy $add $del $goto
  100. }
  101.  
  102. method WordAutomationObject::SetDocumentProperty {this name type val builtin} {
  103.     set tp 0008000200080002
  104.     $this knownDispatch SetDocumentProperty $tp $name $type $val $builtin
  105. }
  106.  
  107. method WordAutomationObject::FormatPicture {this size crl crr crt crb scx scy szx szy} {
  108.     set tp 000200080008000800080008000800080008
  109.     $this knownDispatch FormatPicture $tp $size $crl $crr $crt $crb $scx $scy $szx $szy
  110. }
  111.  
  112. method WordAutomationObject::CharRight {this count select} {
  113.     set tp 00020002
  114.     $this knownDispatch CharRight $tp $count $select
  115. }
  116.  
  117.