home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Ocx / Servers / WORD97.PAS < prev   
Pascal/Delphi Source File  |  1999-08-11  |  1MB  |  26,979 lines
  1. unit Word97;
  2.  
  3. // ************************************************************************ //
  4. // WARNING                                                                    
  5. // -------                                                                    
  6. // The types declared in this file were generated from data read from a       
  7. // Type Library. If this type library is explicitly or indirectly (via        
  8. // another type library referring to this type library) re-imported, or the   
  9. // 'Refresh' command of the Type Library Editor activated while editing the   
  10. // Type Library, the contents of this file will be regenerated and all        
  11. // manual modifications will be lost.                                         
  12. // ************************************************************************ //
  13.  
  14. // PASTLWTR : $Revision:   1.10  $
  15. // File generated on 6/3/99 9:50:12 PM from Type Library described below.
  16.  
  17. // ************************************************************************ //
  18. // Type Lib: typelibraries\word8.olb (1)
  19. // IID\LCID: {00020905-0000-0000-C000-000000000046}\409
  20. // Helpfile: D:\tp\typelib\typelibraries\VBAWRD8.HLP
  21. // DepndLst: 
  22. //   (1) v2.0 stdole, (C:\WINNT\System32\STDOLE2.TLB)
  23. //   (2) v2.0 Office, (D:\Program Files\Microsoft Office\Office\mso97.dll)
  24. //   (3) v5.0 VBIDE, (C:\typelib\VBEEXT1.olb)
  25. //   (4) v4.0 StdVCL, (C:\WINNT\System32\STDVCL40.DLL)
  26. // Errors:
  27. //   Hint: Symbol 'Application' renamed to 'WordApplication'
  28. //   Hint: Symbol 'Document' renamed to 'WordDocument'
  29. //   Hint: Symbol 'Font' renamed to 'WordFont'
  30. //   Hint: Symbol 'ParagraphFormat' renamed to 'WordParagraphFormat'
  31. //   Hint: Symbol 'OLEControl' renamed to 'WordOLEControl'
  32. //   Hint: Symbol 'LetterContent' renamed to 'WordLetterContent'
  33. //   Hint: Symbol 'System' renamed to 'System_'
  34. //   Hint: Parameter 'Object' of _Application.IsObjectValid changed to 'Object_'
  35. //   Hint: Parameter 'To' of _Application.PrintOut changed to 'To_'
  36. //   Hint: Member 'Repeat' of '_Application' changed to 'Repeat_'
  37. //   Hint: Parameter 'Object' of _Application.OrganizerCopy changed to 'Object_'
  38. //   Hint: Parameter 'Object' of _Application.OrganizerDelete changed to 'Object_'
  39. //   Hint: Parameter 'Object' of _Application.OrganizerRename changed to 'Object_'
  40. //   Hint: Parameter 'String' of _Application.CheckGrammar changed to 'String_'
  41. //   Hint: Parameter 'String' of _Application.CleanString changed to 'String_'
  42. //   Hint: Symbol 'System' renamed to 'System_'
  43. //   Hint: Parameter 'Object' of _Global.IsObjectValid changed to 'Object_'
  44. //   Hint: Member 'Repeat' of '_Global' changed to 'Repeat_'
  45. //   Hint: Parameter 'String' of _Global.CleanString changed to 'String_'
  46. //   Hint: Member 'Type' of '_Document' changed to 'Type_'
  47. //   Hint: Parameter 'Type' of _Document.Compatibility changed to 'Type_'
  48. //   Hint: Parameter 'Type' of _Document.Compatibility changed to 'Type_'
  49. //   Hint: Parameter 'To' of _Document.PrintOut changed to 'To_'
  50. //   Hint: Parameter 'End' of _Document.Range changed to 'End_'
  51. //   Hint: Member 'GoTo' of '_Document' changed to 'GoTo_'
  52. //   Hint: Parameter 'Type' of _Document.Protect changed to 'Type_'
  53. //   Hint: Parameter 'Type' of _Document.EditionOptions changed to 'Type_'
  54. //   Hint: Member 'Type' of 'Template' changed to 'Type_'
  55. //   Hint: Member 'End' of 'Bookmark' changed to 'End_'
  56. //   Hint: Member 'Type' of 'Window' changed to 'Type_'
  57. //   Hint: Parameter 'To' of Window.PrintOut changed to 'To_'
  58. //   Hint: Member 'End' of 'Range' changed to 'End_'
  59. //   Hint: Member 'Case' of 'Range' changed to 'Case_'
  60. //   Hint: Parameter 'Type' of Range.Information changed to 'Type_'
  61. //   Hint: Parameter 'End' of Range.SetRange changed to 'End_'
  62. //   Hint: Parameter 'Unit' of Range.Next changed to 'Unit_'
  63. //   Hint: Parameter 'Unit' of Range.Previous changed to 'Unit_'
  64. //   Hint: Parameter 'Unit' of Range.StartOf changed to 'Unit_'
  65. //   Hint: Parameter 'Unit' of Range.EndOf changed to 'Unit_'
  66. //   Hint: Parameter 'Unit' of Range.Move changed to 'Unit_'
  67. //   Hint: Parameter 'Unit' of Range.MoveStart changed to 'Unit_'
  68. //   Hint: Parameter 'Unit' of Range.MoveEnd changed to 'Unit_'
  69. //   Hint: Parameter 'Type' of Range.InsertBreak changed to 'Type_'
  70. //   Hint: Parameter 'Unit' of Range.Delete changed to 'Unit_'
  71. //   Hint: Parameter 'Unit' of Range.Expand changed to 'Unit_'
  72. //   Hint: Parameter 'Label' of Range.InsertCaption changed to 'Label_'
  73. //   Hint: Member 'GoTo' of 'Range' changed to 'GoTo_'
  74. //   Hint: Parameter 'To' of Range.InsertDatabase changed to 'To_'
  75. //   Hint: Member 'Label' of 'OLEFormat' changed to 'Label_'
  76. //   Hint: Member 'Object' of 'OLEFormat' changed to 'Object_'
  77. //   Hint: Member 'Type' of 'LinkFormat' changed to 'Type_'
  78. //   Hint: Parameter 'Type' of Fields.Add changed to 'Type_'
  79. //   Hint: Member 'Type' of 'Field' changed to 'Type_'
  80. //   Hint: Parameter 'Type' of Styles.Add changed to 'Type_'
  81. //   Hint: Member 'Type' of 'Style' changed to 'Type_'
  82. //   Hint: Parameter 'Type' of FormFields.Add changed to 'Type_'
  83. //   Hint: Member 'Type' of 'FormField' changed to 'Type_'
  84. //   Hint: Member 'Type' of 'TextInput' changed to 'Type_'
  85. //   Hint: Parameter 'Type' of TextInput.EditType changed to 'Type_'
  86. //   Hint: Parameter 'Type' of MailMerge.UseAddressBook changed to 'Type_'
  87. //   Hint: Member 'Type' of 'MailMergeField' changed to 'Type_'
  88. //   Hint: Member 'Type' of 'MailMergeDataSource' changed to 'Type_'
  89. //   Hint: Member 'Type' of 'Dialog' changed to 'Type_'
  90. //   Hint: Member 'End' of 'Selection' changed to 'End_'
  91. //   Hint: Member 'Type' of 'Selection' changed to 'Type_'
  92. //   Hint: Parameter 'Type' of Selection.Information changed to 'Type_'
  93. //   Hint: Parameter 'End' of Selection.SetRange changed to 'End_'
  94. //   Hint: Parameter 'Unit' of Selection.Next changed to 'Unit_'
  95. //   Hint: Parameter 'Unit' of Selection.Previous changed to 'Unit_'
  96. //   Hint: Parameter 'Unit' of Selection.StartOf changed to 'Unit_'
  97. //   Hint: Parameter 'Unit' of Selection.EndOf changed to 'Unit_'
  98. //   Hint: Parameter 'Unit' of Selection.Move changed to 'Unit_'
  99. //   Hint: Parameter 'Unit' of Selection.MoveStart changed to 'Unit_'
  100. //   Hint: Parameter 'Unit' of Selection.MoveEnd changed to 'Unit_'
  101. //   Hint: Parameter 'Type' of Selection.InsertBreak changed to 'Type_'
  102. //   Hint: Parameter 'Unit' of Selection.Delete changed to 'Unit_'
  103. //   Hint: Parameter 'Unit' of Selection.Expand changed to 'Unit_'
  104. //   Hint: Parameter 'Label' of Selection.InsertCaption changed to 'Label_'
  105. //   Hint: Member 'GoTo' of 'Selection' changed to 'GoTo_'
  106. //   Hint: Parameter 'Unit' of Selection.MoveLeft changed to 'Unit_'
  107. //   Hint: Parameter 'Unit' of Selection.MoveRight changed to 'Unit_'
  108. //   Hint: Parameter 'Unit' of Selection.MoveUp changed to 'Unit_'
  109. //   Hint: Parameter 'Unit' of Selection.MoveDown changed to 'Unit_'
  110. //   Hint: Parameter 'Unit' of Selection.HomeKey changed to 'Unit_'
  111. //   Hint: Parameter 'Unit' of Selection.EndKey changed to 'Unit_'
  112. //   Hint: Parameter 'Type' of Indexes.Add changed to 'Type_'
  113. //   Hint: Member 'Type' of 'Index' changed to 'Type_'
  114. //   Hint: Member 'Type' of 'Revision' changed to 'Type_'
  115. //   Hint: Member 'Protected' of 'KeyBinding' changed to 'Protected_'
  116. //   Hint: Member 'Type' of 'Hyperlink' changed to 'Type_'
  117. //   Hint: Parameter 'Type' of Shapes.AddCallout changed to 'Type_'
  118. //   Hint: Parameter 'Type' of Shapes.AddConnector changed to 'Type_'
  119. //   Hint: Parameter 'Type' of Shapes.AddShape changed to 'Type_'
  120. //   Hint: Member 'Type' of 'ShapeRange' changed to 'Type_'
  121. //   Hint: Member 'Type' of 'Shape' changed to 'Type_'
  122. //   Hint: Member 'Type' of 'View' changed to 'Type_'
  123. //   Hint: Member 'Type' of 'InlineShape' changed to 'Type_'
  124. //   Hint: Member 'Type' of 'Dictionary' changed to 'Type_'
  125. //   Hint: Member 'Type' of 'ProofreadingErrors' changed to 'Type_'
  126. //   Hint: Member 'Type' of 'WrapFormat' changed to 'Type_'
  127. //   Hint: Member 'Type' of 'CalloutFormat' changed to 'Type_'
  128. //   Hint: Member 'Type' of 'ColorFormat' changed to 'Type_'
  129. //   Hint: Member 'Type' of 'ConnectorFormat' changed to 'Type_'
  130. //   Hint: Member 'Type' of 'FillFormat' changed to 'Type_'
  131. //   Hint: Member 'Type' of 'ShadowFormat' changed to 'Type_'
  132. //   Hint: Symbol 'Application' renamed to 'WordApplication'
  133. //   Hint: Symbol 'Document' renamed to 'WordDocument'
  134. //   Hint: Symbol 'Font' renamed to 'WordFont'
  135. //   Hint: Symbol 'ParagraphFormat' renamed to 'WordParagraphFormat'
  136. //   Hint: Symbol 'OLEControl' renamed to 'WordOLEControl'
  137. //   Hint: Symbol 'LetterContent' renamed to 'WordLetterContent'
  138. //   Hint: Symbol 'System' renamed to 'System_'
  139. //   Hint: Member 'Repeat' of '_Application' changed to 'Repeat_'
  140. //   Hint: Symbol 'System' renamed to 'System_'
  141. //   Hint: Member 'Repeat' of '_Global' changed to 'Repeat_'
  142. //   Hint: Member 'Type' of '_Document' changed to 'Type_'
  143. //   Hint: Member 'GoTo' of '_Document' changed to 'GoTo_'
  144. //   Hint: Member 'Type' of 'Template' changed to 'Type_'
  145. //   Hint: Member 'End' of 'Bookmark' changed to 'End_'
  146. //   Hint: Member 'Type' of 'Window' changed to 'Type_'
  147. //   Hint: Member 'End' of 'Range' changed to 'End_'
  148. //   Hint: Member 'Case' of 'Range' changed to 'Case_'
  149. //   Hint: Member 'GoTo' of 'Range' changed to 'GoTo_'
  150. //   Hint: Member 'Label' of 'OLEFormat' changed to 'Label_'
  151. //   Hint: Member 'Object' of 'OLEFormat' changed to 'Object_'
  152. //   Hint: Member 'Type' of 'LinkFormat' changed to 'Type_'
  153. //   Hint: Member 'Type' of 'Field' changed to 'Type_'
  154. //   Hint: Member 'Type' of 'Style' changed to 'Type_'
  155. //   Hint: Member 'Type' of 'FormField' changed to 'Type_'
  156. //   Hint: Member 'Type' of 'TextInput' changed to 'Type_'
  157. //   Hint: Member 'Type' of 'MailMergeField' changed to 'Type_'
  158. //   Hint: Member 'Type' of 'MailMergeDataSource' changed to 'Type_'
  159. //   Hint: Member 'Type' of 'Dialog' changed to 'Type_'
  160. //   Hint: Member 'End' of 'Selection' changed to 'End_'
  161. //   Hint: Member 'Type' of 'Selection' changed to 'Type_'
  162. //   Hint: Member 'GoTo' of 'Selection' changed to 'GoTo_'
  163. //   Hint: Member 'Type' of 'Index' changed to 'Type_'
  164. //   Hint: Member 'Type' of 'Revision' changed to 'Type_'
  165. //   Hint: Member 'Protected' of 'KeyBinding' changed to 'Protected_'
  166. //   Hint: Member 'Type' of 'Hyperlink' changed to 'Type_'
  167. //   Hint: Member 'Type' of 'ShapeRange' changed to 'Type_'
  168. //   Hint: Member 'Type' of 'Shape' changed to 'Type_'
  169. //   Hint: Member 'Type' of 'View' changed to 'Type_'
  170. //   Hint: Member 'Type' of 'InlineShape' changed to 'Type_'
  171. //   Hint: Member 'Type' of 'Dictionary' changed to 'Type_'
  172. //   Hint: Member 'Type' of 'ProofreadingErrors' changed to 'Type_'
  173. //   Hint: Member 'Type' of 'WrapFormat' changed to 'Type_'
  174. //   Hint: Member 'Type' of 'CalloutFormat' changed to 'Type_'
  175. //   Hint: Member 'Type' of 'ColorFormat' changed to 'Type_'
  176. //   Hint: Member 'Type' of 'ConnectorFormat' changed to 'Type_'
  177. //   Hint: Member 'Type' of 'FillFormat' changed to 'Type_'
  178. //   Hint: Member 'Type' of 'ShadowFormat' changed to 'Type_'
  179. // ************************************************************************ //
  180. interface
  181.  
  182. uses Windows, ActiveX, Classes, Graphics, OleServer, OleCtrls, StdVCL, 
  183.   Office97, VBIDE97;
  184.  
  185. // *********************************************************************//
  186. // GUIDS declared in the TypeLibrary. Following prefixes are used:        
  187. //   Type Libraries     : LIBID_xxxx                                      
  188. //   CoClasses          : CLASS_xxxx                                      
  189. //   DISPInterfaces     : DIID_xxxx                                       
  190. //   Non-DISP interfaces: IID_xxxx                                        
  191. // *********************************************************************//
  192. const
  193.   // TypeLibrary Major and minor versions
  194.   WordMajorVersion = 8;
  195.   WordMinorVersion = 0;
  196.  
  197.   LIBID_Word: TGUID = '{00020905-0000-0000-C000-000000000046}';
  198.  
  199.   IID__Application: TGUID = '{00020970-0000-0000-C000-000000000046}';
  200.   IID__Global: TGUID = '{000209B9-0000-0000-C000-000000000046}';
  201.   IID_FontNames: TGUID = '{0002096F-0000-0000-C000-000000000046}';
  202.   IID_Languages: TGUID = '{0002096E-0000-0000-C000-000000000046}';
  203.   IID_Language: TGUID = '{0002096D-0000-0000-C000-000000000046}';
  204.   IID_Documents: TGUID = '{0002096C-0000-0000-C000-000000000046}';
  205.   IID__Document: TGUID = '{0002096B-0000-0000-C000-000000000046}';
  206.   IID_Template: TGUID = '{0002096A-0000-0000-C000-000000000046}';
  207.   IID_Templates: TGUID = '{000209A2-0000-0000-C000-000000000046}';
  208.   IID_RoutingSlip: TGUID = '{00020969-0000-0000-C000-000000000046}';
  209.   IID_Bookmark: TGUID = '{00020968-0000-0000-C000-000000000046}';
  210.   IID_Bookmarks: TGUID = '{00020967-0000-0000-C000-000000000046}';
  211.   IID_Variable: TGUID = '{00020966-0000-0000-C000-000000000046}';
  212.   IID_Variables: TGUID = '{00020965-0000-0000-C000-000000000046}';
  213.   IID_RecentFile: TGUID = '{00020964-0000-0000-C000-000000000046}';
  214.   IID_RecentFiles: TGUID = '{00020963-0000-0000-C000-000000000046}';
  215.   IID_Window: TGUID = '{00020962-0000-0000-C000-000000000046}';
  216.   IID_Windows: TGUID = '{00020961-0000-0000-C000-000000000046}';
  217.   IID_Pane: TGUID = '{00020960-0000-0000-C000-000000000046}';
  218.   IID_Panes: TGUID = '{0002095F-0000-0000-C000-000000000046}';
  219.   IID_Range: TGUID = '{0002095E-0000-0000-C000-000000000046}';
  220.   IID_ListFormat: TGUID = '{000209C0-0000-0000-C000-000000000046}';
  221.   IID_Find: TGUID = '{000209B0-0000-0000-C000-000000000046}';
  222.   IID_Replacement: TGUID = '{000209B1-0000-0000-C000-000000000046}';
  223.   IID_Characters: TGUID = '{0002095D-0000-0000-C000-000000000046}';
  224.   IID_Words: TGUID = '{0002095C-0000-0000-C000-000000000046}';
  225.   IID_Sentences: TGUID = '{0002095B-0000-0000-C000-000000000046}';
  226.   IID_Sections: TGUID = '{0002095A-0000-0000-C000-000000000046}';
  227.   IID_Section: TGUID = '{00020959-0000-0000-C000-000000000046}';
  228.   IID_Paragraphs: TGUID = '{00020958-0000-0000-C000-000000000046}';
  229.   IID_Paragraph: TGUID = '{00020957-0000-0000-C000-000000000046}';
  230.   IID_DropCap: TGUID = '{00020956-0000-0000-C000-000000000046}';
  231.   IID_TabStops: TGUID = '{00020955-0000-0000-C000-000000000046}';
  232.   IID_TabStop: TGUID = '{00020954-0000-0000-C000-000000000046}';
  233.   IID__ParagraphFormat: TGUID = '{00020953-0000-0000-C000-000000000046}';
  234.   IID__Font: TGUID = '{00020952-0000-0000-C000-000000000046}';
  235.   IID_Table: TGUID = '{00020951-0000-0000-C000-000000000046}';
  236.   IID_Row: TGUID = '{00020950-0000-0000-C000-000000000046}';
  237.   IID_Column: TGUID = '{0002094F-0000-0000-C000-000000000046}';
  238.   IID_Cell: TGUID = '{0002094E-0000-0000-C000-000000000046}';
  239.   IID_Tables: TGUID = '{0002094D-0000-0000-C000-000000000046}';
  240.   IID_Rows: TGUID = '{0002094C-0000-0000-C000-000000000046}';
  241.   IID_Columns: TGUID = '{0002094B-0000-0000-C000-000000000046}';
  242.   IID_Cells: TGUID = '{0002094A-0000-0000-C000-000000000046}';
  243.   IID_AutoCorrect: TGUID = '{00020949-0000-0000-C000-000000000046}';
  244.   IID_AutoCorrectEntries: TGUID = '{00020948-0000-0000-C000-000000000046}';
  245.   IID_AutoCorrectEntry: TGUID = '{00020947-0000-0000-C000-000000000046}';
  246.   IID_FirstLetterExceptions: TGUID = '{00020946-0000-0000-C000-000000000046}';
  247.   IID_FirstLetterException: TGUID = '{00020945-0000-0000-C000-000000000046}';
  248.   IID_TwoInitialCapsExceptions: TGUID = '{00020944-0000-0000-C000-000000000046}';
  249.   IID_TwoInitialCapsException: TGUID = '{00020943-0000-0000-C000-000000000046}';
  250.   IID_Footnotes: TGUID = '{00020942-0000-0000-C000-000000000046}';
  251.   IID_Endnotes: TGUID = '{00020941-0000-0000-C000-000000000046}';
  252.   IID_Comments: TGUID = '{00020940-0000-0000-C000-000000000046}';
  253.   IID_Footnote: TGUID = '{0002093F-0000-0000-C000-000000000046}';
  254.   IID_Endnote: TGUID = '{0002093E-0000-0000-C000-000000000046}';
  255.   IID_Comment: TGUID = '{0002093D-0000-0000-C000-000000000046}';
  256.   IID_Borders: TGUID = '{0002093C-0000-0000-C000-000000000046}';
  257.   IID_Border: TGUID = '{0002093B-0000-0000-C000-000000000046}';
  258.   IID_Shading: TGUID = '{0002093A-0000-0000-C000-000000000046}';
  259.   IID_TextRetrievalMode: TGUID = '{00020939-0000-0000-C000-000000000046}';
  260.   IID_AutoTextEntries: TGUID = '{00020937-0000-0000-C000-000000000046}';
  261.   IID_AutoTextEntry: TGUID = '{00020936-0000-0000-C000-000000000046}';
  262.   IID_System: TGUID = '{00020935-0000-0000-C000-000000000046}';
  263.   IID_OLEFormat: TGUID = '{00020933-0000-0000-C000-000000000046}';
  264.   IID_LinkFormat: TGUID = '{00020931-0000-0000-C000-000000000046}';
  265.   IID__OLEControl: TGUID = '{000209A4-0000-0000-C000-000000000046}';
  266.   IID_Fields: TGUID = '{00020930-0000-0000-C000-000000000046}';
  267.   IID_Field: TGUID = '{0002092F-0000-0000-C000-000000000046}';
  268.   IID_Browser: TGUID = '{0002092E-0000-0000-C000-000000000046}';
  269.   IID_Styles: TGUID = '{0002092D-0000-0000-C000-000000000046}';
  270.   IID_Style: TGUID = '{0002092C-0000-0000-C000-000000000046}';
  271.   IID_Frames: TGUID = '{0002092B-0000-0000-C000-000000000046}';
  272.   IID_Frame: TGUID = '{0002092A-0000-0000-C000-000000000046}';
  273.   IID_FormFields: TGUID = '{00020929-0000-0000-C000-000000000046}';
  274.   IID_FormField: TGUID = '{00020928-0000-0000-C000-000000000046}';
  275.   IID_TextInput: TGUID = '{00020927-0000-0000-C000-000000000046}';
  276.   IID_CheckBox: TGUID = '{00020926-0000-0000-C000-000000000046}';
  277.   IID_DropDown: TGUID = '{00020925-0000-0000-C000-000000000046}';
  278.   IID_ListEntries: TGUID = '{00020924-0000-0000-C000-000000000046}';
  279.   IID_ListEntry: TGUID = '{00020923-0000-0000-C000-000000000046}';
  280.   IID_TablesOfFigures: TGUID = '{00020922-0000-0000-C000-000000000046}';
  281.   IID_TableOfFigures: TGUID = '{00020921-0000-0000-C000-000000000046}';
  282.   IID_MailMerge: TGUID = '{00020920-0000-0000-C000-000000000046}';
  283.   IID_MailMergeFields: TGUID = '{0002091F-0000-0000-C000-000000000046}';
  284.   IID_MailMergeField: TGUID = '{0002091E-0000-0000-C000-000000000046}';
  285.   IID_MailMergeDataSource: TGUID = '{0002091D-0000-0000-C000-000000000046}';
  286.   IID_MailMergeFieldNames: TGUID = '{0002091C-0000-0000-C000-000000000046}';
  287.   IID_MailMergeFieldName: TGUID = '{0002091B-0000-0000-C000-000000000046}';
  288.   IID_MailMergeDataFields: TGUID = '{0002091A-0000-0000-C000-000000000046}';
  289.   IID_MailMergeDataField: TGUID = '{00020919-0000-0000-C000-000000000046}';
  290.   IID_Envelope: TGUID = '{00020918-0000-0000-C000-000000000046}';
  291.   IID_MailingLabel: TGUID = '{00020917-0000-0000-C000-000000000046}';
  292.   IID_CustomLabels: TGUID = '{00020916-0000-0000-C000-000000000046}';
  293.   IID_CustomLabel: TGUID = '{00020915-0000-0000-C000-000000000046}';
  294.   IID_TablesOfContents: TGUID = '{00020914-0000-0000-C000-000000000046}';
  295.   IID_TableOfContents: TGUID = '{00020913-0000-0000-C000-000000000046}';
  296.   IID_TablesOfAuthorities: TGUID = '{00020912-0000-0000-C000-000000000046}';
  297.   IID_TableOfAuthorities: TGUID = '{00020911-0000-0000-C000-000000000046}';
  298.   IID_Dialogs: TGUID = '{00020910-0000-0000-C000-000000000046}';
  299.   IID_Dialog: TGUID = '{000209B8-0000-0000-C000-000000000046}';
  300.   IID_PageSetup: TGUID = '{00020971-0000-0000-C000-000000000046}';
  301.   IID_LineNumbering: TGUID = '{00020972-0000-0000-C000-000000000046}';
  302.   IID_TextColumns: TGUID = '{00020973-0000-0000-C000-000000000046}';
  303.   IID_TextColumn: TGUID = '{00020974-0000-0000-C000-000000000046}';
  304.   IID_Selection: TGUID = '{00020975-0000-0000-C000-000000000046}';
  305.   IID_TablesOfAuthoritiesCategories: TGUID = '{00020976-0000-0000-C000-000000000046}';
  306.   IID_TableOfAuthoritiesCategory: TGUID = '{00020977-0000-0000-C000-000000000046}';
  307.   IID_CaptionLabels: TGUID = '{00020978-0000-0000-C000-000000000046}';
  308.   IID_CaptionLabel: TGUID = '{00020979-0000-0000-C000-000000000046}';
  309.   IID_AutoCaptions: TGUID = '{0002097A-0000-0000-C000-000000000046}';
  310.   IID_AutoCaption: TGUID = '{0002097B-0000-0000-C000-000000000046}';
  311.   IID_Indexes: TGUID = '{0002097C-0000-0000-C000-000000000046}';
  312.   IID_Index: TGUID = '{0002097D-0000-0000-C000-000000000046}';
  313.   IID_AddIn: TGUID = '{0002097E-0000-0000-C000-000000000046}';
  314.   IID_AddIns: TGUID = '{0002097F-0000-0000-C000-000000000046}';
  315.   IID_Revisions: TGUID = '{00020980-0000-0000-C000-000000000046}';
  316.   IID_Revision: TGUID = '{00020981-0000-0000-C000-000000000046}';
  317.   IID_Task: TGUID = '{00020982-0000-0000-C000-000000000046}';
  318.   IID_Tasks: TGUID = '{00020983-0000-0000-C000-000000000046}';
  319.   IID_HeadersFooters: TGUID = '{00020984-0000-0000-C000-000000000046}';
  320.   IID_HeaderFooter: TGUID = '{00020985-0000-0000-C000-000000000046}';
  321.   IID_PageNumbers: TGUID = '{00020986-0000-0000-C000-000000000046}';
  322.   IID_PageNumber: TGUID = '{00020987-0000-0000-C000-000000000046}';
  323.   IID_Subdocuments: TGUID = '{00020988-0000-0000-C000-000000000046}';
  324.   IID_Subdocument: TGUID = '{00020989-0000-0000-C000-000000000046}';
  325.   IID_HeadingStyles: TGUID = '{0002098A-0000-0000-C000-000000000046}';
  326.   IID_HeadingStyle: TGUID = '{0002098B-0000-0000-C000-000000000046}';
  327.   IID_StoryRanges: TGUID = '{0002098C-0000-0000-C000-000000000046}';
  328.   IID_ListLevel: TGUID = '{0002098D-0000-0000-C000-000000000046}';
  329.   IID_ListLevels: TGUID = '{0002098E-0000-0000-C000-000000000046}';
  330.   IID_ListTemplate: TGUID = '{0002098F-0000-0000-C000-000000000046}';
  331.   IID_ListTemplates: TGUID = '{00020990-0000-0000-C000-000000000046}';
  332.   IID_ListParagraphs: TGUID = '{00020991-0000-0000-C000-000000000046}';
  333.   IID_List: TGUID = '{00020992-0000-0000-C000-000000000046}';
  334.   IID_Lists: TGUID = '{00020993-0000-0000-C000-000000000046}';
  335.   IID_ListGallery: TGUID = '{00020994-0000-0000-C000-000000000046}';
  336.   IID_ListGalleries: TGUID = '{00020995-0000-0000-C000-000000000046}';
  337.   IID_KeyBindings: TGUID = '{00020996-0000-0000-C000-000000000046}';
  338.   IID_KeysBoundTo: TGUID = '{00020997-0000-0000-C000-000000000046}';
  339.   IID_KeyBinding: TGUID = '{00020998-0000-0000-C000-000000000046}';
  340.   IID_FileConverter: TGUID = '{00020999-0000-0000-C000-000000000046}';
  341.   IID_FileConverters: TGUID = '{0002099A-0000-0000-C000-000000000046}';
  342.   IID_SynonymInfo: TGUID = '{0002099B-0000-0000-C000-000000000046}';
  343.   IID_Hyperlinks: TGUID = '{0002099C-0000-0000-C000-000000000046}';
  344.   IID_Hyperlink: TGUID = '{0002099D-0000-0000-C000-000000000046}';
  345.   IID_Shapes: TGUID = '{0002099F-0000-0000-C000-000000000046}';
  346.   IID_ShapeRange: TGUID = '{000209B5-0000-0000-C000-000000000046}';
  347.   IID_GroupShapes: TGUID = '{000209B6-0000-0000-C000-000000000046}';
  348.   IID_Shape: TGUID = '{000209A0-0000-0000-C000-000000000046}';
  349.   IID_TextFrame: TGUID = '{000209B2-0000-0000-C000-000000000046}';
  350.   IID__LetterContent: TGUID = '{000209A1-0000-0000-C000-000000000046}';
  351.   IID_View: TGUID = '{000209A5-0000-0000-C000-000000000046}';
  352.   IID_Zoom: TGUID = '{000209A6-0000-0000-C000-000000000046}';
  353.   IID_Zooms: TGUID = '{000209A7-0000-0000-C000-000000000046}';
  354.   IID_InlineShape: TGUID = '{000209A8-0000-0000-C000-000000000046}';
  355.   IID_InlineShapes: TGUID = '{000209A9-0000-0000-C000-000000000046}';
  356.   IID_SpellingSuggestions: TGUID = '{000209AA-0000-0000-C000-000000000046}';
  357.   IID_SpellingSuggestion: TGUID = '{000209AB-0000-0000-C000-000000000046}';
  358.   IID_Dictionaries: TGUID = '{000209AC-0000-0000-C000-000000000046}';
  359.   IID_HangulHanjaConversionDictionaries: TGUID = '{000209E0-0000-0000-C000-000000000046}';
  360.   IID_Dictionary: TGUID = '{000209AD-0000-0000-C000-000000000046}';
  361.   IID_ReadabilityStatistics: TGUID = '{000209AE-0000-0000-C000-000000000046}';
  362.   IID_ReadabilityStatistic: TGUID = '{000209AF-0000-0000-C000-000000000046}';
  363.   IID_Versions: TGUID = '{000209B3-0000-0000-C000-000000000046}';
  364.   IID_Version: TGUID = '{000209B4-0000-0000-C000-000000000046}';
  365.   IID_Options: TGUID = '{000209B7-0000-0000-C000-000000000046}';
  366.   IID_MailMessage: TGUID = '{000209BA-0000-0000-C000-000000000046}';
  367.   IID_ProofreadingErrors: TGUID = '{000209BB-0000-0000-C000-000000000046}';
  368.   IID_Mailer: TGUID = '{000209BD-0000-0000-C000-000000000046}';
  369.   IID_WrapFormat: TGUID = '{000209C3-0000-0000-C000-000000000046}';
  370.   IID_HangulAndAlphabetExceptions: TGUID = '{000209D1-0000-0000-C000-000000000046}';
  371.   IID_HangulAndAlphabetException: TGUID = '{000209D2-0000-0000-C000-000000000046}';
  372.   IID_Adjustments: TGUID = '{000209C4-0000-0000-C000-000000000046}';
  373.   IID_CalloutFormat: TGUID = '{000209C5-0000-0000-C000-000000000046}';
  374.   IID_ColorFormat: TGUID = '{000209C6-0000-0000-C000-000000000046}';
  375.   IID_ConnectorFormat: TGUID = '{000209C7-0000-0000-C000-000000000046}';
  376.   IID_FillFormat: TGUID = '{000209C8-0000-0000-C000-000000000046}';
  377.   IID_FreeformBuilder: TGUID = '{000209C9-0000-0000-C000-000000000046}';
  378.   IID_LineFormat: TGUID = '{000209CA-0000-0000-C000-000000000046}';
  379.   IID_PictureFormat: TGUID = '{000209CB-0000-0000-C000-000000000046}';
  380.   IID_ShadowFormat: TGUID = '{000209CC-0000-0000-C000-000000000046}';
  381.   IID_ShapeNode: TGUID = '{000209CD-0000-0000-C000-000000000046}';
  382.   IID_ShapeNodes: TGUID = '{000209CE-0000-0000-C000-000000000046}';
  383.   IID_TextEffectFormat: TGUID = '{000209CF-0000-0000-C000-000000000046}';
  384.   IID_ThreeDFormat: TGUID = '{000209D0-0000-0000-C000-000000000046}';
  385.   DIID_ApplicationEvents: TGUID = '{000209F7-0000-0000-C000-000000000046}';
  386.   CLASS_Global: TGUID = '{000209F0-0000-0000-C000-000000000046}';
  387.   CLASS_WordApplication: TGUID = '{000209FF-0000-0000-C000-000000000046}';
  388.   DIID_DocumentEvents: TGUID = '{000209F6-0000-0000-C000-000000000046}';
  389.   CLASS_WordDocument: TGUID = '{00020906-0000-0000-C000-000000000046}';
  390.   CLASS_WordFont: TGUID = '{000209F5-0000-0000-C000-000000000046}';
  391.   CLASS_WordParagraphFormat: TGUID = '{000209F4-0000-0000-C000-000000000046}';
  392.   DIID_OCXEvents: TGUID = '{000209F3-0000-0000-C000-000000000046}';
  393.   CLASS_WordOLEControl: TGUID = '{000209F2-0000-0000-C000-000000000046}';
  394.   CLASS_WordLetterContent: TGUID = '{000209F1-0000-0000-C000-000000000046}';
  395.  
  396. // *********************************************************************//
  397. // Declaration of Enumerations defined in Type Library                    
  398. // *********************************************************************//
  399. // WdMailSystem constants
  400. type
  401.   WdMailSystem = TOleEnum;
  402. const
  403.   wdNoMailSystem = $00000000;
  404.   wdMAPI = $00000001;
  405.   wdPowerTalk = $00000002;
  406.   wdMAPIandPowerTalk = $00000003;
  407.  
  408. // WdTemplateType constants
  409. type
  410.   WdTemplateType = TOleEnum;
  411. const
  412.   wdNormalTemplate = $00000000;
  413.   wdGlobalTemplate = $00000001;
  414.   wdAttachedTemplate = $00000002;
  415.  
  416. // WdContinue constants
  417. type
  418.   WdContinue = TOleEnum;
  419. const
  420.   wdContinueDisabled = $00000000;
  421.   wdResetList = $00000001;
  422.   wdContinueList = $00000002;
  423.  
  424. // WdIMEMode constants
  425. type
  426.   WdIMEMode = TOleEnum;
  427. const
  428.   wdIMEModeNoControl = $00000000;
  429.   wdIMEModeOn = $00000001;
  430.   wdIMEModeOff = $00000002;
  431.   wdIMEModeHiragana = $00000004;
  432.   wdIMEModeKatakana = $00000005;
  433.   wdIMEModeKatakanaHalf = $00000006;
  434.   wdIMEModeAlphaFull = $00000007;
  435.   wdIMEModeAlpha = $00000008;
  436.   wdIMEModeHangulFull = $00000009;
  437.   wdIMEModeHangul = $0000000A;
  438.  
  439. // WdBaselineAlignment constants
  440. type
  441.   WdBaselineAlignment = TOleEnum;
  442. const
  443.   wdBaselineAlignTop = $00000000;
  444.   wdBaselineAlignCenter = $00000001;
  445.   wdBaselineAlignBaseline = $00000002;
  446.   wdBaselineAlignFarEast50 = $00000003;
  447.   wdBaselineAlignAuto = $00000004;
  448.  
  449. // WdIndexFilter constants
  450. type
  451.   WdIndexFilter = TOleEnum;
  452. const
  453.   wdIndexFilterNone = $00000000;
  454.   wdIndexFilterAiueo = $00000001;
  455.   wdIndexFilterAkasatana = $00000002;
  456.   wdIndexFilterChosung = $00000003;
  457.   wdIndexFilterLow = $00000004;
  458.   wdIndexFilterMedium = $00000005;
  459.   wdIndexFilterFull = $00000006;
  460.  
  461. // WdIndexSortBy constants
  462. type
  463.   WdIndexSortBy = TOleEnum;
  464. const
  465.   wdIndexSortByStroke = $00000000;
  466.   wdIndexSortBySyllable = $00000001;
  467.  
  468. // WdJustificationMode constants
  469. type
  470.   WdJustificationMode = TOleEnum;
  471. const
  472.   wdJustificationModeExpand = $00000000;
  473.   wdJustificationModeCompress = $00000001;
  474.   wdJustificationModeCompressKana = $00000002;
  475.  
  476. // WdFarEastLineBreakLevel constants
  477. type
  478.   WdFarEastLineBreakLevel = TOleEnum;
  479. const
  480.   wdFarEastLineBreakLevelNormal = $00000000;
  481.   wdFarEastLineBreakLevelStrict = $00000001;
  482.   wdFarEastLineBreakLevelCustom = $00000002;
  483.  
  484. // WdMultipleWordConversionsMode constants
  485. type
  486.   WdMultipleWordConversionsMode = TOleEnum;
  487. const
  488.   wdHangulToHanja = $00000000;
  489.   wdHanjaToHangul = $00000001;
  490.  
  491. // WdColorIndex constants
  492. type
  493.   WdColorIndex = TOleEnum;
  494. const
  495.   wdAuto = $00000000;
  496.   wdBlack = $00000001;
  497.   wdBlue = $00000002;
  498.   wdTurquoise = $00000003;
  499.   wdBrightGreen = $00000004;
  500.   wdPink = $00000005;
  501.   wdRed = $00000006;
  502.   wdYellow = $00000007;
  503.   wdWhite = $00000008;
  504.   wdDarkBlue = $00000009;
  505.   wdTeal = $0000000A;
  506.   wdGreen = $0000000B;
  507.   wdViolet = $0000000C;
  508.   wdDarkRed = $0000000D;
  509.   wdDarkYellow = $0000000E;
  510.   wdGray50 = $0000000F;
  511.   wdGray25 = $00000010;
  512.   wdByAuthor = $FFFFFFFF;
  513.   wdNoHighlight = $00000000;
  514.  
  515. // WdTextureIndex constants
  516. type
  517.   WdTextureIndex = TOleEnum;
  518. const
  519.   wdTextureNone = $00000000;
  520.   wdTexture2Pt5Percent = $00000019;
  521.   wdTexture5Percent = $00000032;
  522.   wdTexture7Pt5Percent = $0000004B;
  523.   wdTexture10Percent = $00000064;
  524.   wdTexture12Pt5Percent = $0000007D;
  525.   wdTexture15Percent = $00000096;
  526.   wdTexture17Pt5Percent = $000000AF;
  527.   wdTexture20Percent = $000000C8;
  528.   wdTexture22Pt5Percent = $000000E1;
  529.   wdTexture25Percent = $000000FA;
  530.   wdTexture27Pt5Percent = $00000113;
  531.   wdTexture30Percent = $0000012C;
  532.   wdTexture32Pt5Percent = $00000145;
  533.   wdTexture35Percent = $0000015E;
  534.   wdTexture37Pt5Percent = $00000177;
  535.   wdTexture40Percent = $00000190;
  536.   wdTexture42Pt5Percent = $000001A9;
  537.   wdTexture45Percent = $000001C2;
  538.   wdTexture47Pt5Percent = $000001DB;
  539.   wdTexture50Percent = $000001F4;
  540.   wdTexture52Pt5Percent = $0000020D;
  541.   wdTexture55Percent = $00000226;
  542.   wdTexture57Pt5Percent = $0000023F;
  543.   wdTexture60Percent = $00000258;
  544.   wdTexture62Pt5Percent = $00000271;
  545.   wdTexture65Percent = $0000028A;
  546.   wdTexture67Pt5Percent = $000002A3;
  547.   wdTexture70Percent = $000002BC;
  548.   wdTexture72Pt5Percent = $000002D5;
  549.   wdTexture75Percent = $000002EE;
  550.   wdTexture77Pt5Percent = $00000307;
  551.   wdTexture80Percent = $00000320;
  552.   wdTexture82Pt5Percent = $00000339;
  553.   wdTexture85Percent = $00000352;
  554.   wdTexture87Pt5Percent = $0000036B;
  555.   wdTexture90Percent = $00000384;
  556.   wdTexture92Pt5Percent = $0000039D;
  557.   wdTexture95Percent = $000003B6;
  558.   wdTexture97Pt5Percent = $000003CF;
  559.   wdTextureSolid = $000003E8;
  560.   wdTextureDarkHorizontal = $FFFFFFFF;
  561.   wdTextureDarkVertical = $FFFFFFFE;
  562.   wdTextureDarkDiagonalDown = $FFFFFFFD;
  563.   wdTextureDarkDiagonalUp = $FFFFFFFC;
  564.   wdTextureDarkCross = $FFFFFFFB;
  565.   wdTextureDarkDiagonalCross = $FFFFFFFA;
  566.   wdTextureHorizontal = $FFFFFFF9;
  567.   wdTextureVertical = $FFFFFFF8;
  568.   wdTextureDiagonalDown = $FFFFFFF7;
  569.   wdTextureDiagonalUp = $FFFFFFF6;
  570.   wdTextureCross = $FFFFFFF5;
  571.   wdTextureDiagonalCross = $FFFFFFF4;
  572.  
  573. // WdUnderline constants
  574. type
  575.   WdUnderline = TOleEnum;
  576. const
  577.   wdUnderlineNone = $00000000;
  578.   wdUnderlineSingle = $00000001;
  579.   wdUnderlineWords = $00000002;
  580.   wdUnderlineDouble = $00000003;
  581.   wdUnderlineDotted = $00000004;
  582.   wdUnderlineThick = $00000006;
  583.   wdUnderlineDash = $00000007;
  584.   wdUnderlineDotDash = $00000009;
  585.   wdUnderlineDotDotDash = $0000000A;
  586.   wdUnderlineWavy = $0000000B;
  587.  
  588. // WdEmphasisMark constants
  589. type
  590.   WdEmphasisMark = TOleEnum;
  591. const
  592.   wdEmphasisMarkNone = $00000000;
  593.   wdEmphasisMarkOverSolidCircle = $00000001;
  594.   wdEmphasisMarkOverComma = $00000002;
  595.   wdEmphasisMarkOverWhiteCircle = $00000003;
  596.   wdEmphasisMarkUnderSolidCircle = $00000004;
  597.  
  598. // WdInternationalIndex constants
  599. type
  600.   WdInternationalIndex = TOleEnum;
  601. const
  602.   wdListSeparator = $00000011;
  603.   wdDecimalSeparator = $00000012;
  604.   wdThousandsSeparator = $00000013;
  605.   wdCurrencyCode = $00000014;
  606.   wd24HourClock = $00000015;
  607.   wdInternationalAM = $00000016;
  608.   wdInternationalPM = $00000017;
  609.   wdTimeSeparator = $00000018;
  610.   wdDateSeparator = $00000019;
  611.   wdProductLanguageID = $0000001A;
  612.  
  613. // WdAutoMacros constants
  614. type
  615.   WdAutoMacros = TOleEnum;
  616. const
  617.   wdAutoExec = $00000000;
  618.   wdAutoNew = $00000001;
  619.   wdAutoOpen = $00000002;
  620.   wdAutoClose = $00000003;
  621.   wdAutoExit = $00000004;
  622.  
  623. // WdCaptionPosition constants
  624. type
  625.   WdCaptionPosition = TOleEnum;
  626. const
  627.   wdCaptionPositionAbove = $00000000;
  628.   wdCaptionPositionBelow = $00000001;
  629.  
  630. // WdCountry constants
  631. type
  632.   WdCountry = TOleEnum;
  633. const
  634.   wdUS = $00000001;
  635.   wdCanada = $00000002;
  636.   wdLatinAmerica = $00000003;
  637.   wdNetherlands = $0000001F;
  638.   wdFrance = $00000021;
  639.   wdSpain = $00000022;
  640.   wdItaly = $00000027;
  641.   wdUK = $0000002C;
  642.   wdDenmark = $0000002D;
  643.   wdSweden = $0000002E;
  644.   wdNorway = $0000002F;
  645.   wdGermany = $00000031;
  646.   wdPeru = $00000033;
  647.   wdMexico = $00000034;
  648.   wdArgentina = $00000036;
  649.   wdBrazil = $00000037;
  650.   wdChile = $00000038;
  651.   wdVenezuela = $0000003A;
  652.   wdJapan = $00000051;
  653.   wdTaiwan = $00000376;
  654.   wdChina = $00000056;
  655.   wdKorea = $00000052;
  656.   wdFinland = $00000166;
  657.   wdIceland = $00000162;
  658.  
  659. // WdHeadingSeparator constants
  660. type
  661.   WdHeadingSeparator = TOleEnum;
  662. const
  663.   wdHeadingSeparatorNone = $00000000;
  664.   wdHeadingSeparatorBlankLine = $00000001;
  665.   wdHeadingSeparatorLetter = $00000002;
  666.   wdHeadingSeparatorLetterLow = $00000003;
  667.   wdHeadingSeparatorLetterFull = $00000004;
  668.  
  669. // WdSeparatorType constants
  670. type
  671.   WdSeparatorType = TOleEnum;
  672. const
  673.   wdSeparatorHyphen = $00000000;
  674.   wdSeparatorPeriod = $00000001;
  675.   wdSeparatorColon = $00000002;
  676.   wdSeparatorEmDash = $00000003;
  677.   wdSeparatorEnDash = $00000004;
  678.  
  679. // WdPageNumberAlignment constants
  680. type
  681.   WdPageNumberAlignment = TOleEnum;
  682. const
  683.   wdAlignPageNumberLeft = $00000000;
  684.   wdAlignPageNumberCenter = $00000001;
  685.   wdAlignPageNumberRight = $00000002;
  686.   wdAlignPageNumberInside = $00000003;
  687.   wdAlignPageNumberOutside = $00000004;
  688.  
  689. // WdBorderType constants
  690. type
  691.   WdBorderType = TOleEnum;
  692. const
  693.   wdBorderTop = $FFFFFFFF;
  694.   wdBorderLeft = $FFFFFFFE;
  695.   wdBorderBottom = $FFFFFFFD;
  696.   wdBorderRight = $FFFFFFFC;
  697.   wdBorderHorizontal = $FFFFFFFB;
  698.   wdBorderVertical = $FFFFFFFA;
  699.  
  700. // WdBorderTypeHID constants
  701. type
  702.   WdBorderTypeHID = TOleEnum;
  703. const
  704.   wdBorderDiagonalDown = $FFFFFFF9;
  705.   wdBorderDiagonalUp = $FFFFFFF8;
  706.  
  707. // WdFramePosition constants
  708. type
  709.   WdFramePosition = TOleEnum;
  710. const
  711.   wdFrameTop = $FFF0BDC1;
  712.   wdFrameLeft = $FFF0BDC2;
  713.   wdFrameBottom = $FFF0BDC3;
  714.   wdFrameRight = $FFF0BDC4;
  715.   wdFrameCenter = $FFF0BDC5;
  716.   wdFrameInside = $FFF0BDC6;
  717.   wdFrameOutside = $FFF0BDC7;
  718.  
  719. // WdAnimation constants
  720. type
  721.   WdAnimation = TOleEnum;
  722. const
  723.   wdAnimationNone = $00000000;
  724.   wdAnimationLasVegasLights = $00000001;
  725.   wdAnimationBlinkingBackground = $00000002;
  726.   wdAnimationSparkleText = $00000003;
  727.   wdAnimationMarchingBlackAnts = $00000004;
  728.   wdAnimationMarchingRedAnts = $00000005;
  729.   wdAnimationShimmer = $00000006;
  730.  
  731. // WdCharacterCase constants
  732. type
  733.   WdCharacterCase = TOleEnum;
  734. const
  735.   wdNextCase = $FFFFFFFF;
  736.   wdLowerCase = $00000000;
  737.   wdUpperCase = $00000001;
  738.   wdTitleWord = $00000002;
  739.   wdTitleSentence = $00000004;
  740.   wdToggleCase = $00000005;
  741.  
  742. // WdCharacterCaseHID constants
  743. type
  744.   WdCharacterCaseHID = TOleEnum;
  745. const
  746.   wdHalfWidth = $00000006;
  747.   wdFullWidth = $00000007;
  748.   wdKatakana = $00000008;
  749.   wdHiragana = $00000009;
  750.  
  751. // WdSummaryMode constants
  752. type
  753.   WdSummaryMode = TOleEnum;
  754. const
  755.   wdSummaryModeHighlight = $00000000;
  756.   wdSummaryModeHideAllButSummary = $00000001;
  757.   wdSummaryModeInsert = $00000002;
  758.   wdSummaryModeCreateNew = $00000003;
  759.  
  760. // WdSummaryLength constants
  761. type
  762.   WdSummaryLength = TOleEnum;
  763. const
  764.   wd10Sentences = $FFFFFFFE;
  765.   wd20Sentences = $FFFFFFFD;
  766.   wd100Words = $FFFFFFFC;
  767.   wd500Words = $FFFFFFFB;
  768.   wd10Percent = $FFFFFFFA;
  769.   wd25Percent = $FFFFFFF9;
  770.   wd50Percent = $FFFFFFF8;
  771.   wd75Percent = $FFFFFFF7;
  772.  
  773. // WdStyleType constants
  774. type
  775.   WdStyleType = TOleEnum;
  776. const
  777.   wdStyleTypeParagraph = $00000001;
  778.   wdStyleTypeCharacter = $00000002;
  779.  
  780. // WdUnits constants
  781. type
  782.   WdUnits = TOleEnum;
  783. const
  784.   wdCharacter = $00000001;
  785.   wdWord = $00000002;
  786.   wdSentence = $00000003;
  787.   wdParagraph = $00000004;
  788.   wdLine = $00000005;
  789.   wdStory = $00000006;
  790.   wdScreen = $00000007;
  791.   wdSection = $00000008;
  792.   wdColumn = $00000009;
  793.   wdRow = $0000000A;
  794.   wdWindow = $0000000B;
  795.   wdCell = $0000000C;
  796.   wdCharacterFormatting = $0000000D;
  797.   wdParagraphFormatting = $0000000E;
  798.   wdTable = $0000000F;
  799.   wdItem = $00000010;
  800.  
  801. // WdGoToItem constants
  802. type
  803.   WdGoToItem = TOleEnum;
  804. const
  805.   wdGoToBookmark = $FFFFFFFF;
  806.   wdGoToSection = $00000000;
  807.   wdGoToPage = $00000001;
  808.   wdGoToTable = $00000002;
  809.   wdGoToLine = $00000003;
  810.   wdGoToFootnote = $00000004;
  811.   wdGoToEndnote = $00000005;
  812.   wdGoToComment = $00000006;
  813.   wdGoToField = $00000007;
  814.   wdGoToGraphic = $00000008;
  815.   wdGoToObject = $00000009;
  816.   wdGoToEquation = $0000000A;
  817.   wdGoToHeading = $0000000B;
  818.   wdGoToPercent = $0000000C;
  819.   wdGoToSpellingError = $0000000D;
  820.   wdGoToGrammaticalError = $0000000E;
  821.   wdGoToProofreadingError = $0000000F;
  822.  
  823. // WdGoToDirection constants
  824. type
  825.   WdGoToDirection = TOleEnum;
  826. const
  827.   wdGoToFirst = $00000001;
  828.   wdGoToLast = $FFFFFFFF;
  829.   wdGoToNext = $00000002;
  830.   wdGoToRelative = $00000002;
  831.   wdGoToPrevious = $00000003;
  832.   wdGoToAbsolute = $00000001;
  833.  
  834. // WdCollapseDirection constants
  835. type
  836.   WdCollapseDirection = TOleEnum;
  837. const
  838.   wdCollapseStart = $00000001;
  839.   wdCollapseEnd = $00000000;
  840.  
  841. // WdRowHeightRule constants
  842. type
  843.   WdRowHeightRule = TOleEnum;
  844. const
  845.   wdRowHeightAuto = $00000000;
  846.   wdRowHeightAtLeast = $00000001;
  847.   wdRowHeightExactly = $00000002;
  848.  
  849. // WdFrameSizeRule constants
  850. type
  851.   WdFrameSizeRule = TOleEnum;
  852. const
  853.   wdFrameAuto = $00000000;
  854.   wdFrameAtLeast = $00000001;
  855.   wdFrameExact = $00000002;
  856.  
  857. // WdInsertCells constants
  858. type
  859.   WdInsertCells = TOleEnum;
  860. const
  861.   wdInsertCellsShiftRight = $00000000;
  862.   wdInsertCellsShiftDown = $00000001;
  863.   wdInsertCellsEntireRow = $00000002;
  864.   wdInsertCellsEntireColumn = $00000003;
  865.  
  866. // WdDeleteCells constants
  867. type
  868.   WdDeleteCells = TOleEnum;
  869. const
  870.   wdDeleteCellsShiftLeft = $00000000;
  871.   wdDeleteCellsShiftUp = $00000001;
  872.   wdDeleteCellsEntireRow = $00000002;
  873.   wdDeleteCellsEntireColumn = $00000003;
  874.  
  875. // WdListApplyTo constants
  876. type
  877.   WdListApplyTo = TOleEnum;
  878. const
  879.   wdListApplyToWholeList = $00000000;
  880.   wdListApplyToThisPointForward = $00000001;
  881.   wdListApplyToSelection = $00000002;
  882.  
  883. // WdAlertLevel constants
  884. type
  885.   WdAlertLevel = TOleEnum;
  886. const
  887.   wdAlertsNone = $00000000;
  888.   wdAlertsMessageBox = $FFFFFFFE;
  889.   wdAlertsAll = $FFFFFFFF;
  890.  
  891. // WdCursorType constants
  892. type
  893.   WdCursorType = TOleEnum;
  894. const
  895.   wdCursorWait = $00000000;
  896.   wdCursorIBeam = $00000001;
  897.   wdCursorNormal = $00000002;
  898.   wdCursorNorthwestArrow = $00000003;
  899.  
  900. // WdEnableCancelKey constants
  901. type
  902.   WdEnableCancelKey = TOleEnum;
  903. const
  904.   wdCancelDisabled = $00000000;
  905.   wdCancelInterrupt = $00000001;
  906.  
  907. // WdRulerStyle constants
  908. type
  909.   WdRulerStyle = TOleEnum;
  910. const
  911.   wdAdjustNone = $00000000;
  912.   wdAdjustProportional = $00000001;
  913.   wdAdjustFirstColumn = $00000002;
  914.   wdAdjustSameWidth = $00000003;
  915.  
  916. // WdParagraphAlignment constants
  917. type
  918.   WdParagraphAlignment = TOleEnum;
  919. const
  920.   wdAlignParagraphLeft = $00000000;
  921.   wdAlignParagraphCenter = $00000001;
  922.   wdAlignParagraphRight = $00000002;
  923.   wdAlignParagraphJustify = $00000003;
  924.  
  925. // WdParagraphAlignmentHID constants
  926. type
  927.   WdParagraphAlignmentHID = TOleEnum;
  928. const
  929.   wdAlignParagraphDistribute = $00000004;
  930.  
  931. // WdListLevelAlignment constants
  932. type
  933.   WdListLevelAlignment = TOleEnum;
  934. const
  935.   wdListLevelAlignLeft = $00000000;
  936.   wdListLevelAlignCenter = $00000001;
  937.   wdListLevelAlignRight = $00000002;
  938.  
  939. // WdRowAlignment constants
  940. type
  941.   WdRowAlignment = TOleEnum;
  942. const
  943.   wdAlignRowLeft = $00000000;
  944.   wdAlignRowCenter = $00000001;
  945.   wdAlignRowRight = $00000002;
  946.  
  947. // WdTabAlignment constants
  948. type
  949.   WdTabAlignment = TOleEnum;
  950. const
  951.   wdAlignTabLeft = $00000000;
  952.   wdAlignTabCenter = $00000001;
  953.   wdAlignTabRight = $00000002;
  954.   wdAlignTabDecimal = $00000003;
  955.   wdAlignTabBar = $00000004;
  956.   wdAlignTabList = $00000006;
  957.  
  958. // WdVerticalAlignment constants
  959. type
  960.   WdVerticalAlignment = TOleEnum;
  961. const
  962.   wdAlignVerticalTop = $00000000;
  963.   wdAlignVerticalCenter = $00000001;
  964.   wdAlignVerticalJustify = $00000002;
  965.   wdAlignVerticalBottom = $00000003;
  966.  
  967. // WdCellVerticalAlignment constants
  968. type
  969.   WdCellVerticalAlignment = TOleEnum;
  970. const
  971.   wdCellAlignVerticalTop = $00000000;
  972.   wdCellAlignVerticalCenter = $00000001;
  973.   wdCellAlignVerticalBottom = $00000003;
  974.  
  975. // WdTrailingCharacter constants
  976. type
  977.   WdTrailingCharacter = TOleEnum;
  978. const
  979.   wdTrailingTab = $00000000;
  980.   wdTrailingSpace = $00000001;
  981.   wdTrailingNone = $00000002;
  982.  
  983. // WdListGalleryType constants
  984. type
  985.   WdListGalleryType = TOleEnum;
  986. const
  987.   wdBulletGallery = $00000001;
  988.   wdNumberGallery = $00000002;
  989.   wdOutlineNumberGallery = $00000003;
  990.  
  991. // WdListNumberStyle constants
  992. type
  993.   WdListNumberStyle = TOleEnum;
  994. const
  995.   wdListNumberStyleArabic = $00000000;
  996.   wdListNumberStyleUppercaseRoman = $00000001;
  997.   wdListNumberStyleLowercaseRoman = $00000002;
  998.   wdListNumberStyleUppercaseLetter = $00000003;
  999.   wdListNumberStyleLowercaseLetter = $00000004;
  1000.   wdListNumberStyleOrdinal = $00000005;
  1001.   wdListNumberStyleCardinalText = $00000006;
  1002.   wdListNumberStyleOrdinalText = $00000007;
  1003.   wdListNumberStyleArabicLZ = $00000016;
  1004.   wdListNumberStyleBullet = $00000017;
  1005.   wdListNumberStyleLegal = $000000FD;
  1006.   wdListNumberStyleLegalLZ = $000000FE;
  1007.   wdListNumberStyleNone = $000000FF;
  1008.  
  1009. // WdListNumberStyleHID constants
  1010. type
  1011.   WdListNumberStyleHID = TOleEnum;
  1012. const
  1013.   wdListNumberStyleKanji = $0000000A;
  1014.   wdListNumberStyleKanjiDigit = $0000000B;
  1015.   wdListNumberStyleAiueoHalfWidth = $0000000C;
  1016.   wdListNumberStyleIrohaHalfWidth = $0000000D;
  1017.   wdListNumberStyleArabicFullWidth = $0000000E;
  1018.   wdListNumberStyleKanjiTraditional = $00000010;
  1019.   wdListNumberStyleKanjiTraditional2 = $00000011;
  1020.   wdListNumberStyleNumberInCircle = $00000012;
  1021.   wdListNumberStyleAiueo = $00000014;
  1022.   wdListNumberStyleIroha = $00000015;
  1023.   wdListNumberStyleGanada = $00000018;
  1024.   wdListNumberStyleChosung = $00000019;
  1025.   wdListNumberStyleGBNum1 = $0000001A;
  1026.   wdListNumberStyleGBNum2 = $0000001B;
  1027.   wdListNumberStyleGBNum3 = $0000001C;
  1028.   wdListNumberStyleGBNum4 = $0000001D;
  1029.   wdListNumberStyleZodiac1 = $0000001E;
  1030.   wdListNumberStyleZodiac2 = $0000001F;
  1031.   wdListNumberStyleZodiac3 = $00000020;
  1032.   wdListNumberStyleTradChinNum1 = $00000021;
  1033.   wdListNumberStyleTradChinNum2 = $00000022;
  1034.   wdListNumberStyleTradChinNum3 = $00000023;
  1035.   wdListNumberStyleTradChinNum4 = $00000024;
  1036.   wdListNumberStyleSimpChinNum1 = $00000025;
  1037.   wdListNumberStyleSimpChinNum2 = $00000026;
  1038.   wdListNumberStyleSimpChinNum3 = $00000027;
  1039.   wdListNumberStyleSimpChinNum4 = $00000028;
  1040.   wdListNumberStyleHanjaRead = $00000029;
  1041.   wdListNumberStyleHanjaReadDigit = $0000002A;
  1042.   wdListNumberStyleHangul = $0000002B;
  1043.   wdListNumberStyleHanja = $0000002C;
  1044.  
  1045. // WdNoteNumberStyle constants
  1046. type
  1047.   WdNoteNumberStyle = TOleEnum;
  1048. const
  1049.   wdNoteNumberStyleArabic = $00000000;
  1050.   wdNoteNumberStyleUppercaseRoman = $00000001;
  1051.   wdNoteNumberStyleLowercaseRoman = $00000002;
  1052.   wdNoteNumberStyleUppercaseLetter = $00000003;
  1053.   wdNoteNumberStyleLowercaseLetter = $00000004;
  1054.   wdNoteNumberStyleSymbol = $00000009;
  1055.  
  1056. // WdNoteNumberStyleHID constants
  1057. type
  1058.   WdNoteNumberStyleHID = TOleEnum;
  1059. const
  1060.   wdNoteNumberStyleArabicFullWidth = $0000000E;
  1061.   wdNoteNumberStyleKanji = $0000000A;
  1062.   wdNoteNumberStyleKanjiDigit = $0000000B;
  1063.   wdNoteNumberStyleKanjiTraditional = $00000010;
  1064.   wdNoteNumberStyleNumberInCircle = $00000012;
  1065.   wdNoteNumberStyleHanjaRead = $00000029;
  1066.   wdNoteNumberStyleHanjaReadDigit = $0000002A;
  1067.   wdNoteNumberStyleTradChinNum1 = $00000021;
  1068.   wdNoteNumberStyleTradChinNum2 = $00000022;
  1069.   wdNoteNumberStyleSimpChinNum1 = $00000025;
  1070.   wdNoteNumberStyleSimpChinNum2 = $00000026;
  1071.  
  1072. // WdCaptionNumberStyle constants
  1073. type
  1074.   WdCaptionNumberStyle = TOleEnum;
  1075. const
  1076.   wdCaptionNumberStyleArabic = $00000000;
  1077.   wdCaptionNumberStyleUppercaseRoman = $00000001;
  1078.   wdCaptionNumberStyleLowercaseRoman = $00000002;
  1079.   wdCaptionNumberStyleUppercaseLetter = $00000003;
  1080.   wdCaptionNumberStyleLowercaseLetter = $00000004;
  1081.  
  1082. // WdCaptionNumberStyleHID constants
  1083. type
  1084.   WdCaptionNumberStyleHID = TOleEnum;
  1085. const
  1086.   wdCaptionNumberStyleArabicFullWidth = $0000000E;
  1087.   wdCaptionNumberStyleKanji = $0000000A;
  1088.   wdCaptionNumberStyleKanjiDigit = $0000000B;
  1089.   wdCaptionNumberStyleKanjiTraditional = $00000010;
  1090.   wdCaptionNumberStyleNumberInCircle = $00000012;
  1091.   wdCaptionNumberStyleGanada = $00000018;
  1092.   wdCaptionNumberStyleChosung = $00000019;
  1093.   wdCaptionNumberStyleZodiac1 = $0000001E;
  1094.   wdCaptionNumberStyleZodiac2 = $0000001F;
  1095.   wdCaptionNumberStyleHanjaRead = $00000029;
  1096.   wdCaptionNumberStyleHanjaReadDigit = $0000002A;
  1097.   wdCaptionNumberStyleTradChinNum2 = $00000022;
  1098.   wdCaptionNumberStyleTradChinNum3 = $00000023;
  1099.   wdCaptionNumberStyleSimpChinNum2 = $00000026;
  1100.   wdCaptionNumberStyleSimpChinNum3 = $00000027;
  1101.  
  1102. // WdPageNumberStyle constants
  1103. type
  1104.   WdPageNumberStyle = TOleEnum;
  1105. const
  1106.   wdPageNumberStyleArabic = $00000000;
  1107.   wdPageNumberStyleUppercaseRoman = $00000001;
  1108.   wdPageNumberStyleLowercaseRoman = $00000002;
  1109.   wdPageNumberStyleUppercaseLetter = $00000003;
  1110.   wdPageNumberStyleLowercaseLetter = $00000004;
  1111.  
  1112. // WdPageNumberStyleHID constants
  1113. type
  1114.   WdPageNumberStyleHID = TOleEnum;
  1115. const
  1116.   wdPageNumberStyleArabicFullWidth = $0000000E;
  1117.   wdPageNumberStyleKanji = $0000000A;
  1118.   wdPageNumberStyleKanjiDigit = $0000000B;
  1119.   wdPageNumberStyleKanjiTraditional = $00000010;
  1120.   wdPageNumberStyleNumberInCircle = $00000012;
  1121.   wdPageNumberStyleHanjaRead = $00000029;
  1122.   wdPageNumberStyleHanjaReadDigit = $0000002A;
  1123.   wdPageNumberStyleTradChinNum1 = $00000021;
  1124.   wdPageNumberStyleTradChinNum2 = $00000022;
  1125.   wdPageNumberStyleSimpChinNum1 = $00000025;
  1126.   wdPageNumberStyleSimpChinNum2 = $00000026;
  1127.  
  1128. // WdStatistic constants
  1129. type
  1130.   WdStatistic = TOleEnum;
  1131. const
  1132.   wdStatisticWords = $00000000;
  1133.   wdStatisticLines = $00000001;
  1134.   wdStatisticPages = $00000002;
  1135.   wdStatisticCharacters = $00000003;
  1136.   wdStatisticParagraphs = $00000004;
  1137.   wdStatisticCharactersWithSpaces = $00000005;
  1138.  
  1139. // WdStatisticHID constants
  1140. type
  1141.   WdStatisticHID = TOleEnum;
  1142. const
  1143.   wdStatisticFarEastCharacters = $00000006;
  1144.  
  1145. // WdBuiltInProperty constants
  1146. type
  1147.   WdBuiltInProperty = TOleEnum;
  1148. const
  1149.   wdPropertyTitle = $00000001;
  1150.   wdPropertySubject = $00000002;
  1151.   wdPropertyAuthor = $00000003;
  1152.   wdPropertyKeywords = $00000004;
  1153.   wdPropertyComments = $00000005;
  1154.   wdPropertyTemplate = $00000006;
  1155.   wdPropertyLastAuthor = $00000007;
  1156.   wdPropertyRevision = $00000008;
  1157.   wdPropertyAppName = $00000009;
  1158.   wdPropertyTimeLastPrinted = $0000000A;
  1159.   wdPropertyTimeCreated = $0000000B;
  1160.   wdPropertyTimeLastSaved = $0000000C;
  1161.   wdPropertyVBATotalEdit = $0000000D;
  1162.   wdPropertyPages = $0000000E;
  1163.   wdPropertyWords = $0000000F;
  1164.   wdPropertyCharacters = $00000010;
  1165.   wdPropertySecurity = $00000011;
  1166.   wdPropertyCategory = $00000012;
  1167.   wdPropertyFormat = $00000013;
  1168.   wdPropertyManager = $00000014;
  1169.   wdPropertyCompany = $00000015;
  1170.   wdPropertyBytes = $00000016;
  1171.   wdPropertyLines = $00000017;
  1172.   wdPropertyParas = $00000018;
  1173.   wdPropertySlides = $00000019;
  1174.   wdPropertyNotes = $0000001A;
  1175.   wdPropertyHiddenSlides = $0000001B;
  1176.   wdPropertyMMClips = $0000001C;
  1177.   wdPropertyHyperlinkBase = $0000001D;
  1178.   wdPropertyCharsWSpaces = $0000001E;
  1179.  
  1180. // WdLineSpacing constants
  1181. type
  1182.   WdLineSpacing = TOleEnum;
  1183. const
  1184.   wdLineSpaceSingle = $00000000;
  1185.   wdLineSpace1pt5 = $00000001;
  1186.   wdLineSpaceDouble = $00000002;
  1187.   wdLineSpaceAtLeast = $00000003;
  1188.   wdLineSpaceExactly = $00000004;
  1189.   wdLineSpaceMultiple = $00000005;
  1190.  
  1191. // WdNumberType constants
  1192. type
  1193.   WdNumberType = TOleEnum;
  1194. const
  1195.   wdNumberParagraph = $00000001;
  1196.   wdNumberListNum = $00000002;
  1197.   wdNumberAllNumbers = $00000003;
  1198.  
  1199. // WdListType constants
  1200. type
  1201.   WdListType = TOleEnum;
  1202. const
  1203.   wdListNoNumbering = $00000000;
  1204.   wdListListNumOnly = $00000001;
  1205.   wdListBullet = $00000002;
  1206.   wdListSimpleNumbering = $00000003;
  1207.   wdListOutlineNumbering = $00000004;
  1208.   wdListMixedNumbering = $00000005;
  1209.  
  1210. // WdStoryType constants
  1211. type
  1212.   WdStoryType = TOleEnum;
  1213. const
  1214.   wdMainTextStory = $00000001;
  1215.   wdFootnotesStory = $00000002;
  1216.   wdEndnotesStory = $00000003;
  1217.   wdCommentsStory = $00000004;
  1218.   wdTextFrameStory = $00000005;
  1219.   wdEvenPagesHeaderStory = $00000006;
  1220.   wdPrimaryHeaderStory = $00000007;
  1221.   wdEvenPagesFooterStory = $00000008;
  1222.   wdPrimaryFooterStory = $00000009;
  1223.   wdFirstPageHeaderStory = $0000000A;
  1224.   wdFirstPageFooterStory = $0000000B;
  1225.  
  1226. // WdSaveFormat constants
  1227. type
  1228.   WdSaveFormat = TOleEnum;
  1229. const
  1230.   wdFormatDocument = $00000000;
  1231.   wdFormatTemplate = $00000001;
  1232.   wdFormatText = $00000002;
  1233.   wdFormatTextLineBreaks = $00000003;
  1234.   wdFormatDOSText = $00000004;
  1235.   wdFormatDOSTextLineBreaks = $00000005;
  1236.   wdFormatRTF = $00000006;
  1237.   wdFormatUnicodeText = $00000007;
  1238.  
  1239. // WdOpenFormat constants
  1240. type
  1241.   WdOpenFormat = TOleEnum;
  1242. const
  1243.   wdOpenFormatAuto = $00000000;
  1244.   wdOpenFormatDocument = $00000001;
  1245.   wdOpenFormatTemplate = $00000002;
  1246.   wdOpenFormatRTF = $00000003;
  1247.   wdOpenFormatText = $00000004;
  1248.   wdOpenFormatUnicodeText = $00000005;
  1249.  
  1250. // WdHeaderFooterIndex constants
  1251. type
  1252.   WdHeaderFooterIndex = TOleEnum;
  1253. const
  1254.   wdHeaderFooterPrimary = $00000001;
  1255.   wdHeaderFooterFirstPage = $00000002;
  1256.   wdHeaderFooterEvenPages = $00000003;
  1257.  
  1258. // WdTocFormat constants
  1259. type
  1260.   WdTocFormat = TOleEnum;
  1261. const
  1262.   wdTOCTemplate = $00000000;
  1263.   wdTOCClassic = $00000001;
  1264.   wdTOCDistinctive = $00000002;
  1265.   wdTOCFancy = $00000003;
  1266.   wdTOCModern = $00000004;
  1267.   wdTOCFormal = $00000005;
  1268.   wdTOCSimple = $00000006;
  1269.  
  1270. // WdTofFormat constants
  1271. type
  1272.   WdTofFormat = TOleEnum;
  1273. const
  1274.   wdTOFTemplate = $00000000;
  1275.   wdTOFClassic = $00000001;
  1276.   wdTOFDistinctive = $00000002;
  1277.   wdTOFCentered = $00000003;
  1278.   wdTOFFormal = $00000004;
  1279.   wdTOFSimple = $00000005;
  1280.  
  1281. // WdToaFormat constants
  1282. type
  1283.   WdToaFormat = TOleEnum;
  1284. const
  1285.   wdTOATemplate = $00000000;
  1286.   wdTOAClassic = $00000001;
  1287.   wdTOADistinctive = $00000002;
  1288.   wdTOAFormal = $00000003;
  1289.   wdTOASimple = $00000004;
  1290.  
  1291. // WdLineStyle constants
  1292. type
  1293.   WdLineStyle = TOleEnum;
  1294. const
  1295.   wdLineStyleNone = $00000000;
  1296.   wdLineStyleSingle = $00000001;
  1297.   wdLineStyleDot = $00000002;
  1298.   wdLineStyleDashSmallGap = $00000003;
  1299.   wdLineStyleDashLargeGap = $00000004;
  1300.   wdLineStyleDashDot = $00000005;
  1301.   wdLineStyleDashDotDot = $00000006;
  1302.   wdLineStyleDouble = $00000007;
  1303.   wdLineStyleTriple = $00000008;
  1304.   wdLineStyleThinThickSmallGap = $00000009;
  1305.   wdLineStyleThickThinSmallGap = $0000000A;
  1306.   wdLineStyleThinThickThinSmallGap = $0000000B;
  1307.   wdLineStyleThinThickMedGap = $0000000C;
  1308.   wdLineStyleThickThinMedGap = $0000000D;
  1309.   wdLineStyleThinThickThinMedGap = $0000000E;
  1310.   wdLineStyleThinThickLargeGap = $0000000F;
  1311.   wdLineStyleThickThinLargeGap = $00000010;
  1312.   wdLineStyleThinThickThinLargeGap = $00000011;
  1313.   wdLineStyleSingleWavy = $00000012;
  1314.   wdLineStyleDoubleWavy = $00000013;
  1315.   wdLineStyleDashDotStroked = $00000014;
  1316.   wdLineStyleEmboss3D = $00000015;
  1317.   wdLineStyleEngrave3D = $00000016;
  1318.  
  1319. // WdLineWidth constants
  1320. type
  1321.   WdLineWidth = TOleEnum;
  1322. const
  1323.   wdLineWidth025pt = $00000002;
  1324.   wdLineWidth050pt = $00000004;
  1325.   wdLineWidth075pt = $00000006;
  1326.   wdLineWidth100pt = $00000008;
  1327.   wdLineWidth150pt = $0000000C;
  1328.   wdLineWidth225pt = $00000012;
  1329.   wdLineWidth300pt = $00000018;
  1330.   wdLineWidth450pt = $00000024;
  1331.   wdLineWidth600pt = $00000030;
  1332.  
  1333. // WdBreakType constants
  1334. type
  1335.   WdBreakType = TOleEnum;
  1336. const
  1337.   wdSectionBreakNextPage = $00000002;
  1338.   wdSectionBreakContinuous = $00000003;
  1339.   wdSectionBreakEvenPage = $00000004;
  1340.   wdSectionBreakOddPage = $00000005;
  1341.   wdLineBreak = $00000006;
  1342.   wdPageBreak = $00000007;
  1343.   wdColumnBreak = $00000008;
  1344.  
  1345. // WdTabLeader constants
  1346. type
  1347.   WdTabLeader = TOleEnum;
  1348. const
  1349.   wdTabLeaderSpaces = $00000000;
  1350.   wdTabLeaderDots = $00000001;
  1351.   wdTabLeaderDashes = $00000002;
  1352.   wdTabLeaderLines = $00000003;
  1353.  
  1354. // WdTabLeaderHID constants
  1355. type
  1356.   WdTabLeaderHID = TOleEnum;
  1357. const
  1358.   wdTabLeaderHeavy = $00000004;
  1359.   wdTabLeaderMiddleDot = $00000005;
  1360.  
  1361. // WdMeasurementUnits constants
  1362. type
  1363.   WdMeasurementUnits = TOleEnum;
  1364. const
  1365.   wdInches = $00000000;
  1366.   wdCentimeters = $00000001;
  1367.   wdPoints = $00000003;
  1368.   wdPicas = $00000004;
  1369.  
  1370. // WdMeasurementUnitsHID constants
  1371. type
  1372.   WdMeasurementUnitsHID = TOleEnum;
  1373. const
  1374.   wdMillimeters = $00000002;
  1375.  
  1376. // WdDropPosition constants
  1377. type
  1378.   WdDropPosition = TOleEnum;
  1379. const
  1380.   wdDropNone = $00000000;
  1381.   wdDropNormal = $00000001;
  1382.   wdDropMargin = $00000002;
  1383.  
  1384. // WdNumberingRule constants
  1385. type
  1386.   WdNumberingRule = TOleEnum;
  1387. const
  1388.   wdRestartContinuous = $00000000;
  1389.   wdRestartSection = $00000001;
  1390.   wdRestartPage = $00000002;
  1391.  
  1392. // WdFootnoteLocation constants
  1393. type
  1394.   WdFootnoteLocation = TOleEnum;
  1395. const
  1396.   wdBottomOfPage = $00000000;
  1397.   wdBeneathText = $00000001;
  1398.  
  1399. // WdEndnoteLocation constants
  1400. type
  1401.   WdEndnoteLocation = TOleEnum;
  1402. const
  1403.   wdEndOfSection = $00000000;
  1404.   wdEndOfDocument = $00000001;
  1405.  
  1406. // WdSortSeparator constants
  1407. type
  1408.   WdSortSeparator = TOleEnum;
  1409. const
  1410.   wdSortSeparateByTabs = $00000000;
  1411.   wdSortSeparateByCommas = $00000001;
  1412.   wdSortSeparateByDefaultTableSeparator = $00000002;
  1413.  
  1414. // WdTableFieldSeparator constants
  1415. type
  1416.   WdTableFieldSeparator = TOleEnum;
  1417. const
  1418.   wdSeparateByParagraphs = $00000000;
  1419.   wdSeparateByTabs = $00000001;
  1420.   wdSeparateByCommas = $00000002;
  1421.   wdSeparateByDefaultListSeparator = $00000003;
  1422.  
  1423. // WdSortFieldType constants
  1424. type
  1425.   WdSortFieldType = TOleEnum;
  1426. const
  1427.   wdSortFieldAlphanumeric = $00000000;
  1428.   wdSortFieldNumeric = $00000001;
  1429.   wdSortFieldDate = $00000002;
  1430.  
  1431. // WdSortFieldTypeHID constants
  1432. type
  1433.   WdSortFieldTypeHID = TOleEnum;
  1434. const
  1435.   wdSortFieldSyllable = $00000003;
  1436.   wdSortFieldJapanJIS = $00000004;
  1437.   wdSortFieldStroke = $00000005;
  1438.   wdSortFieldKoreaKS = $00000006;
  1439.  
  1440. // WdSortOrder constants
  1441. type
  1442.   WdSortOrder = TOleEnum;
  1443. const
  1444.   wdSortOrderAscending = $00000000;
  1445.   wdSortOrderDescending = $00000001;
  1446.  
  1447. // WdTableFormat constants
  1448. type
  1449.   WdTableFormat = TOleEnum;
  1450. const
  1451.   wdTableFormatNone = $00000000;
  1452.   wdTableFormatSimple1 = $00000001;
  1453.   wdTableFormatSimple2 = $00000002;
  1454.   wdTableFormatSimple3 = $00000003;
  1455.   wdTableFormatClassic1 = $00000004;
  1456.   wdTableFormatClassic2 = $00000005;
  1457.   wdTableFormatClassic3 = $00000006;
  1458.   wdTableFormatClassic4 = $00000007;
  1459.   wdTableFormatColorful1 = $00000008;
  1460.   wdTableFormatColorful2 = $00000009;
  1461.   wdTableFormatColorful3 = $0000000A;
  1462.   wdTableFormatColumns1 = $0000000B;
  1463.   wdTableFormatColumns2 = $0000000C;
  1464.   wdTableFormatColumns3 = $0000000D;
  1465.   wdTableFormatColumns4 = $0000000E;
  1466.   wdTableFormatColumns5 = $0000000F;
  1467.   wdTableFormatGrid1 = $00000010;
  1468.   wdTableFormatGrid2 = $00000011;
  1469.   wdTableFormatGrid3 = $00000012;
  1470.   wdTableFormatGrid4 = $00000013;
  1471.   wdTableFormatGrid5 = $00000014;
  1472.   wdTableFormatGrid6 = $00000015;
  1473.   wdTableFormatGrid7 = $00000016;
  1474.   wdTableFormatGrid8 = $00000017;
  1475.   wdTableFormatList1 = $00000018;
  1476.   wdTableFormatList2 = $00000019;
  1477.   wdTableFormatList3 = $0000001A;
  1478.   wdTableFormatList4 = $0000001B;
  1479.   wdTableFormatList5 = $0000001C;
  1480.   wdTableFormatList6 = $0000001D;
  1481.   wdTableFormatList7 = $0000001E;
  1482.   wdTableFormatList8 = $0000001F;
  1483.   wdTableFormat3DEffects1 = $00000020;
  1484.   wdTableFormat3DEffects2 = $00000021;
  1485.   wdTableFormat3DEffects3 = $00000022;
  1486.   wdTableFormatContemporary = $00000023;
  1487.   wdTableFormatElegant = $00000024;
  1488.   wdTableFormatProfessional = $00000025;
  1489.   wdTableFormatSubtle1 = $00000026;
  1490.   wdTableFormatSubtle2 = $00000027;
  1491.  
  1492. // WdTableFormatApply constants
  1493. type
  1494.   WdTableFormatApply = TOleEnum;
  1495. const
  1496.   wdTableFormatApplyBorders = $00000001;
  1497.   wdTableFormatApplyShading = $00000002;
  1498.   wdTableFormatApplyFont = $00000004;
  1499.   wdTableFormatApplyColor = $00000008;
  1500.   wdTableFormatApplyAutoFit = $00000010;
  1501.   wdTableFormatApplyHeadingRows = $00000020;
  1502.   wdTableFormatApplyLastRow = $00000040;
  1503.   wdTableFormatApplyFirstColumn = $00000080;
  1504.   wdTableFormatApplyLastColumn = $00000100;
  1505.  
  1506. // WdLanguageID constants
  1507. type
  1508.   WdLanguageID = TOleEnum;
  1509. const
  1510.   wdLanguageNone = $00000000;
  1511.   wdNoProofing = $00000400;
  1512.   wdDanish = $00000406;
  1513.   wdGerman = $00000407;
  1514.   wdSwissGerman = $00000807;
  1515.   wdEnglishAUS = $00000C09;
  1516.   wdEnglishUK = $00000809;
  1517.   wdEnglishUS = $00000409;
  1518.   wdEnglishCanadian = $00001009;
  1519.   wdEnglishNewZealand = $00001409;
  1520.   wdEnglishSouthAfrica = $00001C09;
  1521.   wdSpanish = $0000040A;
  1522.   wdFrench = $0000040C;
  1523.   wdFrenchCanadian = $00000C0C;
  1524.   wdItalian = $00000410;
  1525.   wdDutch = $00000413;
  1526.   wdNorwegianBokmol = $00000414;
  1527.   wdNorwegianNynorsk = $00000814;
  1528.   wdBrazilianPortuguese = $00000416;
  1529.   wdPortuguese = $00000816;
  1530.   wdFinnish = $0000040B;
  1531.   wdSwedish = $0000041D;
  1532.   wdCatalan = $00000403;
  1533.   wdGreek = $00000408;
  1534.   wdTurkish = $0000041F;
  1535.   wdRussian = $00000419;
  1536.   wdCzech = $00000405;
  1537.   wdHungarian = $0000040E;
  1538.   wdPolish = $00000415;
  1539.   wdSlovenian = $00000424;
  1540.   wdBasque = $0000042D;
  1541.   wdMalaysian = $0000043E;
  1542.   wdJapanese = $00000411;
  1543.   wdKorean = $00000412;
  1544.   wdSimplifiedChinese = $00000804;
  1545.   wdTraditionalChinese = $00000404;
  1546.   wdSwissFrench = $0000100C;
  1547.   wdSesotho = $00000430;
  1548.   wdTsonga = $00000431;
  1549.   wdTswana = $00000432;
  1550.   wdVenda = $00000433;
  1551.   wdXhosa = $00000434;
  1552.   wdZulu = $00000435;
  1553.   wdAfrikaans = $00000436;
  1554.   wdArabic = $00000401;
  1555.   wdHebrew = $0000040D;
  1556.   wdSlovak = $0000041B;
  1557.   wdFarsi = $00000429;
  1558.   wdRomanian = $00000418;
  1559.   wdCroatian = $0000041A;
  1560.   wdUkrainian = $00000422;
  1561.   wdByelorussian = $00000423;
  1562.   wdEstonian = $00000425;
  1563.   wdLatvian = $00000426;
  1564.   wdMacedonian = $0000042F;
  1565.   wdSerbianLatin = $0000081A;
  1566.   wdSerbianCyrillic = $00000C1A;
  1567.   wdIcelandic = $0000040F;
  1568.   wdBelgianFrench = $0000080C;
  1569.   wdBelgianDutch = $00000813;
  1570.   wdBulgarian = $00000402;
  1571.   wdMexicanSpanish = $0000080A;
  1572.   wdSpanishModernSort = $00000C0A;
  1573.   wdSwissItalian = $00000810;
  1574.  
  1575. // WdFieldType constants
  1576. type
  1577.   WdFieldType = TOleEnum;
  1578. const
  1579.   wdFieldEmpty = $FFFFFFFF;
  1580.   wdFieldRef = $00000003;
  1581.   wdFieldIndexEntry = $00000004;
  1582.   wdFieldFootnoteRef = $00000005;
  1583.   wdFieldSet = $00000006;
  1584.   wdFieldIf = $00000007;
  1585.   wdFieldIndex = $00000008;
  1586.   wdFieldTOCEntry = $00000009;
  1587.   wdFieldStyleRef = $0000000A;
  1588.   wdFieldRefDoc = $0000000B;
  1589.   wdFieldSequence = $0000000C;
  1590.   wdFieldTOC = $0000000D;
  1591.   wdFieldInfo = $0000000E;
  1592.   wdFieldTitle = $0000000F;
  1593.   wdFieldSubject = $00000010;
  1594.   wdFieldAuthor = $00000011;
  1595.   wdFieldKeyWord = $00000012;
  1596.   wdFieldComments = $00000013;
  1597.   wdFieldLastSavedBy = $00000014;
  1598.   wdFieldCreateDate = $00000015;
  1599.   wdFieldSaveDate = $00000016;
  1600.   wdFieldPrintDate = $00000017;
  1601.   wdFieldRevisionNum = $00000018;
  1602.   wdFieldEditTime = $00000019;
  1603.   wdFieldNumPages = $0000001A;
  1604.   wdFieldNumWords = $0000001B;
  1605.   wdFieldNumChars = $0000001C;
  1606.   wdFieldFileName = $0000001D;
  1607.   wdFieldTemplate = $0000001E;
  1608.   wdFieldDate = $0000001F;
  1609.   wdFieldTime = $00000020;
  1610.   wdFieldPage = $00000021;
  1611.   wdFieldExpression = $00000022;
  1612.   wdFieldQuote = $00000023;
  1613.   wdFieldInclude = $00000024;
  1614.   wdFieldPageRef = $00000025;
  1615.   wdFieldAsk = $00000026;
  1616.   wdFieldFillIn = $00000027;
  1617.   wdFieldData = $00000028;
  1618.   wdFieldNext = $00000029;
  1619.   wdFieldNextIf = $0000002A;
  1620.   wdFieldSkipIf = $0000002B;
  1621.   wdFieldMergeRec = $0000002C;
  1622.   wdFieldDDE = $0000002D;
  1623.   wdFieldDDEAuto = $0000002E;
  1624.   wdFieldGlossary = $0000002F;
  1625.   wdFieldPrint = $00000030;
  1626.   wdFieldFormula = $00000031;
  1627.   wdFieldGoToButton = $00000032;
  1628.   wdFieldMacroButton = $00000033;
  1629.   wdFieldAutoNumOutline = $00000034;
  1630.   wdFieldAutoNumLegal = $00000035;
  1631.   wdFieldAutoNum = $00000036;
  1632.   wdFieldImport = $00000037;
  1633.   wdFieldLink = $00000038;
  1634.   wdFieldSymbol = $00000039;
  1635.   wdFieldEmbed = $0000003A;
  1636.   wdFieldMergeField = $0000003B;
  1637.   wdFieldUserName = $0000003C;
  1638.   wdFieldUserInitials = $0000003D;
  1639.   wdFieldUserAddress = $0000003E;
  1640.   wdFieldBarCode = $0000003F;
  1641.   wdFieldDocVariable = $00000040;
  1642.   wdFieldSection = $00000041;
  1643.   wdFieldSectionPages = $00000042;
  1644.   wdFieldIncludePicture = $00000043;
  1645.   wdFieldIncludeText = $00000044;
  1646.   wdFieldFileSize = $00000045;
  1647.   wdFieldFormTextInput = $00000046;
  1648.   wdFieldFormCheckBox = $00000047;
  1649.   wdFieldNoteRef = $00000048;
  1650.   wdFieldTOA = $00000049;
  1651.   wdFieldTOAEntry = $0000004A;
  1652.   wdFieldMergeSeq = $0000004B;
  1653.   wdFieldPrivate = $0000004D;
  1654.   wdFieldDatabase = $0000004E;
  1655.   wdFieldAutoText = $0000004F;
  1656.   wdFieldCompare = $00000050;
  1657.   wdFieldAddin = $00000051;
  1658.   wdFieldSubscriber = $00000052;
  1659.   wdFieldFormDropDown = $00000053;
  1660.   wdFieldAdvance = $00000054;
  1661.   wdFieldDocProperty = $00000055;
  1662.   wdFieldOCX = $00000057;
  1663.   wdFieldHyperlink = $00000058;
  1664.   wdFieldAutoTextList = $00000059;
  1665.   wdFieldListNum = $0000005A;
  1666.   wdFieldHTMLActiveX = $0000005B;
  1667.  
  1668. // WdBuiltinStyle constants
  1669. type
  1670.   WdBuiltinStyle = TOleEnum;
  1671. const
  1672.   wdStyleNormal = $FFFFFFFF;
  1673.   wdStyleEnvelopeAddress = $FFFFFFDB;
  1674.   wdStyleEnvelopeReturn = $FFFFFFDA;
  1675.   wdStyleBodyText = $FFFFFFBD;
  1676.   wdStyleHeading1 = $FFFFFFFE;
  1677.   wdStyleHeading2 = $FFFFFFFD;
  1678.   wdStyleHeading3 = $FFFFFFFC;
  1679.   wdStyleHeading4 = $FFFFFFFB;
  1680.   wdStyleHeading5 = $FFFFFFFA;
  1681.   wdStyleHeading6 = $FFFFFFF9;
  1682.   wdStyleHeading7 = $FFFFFFF8;
  1683.   wdStyleHeading8 = $FFFFFFF7;
  1684.   wdStyleHeading9 = $FFFFFFF6;
  1685.   wdStyleIndex1 = $FFFFFFF5;
  1686.   wdStyleIndex2 = $FFFFFFF4;
  1687.   wdStyleIndex3 = $FFFFFFF3;
  1688.   wdStyleIndex4 = $FFFFFFF2;
  1689.   wdStyleIndex5 = $FFFFFFF1;
  1690.   wdStyleIndex6 = $FFFFFFF0;
  1691.   wdStyleIndex7 = $FFFFFFEF;
  1692.   wdStyleIndex8 = $FFFFFFEE;
  1693.   wdStyleIndex9 = $FFFFFFED;
  1694.   wdStyleTOC1 = $FFFFFFEC;
  1695.   wdStyleTOC2 = $FFFFFFEB;
  1696.   wdStyleTOC3 = $FFFFFFEA;
  1697.   wdStyleTOC4 = $FFFFFFE9;
  1698.   wdStyleTOC5 = $FFFFFFE8;
  1699.   wdStyleTOC6 = $FFFFFFE7;
  1700.   wdStyleTOC7 = $FFFFFFE6;
  1701.   wdStyleTOC8 = $FFFFFFE5;
  1702.   wdStyleTOC9 = $FFFFFFE4;
  1703.   wdStyleNormalIndent = $FFFFFFE3;
  1704.   wdStyleFootnoteText = $FFFFFFE2;
  1705.   wdStyleCommentText = $FFFFFFE1;
  1706.   wdStyleHeader = $FFFFFFE0;
  1707.   wdStyleFooter = $FFFFFFDF;
  1708.   wdStyleIndexHeading = $FFFFFFDE;
  1709.   wdStyleCaption = $FFFFFFDD;
  1710.   wdStyleTableOfFigures = $FFFFFFDC;
  1711.   wdStyleFootnoteReference = $FFFFFFD9;
  1712.   wdStyleCommentReference = $FFFFFFD8;
  1713.   wdStyleLineNumber = $FFFFFFD7;
  1714.   wdStylePageNumber = $FFFFFFD6;
  1715.   wdStyleEndnoteReference = $FFFFFFD5;
  1716.   wdStyleEndnoteText = $FFFFFFD4;
  1717.   wdStyleTableOfAuthorities = $FFFFFFD3;
  1718.   wdStyleMacroText = $FFFFFFD2;
  1719.   wdStyleTOAHeading = $FFFFFFD1;
  1720.   wdStyleList = $FFFFFFD0;
  1721.   wdStyleListBullet = $FFFFFFCF;
  1722.   wdStyleListNumber = $FFFFFFCE;
  1723.   wdStyleList2 = $FFFFFFCD;
  1724.   wdStyleList3 = $FFFFFFCC;
  1725.   wdStyleList4 = $FFFFFFCB;
  1726.   wdStyleList5 = $FFFFFFCA;
  1727.   wdStyleListBullet2 = $FFFFFFC9;
  1728.   wdStyleListBullet3 = $FFFFFFC8;
  1729.   wdStyleListBullet4 = $FFFFFFC7;
  1730.   wdStyleListBullet5 = $FFFFFFC6;
  1731.   wdStyleListNumber2 = $FFFFFFC5;
  1732.   wdStyleListNumber3 = $FFFFFFC4;
  1733.   wdStyleListNumber4 = $FFFFFFC3;
  1734.   wdStyleListNumber5 = $FFFFFFC2;
  1735.   wdStyleTitle = $FFFFFFC1;
  1736.   wdStyleClosing = $FFFFFFC0;
  1737.   wdStyleSignature = $FFFFFFBF;
  1738.   wdStyleDefaultParagraphFont = $FFFFFFBE;
  1739.   wdStyleBodyTextIndent = $FFFFFFBC;
  1740.   wdStyleListContinue = $FFFFFFBB;
  1741.   wdStyleListContinue2 = $FFFFFFBA;
  1742.   wdStyleListContinue3 = $FFFFFFB9;
  1743.   wdStyleListContinue4 = $FFFFFFB8;
  1744.   wdStyleListContinue5 = $FFFFFFB7;
  1745.   wdStyleMessageHeader = $FFFFFFB6;
  1746.   wdStyleSubtitle = $FFFFFFB5;
  1747.   wdStyleSalutation = $FFFFFFB4;
  1748.   wdStyleDate = $FFFFFFB3;
  1749.   wdStyleBodyTextFirstIndent = $FFFFFFB2;
  1750.   wdStyleBodyTextFirstIndent2 = $FFFFFFB1;
  1751.   wdStyleNoteHeading = $FFFFFFB0;
  1752.   wdStyleBodyText2 = $FFFFFFAF;
  1753.   wdStyleBodyText3 = $FFFFFFAE;
  1754.   wdStyleBodyTextIndent2 = $FFFFFFAD;
  1755.   wdStyleBodyTextIndent3 = $FFFFFFAC;
  1756.   wdStyleBlockQuotation = $FFFFFFAB;
  1757.   wdStyleHyperlink = $FFFFFFAA;
  1758.   wdStyleHyperlinkFollowed = $FFFFFFA9;
  1759.   wdStyleStrong = $FFFFFFA8;
  1760.   wdStyleEmphasis = $FFFFFFA7;
  1761.   wdStyleNavPane = $FFFFFFA6;
  1762.   wdStylePlainText = $FFFFFFA5;
  1763.  
  1764. // WdWordDialogTab constants
  1765. type
  1766.   WdWordDialogTab = TOleEnum;
  1767. const
  1768.   wdDialogToolsOptionsTabView = $000000CC;
  1769.   wdDialogToolsOptionsTabGeneral = $000000CB;
  1770.   wdDialogToolsOptionsTabEdit = $000000E0;
  1771.   wdDialogToolsOptionsTabPrint = $000000D0;
  1772.   wdDialogToolsOptionsTabSave = $000000D1;
  1773.   wdDialogToolsOptionsTabProofread = $000000D3;
  1774.   wdDialogToolsOptionsTabTrackChanges = $00000182;
  1775.   wdDialogToolsOptionsTabUserInfo = $000000D5;
  1776.   wdDialogToolsOptionsTabCompatibility = $0000020D;
  1777.   wdDialogToolsOptionsTabFileLocations = $000000E1;
  1778.   wdDialogFilePageSetupTabMargins = $000249F0;
  1779.   wdDialogFilePageSetupTabPaperSize = $000249F1;
  1780.   wdDialogFilePageSetupTabPaperSource = $000249F2;
  1781.   wdDialogFilePageSetupTabLayout = $000249F3;
  1782.   wdDialogInsertSymbolTabSymbols = $00030D40;
  1783.   wdDialogInsertSymbolTabSpecialCharacters = $00030D41;
  1784.   wdDialogNoteOptionsTabAllFootnotes = $000493E0;
  1785.   wdDialogNoteOptionsTabAllEndnotes = $000493E1;
  1786.   wdDialogInsertIndexAndTablesTabIndex = $00061A80;
  1787.   wdDialogInsertIndexAndTablesTabTableOfContents = $00061A81;
  1788.   wdDialogInsertIndexAndTablesTabTableOfFigures = $00061A82;
  1789.   wdDialogInsertIndexAndTablesTabTableOfAuthorities = $00061A83;
  1790.   wdDialogOrganizerTabStyles = $0007A120;
  1791.   wdDialogOrganizerTabAutoText = $0007A121;
  1792.   wdDialogOrganizerTabCommandBars = $0007A122;
  1793.   wdDialogOrganizerTabMacros = $0007A123;
  1794.   wdDialogFormatFontTabFont = $000927C0;
  1795.   wdDialogFormatFontTabCharacterSpacing = $000927C1;
  1796.   wdDialogFormatFontTabAnimation = $000927C2;
  1797.   wdDialogFormatBordersAndShadingTabBorders = $000AAE60;
  1798.   wdDialogFormatBordersAndShadingTabPageBorder = $000AAE61;
  1799.   wdDialogFormatBordersAndShadingTabShading = $000AAE62;
  1800.   wdDialogToolsEnvelopesAndLabelsTabEnvelopes = $000C3500;
  1801.   wdDialogToolsEnvelopesAndLabelsTabLabels = $000C3501;
  1802.   wdDialogFormatParagraphTabIndentsAndSpacing = $000F4240;
  1803.   wdDialogFormatParagraphTabTextFlow = $000F4241;
  1804.   wdDialogFormatDrawingObjectTabColorsAndLines = $00124F80;
  1805.   wdDialogFormatDrawingObjectTabSize = $00124F81;
  1806.   wdDialogFormatDrawingObjectTabPosition = $00124F82;
  1807.   wdDialogFormatDrawingObjectTabWrapping = $00124F83;
  1808.   wdDialogFormatDrawingObjectTabPicture = $00124F84;
  1809.   wdDialogFormatDrawingObjectTabTextbox = $00124F85;
  1810.   wdDialogToolsAutoCorrectExceptionsTabFirstLetter = $00155CC0;
  1811.   wdDialogToolsAutoCorrectExceptionsTabInitialCaps = $00155CC1;
  1812.   wdDialogFormatBulletsAndNumberingTabBulleted = $0016E360;
  1813.   wdDialogFormatBulletsAndNumberingTabNumbered = $0016E361;
  1814.   wdDialogFormatBulletsAndNumberingTabOutlineNumbered = $0016E362;
  1815.   wdDialogLetterWizardTabLetterFormat = $00186A00;
  1816.   wdDialogLetterWizardTabRecipientInfo = $00186A01;
  1817.   wdDialogLetterWizardTabOtherElements = $00186A02;
  1818.   wdDialogLetterWizardTabSenderInfo = $00186A03;
  1819.   wdDialogToolsAutoManagerTabAutoCorrect = $0019F0A0;
  1820.   wdDialogToolsAutoManagerTabAutoFormatAsYouType = $0019F0A1;
  1821.   wdDialogToolsAutoManagerTabAutoText = $0019F0A2;
  1822.   wdDialogToolsAutoManagerTabAutoFormat = $0019F0A3;
  1823.  
  1824. // WdWordDialogTabHID constants
  1825. type
  1826.   WdWordDialogTabHID = TOleEnum;
  1827. const
  1828.   wdDialogToolsOptionsTabTypography = $000002E3;
  1829.   wdDialogToolsOptionsTabFuzzy = $00000316;
  1830.   wdDialogToolsOptionsTabHangulHanjaConversion = $00000312;
  1831.   wdDialogFilePageSetupTabCharsLines = $000249F4;
  1832.   wdDialogFormatParagraphTabTeisai = $000F4242;
  1833.   wdDialogToolsAutoCorrectExceptionsTabHangulAndAlphabet = $00155CC2;
  1834.  
  1835. // WdWordDialog constants
  1836. type
  1837.   WdWordDialog = TOleEnum;
  1838. const
  1839.   wdDialogHelpAbout = $00000009;
  1840.   wdDialogHelpWordPerfectHelp = $0000000A;
  1841.   wdDialogHelpWordPerfectHelpOptions = $000001FF;
  1842.   wdDialogFormatChangeCase = $00000142;
  1843.   wdDialogToolsWordCount = $000000E4;
  1844.   wdDialogDocumentStatistics = $0000004E;
  1845.   wdDialogFileNew = $0000004F;
  1846.   wdDialogFileOpen = $00000050;
  1847.   wdDialogMailMergeOpenDataSource = $00000051;
  1848.   wdDialogMailMergeOpenHeaderSource = $00000052;
  1849.   wdDialogMailMergeUseAddressBook = $0000030B;
  1850.   wdDialogFileSaveAs = $00000054;
  1851.   wdDialogFileSummaryInfo = $00000056;
  1852.   wdDialogToolsTemplates = $00000057;
  1853.   wdDialogOrganizer = $000000DE;
  1854.   wdDialogFilePrint = $00000058;
  1855.   wdDialogMailMerge = $000002A4;
  1856.   wdDialogMailMergeCheck = $000002A5;
  1857.   wdDialogMailMergeQueryOptions = $000002A9;
  1858.   wdDialogMailMergeFindRecord = $00000239;
  1859.   wdDialogMailMergeInsertIf = $00000FD1;
  1860.   wdDialogMailMergeInsertNextIf = $00000FD5;
  1861.   wdDialogMailMergeInsertSkipIf = $00000FD7;
  1862.   wdDialogMailMergeInsertFillIn = $00000FD0;
  1863.   wdDialogMailMergeInsertAsk = $00000FCF;
  1864.   wdDialogMailMergeInsertSet = $00000FD6;
  1865.   wdDialogMailMergeHelper = $000002A8;
  1866.   wdDialogLetterWizard = $00000335;
  1867.   wdDialogFilePrintSetup = $00000061;
  1868.   wdDialogFileFind = $00000063;
  1869.   wdDialogMailMergeCreateDataSource = $00000282;
  1870.   wdDialogMailMergeCreateHeaderSource = $00000283;
  1871.   wdDialogEditPasteSpecial = $0000006F;
  1872.   wdDialogEditFind = $00000070;
  1873.   wdDialogEditReplace = $00000075;
  1874.   wdDialogEditGoToOld = $0000032B;
  1875.   wdDialogEditGoTo = $00000380;
  1876.   wdDialogCreateAutoText = $00000368;
  1877.   wdDialogEditAutoText = $000003D9;
  1878.   wdDialogEditLinks = $0000007C;
  1879.   wdDialogEditObject = $0000007D;
  1880.   wdDialogConvertObject = $00000188;
  1881.   wdDialogTableToText = $00000080;
  1882.   wdDialogTextToTable = $0000007F;
  1883.   wdDialogTableInsertTable = $00000081;
  1884.   wdDialogTableInsertCells = $00000082;
  1885.   wdDialogTableInsertRow = $00000083;
  1886.   wdDialogTableDeleteCells = $00000085;
  1887.   wdDialogTableSplitCells = $00000089;
  1888.   wdDialogTableFormula = $0000015C;
  1889.   wdDialogTableAutoFormat = $00000233;
  1890.   wdDialogTableFormatCell = $00000264;
  1891.   wdDialogViewZoom = $00000241;
  1892.   wdDialogNewToolbar = $0000024A;
  1893.   wdDialogInsertBreak = $0000009F;
  1894.   wdDialogInsertFootnote = $00000172;
  1895.   wdDialogInsertSymbol = $000000A2;
  1896.   wdDialogInsertPicture = $000000A3;
  1897.   wdDialogInsertFile = $000000A4;
  1898.   wdDialogInsertDateTime = $000000A5;
  1899.   wdDialogInsertField = $000000A6;
  1900.   wdDialogInsertDatabase = $00000155;
  1901.   wdDialogInsertMergeField = $000000A7;
  1902.   wdDialogInsertBookmark = $000000A8;
  1903.   wdDialogMarkIndexEntry = $000000A9;
  1904.   wdDialogMarkCitation = $000001CF;
  1905.   wdDialogEditTOACategory = $00000271;
  1906.   wdDialogInsertIndexAndTables = $000001D9;
  1907.   wdDialogInsertIndex = $000000AA;
  1908.   wdDialogInsertTableOfContents = $000000AB;
  1909.   wdDialogMarkTableOfContentsEntry = $000001BA;
  1910.   wdDialogInsertTableOfFigures = $000001D8;
  1911.   wdDialogInsertTableOfAuthorities = $000001D7;
  1912.   wdDialogInsertObject = $000000AC;
  1913.   wdDialogFormatCallout = $00000262;
  1914.   wdDialogDrawSnapToGrid = $00000279;
  1915.   wdDialogDrawAlign = $0000027A;
  1916.   wdDialogToolsEnvelopesAndLabels = $0000025F;
  1917.   wdDialogToolsCreateEnvelope = $000000AD;
  1918.   wdDialogToolsCreateLabels = $000001E9;
  1919.   wdDialogToolsProtectDocument = $000001F7;
  1920.   wdDialogToolsProtectSection = $00000242;
  1921.   wdDialogToolsUnprotectDocument = $00000209;
  1922.   wdDialogFormatFont = $000000AE;
  1923.   wdDialogFormatParagraph = $000000AF;
  1924.   wdDialogFormatSectionLayout = $000000B0;
  1925.   wdDialogFormatColumns = $000000B1;
  1926.   wdDialogFileDocumentLayout = $000000B2;
  1927.   wdDialogFileMacPageSetup = $000002AD;
  1928.   wdDialogFilePrintOneCopy = $000001BD;
  1929.   wdDialogFileMacPageSetupGX = $000001BC;
  1930.   wdDialogFileMacCustomPageSetupGX = $000002E1;
  1931.   wdDialogFilePageSetup = $000000B2;
  1932.   wdDialogFormatTabs = $000000B3;
  1933.   wdDialogFormatStyle = $000000B4;
  1934.   wdDialogFormatStyleGallery = $000001F9;
  1935.   wdDialogFormatDefineStyleFont = $000000B5;
  1936.   wdDialogFormatDefineStylePara = $000000B6;
  1937.   wdDialogFormatDefineStyleTabs = $000000B7;
  1938.   wdDialogFormatDefineStyleFrame = $000000B8;
  1939.   wdDialogFormatDefineStyleBorders = $000000B9;
  1940.   wdDialogFormatDefineStyleLang = $000000BA;
  1941.   wdDialogFormatPicture = $000000BB;
  1942.   wdDialogToolsLanguage = $000000BC;
  1943.   wdDialogFormatBordersAndShading = $000000BD;
  1944.   wdDialogFormatDrawingObject = $000003C0;
  1945.   wdDialogFormatFrame = $000000BE;
  1946.   wdDialogFormatDropCap = $000001E8;
  1947.   wdDialogFormatBulletsAndNumbering = $00000338;
  1948.   wdDialogToolsHyphenation = $000000C3;
  1949.   wdDialogToolsBulletsNumbers = $000000C4;
  1950.   wdDialogToolsHighlightChanges = $000000C5;
  1951.   wdDialogToolsAcceptRejectChanges = $000001FA;
  1952.   wdDialogToolsMergeDocuments = $000001B3;
  1953.   wdDialogToolsCompareDocuments = $000000C6;
  1954.   wdDialogTableSort = $000000C7;
  1955.   wdDialogToolsCustomizeMenuBar = $00000267;
  1956.   wdDialogToolsCustomize = $00000098;
  1957.   wdDialogToolsCustomizeKeyboard = $000001B0;
  1958.   wdDialogToolsCustomizeMenus = $000001B1;
  1959.   wdDialogListCommands = $000002D3;
  1960.   wdDialogToolsOptions = $000003CE;
  1961.   wdDialogToolsOptionsGeneral = $000000CB;
  1962.   wdDialogToolsAdvancedSettings = $000000CE;
  1963.   wdDialogToolsOptionsCompatibility = $0000020D;
  1964.   wdDialogToolsOptionsPrint = $000000D0;
  1965.   wdDialogToolsOptionsSave = $000000D1;
  1966.   wdDialogToolsOptionsSpellingAndGrammar = $000000D3;
  1967.   wdDialogToolsSpellingAndGrammar = $0000033C;
  1968.   wdDialogToolsThesaurus = $000000C2;
  1969.   wdDialogToolsOptionsUserInfo = $000000D5;
  1970.   wdDialogToolsOptionsAutoFormat = $000003BF;
  1971.   wdDialogToolsOptionsTrackChanges = $00000182;
  1972.   wdDialogToolsOptionsEdit = $000000E0;
  1973.   wdDialogToolsMacro = $000000D7;
  1974.   wdDialogInsertPageNumbers = $00000126;
  1975.   wdDialogFormatPageNumber = $0000012A;
  1976.   wdDialogNoteOptions = $00000175;
  1977.   wdDialogCopyFile = $0000012C;
  1978.   wdDialogFormatAddrFonts = $00000067;
  1979.   wdDialogFormatRetAddrFonts = $000000DD;
  1980.   wdDialogToolsOptionsFileLocations = $000000E1;
  1981.   wdDialogToolsCreateDirectory = $00000341;
  1982.   wdDialogUpdateTOC = $0000014B;
  1983.   wdDialogInsertFormField = $000001E3;
  1984.   wdDialogFormFieldOptions = $00000161;
  1985.   wdDialogInsertCaption = $00000165;
  1986.   wdDialogInsertAutoCaption = $00000167;
  1987.   wdDialogInsertAddCaption = $00000192;
  1988.   wdDialogInsertCaptionNumbering = $00000166;
  1989.   wdDialogInsertCrossReference = $0000016F;
  1990.   wdDialogToolsManageFields = $00000277;
  1991.   wdDialogToolsAutoManager = $00000393;
  1992.   wdDialogToolsAutoCorrect = $0000017A;
  1993.   wdDialogToolsAutoCorrectExceptions = $000002FA;
  1994.   wdDialogConnect = $000001A4;
  1995.   wdDialogToolsOptionsView = $000000CC;
  1996.   wdDialogInsertSubdocument = $00000247;
  1997.   wdDialogFileRoutingSlip = $00000270;
  1998.   wdDialogFontSubstitution = $00000245;
  1999.   wdDialogEditCreatePublisher = $000002DC;
  2000.   wdDialogEditSubscribeTo = $000002DD;
  2001.   wdDialogEditPublishOptions = $000002DF;
  2002.   wdDialogEditSubscribeOptions = $000002E0;
  2003.   wdDialogControlRun = $000000EB;
  2004.   wdDialogFileVersions = $000003B1;
  2005.   wdDialogToolsAutoSummarize = $0000036A;
  2006.   wdDialogFileSaveVersion = $000003EF;
  2007.   wdDialogWindowActivate = $000000DC;
  2008.   wdDialogToolsMacroRecord = $000000D6;
  2009.   wdDialogToolsRevisions = $000000C5;
  2010.  
  2011. // WdWordDialogHID constants
  2012. type
  2013.   WdWordDialogHID = TOleEnum;
  2014. const
  2015.   wdDialogToolsOptionsFuzzy = $00000316;
  2016.   wdDialogToolsOptionsTypography = $000002E3;
  2017.   wdDialogToolsOptionsAutoFormatAsYouType = $0000030A;
  2018.  
  2019. // WdFieldKind constants
  2020. type
  2021.   WdFieldKind = TOleEnum;
  2022. const
  2023.   wdFieldKindNone = $00000000;
  2024.   wdFieldKindHot = $00000001;
  2025.   wdFieldKindWarm = $00000002;
  2026.   wdFieldKindCold = $00000003;
  2027.  
  2028. // WdTextFormFieldType constants
  2029. type
  2030.   WdTextFormFieldType = TOleEnum;
  2031. const
  2032.   wdRegularText = $00000000;
  2033.   wdNumberText = $00000001;
  2034.   wdDateText = $00000002;
  2035.   wdCurrentDateText = $00000003;
  2036.   wdCurrentTimeText = $00000004;
  2037.   wdCalculationText = $00000005;
  2038.  
  2039. // WdChevronConvertRule constants
  2040. type
  2041.   WdChevronConvertRule = TOleEnum;
  2042. const
  2043.   wdNeverConvert = $00000000;
  2044.   wdAlwaysConvert = $00000001;
  2045.   wdAskToNotConvert = $00000002;
  2046.   wdAskToConvert = $00000003;
  2047.  
  2048. // WdMailMergeMainDocType constants
  2049. type
  2050.   WdMailMergeMainDocType = TOleEnum;
  2051. const
  2052.   wdNotAMergeDocument = $FFFFFFFF;
  2053.   wdFormLetters = $00000000;
  2054.   wdMailingLabels = $00000001;
  2055.   wdEnvelopes = $00000002;
  2056.   wdCatalog = $00000003;
  2057.  
  2058. // WdMailMergeState constants
  2059. type
  2060.   WdMailMergeState = TOleEnum;
  2061. const
  2062.   wdNormalDocument = $00000000;
  2063.   wdMainDocumentOnly = $00000001;
  2064.   wdMainAndDataSource = $00000002;
  2065.   wdMainAndHeader = $00000003;
  2066.   wdMainAndSourceAndHeader = $00000004;
  2067.   wdDataSource = $00000005;
  2068.  
  2069. // WdMailMergeDestination constants
  2070. type
  2071.   WdMailMergeDestination = TOleEnum;
  2072. const
  2073.   wdSendToNewDocument = $00000000;
  2074.   wdSendToPrinter = $00000001;
  2075.   wdSendToEmail = $00000002;
  2076.   wdSendToFax = $00000003;
  2077.  
  2078. // WdMailMergeActiveRecord constants
  2079. type
  2080.   WdMailMergeActiveRecord = TOleEnum;
  2081. const
  2082.   wdNoActiveRecord = $FFFFFFFF;
  2083.   wdNextRecord = $FFFFFFFE;
  2084.   wdPreviousRecord = $FFFFFFFD;
  2085.   wdFirstRecord = $FFFFFFFC;
  2086.   wdLastRecord = $FFFFFFFB;
  2087.  
  2088. // WdMailMergeDefaultRecord constants
  2089. type
  2090.   WdMailMergeDefaultRecord = TOleEnum;
  2091. const
  2092.   wdDefaultFirstRecord = $00000001;
  2093.   wdDefaultLastRecord = $FFFFFFF0;
  2094.  
  2095. // WdMailMergeDataSource constants
  2096. type
  2097.   WdMailMergeDataSource = TOleEnum;
  2098. const
  2099.   wdNoMergeInfo = $FFFFFFFF;
  2100.   wdMergeInfoFromWord = $00000000;
  2101.   wdMergeInfoFromAccessDDE = $00000001;
  2102.   wdMergeInfoFromExcelDDE = $00000002;
  2103.   wdMergeInfoFromMSQueryDDE = $00000003;
  2104.   wdMergeInfoFromODBC = $00000004;
  2105.  
  2106. // WdMailMergeComparison constants
  2107. type
  2108.   WdMailMergeComparison = TOleEnum;
  2109. const
  2110.   wdMergeIfEqual = $00000000;
  2111.   wdMergeIfNotEqual = $00000001;
  2112.   wdMergeIfLessThan = $00000002;
  2113.   wdMergeIfGreaterThan = $00000003;
  2114.   wdMergeIfLessThanOrEqual = $00000004;
  2115.   wdMergeIfGreaterThanOrEqual = $00000005;
  2116.   wdMergeIfIsBlank = $00000006;
  2117.   wdMergeIfIsNotBlank = $00000007;
  2118.  
  2119. // WdBookmarkSortBy constants
  2120. type
  2121.   WdBookmarkSortBy = TOleEnum;
  2122. const
  2123.   wdSortByName = $00000000;
  2124.   wdSortByLocation = $00000001;
  2125.  
  2126. // WdWindowState constants
  2127. type
  2128.   WdWindowState = TOleEnum;
  2129. const
  2130.   wdWindowStateNormal = $00000000;
  2131.   wdWindowStateMaximize = $00000001;
  2132.   wdWindowStateMinimize = $00000002;
  2133.  
  2134. // WdPictureLinkType constants
  2135. type
  2136.   WdPictureLinkType = TOleEnum;
  2137. const
  2138.   wdLinkNone = $00000000;
  2139.   wdLinkDataInDoc = $00000001;
  2140.   wdLinkDataOnDisk = $00000002;
  2141.  
  2142. // WdLinkType constants
  2143. type
  2144.   WdLinkType = TOleEnum;
  2145. const
  2146.   wdLinkTypeOLE = $00000000;
  2147.   wdLinkTypePicture = $00000001;
  2148.   wdLinkTypeText = $00000002;
  2149.   wdLinkTypeReference = $00000003;
  2150.   wdLinkTypeInclude = $00000004;
  2151.   wdLinkTypeImport = $00000005;
  2152.   wdLinkTypeDDE = $00000006;
  2153.   wdLinkTypeDDEAuto = $00000007;
  2154.  
  2155. // WdWindowType constants
  2156. type
  2157.   WdWindowType = TOleEnum;
  2158. const
  2159.   wdWindowDocument = $00000000;
  2160.   wdWindowTemplate = $00000001;
  2161.  
  2162. // WdViewType constants
  2163. type
  2164.   WdViewType = TOleEnum;
  2165. const
  2166.   wdNormalView = $00000001;
  2167.   wdOutlineView = $00000002;
  2168.   wdPageView = $00000003;
  2169.   wdPrintPreview = $00000004;
  2170.   wdMasterView = $00000005;
  2171.   wdOnlineView = $00000006;
  2172.  
  2173. // WdSeekView constants
  2174. type
  2175.   WdSeekView = TOleEnum;
  2176. const
  2177.   wdSeekMainDocument = $00000000;
  2178.   wdSeekPrimaryHeader = $00000001;
  2179.   wdSeekFirstPageHeader = $00000002;
  2180.   wdSeekEvenPagesHeader = $00000003;
  2181.   wdSeekPrimaryFooter = $00000004;
  2182.   wdSeekFirstPageFooter = $00000005;
  2183.   wdSeekEvenPagesFooter = $00000006;
  2184.   wdSeekFootnotes = $00000007;
  2185.   wdSeekEndnotes = $00000008;
  2186.   wdSeekCurrentPageHeader = $00000009;
  2187.   wdSeekCurrentPageFooter = $0000000A;
  2188.  
  2189. // WdSpecialPane constants
  2190. type
  2191.   WdSpecialPane = TOleEnum;
  2192. const
  2193.   wdPaneNone = $00000000;
  2194.   wdPanePrimaryHeader = $00000001;
  2195.   wdPaneFirstPageHeader = $00000002;
  2196.   wdPaneEvenPagesHeader = $00000003;
  2197.   wdPanePrimaryFooter = $00000004;
  2198.   wdPaneFirstPageFooter = $00000005;
  2199.   wdPaneEvenPagesFooter = $00000006;
  2200.   wdPaneFootnotes = $00000007;
  2201.   wdPaneEndnotes = $00000008;
  2202.   wdPaneFootnoteContinuationNotice = $00000009;
  2203.   wdPaneFootnoteContinuationSeparator = $0000000A;
  2204.   wdPaneFootnoteSeparator = $0000000B;
  2205.   wdPaneEndnoteContinuationNotice = $0000000C;
  2206.   wdPaneEndnoteContinuationSeparator = $0000000D;
  2207.   wdPaneEndnoteSeparator = $0000000E;
  2208.   wdPaneComments = $0000000F;
  2209.   wdPaneCurrentPageHeader = $00000010;
  2210.   wdPaneCurrentPageFooter = $00000011;
  2211.  
  2212. // WdPageFit constants
  2213. type
  2214.   WdPageFit = TOleEnum;
  2215. const
  2216.   wdPageFitNone = $00000000;
  2217.   wdPageFitFullPage = $00000001;
  2218.   wdPageFitBestFit = $00000002;
  2219.  
  2220. // WdBrowseTarget constants
  2221. type
  2222.   WdBrowseTarget = TOleEnum;
  2223. const
  2224.   wdBrowsePage = $00000001;
  2225.   wdBrowseSection = $00000002;
  2226.   wdBrowseComment = $00000003;
  2227.   wdBrowseFootnote = $00000004;
  2228.   wdBrowseEndnote = $00000005;
  2229.   wdBrowseField = $00000006;
  2230.   wdBrowseTable = $00000007;
  2231.   wdBrowseGraphic = $00000008;
  2232.   wdBrowseHeading = $00000009;
  2233.   wdBrowseEdit = $0000000A;
  2234.   wdBrowseFind = $0000000B;
  2235.   wdBrowseGoTo = $0000000C;
  2236.  
  2237. // WdPaperTray constants
  2238. type
  2239.   WdPaperTray = TOleEnum;
  2240. const
  2241.   wdPrinterDefaultBin = $00000000;
  2242.   wdPrinterUpperBin = $00000001;
  2243.   wdPrinterOnlyBin = $00000001;
  2244.   wdPrinterLowerBin = $00000002;
  2245.   wdPrinterMiddleBin = $00000003;
  2246.   wdPrinterManualFeed = $00000004;
  2247.   wdPrinterEnvelopeFeed = $00000005;
  2248.   wdPrinterManualEnvelopeFeed = $00000006;
  2249.   wdPrinterAutomaticSheetFeed = $00000007;
  2250.   wdPrinterTractorFeed = $00000008;
  2251.   wdPrinterSmallFormatBin = $00000009;
  2252.   wdPrinterLargeFormatBin = $0000000A;
  2253.   wdPrinterLargeCapacityBin = $0000000B;
  2254.   wdPrinterPaperCassette = $0000000E;
  2255.   wdPrinterFormSource = $0000000F;
  2256.  
  2257. // WdOrientation constants
  2258. type
  2259.   WdOrientation = TOleEnum;
  2260. const
  2261.   wdOrientPortrait = $00000000;
  2262.   wdOrientLandscape = $00000001;
  2263.  
  2264. // WdSelectionType constants
  2265. type
  2266.   WdSelectionType = TOleEnum;
  2267. const
  2268.   wdNoSelection = $00000000;
  2269.   wdSelectionIP = $00000001;
  2270.   wdSelectionNormal = $00000002;
  2271.   wdSelectionFrame = $00000003;
  2272.   wdSelectionColumn = $00000004;
  2273.   wdSelectionRow = $00000005;
  2274.   wdSelectionBlock = $00000006;
  2275.   wdSelectionInlineShape = $00000007;
  2276.   wdSelectionShape = $00000008;
  2277.  
  2278. // WdCaptionLabelID constants
  2279. type
  2280.   WdCaptionLabelID = TOleEnum;
  2281. const
  2282.   wdCaptionFigure = $FFFFFFFF;
  2283.   wdCaptionTable = $FFFFFFFE;
  2284.   wdCaptionEquation = $FFFFFFFD;
  2285.  
  2286. // WdReferenceType constants
  2287. type
  2288.   WdReferenceType = TOleEnum;
  2289. const
  2290.   wdRefTypeNumberedItem = $00000000;
  2291.   wdRefTypeHeading = $00000001;
  2292.   wdRefTypeBookmark = $00000002;
  2293.   wdRefTypeFootnote = $00000003;
  2294.   wdRefTypeEndnote = $00000004;
  2295.  
  2296. // WdReferenceKind constants
  2297. type
  2298.   WdReferenceKind = TOleEnum;
  2299. const
  2300.   wdContentText = $FFFFFFFF;
  2301.   wdNumberRelativeContext = $FFFFFFFE;
  2302.   wdNumberNoContext = $FFFFFFFD;
  2303.   wdNumberFullContext = $FFFFFFFC;
  2304.   wdEntireCaption = $00000002;
  2305.   wdOnlyLabelAndNumber = $00000003;
  2306.   wdOnlyCaptionText = $00000004;
  2307.   wdFootnoteNumber = $00000005;
  2308.   wdEndnoteNumber = $00000006;
  2309.   wdPageNumber = $00000007;
  2310.   wdPosition = $0000000F;
  2311.   wdFootnoteNumberFormatted = $00000010;
  2312.   wdEndnoteNumberFormatted = $00000011;
  2313.  
  2314. // WdIndexFormat constants
  2315. type
  2316.   WdIndexFormat = TOleEnum;
  2317. const
  2318.   wdIndexTemplate = $00000000;
  2319.   wdIndexClassic = $00000001;
  2320.   wdIndexFancy = $00000002;
  2321.   wdIndexModern = $00000003;
  2322.   wdIndexBulleted = $00000004;
  2323.   wdIndexFormal = $00000005;
  2324.   wdIndexSimple = $00000006;
  2325.  
  2326. // WdIndexType constants
  2327. type
  2328.   WdIndexType = TOleEnum;
  2329. const
  2330.   wdIndexIndent = $00000000;
  2331.   wdIndexRunin = $00000001;
  2332.  
  2333. // WdRevisionsWrap constants
  2334. type
  2335.   WdRevisionsWrap = TOleEnum;
  2336. const
  2337.   wdWrapNever = $00000000;
  2338.   wdWrapAlways = $00000001;
  2339.   wdWrapAsk = $00000002;
  2340.  
  2341. // WdRevisionType constants
  2342. type
  2343.   WdRevisionType = TOleEnum;
  2344. const
  2345.   wdNoRevision = $00000000;
  2346.   wdRevisionInsert = $00000001;
  2347.   wdRevisionDelete = $00000002;
  2348.   wdRevisionProperty = $00000003;
  2349.   wdRevisionParagraphNumber = $00000004;
  2350.   wdRevisionDisplayField = $00000005;
  2351.   wdRevisionReconcile = $00000006;
  2352.   wdRevisionConflict = $00000007;
  2353.   wdRevisionStyle = $00000008;
  2354.   wdRevisionReplace = $00000009;
  2355.  
  2356. // WdRoutingSlipDelivery constants
  2357. type
  2358.   WdRoutingSlipDelivery = TOleEnum;
  2359. const
  2360.   wdOneAfterAnother = $00000000;
  2361.   wdAllAtOnce = $00000001;
  2362.  
  2363. // WdRoutingSlipStatus constants
  2364. type
  2365.   WdRoutingSlipStatus = TOleEnum;
  2366. const
  2367.   wdNotYetRouted = $00000000;
  2368.   wdRouteInProgress = $00000001;
  2369.   wdRouteComplete = $00000002;
  2370.  
  2371. // WdSectionStart constants
  2372. type
  2373.   WdSectionStart = TOleEnum;
  2374. const
  2375.   wdSectionContinuous = $00000000;
  2376.   wdSectionNewColumn = $00000001;
  2377.   wdSectionNewPage = $00000002;
  2378.   wdSectionEvenPage = $00000003;
  2379.   wdSectionOddPage = $00000004;
  2380.  
  2381. // WdSaveOptions constants
  2382. type
  2383.   WdSaveOptions = TOleEnum;
  2384. const
  2385.   wdDoNotSaveChanges = $00000000;
  2386.   wdSaveChanges = $FFFFFFFF;
  2387.   wdPromptToSaveChanges = $FFFFFFFE;
  2388.  
  2389. // WdDocumentKind constants
  2390. type
  2391.   WdDocumentKind = TOleEnum;
  2392. const
  2393.   wdDocumentNotSpecified = $00000000;
  2394.   wdDocumentLetter = $00000001;
  2395.   wdDocumentEmail = $00000002;
  2396.  
  2397. // WdDocumentType constants
  2398. type
  2399.   WdDocumentType = TOleEnum;
  2400. const
  2401.   wdTypeDocument = $00000000;
  2402.   wdTypeTemplate = $00000001;
  2403.  
  2404. // WdOriginalFormat constants
  2405. type
  2406.   WdOriginalFormat = TOleEnum;
  2407. const
  2408.   wdWordDocument = $00000000;
  2409.   wdOriginalDocumentFormat = $00000001;
  2410.   wdPromptUser = $00000002;
  2411.  
  2412. // WdRelocate constants
  2413. type
  2414.   WdRelocate = TOleEnum;
  2415. const
  2416.   wdRelocateUp = $00000000;
  2417.   wdRelocateDown = $00000001;
  2418.  
  2419. // WdInsertedTextMark constants
  2420. type
  2421.   WdInsertedTextMark = TOleEnum;
  2422. const
  2423.   wdInsertedTextMarkNone = $00000000;
  2424.   wdInsertedTextMarkBold = $00000001;
  2425.   wdInsertedTextMarkItalic = $00000002;
  2426.   wdInsertedTextMarkUnderline = $00000003;
  2427.   wdInsertedTextMarkDoubleUnderline = $00000004;
  2428.  
  2429. // WdRevisedLinesMark constants
  2430. type
  2431.   WdRevisedLinesMark = TOleEnum;
  2432. const
  2433.   wdRevisedLinesMarkNone = $00000000;
  2434.   wdRevisedLinesMarkLeftBorder = $00000001;
  2435.   wdRevisedLinesMarkRightBorder = $00000002;
  2436.   wdRevisedLinesMarkOutsideBorder = $00000003;
  2437.  
  2438. // WdDeletedTextMark constants
  2439. type
  2440.   WdDeletedTextMark = TOleEnum;
  2441. const
  2442.   wdDeletedTextMarkHidden = $00000000;
  2443.   wdDeletedTextMarkStrikeThrough = $00000001;
  2444.   wdDeletedTextMarkCaret = $00000002;
  2445.   wdDeletedTextMarkPound = $00000003;
  2446.  
  2447. // WdRevisedPropertiesMark constants
  2448. type
  2449.   WdRevisedPropertiesMark = TOleEnum;
  2450. const
  2451.   wdRevisedPropertiesMarkNone = $00000000;
  2452.   wdRevisedPropertiesMarkBold = $00000001;
  2453.   wdRevisedPropertiesMarkItalic = $00000002;
  2454.   wdRevisedPropertiesMarkUnderline = $00000003;
  2455.   wdRevisedPropertiesMarkDoubleUnderline = $00000004;
  2456.  
  2457. // WdFieldShading constants
  2458. type
  2459.   WdFieldShading = TOleEnum;
  2460. const
  2461.   wdFieldShadingNever = $00000000;
  2462.   wdFieldShadingAlways = $00000001;
  2463.   wdFieldShadingWhenSelected = $00000002;
  2464.  
  2465. // WdDefaultFilePath constants
  2466. type
  2467.   WdDefaultFilePath = TOleEnum;
  2468. const
  2469.   wdDocumentsPath = $00000000;
  2470.   wdPicturesPath = $00000001;
  2471.   wdUserTemplatesPath = $00000002;
  2472.   wdWorkgroupTemplatesPath = $00000003;
  2473.   wdUserOptionsPath = $00000004;
  2474.   wdAutoRecoverPath = $00000005;
  2475.   wdToolsPath = $00000006;
  2476.   wdTutorialPath = $00000007;
  2477.   wdStartupPath = $00000008;
  2478.   wdProgramPath = $00000009;
  2479.   wdGraphicsFiltersPath = $0000000A;
  2480.   wdTextConvertersPath = $0000000B;
  2481.   wdProofingToolsPath = $0000000C;
  2482.   wdTempFilePath = $0000000D;
  2483.   wdCurrentFolderPath = $0000000E;
  2484.   wdStyleGalleryPath = $0000000F;
  2485.   wdBorderArtPath = $00000013;
  2486.  
  2487. // WdCompatibility constants
  2488. type
  2489.   WdCompatibility = TOleEnum;
  2490. const
  2491.   wdNoTabHangIndent = $00000001;
  2492.   wdNoSpaceRaiseLower = $00000002;
  2493.   wdPrintColBlack = $00000003;
  2494.   wdWrapTrailSpaces = $00000004;
  2495.   wdNoColumnBalance = $00000005;
  2496.   wdConvMailMergeEsc = $00000006;
  2497.   wdSuppressSpBfAfterPgBrk = $00000007;
  2498.   wdSuppressTopSpacing = $00000008;
  2499.   wdOrigWordTableRules = $00000009;
  2500.   wdTransparentMetafiles = $0000000A;
  2501.   wdShowBreaksInFrames = $0000000B;
  2502.   wdSwapBordersFacingPages = $0000000C;
  2503.   wdLeaveBackslashAlone = $0000000D;
  2504.   wdExpandShiftReturn = $0000000E;
  2505.   wdDontULTrailSpace = $0000000F;
  2506.   wdDontBalanceSingleByteDoubleByteWidth = $00000010;
  2507.   wdSuppressTopSpacingMac5 = $00000011;
  2508.   wdSpacingInWholePoints = $00000012;
  2509.   wdPrintBodyTextBeforeHeader = $00000013;
  2510.   wdNoLeading = $00000014;
  2511.   wdNoSpaceForUL = $00000015;
  2512.   wdMWSmallCaps = $00000016;
  2513.   wdNoExtraLineSpacing = $00000017;
  2514.   wdTruncateFontHeight = $00000018;
  2515.   wdSubFontBySize = $00000019;
  2516.   wdUsePrinterMetrics = $0000001A;
  2517.   wdWW6BorderRules = $0000001B;
  2518.   wdExactOnTop = $0000001C;
  2519.   wdSuppressBottomSpacing = $0000001D;
  2520.   wdWPSpaceWidth = $0000001E;
  2521.   wdWPJustification = $0000001F;
  2522.   wdLineWrapLikeWord6 = $00000020;
  2523.  
  2524. // WdPaperSize constants
  2525. type
  2526.   WdPaperSize = TOleEnum;
  2527. const
  2528.   wdPaper10x14 = $00000000;
  2529.   wdPaper11x17 = $00000001;
  2530.   wdPaperLetter = $00000002;
  2531.   wdPaperLetterSmall = $00000003;
  2532.   wdPaperLegal = $00000004;
  2533.   wdPaperExecutive = $00000005;
  2534.   wdPaperA3 = $00000006;
  2535.   wdPaperA4 = $00000007;
  2536.   wdPaperA4Small = $00000008;
  2537.   wdPaperA5 = $00000009;
  2538.   wdPaperB4 = $0000000A;
  2539.   wdPaperB5 = $0000000B;
  2540.   wdPaperCSheet = $0000000C;
  2541.   wdPaperDSheet = $0000000D;
  2542.   wdPaperESheet = $0000000E;
  2543.   wdPaperFanfoldLegalGerman = $0000000F;
  2544.   wdPaperFanfoldStdGerman = $00000010;
  2545.   wdPaperFanfoldUS = $00000011;
  2546.   wdPaperFolio = $00000012;
  2547.   wdPaperLedger = $00000013;
  2548.   wdPaperNote = $00000014;
  2549.   wdPaperQuarto = $00000015;
  2550.   wdPaperStatement = $00000016;
  2551.   wdPaperTabloid = $00000017;
  2552.   wdPaperEnvelope9 = $00000018;
  2553.   wdPaperEnvelope10 = $00000019;
  2554.   wdPaperEnvelope11 = $0000001A;
  2555.   wdPaperEnvelope12 = $0000001B;
  2556.   wdPaperEnvelope14 = $0000001C;
  2557.   wdPaperEnvelopeB4 = $0000001D;
  2558.   wdPaperEnvelopeB5 = $0000001E;
  2559.   wdPaperEnvelopeB6 = $0000001F;
  2560.   wdPaperEnvelopeC3 = $00000020;
  2561.   wdPaperEnvelopeC4 = $00000021;
  2562.   wdPaperEnvelopeC5 = $00000022;
  2563.   wdPaperEnvelopeC6 = $00000023;
  2564.   wdPaperEnvelopeC65 = $00000024;
  2565.   wdPaperEnvelopeDL = $00000025;
  2566.   wdPaperEnvelopeItaly = $00000026;
  2567.   wdPaperEnvelopeMonarch = $00000027;
  2568.   wdPaperEnvelopePersonal = $00000028;
  2569.   wdPaperCustom = $00000029;
  2570.  
  2571. // WdCustomLabelPageSize constants
  2572. type
  2573.   WdCustomLabelPageSize = TOleEnum;
  2574. const
  2575.   wdCustomLabelLetter = $00000000;
  2576.   wdCustomLabelLetterLS = $00000001;
  2577.   wdCustomLabelA4 = $00000002;
  2578.   wdCustomLabelA4LS = $00000003;
  2579.   wdCustomLabelA5 = $00000004;
  2580.   wdCustomLabelA5LS = $00000005;
  2581.   wdCustomLabelB5 = $00000006;
  2582.   wdCustomLabelMini = $00000007;
  2583.   wdCustomLabelFanfold = $00000008;
  2584.  
  2585. // WdProtectionType constants
  2586. type
  2587.   WdProtectionType = TOleEnum;
  2588. const
  2589.   wdNoProtection = $FFFFFFFF;
  2590.   wdAllowOnlyRevisions = $00000000;
  2591.   wdAllowOnlyComments = $00000001;
  2592.   wdAllowOnlyFormFields = $00000002;
  2593.  
  2594. // WdPartOfSpeech constants
  2595. type
  2596.   WdPartOfSpeech = TOleEnum;
  2597. const
  2598.   wdAdjective = $00000000;
  2599.   wdNoun = $00000001;
  2600.   wdAdverb = $00000002;
  2601.   wdVerb = $00000003;
  2602.  
  2603. // WdSubscriberFormats constants
  2604. type
  2605.   WdSubscriberFormats = TOleEnum;
  2606. const
  2607.   wdSubscriberBestFormat = $00000000;
  2608.   wdSubscriberRTF = $00000001;
  2609.   wdSubscriberText = $00000002;
  2610.   wdSubscriberPict = $00000004;
  2611.  
  2612. // WdEditionType constants
  2613. type
  2614.   WdEditionType = TOleEnum;
  2615. const
  2616.   wdPublisher = $00000000;
  2617.   wdSubscriber = $00000001;
  2618.  
  2619. // WdEditionOption constants
  2620. type
  2621.   WdEditionOption = TOleEnum;
  2622. const
  2623.   wdCancelPublisher = $00000000;
  2624.   wdSendPublisher = $00000001;
  2625.   wdSelectPublisher = $00000002;
  2626.   wdAutomaticUpdate = $00000003;
  2627.   wdManualUpdate = $00000004;
  2628.   wdChangeAttributes = $00000005;
  2629.   wdUpdateSubscriber = $00000006;
  2630.   wdOpenSource = $00000007;
  2631.  
  2632. // WdRelativeHorizontalPosition constants
  2633. type
  2634.   WdRelativeHorizontalPosition = TOleEnum;
  2635. const
  2636.   wdRelativeHorizontalPositionMargin = $00000000;
  2637.   wdRelativeHorizontalPositionPage = $00000001;
  2638.   wdRelativeHorizontalPositionColumn = $00000002;
  2639.  
  2640. // WdRelativeVerticalPosition constants
  2641. type
  2642.   WdRelativeVerticalPosition = TOleEnum;
  2643. const
  2644.   wdRelativeVerticalPositionMargin = $00000000;
  2645.   wdRelativeVerticalPositionPage = $00000001;
  2646.   wdRelativeVerticalPositionParagraph = $00000002;
  2647.  
  2648. // WdHelpType constants
  2649. type
  2650.   WdHelpType = TOleEnum;
  2651. const
  2652.   wdHelp = $00000000;
  2653.   wdHelpAbout = $00000001;
  2654.   wdHelpActiveWindow = $00000002;
  2655.   wdHelpContents = $00000003;
  2656.   wdHelpExamplesAndDemos = $00000004;
  2657.   wdHelpIndex = $00000005;
  2658.   wdHelpKeyboard = $00000006;
  2659.   wdHelpPSSHelp = $00000007;
  2660.   wdHelpQuickPreview = $00000008;
  2661.   wdHelpSearch = $00000009;
  2662.   wdHelpUsingHelp = $0000000A;
  2663.  
  2664. // WdHelpTypeHID constants
  2665. type
  2666.   WdHelpTypeHID = TOleEnum;
  2667. const
  2668.   wdHelpIchitaro = $0000000B;
  2669.   wdHelpPE2 = $0000000C;
  2670.  
  2671. // WdKeyCategory constants
  2672. type
  2673.   WdKeyCategory = TOleEnum;
  2674. const
  2675.   wdKeyCategoryNil = $FFFFFFFF;
  2676.   wdKeyCategoryDisable = $00000000;
  2677.   wdKeyCategoryCommand = $00000001;
  2678.   wdKeyCategoryMacro = $00000002;
  2679.   wdKeyCategoryFont = $00000003;
  2680.   wdKeyCategoryAutoText = $00000004;
  2681.   wdKeyCategoryStyle = $00000005;
  2682.   wdKeyCategorySymbol = $00000006;
  2683.   wdKeyCategoryPrefix = $00000007;
  2684.  
  2685. // WdKey constants
  2686. type
  2687.   WdKey = TOleEnum;
  2688. const
  2689.   wdNoKey = $000000FF;
  2690.   wdKeyShift = $00000100;
  2691.   wdKeyControl = $00000200;
  2692.   wdKeyCommand = $00000200;
  2693.   wdKeyAlt = $00000400;
  2694.   wdKeyOption = $00000400;
  2695.   wdKeyA = $00000041;
  2696.   wdKeyB = $00000042;
  2697.   wdKeyC = $00000043;
  2698.   wdKeyD = $00000044;
  2699.   wdKeyE = $00000045;
  2700.   wdKeyF = $00000046;
  2701.   wdKeyG = $00000047;
  2702.   wdKeyH = $00000048;
  2703.   wdKeyI = $00000049;
  2704.   wdKeyJ = $0000004A;
  2705.   wdKeyK = $0000004B;
  2706.   wdKeyL = $0000004C;
  2707.   wdKeyM = $0000004D;
  2708.   wdKeyN = $0000004E;
  2709.   wdKeyO = $0000004F;
  2710.   wdKeyP = $00000050;
  2711.   wdKeyQ = $00000051;
  2712.   wdKeyR = $00000052;
  2713.   wdKeyS = $00000053;
  2714.   wdKeyT = $00000054;
  2715.   wdKeyU = $00000055;
  2716.   wdKeyV = $00000056;
  2717.   wdKeyW = $00000057;
  2718.   wdKeyX = $00000058;
  2719.   wdKeyY = $00000059;
  2720.   wdKeyZ = $0000005A;
  2721.   wdKey0 = $00000030;
  2722.   wdKey1 = $00000031;
  2723.   wdKey2 = $00000032;
  2724.   wdKey3 = $00000033;
  2725.   wdKey4 = $00000034;
  2726.   wdKey5 = $00000035;
  2727.   wdKey6 = $00000036;
  2728.   wdKey7 = $00000037;
  2729.   wdKey8 = $00000038;
  2730.   wdKey9 = $00000039;
  2731.   wdKeyBackspace = $00000008;
  2732.   wdKeyTab = $00000009;
  2733.   wdKeyNumeric5Special = $0000000C;
  2734.   wdKeyReturn = $0000000D;
  2735.   wdKeyPause = $00000013;
  2736.   wdKeyEsc = $0000001B;
  2737.   wdKeySpacebar = $00000020;
  2738.   wdKeyPageUp = $00000021;
  2739.   wdKeyPageDown = $00000022;
  2740.   wdKeyEnd = $00000023;
  2741.   wdKeyHome = $00000024;
  2742.   wdKeyInsert = $0000002D;
  2743.   wdKeyDelete = $0000002E;
  2744.   wdKeyNumeric0 = $00000060;
  2745.   wdKeyNumeric1 = $00000061;
  2746.   wdKeyNumeric2 = $00000062;
  2747.   wdKeyNumeric3 = $00000063;
  2748.   wdKeyNumeric4 = $00000064;
  2749.   wdKeyNumeric5 = $00000065;
  2750.   wdKeyNumeric6 = $00000066;
  2751.   wdKeyNumeric7 = $00000067;
  2752.   wdKeyNumeric8 = $00000068;
  2753.   wdKeyNumeric9 = $00000069;
  2754.   wdKeyNumericMultiply = $0000006A;
  2755.   wdKeyNumericAdd = $0000006B;
  2756.   wdKeyNumericSubtract = $0000006D;
  2757.   wdKeyNumericDecimal = $0000006E;
  2758.   wdKeyNumericDivide = $0000006F;
  2759.   wdKeyF1 = $00000070;
  2760.   wdKeyF2 = $00000071;
  2761.   wdKeyF3 = $00000072;
  2762.   wdKeyF4 = $00000073;
  2763.   wdKeyF5 = $00000074;
  2764.   wdKeyF6 = $00000075;
  2765.   wdKeyF7 = $00000076;
  2766.   wdKeyF8 = $00000077;
  2767.   wdKeyF9 = $00000078;
  2768.   wdKeyF10 = $00000079;
  2769.   wdKeyF11 = $0000007A;
  2770.   wdKeyF12 = $0000007B;
  2771.   wdKeyF13 = $0000007C;
  2772.   wdKeyF14 = $0000007D;
  2773.   wdKeyF15 = $0000007E;
  2774.   wdKeyF16 = $0000007F;
  2775.   wdKeyScrollLock = $00000091;
  2776.   wdKeySemiColon = $000000BA;
  2777.   wdKeyEquals = $000000BB;
  2778.   wdKeyComma = $000000BC;
  2779.   wdKeyHyphen = $000000BD;
  2780.   wdKeyPeriod = $000000BE;
  2781.   wdKeySlash = $000000BF;
  2782.   wdKeyBackSingleQuote = $000000C0;
  2783.   wdKeyOpenSquareBrace = $000000DB;
  2784.   wdKeyBackSlash = $000000DC;
  2785.   wdKeyCloseSquareBrace = $000000DD;
  2786.   wdKeySingleQuote = $000000DE;
  2787.  
  2788. // WdOLEType constants
  2789. type
  2790.   WdOLEType = TOleEnum;
  2791. const
  2792.   wdOLELink = $00000000;
  2793.   wdOLEEmbed = $00000001;
  2794.   wdOLEControl = $00000002;
  2795.  
  2796. // WdOLEVerb constants
  2797. type
  2798.   WdOLEVerb = TOleEnum;
  2799. const
  2800.   wdOLEVerbPrimary = $00000000;
  2801.   wdOLEVerbShow = $FFFFFFFF;
  2802.   wdOLEVerbOpen = $FFFFFFFE;
  2803.   wdOLEVerbHide = $FFFFFFFD;
  2804.   wdOLEVerbUIActivate = $FFFFFFFC;
  2805.   wdOLEVerbInPlaceActivate = $FFFFFFFB;
  2806.   wdOLEVerbDiscardUndoState = $FFFFFFFA;
  2807.  
  2808. // WdOLEPlacement constants
  2809. type
  2810.   WdOLEPlacement = TOleEnum;
  2811. const
  2812.   wdInLine = $00000000;
  2813.   wdFloatOverText = $00000001;
  2814.  
  2815. // WdEnvelopeOrientation constants
  2816. type
  2817.   WdEnvelopeOrientation = TOleEnum;
  2818. const
  2819.   wdLeftPortrait = $00000000;
  2820.   wdCenterPortrait = $00000001;
  2821.   wdRightPortrait = $00000002;
  2822.   wdLeftLandscape = $00000003;
  2823.   wdCenterLandscape = $00000004;
  2824.   wdRightLandscape = $00000005;
  2825.   wdLeftClockwise = $00000006;
  2826.   wdCenterClockwise = $00000007;
  2827.   wdRightClockwise = $00000008;
  2828.  
  2829. // WdLetterStyle constants
  2830. type
  2831.   WdLetterStyle = TOleEnum;
  2832. const
  2833.   wdFullBlock = $00000000;
  2834.   wdModifiedBlock = $00000001;
  2835.   wdSemiBlock = $00000002;
  2836.  
  2837. // WdLetterheadLocation constants
  2838. type
  2839.   WdLetterheadLocation = TOleEnum;
  2840. const
  2841.   wdLetterTop = $00000000;
  2842.   wdLetterBottom = $00000001;
  2843.   wdLetterLeft = $00000002;
  2844.   wdLetterRight = $00000003;
  2845.  
  2846. // WdSalutationType constants
  2847. type
  2848.   WdSalutationType = TOleEnum;
  2849. const
  2850.   wdSalutationInformal = $00000000;
  2851.   wdSalutationFormal = $00000001;
  2852.   wdSalutationBusiness = $00000002;
  2853.   wdSalutationOther = $00000003;
  2854.  
  2855. // WdSalutationGender constants
  2856. type
  2857.   WdSalutationGender = TOleEnum;
  2858. const
  2859.   wdGenderFemale = $00000000;
  2860.   wdGenderMale = $00000001;
  2861.   wdGenderNeutral = $00000002;
  2862.   wdGenderUnknown = $00000003;
  2863.  
  2864. // WdMovementType constants
  2865. type
  2866.   WdMovementType = TOleEnum;
  2867. const
  2868.   wdMove = $00000000;
  2869.   wdExtend = $00000001;
  2870.  
  2871. // WdConstants constants
  2872. type
  2873.   WdConstants = TOleEnum;
  2874. const
  2875.   wdUndefined = $0098967F;
  2876.   wdToggle = $0098967E;
  2877.   wdForward = $3FFFFFFF;
  2878.   wdBackward = $C0000001;
  2879.   wdAutoPosition = $00000000;
  2880.   wdFirst = $00000001;
  2881.   wdCreatorCode = $4D535744;
  2882.  
  2883. // WdPasteDataType constants
  2884. type
  2885.   WdPasteDataType = TOleEnum;
  2886. const
  2887.   wdPasteOLEObject = $00000000;
  2888.   wdPasteRTF = $00000001;
  2889.   wdPasteText = $00000002;
  2890.   wdPasteMetafilePicture = $00000003;
  2891.   wdPasteBitmap = $00000004;
  2892.   wdPasteDeviceIndependentBitmap = $00000005;
  2893.   wdPasteHyperlink = $00000007;
  2894.   wdPasteShape = $00000008;
  2895.   wdPasteEnhancedMetafile = $00000009;
  2896.  
  2897. // WdPrintOutItem constants
  2898. type
  2899.   WdPrintOutItem = TOleEnum;
  2900. const
  2901.   wdPrintDocumentContent = $00000000;
  2902.   wdPrintProperties = $00000001;
  2903.   wdPrintComments = $00000002;
  2904.   wdPrintStyles = $00000003;
  2905.   wdPrintAutoTextEntries = $00000004;
  2906.   wdPrintKeyAssignments = $00000005;
  2907.   wdPrintEnvelope = $00000006;
  2908.  
  2909. // WdPrintOutPages constants
  2910. type
  2911.   WdPrintOutPages = TOleEnum;
  2912. const
  2913.   wdPrintAllPages = $00000000;
  2914.   wdPrintOddPagesOnly = $00000001;
  2915.   wdPrintEvenPagesOnly = $00000002;
  2916.  
  2917. // WdPrintOutRange constants
  2918. type
  2919.   WdPrintOutRange = TOleEnum;
  2920. const
  2921.   wdPrintAllDocument = $00000000;
  2922.   wdPrintSelection = $00000001;
  2923.   wdPrintCurrentPage = $00000002;
  2924.   wdPrintFromTo = $00000003;
  2925.   wdPrintRangeOfPages = $00000004;
  2926.  
  2927. // WdDictionaryType constants
  2928. type
  2929.   WdDictionaryType = TOleEnum;
  2930. const
  2931.   wdSpelling = $00000000;
  2932.   wdGrammar = $00000001;
  2933.   wdThesaurus = $00000002;
  2934.   wdHyphenation = $00000003;
  2935.   wdSpellingComplete = $00000004;
  2936.   wdSpellingCustom = $00000005;
  2937.   wdSpellingLegal = $00000006;
  2938.   wdSpellingMedical = $00000007;
  2939.  
  2940. // WdDictionaryTypeHID constants
  2941. type
  2942.   WdDictionaryTypeHID = TOleEnum;
  2943. const
  2944.   wdHangulHanjaConversion = $00000008;
  2945.   wdHangulHanjaConversionCustom = $00000009;
  2946.  
  2947. // WdSpellingWordType constants
  2948. type
  2949.   WdSpellingWordType = TOleEnum;
  2950. const
  2951.   wdSpellword = $00000000;
  2952.   wdWildcard = $00000001;
  2953.   wdAnagram = $00000002;
  2954.  
  2955. // WdSpellingErrorType constants
  2956. type
  2957.   WdSpellingErrorType = TOleEnum;
  2958. const
  2959.   wdSpellingCorrect = $00000000;
  2960.   wdSpellingNotInDictionary = $00000001;
  2961.   wdSpellingCapitalization = $00000002;
  2962.  
  2963. // WdProofreadingErrorType constants
  2964. type
  2965.   WdProofreadingErrorType = TOleEnum;
  2966. const
  2967.   wdSpellingError = $00000000;
  2968.   wdGrammaticalError = $00000001;
  2969.  
  2970. // WdInlineShapeType constants
  2971. type
  2972.   WdInlineShapeType = TOleEnum;
  2973. const
  2974.   wdInlineShapeEmbeddedOLEObject = $00000001;
  2975.   wdInlineShapeLinkedOLEObject = $00000002;
  2976.   wdInlineShapePicture = $00000003;
  2977.   wdInlineShapeLinkedPicture = $00000004;
  2978.   wdInlineShapeOLEControlObject = $00000005;
  2979.  
  2980. // WdArrangeStyle constants
  2981. type
  2982.   WdArrangeStyle = TOleEnum;
  2983. const
  2984.   wdTiled = $00000000;
  2985.   wdIcons = $00000001;
  2986.  
  2987. // WdSelectionFlags constants
  2988. type
  2989.   WdSelectionFlags = TOleEnum;
  2990. const
  2991.   wdSelStartActive = $00000001;
  2992.   wdSelAtEOL = $00000002;
  2993.   wdSelOvertype = $00000004;
  2994.   wdSelActive = $00000008;
  2995.   wdSelReplace = $00000010;
  2996.  
  2997. // WdAutoVersions constants
  2998. type
  2999.   WdAutoVersions = TOleEnum;
  3000. const
  3001.   wdAutoVersionOff = $00000000;
  3002.   wdAutoVersionOnClose = $00000001;
  3003.  
  3004. // WdOrganizerObject constants
  3005. type
  3006.   WdOrganizerObject = TOleEnum;
  3007. const
  3008.   wdOrganizerObjectStyles = $00000000;
  3009.   wdOrganizerObjectAutoText = $00000001;
  3010.   wdOrganizerObjectCommandBars = $00000002;
  3011.   wdOrganizerObjectProjectItems = $00000003;
  3012.  
  3013. // WdFindMatch constants
  3014. type
  3015.   WdFindMatch = TOleEnum;
  3016. const
  3017.   wdMatchParagraphMark = $0001000F;
  3018.   wdMatchTabCharacter = $00000009;
  3019.   wdMatchCommentMark = $00000005;
  3020.   wdMatchAnyCharacter = $0001003F;
  3021.   wdMatchAnyDigit = $0001001F;
  3022.   wdMatchAnyLetter = $0001002F;
  3023.   wdMatchCaretCharacter = $0000000B;
  3024.   wdMatchColumnBreak = $0000000E;
  3025.   wdMatchEmDash = $00002014;
  3026.   wdMatchEnDash = $00002013;
  3027.   wdMatchEndnoteMark = $00010013;
  3028.   wdMatchField = $00000013;
  3029.   wdMatchFootnoteMark = $00010012;
  3030.   wdMatchGraphic = $00000001;
  3031.   wdMatchManualLineBreak = $0001000F;
  3032.   wdMatchManualPageBreak = $0001001C;
  3033.   wdMatchNonbreakingHyphen = $0000001E;
  3034.   wdMatchNonbreakingSpace = $000000A0;
  3035.   wdMatchOptionalHyphen = $0000001F;
  3036.   wdMatchSectionBreak = $0001002C;
  3037.   wdMatchWhiteSpace = $00010077;
  3038.  
  3039. // WdFindWrap constants
  3040. type
  3041.   WdFindWrap = TOleEnum;
  3042. const
  3043.   wdFindStop = $00000000;
  3044.   wdFindContinue = $00000001;
  3045.   wdFindAsk = $00000002;
  3046.  
  3047. // WdInformation constants
  3048. type
  3049.   WdInformation = TOleEnum;
  3050. const
  3051.   wdActiveEndAdjustedPageNumber = $00000001;
  3052.   wdActiveEndSectionNumber = $00000002;
  3053.   wdActiveEndPageNumber = $00000003;
  3054.   wdNumberOfPagesInDocument = $00000004;
  3055.   wdHorizontalPositionRelativeToPage = $00000005;
  3056.   wdVerticalPositionRelativeToPage = $00000006;
  3057.   wdHorizontalPositionRelativeToTextBoundary = $00000007;
  3058.   wdVerticalPositionRelativeToTextBoundary = $00000008;
  3059.   wdFirstCharacterColumnNumber = $00000009;
  3060.   wdFirstCharacterLineNumber = $0000000A;
  3061.   wdFrameIsSelected = $0000000B;
  3062.   wdWithInTable = $0000000C;
  3063.   wdStartOfRangeRowNumber = $0000000D;
  3064.   wdEndOfRangeRowNumber = $0000000E;
  3065.   wdMaximumNumberOfRows = $0000000F;
  3066.   wdStartOfRangeColumnNumber = $00000010;
  3067.   wdEndOfRangeColumnNumber = $00000011;
  3068.   wdMaximumNumberOfColumns = $00000012;
  3069.   wdZoomPercentage = $00000013;
  3070.   wdSelectionMode = $00000014;
  3071.   wdCapsLock = $00000015;
  3072.   wdNumLock = $00000016;
  3073.   wdOverType = $00000017;
  3074.   wdRevisionMarking = $00000018;
  3075.   wdInFootnoteEndnotePane = $00000019;
  3076.   wdInCommentPane = $0000001A;
  3077.   wdInHeaderFooter = $0000001C;
  3078.   wdAtEndOfRowMarker = $0000001F;
  3079.   wdReferenceOfType = $00000020;
  3080.   wdHeaderFooterType = $00000021;
  3081.   wdInMasterDocument = $00000022;
  3082.   wdInFootnote = $00000023;
  3083.   wdInEndnote = $00000024;
  3084.   wdInWordMail = $00000025;
  3085.   wdInClipboard = $00000026;
  3086.  
  3087. // WdWrapType constants
  3088. type
  3089.   WdWrapType = TOleEnum;
  3090. const
  3091.   wdWrapSquare = $00000000;
  3092.   wdWrapTight = $00000001;
  3093.   wdWrapThrough = $00000002;
  3094.   wdWrapNone = $00000003;
  3095.   wdWrapTopBottom = $00000004;
  3096.  
  3097. // WdWrapSideType constants
  3098. type
  3099.   WdWrapSideType = TOleEnum;
  3100. const
  3101.   wdWrapBoth = $00000000;
  3102.   wdWrapLeft = $00000001;
  3103.   wdWrapRight = $00000002;
  3104.   wdWrapLargest = $00000003;
  3105.  
  3106. // WdOutlineLevel constants
  3107. type
  3108.   WdOutlineLevel = TOleEnum;
  3109. const
  3110.   wdOutlineLevel1 = $00000001;
  3111.   wdOutlineLevel2 = $00000002;
  3112.   wdOutlineLevel3 = $00000003;
  3113.   wdOutlineLevel4 = $00000004;
  3114.   wdOutlineLevel5 = $00000005;
  3115.   wdOutlineLevel6 = $00000006;
  3116.   wdOutlineLevel7 = $00000007;
  3117.   wdOutlineLevel8 = $00000008;
  3118.   wdOutlineLevel9 = $00000009;
  3119.   wdOutlineLevelBodyText = $0000000A;
  3120.  
  3121. // WdTextOrientation constants
  3122. type
  3123.   WdTextOrientation = TOleEnum;
  3124. const
  3125.   wdTextOrientationHorizontal = $00000000;
  3126.   wdTextOrientationUpward = $00000002;
  3127.   wdTextOrientationDownward = $00000003;
  3128.  
  3129. // WdTextOrientationHID constants
  3130. type
  3131.   WdTextOrientationHID = TOleEnum;
  3132. const
  3133.   wdTextOrientationVerticalFarEast = $00000001;
  3134.   wdTextOrientationHorizontalRotatedFarEast = $00000004;
  3135.  
  3136. // WdPageBorderArt constants
  3137. type
  3138.   WdPageBorderArt = TOleEnum;
  3139. const
  3140.   wdArtApples = $00000001;
  3141.   wdArtMapleMuffins = $00000002;
  3142.   wdArtCakeSlice = $00000003;
  3143.   wdArtCandyCorn = $00000004;
  3144.   wdArtIceCreamCones = $00000005;
  3145.   wdArtChampagneBottle = $00000006;
  3146.   wdArtPartyGlass = $00000007;
  3147.   wdArtChristmasTree = $00000008;
  3148.   wdArtTrees = $00000009;
  3149.   wdArtPalmsColor = $0000000A;
  3150.   wdArtBalloons3Colors = $0000000B;
  3151.   wdArtBalloonsHotAir = $0000000C;
  3152.   wdArtPartyFavor = $0000000D;
  3153.   wdArtConfettiStreamers = $0000000E;
  3154.   wdArtHearts = $0000000F;
  3155.   wdArtHeartBalloon = $00000010;
  3156.   wdArtStars3D = $00000011;
  3157.   wdArtStarsShadowed = $00000012;
  3158.   wdArtStars = $00000013;
  3159.   wdArtSun = $00000014;
  3160.   wdArtEarth2 = $00000015;
  3161.   wdArtEarth1 = $00000016;
  3162.   wdArtPeopleHats = $00000017;
  3163.   wdArtSombrero = $00000018;
  3164.   wdArtPencils = $00000019;
  3165.   wdArtPackages = $0000001A;
  3166.   wdArtClocks = $0000001B;
  3167.   wdArtFirecrackers = $0000001C;
  3168.   wdArtRings = $0000001D;
  3169.   wdArtMapPins = $0000001E;
  3170.   wdArtConfetti = $0000001F;
  3171.   wdArtCreaturesButterfly = $00000020;
  3172.   wdArtCreaturesLadyBug = $00000021;
  3173.   wdArtCreaturesFish = $00000022;
  3174.   wdArtBirdsFlight = $00000023;
  3175.   wdArtScaredCat = $00000024;
  3176.   wdArtBats = $00000025;
  3177.   wdArtFlowersRoses = $00000026;
  3178.   wdArtFlowersRedRose = $00000027;
  3179.   wdArtPoinsettias = $00000028;
  3180.   wdArtHolly = $00000029;
  3181.   wdArtFlowersTiny = $0000002A;
  3182.   wdArtFlowersPansy = $0000002B;
  3183.   wdArtFlowersModern2 = $0000002C;
  3184.   wdArtFlowersModern1 = $0000002D;
  3185.   wdArtWhiteFlowers = $0000002E;
  3186.   wdArtVine = $0000002F;
  3187.   wdArtFlowersDaisies = $00000030;
  3188.   wdArtFlowersBlockPrint = $00000031;
  3189.   wdArtDecoArchColor = $00000032;
  3190.   wdArtFans = $00000033;
  3191.   wdArtFilm = $00000034;
  3192.   wdArtLightning1 = $00000035;
  3193.   wdArtCompass = $00000036;
  3194.   wdArtDoubleD = $00000037;
  3195.   wdArtClassicalWave = $00000038;
  3196.   wdArtShadowedSquares = $00000039;
  3197.   wdArtTwistedLines1 = $0000003A;
  3198.   wdArtWaveline = $0000003B;
  3199.   wdArtQuadrants = $0000003C;
  3200.   wdArtCheckedBarColor = $0000003D;
  3201.   wdArtSwirligig = $0000003E;
  3202.   wdArtPushPinNote1 = $0000003F;
  3203.   wdArtPushPinNote2 = $00000040;
  3204.   wdArtPumpkin1 = $00000041;
  3205.   wdArtEggsBlack = $00000042;
  3206.   wdArtCup = $00000043;
  3207.   wdArtHeartGray = $00000044;
  3208.   wdArtGingerbreadMan = $00000045;
  3209.   wdArtBabyPacifier = $00000046;
  3210.   wdArtBabyRattle = $00000047;
  3211.   wdArtCabins = $00000048;
  3212.   wdArtHouseFunky = $00000049;
  3213.   wdArtStarsBlack = $0000004A;
  3214.   wdArtSnowflakes = $0000004B;
  3215.   wdArtSnowflakeFancy = $0000004C;
  3216.   wdArtSkyrocket = $0000004D;
  3217.   wdArtSeattle = $0000004E;
  3218.   wdArtMusicNotes = $0000004F;
  3219.   wdArtPalmsBlack = $00000050;
  3220.   wdArtMapleLeaf = $00000051;
  3221.   wdArtPaperClips = $00000052;
  3222.   wdArtShorebirdTracks = $00000053;
  3223.   wdArtPeople = $00000054;
  3224.   wdArtPeopleWaving = $00000055;
  3225.   wdArtEclipsingSquares2 = $00000056;
  3226.   wdArtHypnotic = $00000057;
  3227.   wdArtDiamondsGray = $00000058;
  3228.   wdArtDecoArch = $00000059;
  3229.   wdArtDecoBlocks = $0000005A;
  3230.   wdArtCirclesLines = $0000005B;
  3231.   wdArtPapyrus = $0000005C;
  3232.   wdArtWoodwork = $0000005D;
  3233.   wdArtWeavingBraid = $0000005E;
  3234.   wdArtWeavingRibbon = $0000005F;
  3235.   wdArtWeavingAngles = $00000060;
  3236.   wdArtArchedScallops = $00000061;
  3237.   wdArtSafari = $00000062;
  3238.   wdArtCelticKnotwork = $00000063;
  3239.   wdArtCrazyMaze = $00000064;
  3240.   wdArtEclipsingSquares1 = $00000065;
  3241.   wdArtBirds = $00000066;
  3242.   wdArtFlowersTeacup = $00000067;
  3243.   wdArtNorthwest = $00000068;
  3244.   wdArtSouthwest = $00000069;
  3245.   wdArtTribal6 = $0000006A;
  3246.   wdArtTribal4 = $0000006B;
  3247.   wdArtTribal3 = $0000006C;
  3248.   wdArtTribal2 = $0000006D;
  3249.   wdArtTribal5 = $0000006E;
  3250.   wdArtXIllusions = $0000006F;
  3251.   wdArtZanyTriangles = $00000070;
  3252.   wdArtPyramids = $00000071;
  3253.   wdArtPyramidsAbove = $00000072;
  3254.   wdArtConfettiGrays = $00000073;
  3255.   wdArtConfettiOutline = $00000074;
  3256.   wdArtConfettiWhite = $00000075;
  3257.   wdArtMosaic = $00000076;
  3258.   wdArtLightning2 = $00000077;
  3259.   wdArtHeebieJeebies = $00000078;
  3260.   wdArtLightBulb = $00000079;
  3261.   wdArtGradient = $0000007A;
  3262.   wdArtTriangleParty = $0000007B;
  3263.   wdArtTwistedLines2 = $0000007C;
  3264.   wdArtMoons = $0000007D;
  3265.   wdArtOvals = $0000007E;
  3266.   wdArtDoubleDiamonds = $0000007F;
  3267.   wdArtChainLink = $00000080;
  3268.   wdArtTriangles = $00000081;
  3269.   wdArtTribal1 = $00000082;
  3270.   wdArtMarqueeToothed = $00000083;
  3271.   wdArtSharksTeeth = $00000084;
  3272.   wdArtSawtooth = $00000085;
  3273.   wdArtSawtoothGray = $00000086;
  3274.   wdArtPostageStamp = $00000087;
  3275.   wdArtWeavingStrips = $00000088;
  3276.   wdArtZigZag = $00000089;
  3277.   wdArtCrossStitch = $0000008A;
  3278.   wdArtGems = $0000008B;
  3279.   wdArtCirclesRectangles = $0000008C;
  3280.   wdArtCornerTriangles = $0000008D;
  3281.   wdArtCreaturesInsects = $0000008E;
  3282.   wdArtZigZagStitch = $0000008F;
  3283.   wdArtCheckered = $00000090;
  3284.   wdArtCheckedBarBlack = $00000091;
  3285.   wdArtMarquee = $00000092;
  3286.   wdArtBasicWhiteDots = $00000093;
  3287.   wdArtBasicWideMidline = $00000094;
  3288.   wdArtBasicWideOutline = $00000095;
  3289.   wdArtBasicWideInline = $00000096;
  3290.   wdArtBasicThinLines = $00000097;
  3291.   wdArtBasicWhiteDashes = $00000098;
  3292.   wdArtBasicWhiteSquares = $00000099;
  3293.   wdArtBasicBlackSquares = $0000009A;
  3294.   wdArtBasicBlackDashes = $0000009B;
  3295.   wdArtBasicBlackDots = $0000009C;
  3296.   wdArtStarsTop = $0000009D;
  3297.   wdArtCertificateBanner = $0000009E;
  3298.   wdArtHandmade1 = $0000009F;
  3299.   wdArtHandmade2 = $000000A0;
  3300.   wdArtTornPaper = $000000A1;
  3301.   wdArtTornPaperBlack = $000000A2;
  3302.   wdArtCouponCutoutDashes = $000000A3;
  3303.   wdArtCouponCutoutDots = $000000A4;
  3304.  
  3305. // WdBorderDistanceFrom constants
  3306. type
  3307.   WdBorderDistanceFrom = TOleEnum;
  3308. const
  3309.   wdBorderDistanceFromText = $00000000;
  3310.   wdBorderDistanceFromPageEdge = $00000001;
  3311.  
  3312. // WdReplace constants
  3313. type
  3314.   WdReplace = TOleEnum;
  3315. const
  3316.   wdReplaceNone = $00000000;
  3317.   wdReplaceOne = $00000001;
  3318.   wdReplaceAll = $00000002;
  3319.  
  3320. // WdFontBias constants
  3321. type
  3322.   WdFontBias = TOleEnum;
  3323. const
  3324.   wdFontBiasDontCare = $000000FF;
  3325.   wdFontBiasDefault = $00000000;
  3326.   wdFontBiasFareast = $00000001;
  3327.  
  3328. type
  3329.  
  3330. // *********************************************************************//
  3331. // Forward declaration of types defined in TypeLibrary                    
  3332. // *********************************************************************//
  3333.   _Application = interface;
  3334.   _ApplicationDisp = dispinterface;
  3335.   _Global = interface;
  3336.   _GlobalDisp = dispinterface;
  3337.   FontNames = interface;
  3338.   FontNamesDisp = dispinterface;
  3339.   Languages = interface;
  3340.   LanguagesDisp = dispinterface;
  3341.   Language = interface;
  3342.   LanguageDisp = dispinterface;
  3343.   Documents = interface;
  3344.   DocumentsDisp = dispinterface;
  3345.   _Document = interface;
  3346.   _DocumentDisp = dispinterface;
  3347.   Template = interface;
  3348.   TemplateDisp = dispinterface;
  3349.   Templates = interface;
  3350.   TemplatesDisp = dispinterface;
  3351.   RoutingSlip = interface;
  3352.   RoutingSlipDisp = dispinterface;
  3353.   Bookmark = interface;
  3354.   BookmarkDisp = dispinterface;
  3355.   Bookmarks = interface;
  3356.   BookmarksDisp = dispinterface;
  3357.   Variable = interface;
  3358.   VariableDisp = dispinterface;
  3359.   Variables = interface;
  3360.   VariablesDisp = dispinterface;
  3361.   RecentFile = interface;
  3362.   RecentFileDisp = dispinterface;
  3363.   RecentFiles = interface;
  3364.   RecentFilesDisp = dispinterface;
  3365.   Window = interface;
  3366.   WindowDisp = dispinterface;
  3367.   Windows = interface;
  3368.   WindowsDisp = dispinterface;
  3369.   Pane = interface;
  3370.   PaneDisp = dispinterface;
  3371.   Panes = interface;
  3372.   PanesDisp = dispinterface;
  3373.   Range = interface;
  3374.   RangeDisp = dispinterface;
  3375.   ListFormat = interface;
  3376.   ListFormatDisp = dispinterface;
  3377.   Find = interface;
  3378.   FindDisp = dispinterface;
  3379.   Replacement = interface;
  3380.   ReplacementDisp = dispinterface;
  3381.   Characters = interface;
  3382.   CharactersDisp = dispinterface;
  3383.   Words = interface;
  3384.   WordsDisp = dispinterface;
  3385.   Sentences = interface;
  3386.   SentencesDisp = dispinterface;
  3387.   Sections = interface;
  3388.   SectionsDisp = dispinterface;
  3389.   Section = interface;
  3390.   SectionDisp = dispinterface;
  3391.   Paragraphs = interface;
  3392.   ParagraphsDisp = dispinterface;
  3393.   Paragraph = interface;
  3394.   ParagraphDisp = dispinterface;
  3395.   DropCap = interface;
  3396.   DropCapDisp = dispinterface;
  3397.   TabStops = interface;
  3398.   TabStopsDisp = dispinterface;
  3399.   TabStop = interface;
  3400.   TabStopDisp = dispinterface;
  3401.   _ParagraphFormat = interface;
  3402.   _ParagraphFormatDisp = dispinterface;
  3403.   _Font = interface;
  3404.   _FontDisp = dispinterface;
  3405.   Table = interface;
  3406.   TableDisp = dispinterface;
  3407.   Row = interface;
  3408.   RowDisp = dispinterface;
  3409.   Column = interface;
  3410.   ColumnDisp = dispinterface;
  3411.   Cell = interface;
  3412.   CellDisp = dispinterface;
  3413.   Tables = interface;
  3414.   TablesDisp = dispinterface;
  3415.   Rows = interface;
  3416.   RowsDisp = dispinterface;
  3417.   Columns = interface;
  3418.   ColumnsDisp = dispinterface;
  3419.   Cells = interface;
  3420.   CellsDisp = dispinterface;
  3421.   AutoCorrect = interface;
  3422.   AutoCorrectDisp = dispinterface;
  3423.   AutoCorrectEntries = interface;
  3424.   AutoCorrectEntriesDisp = dispinterface;
  3425.   AutoCorrectEntry = interface;
  3426.   AutoCorrectEntryDisp = dispinterface;
  3427.   FirstLetterExceptions = interface;
  3428.   FirstLetterExceptionsDisp = dispinterface;
  3429.   FirstLetterException = interface;
  3430.   FirstLetterExceptionDisp = dispinterface;
  3431.   TwoInitialCapsExceptions = interface;
  3432.   TwoInitialCapsExceptionsDisp = dispinterface;
  3433.   TwoInitialCapsException = interface;
  3434.   TwoInitialCapsExceptionDisp = dispinterface;
  3435.   Footnotes = interface;
  3436.   FootnotesDisp = dispinterface;
  3437.   Endnotes = interface;
  3438.   EndnotesDisp = dispinterface;
  3439.   Comments = interface;
  3440.   CommentsDisp = dispinterface;
  3441.   Footnote = interface;
  3442.   FootnoteDisp = dispinterface;
  3443.   Endnote = interface;
  3444.   EndnoteDisp = dispinterface;
  3445.   Comment = interface;
  3446.   CommentDisp = dispinterface;
  3447.   Borders = interface;
  3448.   BordersDisp = dispinterface;
  3449.   Border = interface;
  3450.   BorderDisp = dispinterface;
  3451.   Shading = interface;
  3452.   ShadingDisp = dispinterface;
  3453.   TextRetrievalMode = interface;
  3454.   TextRetrievalModeDisp = dispinterface;
  3455.   AutoTextEntries = interface;
  3456.   AutoTextEntriesDisp = dispinterface;
  3457.   AutoTextEntry = interface;
  3458.   AutoTextEntryDisp = dispinterface;
  3459.   System = interface;
  3460.   SystemDisp = dispinterface;
  3461.   OLEFormat = interface;
  3462.   OLEFormatDisp = dispinterface;
  3463.   LinkFormat = interface;
  3464.   LinkFormatDisp = dispinterface;
  3465.   _OLEControl = interface;
  3466.   _OLEControlDisp = dispinterface;
  3467.   Fields = interface;
  3468.   FieldsDisp = dispinterface;
  3469.   Field = interface;
  3470.   FieldDisp = dispinterface;
  3471.   Browser = interface;
  3472.   BrowserDisp = dispinterface;
  3473.   Styles = interface;
  3474.   StylesDisp = dispinterface;
  3475.   Style = interface;
  3476.   StyleDisp = dispinterface;
  3477.   Frames = interface;
  3478.   FramesDisp = dispinterface;
  3479.   Frame = interface;
  3480.   FrameDisp = dispinterface;
  3481.   FormFields = interface;
  3482.   FormFieldsDisp = dispinterface;
  3483.   FormField = interface;
  3484.   FormFieldDisp = dispinterface;
  3485.   TextInput = interface;
  3486.   TextInputDisp = dispinterface;
  3487.   CheckBox = interface;
  3488.   CheckBoxDisp = dispinterface;
  3489.   DropDown = interface;
  3490.   DropDownDisp = dispinterface;
  3491.   ListEntries = interface;
  3492.   ListEntriesDisp = dispinterface;
  3493.   ListEntry = interface;
  3494.   ListEntryDisp = dispinterface;
  3495.   TablesOfFigures = interface;
  3496.   TablesOfFiguresDisp = dispinterface;
  3497.   TableOfFigures = interface;
  3498.   TableOfFiguresDisp = dispinterface;
  3499.   MailMerge = interface;
  3500.   MailMergeDisp = dispinterface;
  3501.   MailMergeFields = interface;
  3502.   MailMergeFieldsDisp = dispinterface;
  3503.   MailMergeField = interface;
  3504.   MailMergeFieldDisp = dispinterface;
  3505.   MailMergeDataSource = interface;
  3506.   MailMergeDataSourceDisp = dispinterface;
  3507.   MailMergeFieldNames = interface;
  3508.   MailMergeFieldNamesDisp = dispinterface;
  3509.   MailMergeFieldName = interface;
  3510.   MailMergeFieldNameDisp = dispinterface;
  3511.   MailMergeDataFields = interface;
  3512.   MailMergeDataFieldsDisp = dispinterface;
  3513.   MailMergeDataField = interface;
  3514.   MailMergeDataFieldDisp = dispinterface;
  3515.   Envelope = interface;
  3516.   EnvelopeDisp = dispinterface;
  3517.   MailingLabel = interface;
  3518.   MailingLabelDisp = dispinterface;
  3519.   CustomLabels = interface;
  3520.   CustomLabelsDisp = dispinterface;
  3521.   CustomLabel = interface;
  3522.   CustomLabelDisp = dispinterface;
  3523.   TablesOfContents = interface;
  3524.   TablesOfContentsDisp = dispinterface;
  3525.   TableOfContents = interface;
  3526.   TableOfContentsDisp = dispinterface;
  3527.   TablesOfAuthorities = interface;
  3528.   TablesOfAuthoritiesDisp = dispinterface;
  3529.   TableOfAuthorities = interface;
  3530.   TableOfAuthoritiesDisp = dispinterface;
  3531.   Dialogs = interface;
  3532.   DialogsDisp = dispinterface;
  3533.   Dialog = interface;
  3534.   DialogDisp = dispinterface;
  3535.   PageSetup = interface;
  3536.   PageSetupDisp = dispinterface;
  3537.   LineNumbering = interface;
  3538.   LineNumberingDisp = dispinterface;
  3539.   TextColumns = interface;
  3540.   TextColumnsDisp = dispinterface;
  3541.   TextColumn = interface;
  3542.   TextColumnDisp = dispinterface;
  3543.   Selection = interface;
  3544.   SelectionDisp = dispinterface;
  3545.   TablesOfAuthoritiesCategories = interface;
  3546.   TablesOfAuthoritiesCategoriesDisp = dispinterface;
  3547.   TableOfAuthoritiesCategory = interface;
  3548.   TableOfAuthoritiesCategoryDisp = dispinterface;
  3549.   CaptionLabels = interface;
  3550.   CaptionLabelsDisp = dispinterface;
  3551.   CaptionLabel = interface;
  3552.   CaptionLabelDisp = dispinterface;
  3553.   AutoCaptions = interface;
  3554.   AutoCaptionsDisp = dispinterface;
  3555.   AutoCaption = interface;
  3556.   AutoCaptionDisp = dispinterface;
  3557.   Indexes = interface;
  3558.   IndexesDisp = dispinterface;
  3559.   Index = interface;
  3560.   IndexDisp = dispinterface;
  3561.   AddIn = interface;
  3562.   AddInDisp = dispinterface;
  3563.   AddIns = interface;
  3564.   AddInsDisp = dispinterface;
  3565.   Revisions = interface;
  3566.   RevisionsDisp = dispinterface;
  3567.   Revision = interface;
  3568.   RevisionDisp = dispinterface;
  3569.   Task = interface;
  3570.   TaskDisp = dispinterface;
  3571.   Tasks = interface;
  3572.   TasksDisp = dispinterface;
  3573.   HeadersFooters = interface;
  3574.   HeadersFootersDisp = dispinterface;
  3575.   HeaderFooter = interface;
  3576.   HeaderFooterDisp = dispinterface;
  3577.   PageNumbers = interface;
  3578.   PageNumbersDisp = dispinterface;
  3579.   PageNumber = interface;
  3580.   PageNumberDisp = dispinterface;
  3581.   Subdocuments = interface;
  3582.   SubdocumentsDisp = dispinterface;
  3583.   Subdocument = interface;
  3584.   SubdocumentDisp = dispinterface;
  3585.   HeadingStyles = interface;
  3586.   HeadingStylesDisp = dispinterface;
  3587.   HeadingStyle = interface;
  3588.   HeadingStyleDisp = dispinterface;
  3589.   StoryRanges = interface;
  3590.   StoryRangesDisp = dispinterface;
  3591.   ListLevel = interface;
  3592.   ListLevelDisp = dispinterface;
  3593.   ListLevels = interface;
  3594.   ListLevelsDisp = dispinterface;
  3595.   ListTemplate = interface;
  3596.   ListTemplateDisp = dispinterface;
  3597.   ListTemplates = interface;
  3598.   ListTemplatesDisp = dispinterface;
  3599.   ListParagraphs = interface;
  3600.   ListParagraphsDisp = dispinterface;
  3601.   List = interface;
  3602.   ListDisp = dispinterface;
  3603.   Lists = interface;
  3604.   ListsDisp = dispinterface;
  3605.   ListGallery = interface;
  3606.   ListGalleryDisp = dispinterface;
  3607.   ListGalleries = interface;
  3608.   ListGalleriesDisp = dispinterface;
  3609.   KeyBindings = interface;
  3610.   KeyBindingsDisp = dispinterface;
  3611.   KeysBoundTo = interface;
  3612.   KeysBoundToDisp = dispinterface;
  3613.   KeyBinding = interface;
  3614.   KeyBindingDisp = dispinterface;
  3615.   FileConverter = interface;
  3616.   FileConverterDisp = dispinterface;
  3617.   FileConverters = interface;
  3618.   FileConvertersDisp = dispinterface;
  3619.   SynonymInfo = interface;
  3620.   SynonymInfoDisp = dispinterface;
  3621.   Hyperlinks = interface;
  3622.   HyperlinksDisp = dispinterface;
  3623.   Hyperlink = interface;
  3624.   HyperlinkDisp = dispinterface;
  3625.   Shapes = interface;
  3626.   ShapesDisp = dispinterface;
  3627.   ShapeRange = interface;
  3628.   ShapeRangeDisp = dispinterface;
  3629.   GroupShapes = interface;
  3630.   GroupShapesDisp = dispinterface;
  3631.   Shape = interface;
  3632.   ShapeDisp = dispinterface;
  3633.   TextFrame = interface;
  3634.   TextFrameDisp = dispinterface;
  3635.   _LetterContent = interface;
  3636.   _LetterContentDisp = dispinterface;
  3637.   View = interface;
  3638.   ViewDisp = dispinterface;
  3639.   Zoom = interface;
  3640.   ZoomDisp = dispinterface;
  3641.   Zooms = interface;
  3642.   ZoomsDisp = dispinterface;
  3643.   InlineShape = interface;
  3644.   InlineShapeDisp = dispinterface;
  3645.   InlineShapes = interface;
  3646.   InlineShapesDisp = dispinterface;
  3647.   SpellingSuggestions = interface;
  3648.   SpellingSuggestionsDisp = dispinterface;
  3649.   SpellingSuggestion = interface;
  3650.   SpellingSuggestionDisp = dispinterface;
  3651.   Dictionaries = interface;
  3652.   DictionariesDisp = dispinterface;
  3653.   HangulHanjaConversionDictionaries = interface;
  3654.   HangulHanjaConversionDictionariesDisp = dispinterface;
  3655.   Dictionary = interface;
  3656.   DictionaryDisp = dispinterface;
  3657.   ReadabilityStatistics = interface;
  3658.   ReadabilityStatisticsDisp = dispinterface;
  3659.   ReadabilityStatistic = interface;
  3660.   ReadabilityStatisticDisp = dispinterface;
  3661.   Versions = interface;
  3662.   VersionsDisp = dispinterface;
  3663.   Version = interface;
  3664.   VersionDisp = dispinterface;
  3665.   Options = interface;
  3666.   OptionsDisp = dispinterface;
  3667.   MailMessage = interface;
  3668.   MailMessageDisp = dispinterface;
  3669.   ProofreadingErrors = interface;
  3670.   ProofreadingErrorsDisp = dispinterface;
  3671.   Mailer = interface;
  3672.   MailerDisp = dispinterface;
  3673.   WrapFormat = interface;
  3674.   WrapFormatDisp = dispinterface;
  3675.   HangulAndAlphabetExceptions = interface;
  3676.   HangulAndAlphabetExceptionsDisp = dispinterface;
  3677.   HangulAndAlphabetException = interface;
  3678.   HangulAndAlphabetExceptionDisp = dispinterface;
  3679.   Adjustments = interface;
  3680.   AdjustmentsDisp = dispinterface;
  3681.   CalloutFormat = interface;
  3682.   CalloutFormatDisp = dispinterface;
  3683.   ColorFormat = interface;
  3684.   ColorFormatDisp = dispinterface;
  3685.   ConnectorFormat = interface;
  3686.   ConnectorFormatDisp = dispinterface;
  3687.   FillFormat = interface;
  3688.   FillFormatDisp = dispinterface;
  3689.   FreeformBuilder = interface;
  3690.   FreeformBuilderDisp = dispinterface;
  3691.   LineFormat = interface;
  3692.   LineFormatDisp = dispinterface;
  3693.   PictureFormat = interface;
  3694.   PictureFormatDisp = dispinterface;
  3695.   ShadowFormat = interface;
  3696.   ShadowFormatDisp = dispinterface;
  3697.   ShapeNode = interface;
  3698.   ShapeNodeDisp = dispinterface;
  3699.   ShapeNodes = interface;
  3700.   ShapeNodesDisp = dispinterface;
  3701.   TextEffectFormat = interface;
  3702.   TextEffectFormatDisp = dispinterface;
  3703.   ThreeDFormat = interface;
  3704.   ThreeDFormatDisp = dispinterface;
  3705.   ApplicationEvents = dispinterface;
  3706.   DocumentEvents = dispinterface;
  3707.   OCXEvents = dispinterface;
  3708.  
  3709. // *********************************************************************//
  3710. // Declaration of CoClasses defined in Type Library                       
  3711. // (NOTE: Here we map each CoClass to its Default Interface)              
  3712. // *********************************************************************//
  3713.   Global = _Global;
  3714.   WordApplication = _Application;
  3715.   WordDocument = _Document;
  3716.   WordFont = _Font;
  3717.   WordParagraphFormat = _ParagraphFormat;
  3718.   WordOLEControl = _OLEControl;
  3719.   WordLetterContent = _LetterContent;
  3720.  
  3721.  
  3722. // *********************************************************************//
  3723. // Declaration of structures, unions and aliases.                         
  3724. // *********************************************************************//
  3725.   POleVariant1 = ^OleVariant; {*}
  3726.   PPSafeArray1 = ^PSafeArray; {*}
  3727.   PPUserType1 = ^Shape; {*}
  3728.  
  3729.  
  3730. // *********************************************************************//
  3731. // Interface: _Application
  3732. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  3733. // GUID:      {00020970-0000-0000-C000-000000000046}
  3734. // *********************************************************************//
  3735.   _Application = interface(IDispatch)
  3736.     ['{00020970-0000-0000-C000-000000000046}']
  3737.     function  Get_Application: WordApplication; safecall;
  3738.     function  Get_Creator: Integer; safecall;
  3739.     function  Get_Parent: IDispatch; safecall;
  3740.     function  Get_Name: WideString; safecall;
  3741.     function  Get_Documents: Documents; safecall;
  3742.     function  Get_Windows: Windows; safecall;
  3743.     function  Get_ActiveDocument: WordDocument; safecall;
  3744.     function  Get_ActiveWindow: Window; safecall;
  3745.     function  Get_Selection: Selection; safecall;
  3746.     function  Get_WordBasic: IDispatch; safecall;
  3747.     function  Get_RecentFiles: RecentFiles; safecall;
  3748.     function  Get_NormalTemplate: Template; safecall;
  3749.     function  Get_System_: System; safecall;
  3750.     function  Get_AutoCorrect: AutoCorrect; safecall;
  3751.     function  Get_FontNames: FontNames; safecall;
  3752.     function  Get_LandscapeFontNames: FontNames; safecall;
  3753.     function  Get_PortraitFontNames: FontNames; safecall;
  3754.     function  Get_Languages: Languages; safecall;
  3755.     function  Get_Assistant: Assistant; safecall;
  3756.     function  Get_Browser: Browser; safecall;
  3757.     function  Get_FileConverters: FileConverters; safecall;
  3758.     function  Get_MailingLabel: MailingLabel; safecall;
  3759.     function  Get_Dialogs: Dialogs; safecall;
  3760.     function  Get_CaptionLabels: CaptionLabels; safecall;
  3761.     function  Get_AutoCaptions: AutoCaptions; safecall;
  3762.     function  Get_AddIns: AddIns; safecall;
  3763.     function  Get_Visible: WordBool; safecall;
  3764.     procedure Set_Visible(prop: WordBool); safecall;
  3765.     function  Get_Version: WideString; safecall;
  3766.     function  Get_ScreenUpdating: WordBool; safecall;
  3767.     procedure Set_ScreenUpdating(prop: WordBool); safecall;
  3768.     function  Get_PrintPreview: WordBool; safecall;
  3769.     procedure Set_PrintPreview(prop: WordBool); safecall;
  3770.     function  Get_Tasks: Tasks; safecall;
  3771.     function  Get_DisplayStatusBar: WordBool; safecall;
  3772.     procedure Set_DisplayStatusBar(prop: WordBool); safecall;
  3773.     function  Get_SpecialMode: WordBool; safecall;
  3774.     function  Get_UsableWidth: Integer; safecall;
  3775.     function  Get_UsableHeight: Integer; safecall;
  3776.     function  Get_MathCoprocessorAvailable: WordBool; safecall;
  3777.     function  Get_MouseAvailable: WordBool; safecall;
  3778.     function  Get_International(Index: WdInternationalIndex): OleVariant; safecall;
  3779.     function  Get_Build: WideString; safecall;
  3780.     function  Get_CapsLock: WordBool; safecall;
  3781.     function  Get_NumLock: WordBool; safecall;
  3782.     function  Get_UserName: WideString; safecall;
  3783.     procedure Set_UserName(const prop: WideString); safecall;
  3784.     function  Get_UserInitials: WideString; safecall;
  3785.     procedure Set_UserInitials(const prop: WideString); safecall;
  3786.     function  Get_UserAddress: WideString; safecall;
  3787.     procedure Set_UserAddress(const prop: WideString); safecall;
  3788.     function  Get_MacroContainer: IDispatch; safecall;
  3789.     function  Get_DisplayRecentFiles: WordBool; safecall;
  3790.     procedure Set_DisplayRecentFiles(prop: WordBool); safecall;
  3791.     function  Get_CommandBars: CommandBars; safecall;
  3792.     function  Get_SynonymInfo(const Word: WideString; var LanguageID: OleVariant): SynonymInfo; safecall;
  3793.     function  Get_VBE: VBE; safecall;
  3794.     function  Get_DefaultSaveFormat: WideString; safecall;
  3795.     procedure Set_DefaultSaveFormat(const prop: WideString); safecall;
  3796.     function  Get_ListGalleries: ListGalleries; safecall;
  3797.     function  Get_ActivePrinter: WideString; safecall;
  3798.     procedure Set_ActivePrinter(const prop: WideString); safecall;
  3799.     function  Get_Templates: Templates; safecall;
  3800.     function  Get_CustomizationContext: IDispatch; safecall;
  3801.     procedure Set_CustomizationContext(const prop: IDispatch); safecall;
  3802.     function  Get_KeyBindings: KeyBindings; safecall;
  3803.     function  Get_KeysBoundTo(KeyCategory: WdKeyCategory; const Command: WideString; 
  3804.                               var CommandParameter: OleVariant): KeysBoundTo; safecall;
  3805.     function  Get_FindKey(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding; safecall;
  3806.     function  Get_Caption: WideString; safecall;
  3807.     procedure Set_Caption(const prop: WideString); safecall;
  3808.     function  Get_Path: WideString; safecall;
  3809.     function  Get_DisplayScrollBars: WordBool; safecall;
  3810.     procedure Set_DisplayScrollBars(prop: WordBool); safecall;
  3811.     function  Get_StartupPath: WideString; safecall;
  3812.     procedure Set_StartupPath(const prop: WideString); safecall;
  3813.     function  Get_BackgroundSavingStatus: Integer; safecall;
  3814.     function  Get_BackgroundPrintingStatus: Integer; safecall;
  3815.     function  Get_Left: Integer; safecall;
  3816.     procedure Set_Left(prop: Integer); safecall;
  3817.     function  Get_Top: Integer; safecall;
  3818.     procedure Set_Top(prop: Integer); safecall;
  3819.     function  Get_Width: Integer; safecall;
  3820.     procedure Set_Width(prop: Integer); safecall;
  3821.     function  Get_Height: Integer; safecall;
  3822.     procedure Set_Height(prop: Integer); safecall;
  3823.     function  Get_WindowState: WdWindowState; safecall;
  3824.     procedure Set_WindowState(prop: WdWindowState); safecall;
  3825.     function  Get_DisplayAutoCompleteTips: WordBool; safecall;
  3826.     procedure Set_DisplayAutoCompleteTips(prop: WordBool); safecall;
  3827.     function  Get_Options: Options; safecall;
  3828.     function  Get_DisplayAlerts: WdAlertLevel; safecall;
  3829.     procedure Set_DisplayAlerts(prop: WdAlertLevel); safecall;
  3830.     function  Get_CustomDictionaries: Dictionaries; safecall;
  3831.     function  Get_PathSeparator: WideString; safecall;
  3832.     procedure Set_StatusBar(const Param1: WideString); safecall;
  3833.     function  Get_MAPIAvailable: WordBool; safecall;
  3834.     function  Get_DisplayScreenTips: WordBool; safecall;
  3835.     procedure Set_DisplayScreenTips(prop: WordBool); safecall;
  3836.     function  Get_EnableCancelKey: WdEnableCancelKey; safecall;
  3837.     procedure Set_EnableCancelKey(prop: WdEnableCancelKey); safecall;
  3838.     function  Get_UserControl: WordBool; safecall;
  3839.     function  Get_FileSearch: FileSearch; safecall;
  3840.     function  Get_MailSystem: WdMailSystem; safecall;
  3841.     function  Get_DefaultTableSeparator: WideString; safecall;
  3842.     procedure Set_DefaultTableSeparator(const prop: WideString); safecall;
  3843.     function  Get_ShowVisualBasicEditor: WordBool; safecall;
  3844.     procedure Set_ShowVisualBasicEditor(prop: WordBool); safecall;
  3845.     function  Get_BrowseExtraFileTypes: WideString; safecall;
  3846.     procedure Set_BrowseExtraFileTypes(const prop: WideString); safecall;
  3847.     function  Get_IsObjectValid(const Object_: IDispatch): WordBool; safecall;
  3848.     function  Get_HangulHanjaDictionaries: HangulHanjaConversionDictionaries; safecall;
  3849.     function  Get_MailMessage: MailMessage; safecall;
  3850.     function  Get_FocusInMailHeader: WordBool; safecall;
  3851.     procedure Quit(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
  3852.                    var RouteDocument: OleVariant); safecall;
  3853.     procedure ScreenRefresh; safecall;
  3854.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  3855.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  3856.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  3857.                        var PageType: OleVariant; var PrintToFile: OleVariant; 
  3858.                        var Collate: OleVariant; var FileName: OleVariant; 
  3859.                        var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant); safecall;
  3860.     procedure LookupNameProperties(const Name: WideString); safecall;
  3861.     procedure SubstituteFont(const UnavailableFont: WideString; const SubstituteFont: WideString); safecall;
  3862.     function  Repeat_(var Times: OleVariant): WordBool; safecall;
  3863.     procedure DDEExecute(Channel: Integer; const Command: WideString); safecall;
  3864.     function  DDEInitiate(const App: WideString; const Topic: WideString): Integer; safecall;
  3865.     procedure DDEPoke(Channel: Integer; const Item: WideString; const Data: WideString); safecall;
  3866.     function  DDERequest(Channel: Integer; const Item: WideString): WideString; safecall;
  3867.     procedure DDETerminate(Channel: Integer); safecall;
  3868.     procedure DDETerminateAll; safecall;
  3869.     function  BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant; 
  3870.                            var Arg4: OleVariant): Integer; safecall;
  3871.     function  KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString; safecall;
  3872.     procedure OrganizerCopy(const Source: WideString; const Destination: WideString; 
  3873.                             const Name: WideString; Object_: WdOrganizerObject); safecall;
  3874.     procedure OrganizerDelete(const Source: WideString; const Name: WideString; 
  3875.                               Object_: WdOrganizerObject); safecall;
  3876.     procedure OrganizerRename(const Source: WideString; const Name: WideString; 
  3877.                               const NewName: WideString; Object_: WdOrganizerObject); safecall;
  3878.     procedure AddAddress(var TagID: PSafeArray; var Value: PSafeArray); safecall;
  3879.     function  GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
  3880.                          var UseAutoText: OleVariant; var DisplaySelectDialog: OleVariant; 
  3881.                          var SelectDialog: OleVariant; var CheckNamesDialog: OleVariant; 
  3882.                          var RecentAddressesChoice: OleVariant; 
  3883.                          var UpdateRecentAddresses: OleVariant): WideString; safecall;
  3884.     function  CheckGrammar(const String_: WideString): WordBool; safecall;
  3885.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  3886.                             var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
  3887.                             var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
  3888.                             var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
  3889.                             var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
  3890.                             var CustomDictionary8: OleVariant; var CustomDictionary9: OleVariant; 
  3891.                             var CustomDictionary10: OleVariant): WordBool; safecall;
  3892.     procedure ResetIgnoreAll; safecall;
  3893.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  3894.                                      var IgnoreUppercase: OleVariant; 
  3895.                                      var MainDictionary: OleVariant; 
  3896.                                      var SuggestionMode: OleVariant; 
  3897.                                      var CustomDictionary2: OleVariant; 
  3898.                                      var CustomDictionary3: OleVariant; 
  3899.                                      var CustomDictionary4: OleVariant; 
  3900.                                      var CustomDictionary5: OleVariant; 
  3901.                                      var CustomDictionary6: OleVariant; 
  3902.                                      var CustomDictionary7: OleVariant; 
  3903.                                      var CustomDictionary8: OleVariant; 
  3904.                                      var CustomDictionary9: OleVariant; 
  3905.                                      var CustomDictionary10: OleVariant): SpellingSuggestions; safecall;
  3906.     procedure GoBack; safecall;
  3907.     procedure Help(var HelpType: OleVariant); safecall;
  3908.     procedure AutomaticChange; safecall;
  3909.     procedure ShowMe; safecall;
  3910.     procedure HelpTool; safecall;
  3911.     function  NewWindow: Window; safecall;
  3912.     procedure ListCommands(ListAllCommands: WordBool); safecall;
  3913.     procedure ShowClipboard; safecall;
  3914.     procedure OnTime(var When: OleVariant; const Name: WideString; var Tolerance: OleVariant); safecall;
  3915.     procedure NextLetter; safecall;
  3916.     function  MountVolume(const Zone: WideString; const Server: WideString; 
  3917.                           const Volume: WideString; var User: OleVariant; 
  3918.                           var UserPassword: OleVariant; var VolumePassword: OleVariant): Smallint; safecall;
  3919.     function  CleanString(const String_: WideString): WideString; safecall;
  3920.     procedure SendFax; safecall;
  3921.     procedure ChangeFileOpenDirectory(const Path: WideString); safecall;
  3922.     procedure Run(const MacroName: WideString); safecall;
  3923.     procedure GoForward; safecall;
  3924.     procedure Move(Left: Integer; Top: Integer); safecall;
  3925.     procedure Resize(Width: Integer; Height: Integer); safecall;
  3926.     function  InchesToPoints(Inches: Single): Single; safecall;
  3927.     function  CentimetersToPoints(Centimeters: Single): Single; safecall;
  3928.     function  MillimetersToPoints(Millimeters: Single): Single; safecall;
  3929.     function  PicasToPoints(Picas: Single): Single; safecall;
  3930.     function  LinesToPoints(Lines: Single): Single; safecall;
  3931.     function  PointsToInches(Points: Single): Single; safecall;
  3932.     function  PointsToCentimeters(Points: Single): Single; safecall;
  3933.     function  PointsToMillimeters(Points: Single): Single; safecall;
  3934.     function  PointsToPicas(Points: Single): Single; safecall;
  3935.     function  PointsToLines(Points: Single): Single; safecall;
  3936.     procedure Activate; safecall;
  3937.     property Application: WordApplication read Get_Application;
  3938.     property Creator: Integer read Get_Creator;
  3939.     property Parent: IDispatch read Get_Parent;
  3940.     property Name: WideString read Get_Name;
  3941.     property Documents: Documents read Get_Documents;
  3942.     property Windows: Windows read Get_Windows;
  3943.     property ActiveDocument: WordDocument read Get_ActiveDocument;
  3944.     property ActiveWindow: Window read Get_ActiveWindow;
  3945.     property Selection: Selection read Get_Selection;
  3946.     property WordBasic: IDispatch read Get_WordBasic;
  3947.     property RecentFiles: RecentFiles read Get_RecentFiles;
  3948.     property NormalTemplate: Template read Get_NormalTemplate;
  3949.     property System_: System read Get_System_;
  3950.     property AutoCorrect: AutoCorrect read Get_AutoCorrect;
  3951.     property FontNames: FontNames read Get_FontNames;
  3952.     property LandscapeFontNames: FontNames read Get_LandscapeFontNames;
  3953.     property PortraitFontNames: FontNames read Get_PortraitFontNames;
  3954.     property Languages: Languages read Get_Languages;
  3955.     property Assistant: Assistant read Get_Assistant;
  3956.     property Browser: Browser read Get_Browser;
  3957.     property FileConverters: FileConverters read Get_FileConverters;
  3958.     property MailingLabel: MailingLabel read Get_MailingLabel;
  3959.     property Dialogs: Dialogs read Get_Dialogs;
  3960.     property CaptionLabels: CaptionLabels read Get_CaptionLabels;
  3961.     property AutoCaptions: AutoCaptions read Get_AutoCaptions;
  3962.     property AddIns: AddIns read Get_AddIns;
  3963.     property Visible: WordBool read Get_Visible write Set_Visible;
  3964.     property Version: WideString read Get_Version;
  3965.     property ScreenUpdating: WordBool read Get_ScreenUpdating write Set_ScreenUpdating;
  3966.     property PrintPreview: WordBool read Get_PrintPreview write Set_PrintPreview;
  3967.     property Tasks: Tasks read Get_Tasks;
  3968.     property DisplayStatusBar: WordBool read Get_DisplayStatusBar write Set_DisplayStatusBar;
  3969.     property SpecialMode: WordBool read Get_SpecialMode;
  3970.     property UsableWidth: Integer read Get_UsableWidth;
  3971.     property UsableHeight: Integer read Get_UsableHeight;
  3972.     property MathCoprocessorAvailable: WordBool read Get_MathCoprocessorAvailable;
  3973.     property MouseAvailable: WordBool read Get_MouseAvailable;
  3974.     property International[Index: WdInternationalIndex]: OleVariant read Get_International;
  3975.     property Build: WideString read Get_Build;
  3976.     property CapsLock: WordBool read Get_CapsLock;
  3977.     property NumLock: WordBool read Get_NumLock;
  3978.     property UserName: WideString read Get_UserName write Set_UserName;
  3979.     property UserInitials: WideString read Get_UserInitials write Set_UserInitials;
  3980.     property UserAddress: WideString read Get_UserAddress write Set_UserAddress;
  3981.     property MacroContainer: IDispatch read Get_MacroContainer;
  3982.     property DisplayRecentFiles: WordBool read Get_DisplayRecentFiles write Set_DisplayRecentFiles;
  3983.     property CommandBars: CommandBars read Get_CommandBars;
  3984.     property SynonymInfo[const Word: WideString; var LanguageID: OleVariant]: SynonymInfo read Get_SynonymInfo;
  3985.     property VBE: VBE read Get_VBE;
  3986.     property DefaultSaveFormat: WideString read Get_DefaultSaveFormat write Set_DefaultSaveFormat;
  3987.     property ListGalleries: ListGalleries read Get_ListGalleries;
  3988.     property ActivePrinter: WideString read Get_ActivePrinter write Set_ActivePrinter;
  3989.     property Templates: Templates read Get_Templates;
  3990.     property CustomizationContext: IDispatch read Get_CustomizationContext write Set_CustomizationContext;
  3991.     property KeyBindings: KeyBindings read Get_KeyBindings;
  3992.     property KeysBoundTo[KeyCategory: WdKeyCategory; const Command: WideString; 
  3993.                          var CommandParameter: OleVariant]: KeysBoundTo read Get_KeysBoundTo;
  3994.     property FindKey[KeyCode: Integer; var KeyCode2: OleVariant]: KeyBinding read Get_FindKey;
  3995.     property Caption: WideString read Get_Caption write Set_Caption;
  3996.     property Path: WideString read Get_Path;
  3997.     property DisplayScrollBars: WordBool read Get_DisplayScrollBars write Set_DisplayScrollBars;
  3998.     property StartupPath: WideString read Get_StartupPath write Set_StartupPath;
  3999.     property BackgroundSavingStatus: Integer read Get_BackgroundSavingStatus;
  4000.     property BackgroundPrintingStatus: Integer read Get_BackgroundPrintingStatus;
  4001.     property Left: Integer read Get_Left write Set_Left;
  4002.     property Top: Integer read Get_Top write Set_Top;
  4003.     property Width: Integer read Get_Width write Set_Width;
  4004.     property Height: Integer read Get_Height write Set_Height;
  4005.     property WindowState: WdWindowState read Get_WindowState write Set_WindowState;
  4006.     property DisplayAutoCompleteTips: WordBool read Get_DisplayAutoCompleteTips write Set_DisplayAutoCompleteTips;
  4007.     property Options: Options read Get_Options;
  4008.     property DisplayAlerts: WdAlertLevel read Get_DisplayAlerts write Set_DisplayAlerts;
  4009.     property CustomDictionaries: Dictionaries read Get_CustomDictionaries;
  4010.     property PathSeparator: WideString read Get_PathSeparator;
  4011.     property StatusBar: WideString write Set_StatusBar;
  4012.     property MAPIAvailable: WordBool read Get_MAPIAvailable;
  4013.     property DisplayScreenTips: WordBool read Get_DisplayScreenTips write Set_DisplayScreenTips;
  4014.     property EnableCancelKey: WdEnableCancelKey read Get_EnableCancelKey write Set_EnableCancelKey;
  4015.     property UserControl: WordBool read Get_UserControl;
  4016.     property FileSearch: FileSearch read Get_FileSearch;
  4017.     property MailSystem: WdMailSystem read Get_MailSystem;
  4018.     property DefaultTableSeparator: WideString read Get_DefaultTableSeparator write Set_DefaultTableSeparator;
  4019.     property ShowVisualBasicEditor: WordBool read Get_ShowVisualBasicEditor write Set_ShowVisualBasicEditor;
  4020.     property BrowseExtraFileTypes: WideString read Get_BrowseExtraFileTypes write Set_BrowseExtraFileTypes;
  4021.     property IsObjectValid[const Object_: IDispatch]: WordBool read Get_IsObjectValid;
  4022.     property HangulHanjaDictionaries: HangulHanjaConversionDictionaries read Get_HangulHanjaDictionaries;
  4023.     property MailMessage: MailMessage read Get_MailMessage;
  4024.     property FocusInMailHeader: WordBool read Get_FocusInMailHeader;
  4025.   end;
  4026.  
  4027. // *********************************************************************//
  4028. // DispIntf:  _ApplicationDisp
  4029. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4030. // GUID:      {00020970-0000-0000-C000-000000000046}
  4031. // *********************************************************************//
  4032.   _ApplicationDisp = dispinterface
  4033.     ['{00020970-0000-0000-C000-000000000046}']
  4034.     property Application: WordApplication readonly dispid 1000;
  4035.     property Creator: Integer readonly dispid 1001;
  4036.     property Parent: IDispatch readonly dispid 1002;
  4037.     property Name: WideString readonly dispid 0;
  4038.     property Documents: Documents readonly dispid 6;
  4039.     property Windows: Windows readonly dispid 2;
  4040.     property ActiveDocument: WordDocument readonly dispid 3;
  4041.     property ActiveWindow: Window readonly dispid 4;
  4042.     property Selection: Selection readonly dispid 5;
  4043.     property WordBasic: IDispatch readonly dispid 1;
  4044.     property RecentFiles: RecentFiles readonly dispid 7;
  4045.     property NormalTemplate: Template readonly dispid 8;
  4046.     property System_: System readonly dispid 9;
  4047.     property AutoCorrect: AutoCorrect readonly dispid 10;
  4048.     property FontNames: FontNames readonly dispid 11;
  4049.     property LandscapeFontNames: FontNames readonly dispid 12;
  4050.     property PortraitFontNames: FontNames readonly dispid 13;
  4051.     property Languages: Languages readonly dispid 14;
  4052.     property Assistant: Assistant readonly dispid 15;
  4053.     property Browser: Browser readonly dispid 16;
  4054.     property FileConverters: FileConverters readonly dispid 17;
  4055.     property MailingLabel: MailingLabel readonly dispid 18;
  4056.     property Dialogs: Dialogs readonly dispid 19;
  4057.     property CaptionLabels: CaptionLabels readonly dispid 20;
  4058.     property AutoCaptions: AutoCaptions readonly dispid 21;
  4059.     property AddIns: AddIns readonly dispid 22;
  4060.     property Visible: WordBool dispid 23;
  4061.     property Version: WideString readonly dispid 24;
  4062.     property ScreenUpdating: WordBool dispid 26;
  4063.     property PrintPreview: WordBool dispid 27;
  4064.     property Tasks: Tasks readonly dispid 28;
  4065.     property DisplayStatusBar: WordBool dispid 29;
  4066.     property SpecialMode: WordBool readonly dispid 30;
  4067.     property UsableWidth: Integer readonly dispid 33;
  4068.     property UsableHeight: Integer readonly dispid 34;
  4069.     property MathCoprocessorAvailable: WordBool readonly dispid 36;
  4070.     property MouseAvailable: WordBool readonly dispid 37;
  4071.     property International[Index: WdInternationalIndex]: OleVariant readonly dispid 46;
  4072.     property Build: WideString readonly dispid 47;
  4073.     property CapsLock: WordBool readonly dispid 48;
  4074.     property NumLock: WordBool readonly dispid 49;
  4075.     property UserName: WideString dispid 52;
  4076.     property UserInitials: WideString dispid 53;
  4077.     property UserAddress: WideString dispid 54;
  4078.     property MacroContainer: IDispatch readonly dispid 55;
  4079.     property DisplayRecentFiles: WordBool dispid 56;
  4080.     property CommandBars: CommandBars readonly dispid 57;
  4081.     property SynonymInfo[const Word: WideString; var LanguageID: OleVariant]: SynonymInfo readonly dispid 59;
  4082.     property VBE: VBE readonly dispid 61;
  4083.     property DefaultSaveFormat: WideString dispid 64;
  4084.     property ListGalleries: ListGalleries readonly dispid 65;
  4085.     property ActivePrinter: WideString dispid 66;
  4086.     property Templates: Templates readonly dispid 67;
  4087.     property CustomizationContext: IDispatch dispid 68;
  4088.     property KeyBindings: KeyBindings readonly dispid 69;
  4089.     property KeysBoundTo[KeyCategory: WdKeyCategory; const Command: WideString; 
  4090.                          var CommandParameter: OleVariant]: KeysBoundTo readonly dispid 70;
  4091.     property FindKey[KeyCode: Integer; var KeyCode2: OleVariant]: KeyBinding readonly dispid 71;
  4092.     property Caption: WideString dispid 80;
  4093.     property Path: WideString readonly dispid 81;
  4094.     property DisplayScrollBars: WordBool dispid 82;
  4095.     property StartupPath: WideString dispid 83;
  4096.     property BackgroundSavingStatus: Integer readonly dispid 85;
  4097.     property BackgroundPrintingStatus: Integer readonly dispid 86;
  4098.     property Left: Integer dispid 87;
  4099.     property Top: Integer dispid 88;
  4100.     property Width: Integer dispid 89;
  4101.     property Height: Integer dispid 90;
  4102.     property WindowState: WdWindowState dispid 91;
  4103.     property DisplayAutoCompleteTips: WordBool dispid 92;
  4104.     property Options: Options readonly dispid 93;
  4105.     property DisplayAlerts: WdAlertLevel dispid 94;
  4106.     property CustomDictionaries: Dictionaries readonly dispid 95;
  4107.     property PathSeparator: WideString readonly dispid 96;
  4108.     property StatusBar: WideString writeonly dispid 97;
  4109.     property MAPIAvailable: WordBool readonly dispid 98;
  4110.     property DisplayScreenTips: WordBool dispid 99;
  4111.     property EnableCancelKey: WdEnableCancelKey dispid 100;
  4112.     property UserControl: WordBool readonly dispid 101;
  4113.     property FileSearch: FileSearch readonly dispid 103;
  4114.     property MailSystem: WdMailSystem readonly dispid 104;
  4115.     property DefaultTableSeparator: WideString dispid 105;
  4116.     property ShowVisualBasicEditor: WordBool dispid 106;
  4117.     property BrowseExtraFileTypes: WideString dispid 108;
  4118.     property IsObjectValid[const Object_: IDispatch]: WordBool readonly dispid 109;
  4119.     property HangulHanjaDictionaries: HangulHanjaConversionDictionaries readonly dispid 110;
  4120.     property MailMessage: MailMessage readonly dispid 348;
  4121.     property FocusInMailHeader: WordBool readonly dispid 386;
  4122.     procedure Quit(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
  4123.                    var RouteDocument: OleVariant); dispid 1105;
  4124.     procedure ScreenRefresh; dispid 301;
  4125.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  4126.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  4127.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  4128.                        var PageType: OleVariant; var PrintToFile: OleVariant; 
  4129.                        var Collate: OleVariant; var FileName: OleVariant; 
  4130.                        var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant); dispid 302;
  4131.     procedure LookupNameProperties(const Name: WideString); dispid 303;
  4132.     procedure SubstituteFont(const UnavailableFont: WideString; const SubstituteFont: WideString); dispid 304;
  4133.     function  Repeat_(var Times: OleVariant): WordBool; dispid 305;
  4134.     procedure DDEExecute(Channel: Integer; const Command: WideString); dispid 310;
  4135.     function  DDEInitiate(const App: WideString; const Topic: WideString): Integer; dispid 311;
  4136.     procedure DDEPoke(Channel: Integer; const Item: WideString; const Data: WideString); dispid 312;
  4137.     function  DDERequest(Channel: Integer; const Item: WideString): WideString; dispid 313;
  4138.     procedure DDETerminate(Channel: Integer); dispid 314;
  4139.     procedure DDETerminateAll; dispid 315;
  4140.     function  BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant; 
  4141.                            var Arg4: OleVariant): Integer; dispid 316;
  4142.     function  KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString; dispid 317;
  4143.     procedure OrganizerCopy(const Source: WideString; const Destination: WideString; 
  4144.                             const Name: WideString; Object_: WdOrganizerObject); dispid 318;
  4145.     procedure OrganizerDelete(const Source: WideString; const Name: WideString; 
  4146.                               Object_: WdOrganizerObject); dispid 319;
  4147.     procedure OrganizerRename(const Source: WideString; const Name: WideString; 
  4148.                               const NewName: WideString; Object_: WdOrganizerObject); dispid 320;
  4149.     procedure AddAddress(var TagID: {??PSafeArray} OleVariant; var Value: {??PSafeArray} OleVariant); dispid 321;
  4150.     function  GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
  4151.                          var UseAutoText: OleVariant; var DisplaySelectDialog: OleVariant; 
  4152.                          var SelectDialog: OleVariant; var CheckNamesDialog: OleVariant; 
  4153.                          var RecentAddressesChoice: OleVariant; 
  4154.                          var UpdateRecentAddresses: OleVariant): WideString; dispid 322;
  4155.     function  CheckGrammar(const String_: WideString): WordBool; dispid 323;
  4156.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  4157.                             var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
  4158.                             var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
  4159.                             var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
  4160.                             var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
  4161.                             var CustomDictionary8: OleVariant; var CustomDictionary9: OleVariant; 
  4162.                             var CustomDictionary10: OleVariant): WordBool; dispid 324;
  4163.     procedure ResetIgnoreAll; dispid 326;
  4164.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  4165.                                      var IgnoreUppercase: OleVariant; 
  4166.                                      var MainDictionary: OleVariant; 
  4167.                                      var SuggestionMode: OleVariant; 
  4168.                                      var CustomDictionary2: OleVariant; 
  4169.                                      var CustomDictionary3: OleVariant; 
  4170.                                      var CustomDictionary4: OleVariant; 
  4171.                                      var CustomDictionary5: OleVariant; 
  4172.                                      var CustomDictionary6: OleVariant; 
  4173.                                      var CustomDictionary7: OleVariant; 
  4174.                                      var CustomDictionary8: OleVariant; 
  4175.                                      var CustomDictionary9: OleVariant; 
  4176.                                      var CustomDictionary10: OleVariant): SpellingSuggestions; dispid 327;
  4177.     procedure GoBack; dispid 328;
  4178.     procedure Help(var HelpType: OleVariant); dispid 329;
  4179.     procedure AutomaticChange; dispid 330;
  4180.     procedure ShowMe; dispid 331;
  4181.     procedure HelpTool; dispid 332;
  4182.     function  NewWindow: Window; dispid 345;
  4183.     procedure ListCommands(ListAllCommands: WordBool); dispid 346;
  4184.     procedure ShowClipboard; dispid 349;
  4185.     procedure OnTime(var When: OleVariant; const Name: WideString; var Tolerance: OleVariant); dispid 350;
  4186.     procedure NextLetter; dispid 351;
  4187.     function  MountVolume(const Zone: WideString; const Server: WideString; 
  4188.                           const Volume: WideString; var User: OleVariant; 
  4189.                           var UserPassword: OleVariant; var VolumePassword: OleVariant): Smallint; dispid 353;
  4190.     function  CleanString(const String_: WideString): WideString; dispid 354;
  4191.     procedure SendFax; dispid 356;
  4192.     procedure ChangeFileOpenDirectory(const Path: WideString); dispid 357;
  4193.     procedure Run(const MacroName: WideString); dispid 358;
  4194.     procedure GoForward; dispid 359;
  4195.     procedure Move(Left: Integer; Top: Integer); dispid 360;
  4196.     procedure Resize(Width: Integer; Height: Integer); dispid 361;
  4197.     function  InchesToPoints(Inches: Single): Single; dispid 370;
  4198.     function  CentimetersToPoints(Centimeters: Single): Single; dispid 371;
  4199.     function  MillimetersToPoints(Millimeters: Single): Single; dispid 372;
  4200.     function  PicasToPoints(Picas: Single): Single; dispid 373;
  4201.     function  LinesToPoints(Lines: Single): Single; dispid 374;
  4202.     function  PointsToInches(Points: Single): Single; dispid 380;
  4203.     function  PointsToCentimeters(Points: Single): Single; dispid 381;
  4204.     function  PointsToMillimeters(Points: Single): Single; dispid 382;
  4205.     function  PointsToPicas(Points: Single): Single; dispid 383;
  4206.     function  PointsToLines(Points: Single): Single; dispid 384;
  4207.     procedure Activate; dispid 385;
  4208.   end;
  4209.  
  4210. // *********************************************************************//
  4211. // Interface: _Global
  4212. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4213. // GUID:      {000209B9-0000-0000-C000-000000000046}
  4214. // *********************************************************************//
  4215.   _Global = interface(IDispatch)
  4216.     ['{000209B9-0000-0000-C000-000000000046}']
  4217.     function  Get_Application: WordApplication; safecall;
  4218.     function  Get_Creator: Integer; safecall;
  4219.     function  Get_Parent: IDispatch; safecall;
  4220.     function  Get_Name: WideString; safecall;
  4221.     function  Get_Documents: Documents; safecall;
  4222.     function  Get_Windows: Windows; safecall;
  4223.     function  Get_ActiveDocument: WordDocument; safecall;
  4224.     function  Get_ActiveWindow: Window; safecall;
  4225.     function  Get_Selection: Selection; safecall;
  4226.     function  Get_WordBasic: IDispatch; safecall;
  4227.     function  Get_PrintPreview: WordBool; safecall;
  4228.     procedure Set_PrintPreview(prop: WordBool); safecall;
  4229.     function  Get_RecentFiles: RecentFiles; safecall;
  4230.     function  Get_NormalTemplate: Template; safecall;
  4231.     function  Get_System_: System; safecall;
  4232.     function  Get_AutoCorrect: AutoCorrect; safecall;
  4233.     function  Get_FontNames: FontNames; safecall;
  4234.     function  Get_LandscapeFontNames: FontNames; safecall;
  4235.     function  Get_PortraitFontNames: FontNames; safecall;
  4236.     function  Get_Languages: Languages; safecall;
  4237.     function  Get_Assistant: Assistant; safecall;
  4238.     function  Get_FileConverters: FileConverters; safecall;
  4239.     function  Get_Dialogs: Dialogs; safecall;
  4240.     function  Get_CaptionLabels: CaptionLabels; safecall;
  4241.     function  Get_AutoCaptions: AutoCaptions; safecall;
  4242.     function  Get_AddIns: AddIns; safecall;
  4243.     function  Get_Tasks: Tasks; safecall;
  4244.     function  Get_MacroContainer: IDispatch; safecall;
  4245.     function  Get_CommandBars: CommandBars; safecall;
  4246.     function  Get_SynonymInfo(const Word: WideString; var LanguageID: OleVariant): SynonymInfo; safecall;
  4247.     function  Get_VBE: VBE; safecall;
  4248.     function  Get_ListGalleries: ListGalleries; safecall;
  4249.     function  Get_ActivePrinter: WideString; safecall;
  4250.     procedure Set_ActivePrinter(const prop: WideString); safecall;
  4251.     function  Get_Templates: Templates; safecall;
  4252.     function  Get_CustomizationContext: IDispatch; safecall;
  4253.     procedure Set_CustomizationContext(const prop: IDispatch); safecall;
  4254.     function  Get_KeyBindings: KeyBindings; safecall;
  4255.     function  Get_KeysBoundTo(KeyCategory: WdKeyCategory; const Command: WideString; 
  4256.                               var CommandParameter: OleVariant): KeysBoundTo; safecall;
  4257.     function  Get_FindKey(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding; safecall;
  4258.     function  Get_Options: Options; safecall;
  4259.     function  Get_CustomDictionaries: Dictionaries; safecall;
  4260.     procedure Set_StatusBar(const Param1: WideString); safecall;
  4261.     function  Get_ShowVisualBasicEditor: WordBool; safecall;
  4262.     procedure Set_ShowVisualBasicEditor(prop: WordBool); safecall;
  4263.     function  Get_IsObjectValid(const Object_: IDispatch): WordBool; safecall;
  4264.     function  Get_HangulHanjaDictionaries: HangulHanjaConversionDictionaries; safecall;
  4265.     function  Repeat_(var Times: OleVariant): WordBool; safecall;
  4266.     procedure DDEExecute(Channel: Integer; const Command: WideString); safecall;
  4267.     function  DDEInitiate(const App: WideString; const Topic: WideString): Integer; safecall;
  4268.     procedure DDEPoke(Channel: Integer; const Item: WideString; const Data: WideString); safecall;
  4269.     function  DDERequest(Channel: Integer; const Item: WideString): WideString; safecall;
  4270.     procedure DDETerminate(Channel: Integer); safecall;
  4271.     procedure DDETerminateAll; safecall;
  4272.     function  BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant; 
  4273.                            var Arg4: OleVariant): Integer; safecall;
  4274.     function  KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString; safecall;
  4275.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  4276.                             var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
  4277.                             var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
  4278.                             var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
  4279.                             var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
  4280.                             var CustomDictionary8: OleVariant; var CustomDictionary9: OleVariant; 
  4281.                             var CustomDictionary10: OleVariant): WordBool; safecall;
  4282.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  4283.                                      var IgnoreUppercase: OleVariant; 
  4284.                                      var MainDictionary: OleVariant; 
  4285.                                      var SuggestionMode: OleVariant; 
  4286.                                      var CustomDictionary2: OleVariant; 
  4287.                                      var CustomDictionary3: OleVariant; 
  4288.                                      var CustomDictionary4: OleVariant; 
  4289.                                      var CustomDictionary5: OleVariant; 
  4290.                                      var CustomDictionary6: OleVariant; 
  4291.                                      var CustomDictionary7: OleVariant; 
  4292.                                      var CustomDictionary8: OleVariant; 
  4293.                                      var CustomDictionary9: OleVariant; 
  4294.                                      var CustomDictionary10: OleVariant): SpellingSuggestions; safecall;
  4295.     procedure Help(var HelpType: OleVariant); safecall;
  4296.     function  NewWindow: Window; safecall;
  4297.     function  CleanString(const String_: WideString): WideString; safecall;
  4298.     procedure ChangeFileOpenDirectory(const Path: WideString); safecall;
  4299.     function  InchesToPoints(Inches: Single): Single; safecall;
  4300.     function  CentimetersToPoints(Centimeters: Single): Single; safecall;
  4301.     function  MillimetersToPoints(Millimeters: Single): Single; safecall;
  4302.     function  PicasToPoints(Picas: Single): Single; safecall;
  4303.     function  LinesToPoints(Lines: Single): Single; safecall;
  4304.     function  PointsToInches(Points: Single): Single; safecall;
  4305.     function  PointsToCentimeters(Points: Single): Single; safecall;
  4306.     function  PointsToMillimeters(Points: Single): Single; safecall;
  4307.     function  PointsToPicas(Points: Single): Single; safecall;
  4308.     function  PointsToLines(Points: Single): Single; safecall;
  4309.     property Application: WordApplication read Get_Application;
  4310.     property Creator: Integer read Get_Creator;
  4311.     property Parent: IDispatch read Get_Parent;
  4312.     property Name: WideString read Get_Name;
  4313.     property Documents: Documents read Get_Documents;
  4314.     property Windows: Windows read Get_Windows;
  4315.     property ActiveDocument: WordDocument read Get_ActiveDocument;
  4316.     property ActiveWindow: Window read Get_ActiveWindow;
  4317.     property Selection: Selection read Get_Selection;
  4318.     property WordBasic: IDispatch read Get_WordBasic;
  4319.     property PrintPreview: WordBool read Get_PrintPreview write Set_PrintPreview;
  4320.     property RecentFiles: RecentFiles read Get_RecentFiles;
  4321.     property NormalTemplate: Template read Get_NormalTemplate;
  4322.     property System_: System read Get_System_;
  4323.     property AutoCorrect: AutoCorrect read Get_AutoCorrect;
  4324.     property FontNames: FontNames read Get_FontNames;
  4325.     property LandscapeFontNames: FontNames read Get_LandscapeFontNames;
  4326.     property PortraitFontNames: FontNames read Get_PortraitFontNames;
  4327.     property Languages: Languages read Get_Languages;
  4328.     property Assistant: Assistant read Get_Assistant;
  4329.     property FileConverters: FileConverters read Get_FileConverters;
  4330.     property Dialogs: Dialogs read Get_Dialogs;
  4331.     property CaptionLabels: CaptionLabels read Get_CaptionLabels;
  4332.     property AutoCaptions: AutoCaptions read Get_AutoCaptions;
  4333.     property AddIns: AddIns read Get_AddIns;
  4334.     property Tasks: Tasks read Get_Tasks;
  4335.     property MacroContainer: IDispatch read Get_MacroContainer;
  4336.     property CommandBars: CommandBars read Get_CommandBars;
  4337.     property SynonymInfo[const Word: WideString; var LanguageID: OleVariant]: SynonymInfo read Get_SynonymInfo;
  4338.     property VBE: VBE read Get_VBE;
  4339.     property ListGalleries: ListGalleries read Get_ListGalleries;
  4340.     property ActivePrinter: WideString read Get_ActivePrinter write Set_ActivePrinter;
  4341.     property Templates: Templates read Get_Templates;
  4342.     property CustomizationContext: IDispatch read Get_CustomizationContext write Set_CustomizationContext;
  4343.     property KeyBindings: KeyBindings read Get_KeyBindings;
  4344.     property KeysBoundTo[KeyCategory: WdKeyCategory; const Command: WideString; 
  4345.                          var CommandParameter: OleVariant]: KeysBoundTo read Get_KeysBoundTo;
  4346.     property FindKey[KeyCode: Integer; var KeyCode2: OleVariant]: KeyBinding read Get_FindKey;
  4347.     property Options: Options read Get_Options;
  4348.     property CustomDictionaries: Dictionaries read Get_CustomDictionaries;
  4349.     property StatusBar: WideString write Set_StatusBar;
  4350.     property ShowVisualBasicEditor: WordBool read Get_ShowVisualBasicEditor write Set_ShowVisualBasicEditor;
  4351.     property IsObjectValid[const Object_: IDispatch]: WordBool read Get_IsObjectValid;
  4352.     property HangulHanjaDictionaries: HangulHanjaConversionDictionaries read Get_HangulHanjaDictionaries;
  4353.   end;
  4354.  
  4355. // *********************************************************************//
  4356. // DispIntf:  _GlobalDisp
  4357. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  4358. // GUID:      {000209B9-0000-0000-C000-000000000046}
  4359. // *********************************************************************//
  4360.   _GlobalDisp = dispinterface
  4361.     ['{000209B9-0000-0000-C000-000000000046}']
  4362.     property Application: WordApplication readonly dispid 1000;
  4363.     property Creator: Integer readonly dispid 1001;
  4364.     property Parent: IDispatch readonly dispid 1002;
  4365.     property Name: WideString readonly dispid 0;
  4366.     property Documents: Documents readonly dispid 1;
  4367.     property Windows: Windows readonly dispid 2;
  4368.     property ActiveDocument: WordDocument readonly dispid 3;
  4369.     property ActiveWindow: Window readonly dispid 4;
  4370.     property Selection: Selection readonly dispid 5;
  4371.     property WordBasic: IDispatch readonly dispid 6;
  4372.     property PrintPreview: WordBool dispid 27;
  4373.     property RecentFiles: RecentFiles readonly dispid 7;
  4374.     property NormalTemplate: Template readonly dispid 8;
  4375.     property System_: System readonly dispid 9;
  4376.     property AutoCorrect: AutoCorrect readonly dispid 10;
  4377.     property FontNames: FontNames readonly dispid 11;
  4378.     property LandscapeFontNames: FontNames readonly dispid 12;
  4379.     property PortraitFontNames: FontNames readonly dispid 13;
  4380.     property Languages: Languages readonly dispid 14;
  4381.     property Assistant: Assistant readonly dispid 15;
  4382.     property FileConverters: FileConverters readonly dispid 17;
  4383.     property Dialogs: Dialogs readonly dispid 19;
  4384.     property CaptionLabels: CaptionLabels readonly dispid 20;
  4385.     property AutoCaptions: AutoCaptions readonly dispid 21;
  4386.     property AddIns: AddIns readonly dispid 22;
  4387.     property Tasks: Tasks readonly dispid 28;
  4388.     property MacroContainer: IDispatch readonly dispid 55;
  4389.     property CommandBars: CommandBars readonly dispid 57;
  4390.     property SynonymInfo[const Word: WideString; var LanguageID: OleVariant]: SynonymInfo readonly dispid 59;
  4391.     property VBE: VBE readonly dispid 61;
  4392.     property ListGalleries: ListGalleries readonly dispid 65;
  4393.     property ActivePrinter: WideString dispid 66;
  4394.     property Templates: Templates readonly dispid 67;
  4395.     property CustomizationContext: IDispatch dispid 68;
  4396.     property KeyBindings: KeyBindings readonly dispid 69;
  4397.     property KeysBoundTo[KeyCategory: WdKeyCategory; const Command: WideString; 
  4398.                          var CommandParameter: OleVariant]: KeysBoundTo readonly dispid 70;
  4399.     property FindKey[KeyCode: Integer; var KeyCode2: OleVariant]: KeyBinding readonly dispid 71;
  4400.     property Options: Options readonly dispid 93;
  4401.     property CustomDictionaries: Dictionaries readonly dispid 95;
  4402.     property StatusBar: WideString writeonly dispid 97;
  4403.     property ShowVisualBasicEditor: WordBool dispid 104;
  4404.     property IsObjectValid[const Object_: IDispatch]: WordBool readonly dispid 109;
  4405.     property HangulHanjaDictionaries: HangulHanjaConversionDictionaries readonly dispid 110;
  4406.     function  Repeat_(var Times: OleVariant): WordBool; dispid 305;
  4407.     procedure DDEExecute(Channel: Integer; const Command: WideString); dispid 310;
  4408.     function  DDEInitiate(const App: WideString; const Topic: WideString): Integer; dispid 311;
  4409.     procedure DDEPoke(Channel: Integer; const Item: WideString; const Data: WideString); dispid 312;
  4410.     function  DDERequest(Channel: Integer; const Item: WideString): WideString; dispid 313;
  4411.     procedure DDETerminate(Channel: Integer); dispid 314;
  4412.     procedure DDETerminateAll; dispid 315;
  4413.     function  BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant; 
  4414.                            var Arg4: OleVariant): Integer; dispid 316;
  4415.     function  KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString; dispid 317;
  4416.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  4417.                             var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
  4418.                             var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
  4419.                             var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
  4420.                             var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
  4421.                             var CustomDictionary8: OleVariant; var CustomDictionary9: OleVariant; 
  4422.                             var CustomDictionary10: OleVariant): WordBool; dispid 324;
  4423.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  4424.                                      var IgnoreUppercase: OleVariant; 
  4425.                                      var MainDictionary: OleVariant; 
  4426.                                      var SuggestionMode: OleVariant; 
  4427.                                      var CustomDictionary2: OleVariant; 
  4428.                                      var CustomDictionary3: OleVariant; 
  4429.                                      var CustomDictionary4: OleVariant; 
  4430.                                      var CustomDictionary5: OleVariant; 
  4431.                                      var CustomDictionary6: OleVariant; 
  4432.                                      var CustomDictionary7: OleVariant; 
  4433.                                      var CustomDictionary8: OleVariant; 
  4434.                                      var CustomDictionary9: OleVariant; 
  4435.                                      var CustomDictionary10: OleVariant): SpellingSuggestions; dispid 327;
  4436.     procedure Help(var HelpType: OleVariant); dispid 329;
  4437.     function  NewWindow: Window; dispid 345;
  4438.     function  CleanString(const String_: WideString): WideString; dispid 354;
  4439.     procedure ChangeFileOpenDirectory(const Path: WideString); dispid 355;
  4440.     function  InchesToPoints(Inches: Single): Single; dispid 370;
  4441.     function  CentimetersToPoints(Centimeters: Single): Single; dispid 371;
  4442.     function  MillimetersToPoints(Millimeters: Single): Single; dispid 372;
  4443.     function  PicasToPoints(Picas: Single): Single; dispid 373;
  4444.     function  LinesToPoints(Lines: Single): Single; dispid 374;
  4445.     function  PointsToInches(Points: Single): Single; dispid 380;
  4446.     function  PointsToCentimeters(Points: Single): Single; dispid 381;
  4447.     function  PointsToMillimeters(Points: Single): Single; dispid 382;
  4448.     function  PointsToPicas(Points: Single): Single; dispid 383;
  4449.     function  PointsToLines(Points: Single): Single; dispid 384;
  4450.   end;
  4451.  
  4452. // *********************************************************************//
  4453. // Interface: FontNames
  4454. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4455. // GUID:      {0002096F-0000-0000-C000-000000000046}
  4456. // *********************************************************************//
  4457.   FontNames = interface(IDispatch)
  4458.     ['{0002096F-0000-0000-C000-000000000046}']
  4459.     function  Get__NewEnum: IUnknown; safecall;
  4460.     function  Get_Count: Integer; safecall;
  4461.     function  Get_Application: WordApplication; safecall;
  4462.     function  Get_Creator: Integer; safecall;
  4463.     function  Get_Parent: IDispatch; safecall;
  4464.     function  Item(Index: Integer): WideString; safecall;
  4465.     property _NewEnum: IUnknown read Get__NewEnum;
  4466.     property Count: Integer read Get_Count;
  4467.     property Application: WordApplication read Get_Application;
  4468.     property Creator: Integer read Get_Creator;
  4469.     property Parent: IDispatch read Get_Parent;
  4470.   end;
  4471.  
  4472. // *********************************************************************//
  4473. // DispIntf:  FontNamesDisp
  4474. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4475. // GUID:      {0002096F-0000-0000-C000-000000000046}
  4476. // *********************************************************************//
  4477.   FontNamesDisp = dispinterface
  4478.     ['{0002096F-0000-0000-C000-000000000046}']
  4479.     property _NewEnum: IUnknown readonly dispid -4;
  4480.     property Count: Integer readonly dispid 2;
  4481.     property Application: WordApplication readonly dispid 1000;
  4482.     property Creator: Integer readonly dispid 1001;
  4483.     property Parent: IDispatch readonly dispid 1002;
  4484.     function  Item(Index: Integer): WideString; dispid 0;
  4485.   end;
  4486.  
  4487. // *********************************************************************//
  4488. // Interface: Languages
  4489. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4490. // GUID:      {0002096E-0000-0000-C000-000000000046}
  4491. // *********************************************************************//
  4492.   Languages = interface(IDispatch)
  4493.     ['{0002096E-0000-0000-C000-000000000046}']
  4494.     function  Get__NewEnum: IUnknown; safecall;
  4495.     function  Get_Count: Integer; safecall;
  4496.     function  Get_Application: WordApplication; safecall;
  4497.     function  Get_Creator: Integer; safecall;
  4498.     function  Get_Parent: IDispatch; safecall;
  4499.     function  Item(var Index: OleVariant): Language; safecall;
  4500.     property _NewEnum: IUnknown read Get__NewEnum;
  4501.     property Count: Integer read Get_Count;
  4502.     property Application: WordApplication read Get_Application;
  4503.     property Creator: Integer read Get_Creator;
  4504.     property Parent: IDispatch read Get_Parent;
  4505.   end;
  4506.  
  4507. // *********************************************************************//
  4508. // DispIntf:  LanguagesDisp
  4509. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4510. // GUID:      {0002096E-0000-0000-C000-000000000046}
  4511. // *********************************************************************//
  4512.   LanguagesDisp = dispinterface
  4513.     ['{0002096E-0000-0000-C000-000000000046}']
  4514.     property _NewEnum: IUnknown readonly dispid -4;
  4515.     property Count: Integer readonly dispid 2;
  4516.     property Application: WordApplication readonly dispid 1000;
  4517.     property Creator: Integer readonly dispid 1001;
  4518.     property Parent: IDispatch readonly dispid 1002;
  4519.     function  Item(var Index: OleVariant): Language; dispid 0;
  4520.   end;
  4521.  
  4522. // *********************************************************************//
  4523. // Interface: Language
  4524. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4525. // GUID:      {0002096D-0000-0000-C000-000000000046}
  4526. // *********************************************************************//
  4527.   Language = interface(IDispatch)
  4528.     ['{0002096D-0000-0000-C000-000000000046}']
  4529.     function  Get_Application: WordApplication; safecall;
  4530.     function  Get_Creator: Integer; safecall;
  4531.     function  Get_Parent: IDispatch; safecall;
  4532.     function  Get_ID: WdLanguageID; safecall;
  4533.     function  Get_NameLocal: WideString; safecall;
  4534.     function  Get_Name: WideString; safecall;
  4535.     function  Get_ActiveGrammarDictionary: Dictionary; safecall;
  4536.     function  Get_ActiveHyphenationDictionary: Dictionary; safecall;
  4537.     function  Get_ActiveSpellingDictionary: Dictionary; safecall;
  4538.     function  Get_ActiveThesaurusDictionary: Dictionary; safecall;
  4539.     function  Get_DefaultWritingStyle: WideString; safecall;
  4540.     procedure Set_DefaultWritingStyle(const prop: WideString); safecall;
  4541.     function  Get_WritingStyleList: OleVariant; safecall;
  4542.     function  Get_SpellingDictionaryType: WdDictionaryType; safecall;
  4543.     procedure Set_SpellingDictionaryType(prop: WdDictionaryType); safecall;
  4544.     property Application: WordApplication read Get_Application;
  4545.     property Creator: Integer read Get_Creator;
  4546.     property Parent: IDispatch read Get_Parent;
  4547.     property ID: WdLanguageID read Get_ID;
  4548.     property NameLocal: WideString read Get_NameLocal;
  4549.     property Name: WideString read Get_Name;
  4550.     property ActiveGrammarDictionary: Dictionary read Get_ActiveGrammarDictionary;
  4551.     property ActiveHyphenationDictionary: Dictionary read Get_ActiveHyphenationDictionary;
  4552.     property ActiveSpellingDictionary: Dictionary read Get_ActiveSpellingDictionary;
  4553.     property ActiveThesaurusDictionary: Dictionary read Get_ActiveThesaurusDictionary;
  4554.     property DefaultWritingStyle: WideString read Get_DefaultWritingStyle write Set_DefaultWritingStyle;
  4555.     property WritingStyleList: OleVariant read Get_WritingStyleList;
  4556.     property SpellingDictionaryType: WdDictionaryType read Get_SpellingDictionaryType write Set_SpellingDictionaryType;
  4557.   end;
  4558.  
  4559. // *********************************************************************//
  4560. // DispIntf:  LanguageDisp
  4561. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4562. // GUID:      {0002096D-0000-0000-C000-000000000046}
  4563. // *********************************************************************//
  4564.   LanguageDisp = dispinterface
  4565.     ['{0002096D-0000-0000-C000-000000000046}']
  4566.     property Application: WordApplication readonly dispid 1000;
  4567.     property Creator: Integer readonly dispid 1001;
  4568.     property Parent: IDispatch readonly dispid 1002;
  4569.     property ID: WdLanguageID readonly dispid 10;
  4570.     property NameLocal: WideString readonly dispid 0;
  4571.     property Name: WideString readonly dispid 12;
  4572.     property ActiveGrammarDictionary: Dictionary readonly dispid 13;
  4573.     property ActiveHyphenationDictionary: Dictionary readonly dispid 14;
  4574.     property ActiveSpellingDictionary: Dictionary readonly dispid 15;
  4575.     property ActiveThesaurusDictionary: Dictionary readonly dispid 16;
  4576.     property DefaultWritingStyle: WideString dispid 17;
  4577.     property WritingStyleList: OleVariant readonly dispid 18;
  4578.     property SpellingDictionaryType: WdDictionaryType dispid 19;
  4579.   end;
  4580.  
  4581. // *********************************************************************//
  4582. // Interface: Documents
  4583. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4584. // GUID:      {0002096C-0000-0000-C000-000000000046}
  4585. // *********************************************************************//
  4586.   Documents = interface(IDispatch)
  4587.     ['{0002096C-0000-0000-C000-000000000046}']
  4588.     function  Get__NewEnum: IUnknown; safecall;
  4589.     function  Get_Count: Integer; safecall;
  4590.     function  Get_Application: WordApplication; safecall;
  4591.     function  Get_Creator: Integer; safecall;
  4592.     function  Get_Parent: IDispatch; safecall;
  4593.     function  Item(var Index: OleVariant): WordDocument; safecall;
  4594.     procedure Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
  4595.                     var RouteDocument: OleVariant); safecall;
  4596.     function  Add(var Template: OleVariant; var NewTemplate: OleVariant): WordDocument; safecall;
  4597.     function  Open(var FileName: OleVariant; var ConfirmConversions: OleVariant; 
  4598.                    var ReadOnly: OleVariant; var AddToRecentFiles: OleVariant; 
  4599.                    var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
  4600.                    var Revert: OleVariant; var WritePasswordDocument: OleVariant; 
  4601.                    var WritePasswordTemplate: OleVariant; var Format: OleVariant): WordDocument; safecall;
  4602.     procedure Save(var NoPrompt: OleVariant; var OriginalFormat: OleVariant); safecall;
  4603.     property _NewEnum: IUnknown read Get__NewEnum;
  4604.     property Count: Integer read Get_Count;
  4605.     property Application: WordApplication read Get_Application;
  4606.     property Creator: Integer read Get_Creator;
  4607.     property Parent: IDispatch read Get_Parent;
  4608.   end;
  4609.  
  4610. // *********************************************************************//
  4611. // DispIntf:  DocumentsDisp
  4612. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  4613. // GUID:      {0002096C-0000-0000-C000-000000000046}
  4614. // *********************************************************************//
  4615.   DocumentsDisp = dispinterface
  4616.     ['{0002096C-0000-0000-C000-000000000046}']
  4617.     property _NewEnum: IUnknown readonly dispid -4;
  4618.     property Count: Integer readonly dispid 2;
  4619.     property Application: WordApplication readonly dispid 1000;
  4620.     property Creator: Integer readonly dispid 1001;
  4621.     property Parent: IDispatch readonly dispid 1002;
  4622.     function  Item(var Index: OleVariant): WordDocument; dispid 0;
  4623.     procedure Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
  4624.                     var RouteDocument: OleVariant); dispid 1105;
  4625.     function  Add(var Template: OleVariant; var NewTemplate: OleVariant): WordDocument; dispid 11;
  4626.     function  Open(var FileName: OleVariant; var ConfirmConversions: OleVariant; 
  4627.                    var ReadOnly: OleVariant; var AddToRecentFiles: OleVariant; 
  4628.                    var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
  4629.                    var Revert: OleVariant; var WritePasswordDocument: OleVariant; 
  4630.                    var WritePasswordTemplate: OleVariant; var Format: OleVariant): WordDocument; dispid 12;
  4631.     procedure Save(var NoPrompt: OleVariant; var OriginalFormat: OleVariant); dispid 13;
  4632.   end;
  4633.  
  4634. // *********************************************************************//
  4635. // Interface: _Document
  4636. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  4637. // GUID:      {0002096B-0000-0000-C000-000000000046}
  4638. // *********************************************************************//
  4639.   _Document = interface(IDispatch)
  4640.     ['{0002096B-0000-0000-C000-000000000046}']
  4641.     function  Get_Name: WideString; safecall;
  4642.     function  Get_Application: WordApplication; safecall;
  4643.     function  Get_Creator: Integer; safecall;
  4644.     function  Get_Parent: IDispatch; safecall;
  4645.     function  Get_BuiltInDocumentProperties: IDispatch; safecall;
  4646.     function  Get_CustomDocumentProperties: IDispatch; safecall;
  4647.     function  Get_Path: WideString; safecall;
  4648.     function  Get_Bookmarks: Bookmarks; safecall;
  4649.     function  Get_Tables: Tables; safecall;
  4650.     function  Get_Footnotes: Footnotes; safecall;
  4651.     function  Get_Endnotes: Endnotes; safecall;
  4652.     function  Get_Comments: Comments; safecall;
  4653.     function  Get_Type_: WdDocumentType; safecall;
  4654.     function  Get_AutoHyphenation: WordBool; safecall;
  4655.     procedure Set_AutoHyphenation(prop: WordBool); safecall;
  4656.     function  Get_HyphenateCaps: WordBool; safecall;
  4657.     procedure Set_HyphenateCaps(prop: WordBool); safecall;
  4658.     function  Get_HyphenationZone: Integer; safecall;
  4659.     procedure Set_HyphenationZone(prop: Integer); safecall;
  4660.     function  Get_ConsecutiveHyphensLimit: Integer; safecall;
  4661.     procedure Set_ConsecutiveHyphensLimit(prop: Integer); safecall;
  4662.     function  Get_Sections: Sections; safecall;
  4663.     function  Get_Paragraphs: Paragraphs; safecall;
  4664.     function  Get_Words: Words; safecall;
  4665.     function  Get_Sentences: Sentences; safecall;
  4666.     function  Get_Characters: Characters; safecall;
  4667.     function  Get_Fields: Fields; safecall;
  4668.     function  Get_FormFields: FormFields; safecall;
  4669.     function  Get_Styles: Styles; safecall;
  4670.     function  Get_Frames: Frames; safecall;
  4671.     function  Get_TablesOfFigures: TablesOfFigures; safecall;
  4672.     function  Get_Variables: Variables; safecall;
  4673.     function  Get_MailMerge: MailMerge; safecall;
  4674.     function  Get_Envelope: Envelope; safecall;
  4675.     function  Get_FullName: WideString; safecall;
  4676.     function  Get_Revisions: Revisions; safecall;
  4677.     function  Get_TablesOfContents: TablesOfContents; safecall;
  4678.     function  Get_TablesOfAuthorities: TablesOfAuthorities; safecall;
  4679.     function  Get_PageSetup: PageSetup; safecall;
  4680.     procedure Set_PageSetup(const prop: PageSetup); safecall;
  4681.     function  Get_Windows: Windows; safecall;
  4682.     function  Get_HasRoutingSlip: WordBool; safecall;
  4683.     procedure Set_HasRoutingSlip(prop: WordBool); safecall;
  4684.     function  Get_RoutingSlip: RoutingSlip; safecall;
  4685.     function  Get_Routed: WordBool; safecall;
  4686.     function  Get_TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories; safecall;
  4687.     function  Get_Indexes: Indexes; safecall;
  4688.     function  Get_Saved: WordBool; safecall;
  4689.     procedure Set_Saved(prop: WordBool); safecall;
  4690.     function  Get_Content: Range; safecall;
  4691.     function  Get_ActiveWindow: Window; safecall;
  4692.     function  Get_Kind: WdDocumentKind; safecall;
  4693.     procedure Set_Kind(prop: WdDocumentKind); safecall;
  4694.     function  Get_ReadOnly: WordBool; safecall;
  4695.     function  Get_Subdocuments: Subdocuments; safecall;
  4696.     function  Get_IsMasterDocument: WordBool; safecall;
  4697.     function  Get_DefaultTabStop: Single; safecall;
  4698.     procedure Set_DefaultTabStop(prop: Single); safecall;
  4699.     function  Get_EmbedTrueTypeFonts: WordBool; safecall;
  4700.     procedure Set_EmbedTrueTypeFonts(prop: WordBool); safecall;
  4701.     function  Get_SaveFormsData: WordBool; safecall;
  4702.     procedure Set_SaveFormsData(prop: WordBool); safecall;
  4703.     function  Get_ReadOnlyRecommended: WordBool; safecall;
  4704.     procedure Set_ReadOnlyRecommended(prop: WordBool); safecall;
  4705.     function  Get_SaveSubsetFonts: WordBool; safecall;
  4706.     procedure Set_SaveSubsetFonts(prop: WordBool); safecall;
  4707.     function  Get_Compatibility(Type_: WdCompatibility): WordBool; safecall;
  4708.     procedure Set_Compatibility(Type_: WdCompatibility; prop: WordBool); safecall;
  4709.     function  Get_StoryRanges: StoryRanges; safecall;
  4710.     function  Get_CommandBars: CommandBars; safecall;
  4711.     function  Get_IsSubdocument: WordBool; safecall;
  4712.     function  Get_SaveFormat: Integer; safecall;
  4713.     function  Get_ProtectionType: WdProtectionType; safecall;
  4714.     function  Get_Hyperlinks: Hyperlinks; safecall;
  4715.     function  Get_Shapes: Shapes; safecall;
  4716.     function  Get_ListTemplates: ListTemplates; safecall;
  4717.     function  Get_Lists: Lists; safecall;
  4718.     function  Get_UpdateStylesOnOpen: WordBool; safecall;
  4719.     procedure Set_UpdateStylesOnOpen(prop: WordBool); safecall;
  4720.     function  Get_AttachedTemplate: OleVariant; safecall;
  4721.     procedure Set_AttachedTemplate(var prop: OleVariant); safecall;
  4722.     function  Get_InlineShapes: InlineShapes; safecall;
  4723.     function  Get_Background: Shape; safecall;
  4724.     procedure Set_Background(const prop: Shape); safecall;
  4725.     function  Get_GrammarChecked: WordBool; safecall;
  4726.     procedure Set_GrammarChecked(prop: WordBool); safecall;
  4727.     function  Get_SpellingChecked: WordBool; safecall;
  4728.     procedure Set_SpellingChecked(prop: WordBool); safecall;
  4729.     function  Get_ShowGrammaticalErrors: WordBool; safecall;
  4730.     procedure Set_ShowGrammaticalErrors(prop: WordBool); safecall;
  4731.     function  Get_ShowSpellingErrors: WordBool; safecall;
  4732.     procedure Set_ShowSpellingErrors(prop: WordBool); safecall;
  4733.     function  Get_Versions: Versions; safecall;
  4734.     function  Get_ShowSummary: WordBool; safecall;
  4735.     procedure Set_ShowSummary(prop: WordBool); safecall;
  4736.     function  Get_SummaryViewMode: WdSummaryMode; safecall;
  4737.     procedure Set_SummaryViewMode(prop: WdSummaryMode); safecall;
  4738.     function  Get_SummaryLength: Integer; safecall;
  4739.     procedure Set_SummaryLength(prop: Integer); safecall;
  4740.     function  Get_PrintFractionalWidths: WordBool; safecall;
  4741.     procedure Set_PrintFractionalWidths(prop: WordBool); safecall;
  4742.     function  Get_PrintPostScriptOverText: WordBool; safecall;
  4743.     procedure Set_PrintPostScriptOverText(prop: WordBool); safecall;
  4744.     function  Get_Container: IDispatch; safecall;
  4745.     function  Get_PrintFormsData: WordBool; safecall;
  4746.     procedure Set_PrintFormsData(prop: WordBool); safecall;
  4747.     function  Get_ListParagraphs: ListParagraphs; safecall;
  4748.     procedure Set_Password(const Param1: WideString); safecall;
  4749.     procedure Set_WritePassword(const Param1: WideString); safecall;
  4750.     function  Get_HasPassword: WordBool; safecall;
  4751.     function  Get_WriteReserved: WordBool; safecall;
  4752.     function  Get_ActiveWritingStyle(var LanguageID: OleVariant): WideString; safecall;
  4753.     procedure Set_ActiveWritingStyle(var LanguageID: OleVariant; const prop: WideString); safecall;
  4754.     function  Get_UserControl: WordBool; safecall;
  4755.     procedure Set_UserControl(prop: WordBool); safecall;
  4756.     function  Get_HasMailer: WordBool; safecall;
  4757.     procedure Set_HasMailer(prop: WordBool); safecall;
  4758.     function  Get_Mailer: Mailer; safecall;
  4759.     function  Get_ReadabilityStatistics: ReadabilityStatistics; safecall;
  4760.     function  Get_GrammaticalErrors: ProofreadingErrors; safecall;
  4761.     function  Get_SpellingErrors: ProofreadingErrors; safecall;
  4762.     function  Get_VBProject: VBProject; safecall;
  4763.     function  Get_FormsDesign: WordBool; safecall;
  4764.     function  Get__CodeName: WideString; safecall;
  4765.     procedure Set__CodeName(const prop: WideString); safecall;
  4766.     function  Get_CodeName: WideString; safecall;
  4767.     function  Get_SnapToGrid: WordBool; safecall;
  4768.     procedure Set_SnapToGrid(prop: WordBool); safecall;
  4769.     function  Get_SnapToShapes: WordBool; safecall;
  4770.     procedure Set_SnapToShapes(prop: WordBool); safecall;
  4771.     function  Get_GridDistanceHorizontal: Single; safecall;
  4772.     procedure Set_GridDistanceHorizontal(prop: Single); safecall;
  4773.     function  Get_GridDistanceVertical: Single; safecall;
  4774.     procedure Set_GridDistanceVertical(prop: Single); safecall;
  4775.     function  Get_GridOriginHorizontal: Single; safecall;
  4776.     procedure Set_GridOriginHorizontal(prop: Single); safecall;
  4777.     function  Get_GridOriginVertical: Single; safecall;
  4778.     procedure Set_GridOriginVertical(prop: Single); safecall;
  4779.     function  Get_GridSpaceBetweenHorizontalLines: Integer; safecall;
  4780.     procedure Set_GridSpaceBetweenHorizontalLines(prop: Integer); safecall;
  4781.     function  Get_GridSpaceBetweenVerticalLines: Integer; safecall;
  4782.     procedure Set_GridSpaceBetweenVerticalLines(prop: Integer); safecall;
  4783.     function  Get_GridOriginFromMargin: WordBool; safecall;
  4784.     procedure Set_GridOriginFromMargin(prop: WordBool); safecall;
  4785.     function  Get_KerningByAlgorithm: WordBool; safecall;
  4786.     procedure Set_KerningByAlgorithm(prop: WordBool); safecall;
  4787.     function  Get_JustificationMode: WdJustificationMode; safecall;
  4788.     procedure Set_JustificationMode(prop: WdJustificationMode); safecall;
  4789.     function  Get_FarEastLineBreakLevel: WdFarEastLineBreakLevel; safecall;
  4790.     procedure Set_FarEastLineBreakLevel(prop: WdFarEastLineBreakLevel); safecall;
  4791.     function  Get_NoLineBreakBefore: WideString; safecall;
  4792.     procedure Set_NoLineBreakBefore(const prop: WideString); safecall;
  4793.     function  Get_NoLineBreakAfter: WideString; safecall;
  4794.     procedure Set_NoLineBreakAfter(const prop: WideString); safecall;
  4795.     function  Get_TrackRevisions: WordBool; safecall;
  4796.     procedure Set_TrackRevisions(prop: WordBool); safecall;
  4797.     function  Get_PrintRevisions: WordBool; safecall;
  4798.     procedure Set_PrintRevisions(prop: WordBool); safecall;
  4799.     function  Get_ShowRevisions: WordBool; safecall;
  4800.     procedure Set_ShowRevisions(prop: WordBool); safecall;
  4801.     procedure Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
  4802.                     var RouteDocument: OleVariant); safecall;
  4803.     procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  4804.                      var LockComments: OleVariant; var Password: OleVariant; 
  4805.                      var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
  4806.                      var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
  4807.                      var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant; 
  4808.                      var SaveAsAOCELetter: OleVariant); safecall;
  4809.     procedure Repaginate; safecall;
  4810.     procedure FitToPages; safecall;
  4811.     procedure ManualHyphenation; safecall;
  4812.     procedure Select; safecall;
  4813.     procedure DataForm; safecall;
  4814.     procedure Route; safecall;
  4815.     procedure Save; safecall;
  4816.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  4817.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  4818.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  4819.                        var PageType: OleVariant; var PrintToFile: OleVariant; 
  4820.                        var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
  4821.                        var ManualDuplexPrint: OleVariant); safecall;
  4822.     procedure SendMail; safecall;
  4823.     function  Range(var Start: OleVariant; var End_: OleVariant): Range; safecall;
  4824.     procedure RunAutoMacro(Which: WdAutoMacros); safecall;
  4825.     procedure Activate; safecall;
  4826.     procedure PrintPreview; safecall;
  4827.     function  GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
  4828.                     var Name: OleVariant): Range; safecall;
  4829.     function  Undo(var Times: OleVariant): WordBool; safecall;
  4830.     function  Redo(var Times: OleVariant): WordBool; safecall;
  4831.     function  ComputeStatistics(Statistic: WdStatistic; var IncludeFootnotesAndEndnotes: OleVariant): Integer; safecall;
  4832.     procedure MakeCompatibilityDefault; safecall;
  4833.     procedure Protect(Type_: WdProtectionType; var NoReset: OleVariant; var Password: OleVariant); safecall;
  4834.     procedure Unprotect(var Password: OleVariant); safecall;
  4835.     procedure EditionOptions(Type_: WdEditionType; Option: WdEditionOption; const Name: WideString; 
  4836.                              var Format: OleVariant); safecall;
  4837.     procedure RunLetterWizard(var LetterContent: OleVariant; var WizardMode: OleVariant); safecall;
  4838.     function  GetLetterContent: WordLetterContent; safecall;
  4839.     procedure SetLetterContent(var LetterContent: OleVariant); safecall;
  4840.     procedure CopyStylesFromTemplate(const Template: WideString); safecall;
  4841.     procedure UpdateStyles; safecall;
  4842.     procedure CheckGrammar; safecall;
  4843.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  4844.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  4845.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  4846.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  4847.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  4848.                             var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); safecall;
  4849.     procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
  4850.                               var NewWindow: OleVariant; var AddHistory: OleVariant; 
  4851.                               var ExtraInfo: OleVariant; var Method: OleVariant; 
  4852.                               var HeaderInfo: OleVariant); safecall;
  4853.     procedure AddToFavorites; safecall;
  4854.     procedure Reload; safecall;
  4855.     function  AutoSummarize(var Length: OleVariant; var Mode: OleVariant; 
  4856.                             var UpdateProperties: OleVariant): Range; safecall;
  4857.     procedure RemoveNumbers(var NumberType: OleVariant); safecall;
  4858.     procedure ConvertNumbersToText(var NumberType: OleVariant); safecall;
  4859.     function  CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer; safecall;
  4860.     procedure Post; safecall;
  4861.     procedure ToggleFormsDesign; safecall;
  4862.     procedure Compare(const Name: WideString); safecall;
  4863.     procedure UpdateSummaryProperties; safecall;
  4864.     function  GetCrossReferenceItems(var ReferenceType: OleVariant): OleVariant; safecall;
  4865.     procedure AutoFormat; safecall;
  4866.     procedure ViewCode; safecall;
  4867.     procedure ViewPropertyBrowser; safecall;
  4868.     procedure ForwardMailer; safecall;
  4869.     procedure Reply; safecall;
  4870.     procedure ReplyAll; safecall;
  4871.     procedure SendMailer(var FileFormat: OleVariant; var Priority: OleVariant); safecall;
  4872.     procedure UndoClear; safecall;
  4873.     procedure PresentIt; safecall;
  4874.     procedure SendFax(const Address: WideString; var Subject: OleVariant); safecall;
  4875.     procedure Merge(const FileName: WideString); safecall;
  4876.     procedure ClosePrintPreview; safecall;
  4877.     procedure CheckConsistency; safecall;
  4878.     function  CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
  4879.                                   const PageDesign: WideString; LetterStyle: WdLetterStyle; 
  4880.                                   Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
  4881.                                   LetterheadSize: Single; const RecipientName: WideString; 
  4882.                                   const RecipientAddress: WideString; const Salutation: WideString; 
  4883.                                   SalutationType: WdSalutationType; 
  4884.                                   const RecipientReference: WideString; 
  4885.                                   const MailingInstructions: WideString; 
  4886.                                   const AttentionLine: WideString; const Subject: WideString; 
  4887.                                   const CCList: WideString; const ReturnAddress: WideString; 
  4888.                                   const SenderName: WideString; const Closing: WideString; 
  4889.                                   const SenderCompany: WideString; 
  4890.                                   const SenderJobTitle: WideString; 
  4891.                                   const SenderInitials: WideString; EnclosureNumber: Integer; 
  4892.                                   var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
  4893.                                   var RecipientGender: OleVariant; 
  4894.                                   var ReturnAddressShortForm: OleVariant; 
  4895.                                   var SenderCity: OleVariant; var SenderCode: OleVariant; 
  4896.                                   var SenderGender: OleVariant; var SenderReference: OleVariant): WordLetterContent; safecall;
  4897.     procedure AcceptAllRevisions; safecall;
  4898.     procedure RejectAllRevisions; safecall;
  4899.     property Name: WideString read Get_Name;
  4900.     property Application: WordApplication read Get_Application;
  4901.     property Creator: Integer read Get_Creator;
  4902.     property Parent: IDispatch read Get_Parent;
  4903.     property BuiltInDocumentProperties: IDispatch read Get_BuiltInDocumentProperties;
  4904.     property CustomDocumentProperties: IDispatch read Get_CustomDocumentProperties;
  4905.     property Path: WideString read Get_Path;
  4906.     property Bookmarks: Bookmarks read Get_Bookmarks;
  4907.     property Tables: Tables read Get_Tables;
  4908.     property Footnotes: Footnotes read Get_Footnotes;
  4909.     property Endnotes: Endnotes read Get_Endnotes;
  4910.     property Comments: Comments read Get_Comments;
  4911.     property Type_: WdDocumentType read Get_Type_;
  4912.     property AutoHyphenation: WordBool read Get_AutoHyphenation write Set_AutoHyphenation;
  4913.     property HyphenateCaps: WordBool read Get_HyphenateCaps write Set_HyphenateCaps;
  4914.     property HyphenationZone: Integer read Get_HyphenationZone write Set_HyphenationZone;
  4915.     property ConsecutiveHyphensLimit: Integer read Get_ConsecutiveHyphensLimit write Set_ConsecutiveHyphensLimit;
  4916.     property Sections: Sections read Get_Sections;
  4917.     property Paragraphs: Paragraphs read Get_Paragraphs;
  4918.     property Words: Words read Get_Words;
  4919.     property Sentences: Sentences read Get_Sentences;
  4920.     property Characters: Characters read Get_Characters;
  4921.     property Fields: Fields read Get_Fields;
  4922.     property FormFields: FormFields read Get_FormFields;
  4923.     property Styles: Styles read Get_Styles;
  4924.     property Frames: Frames read Get_Frames;
  4925.     property TablesOfFigures: TablesOfFigures read Get_TablesOfFigures;
  4926.     property Variables: Variables read Get_Variables;
  4927.     property MailMerge: MailMerge read Get_MailMerge;
  4928.     property Envelope: Envelope read Get_Envelope;
  4929.     property FullName: WideString read Get_FullName;
  4930.     property Revisions: Revisions read Get_Revisions;
  4931.     property TablesOfContents: TablesOfContents read Get_TablesOfContents;
  4932.     property TablesOfAuthorities: TablesOfAuthorities read Get_TablesOfAuthorities;
  4933.     property PageSetup: PageSetup read Get_PageSetup write Set_PageSetup;
  4934.     property Windows: Windows read Get_Windows;
  4935.     property HasRoutingSlip: WordBool read Get_HasRoutingSlip write Set_HasRoutingSlip;
  4936.     property RoutingSlip: RoutingSlip read Get_RoutingSlip;
  4937.     property Routed: WordBool read Get_Routed;
  4938.     property TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories read Get_TablesOfAuthoritiesCategories;
  4939.     property Indexes: Indexes read Get_Indexes;
  4940.     property Saved: WordBool read Get_Saved write Set_Saved;
  4941.     property Content: Range read Get_Content;
  4942.     property ActiveWindow: Window read Get_ActiveWindow;
  4943.     property Kind: WdDocumentKind read Get_Kind write Set_Kind;
  4944.     property ReadOnly: WordBool read Get_ReadOnly;
  4945.     property Subdocuments: Subdocuments read Get_Subdocuments;
  4946.     property IsMasterDocument: WordBool read Get_IsMasterDocument;
  4947.     property DefaultTabStop: Single read Get_DefaultTabStop write Set_DefaultTabStop;
  4948.     property EmbedTrueTypeFonts: WordBool read Get_EmbedTrueTypeFonts write Set_EmbedTrueTypeFonts;
  4949.     property SaveFormsData: WordBool read Get_SaveFormsData write Set_SaveFormsData;
  4950.     property ReadOnlyRecommended: WordBool read Get_ReadOnlyRecommended write Set_ReadOnlyRecommended;
  4951.     property SaveSubsetFonts: WordBool read Get_SaveSubsetFonts write Set_SaveSubsetFonts;
  4952.     property Compatibility[Type_: WdCompatibility]: WordBool read Get_Compatibility write Set_Compatibility;
  4953.     property StoryRanges: StoryRanges read Get_StoryRanges;
  4954.     property CommandBars: CommandBars read Get_CommandBars;
  4955.     property IsSubdocument: WordBool read Get_IsSubdocument;
  4956.     property SaveFormat: Integer read Get_SaveFormat;
  4957.     property ProtectionType: WdProtectionType read Get_ProtectionType;
  4958.     property Hyperlinks: Hyperlinks read Get_Hyperlinks;
  4959.     property Shapes: Shapes read Get_Shapes;
  4960.     property ListTemplates: ListTemplates read Get_ListTemplates;
  4961.     property Lists: Lists read Get_Lists;
  4962.     property UpdateStylesOnOpen: WordBool read Get_UpdateStylesOnOpen write Set_UpdateStylesOnOpen;
  4963.     property InlineShapes: InlineShapes read Get_InlineShapes;
  4964.     property Background: Shape read Get_Background write Set_Background;
  4965.     property GrammarChecked: WordBool read Get_GrammarChecked write Set_GrammarChecked;
  4966.     property SpellingChecked: WordBool read Get_SpellingChecked write Set_SpellingChecked;
  4967.     property ShowGrammaticalErrors: WordBool read Get_ShowGrammaticalErrors write Set_ShowGrammaticalErrors;
  4968.     property ShowSpellingErrors: WordBool read Get_ShowSpellingErrors write Set_ShowSpellingErrors;
  4969.     property Versions: Versions read Get_Versions;
  4970.     property ShowSummary: WordBool read Get_ShowSummary write Set_ShowSummary;
  4971.     property SummaryViewMode: WdSummaryMode read Get_SummaryViewMode write Set_SummaryViewMode;
  4972.     property SummaryLength: Integer read Get_SummaryLength write Set_SummaryLength;
  4973.     property PrintFractionalWidths: WordBool read Get_PrintFractionalWidths write Set_PrintFractionalWidths;
  4974.     property PrintPostScriptOverText: WordBool read Get_PrintPostScriptOverText write Set_PrintPostScriptOverText;
  4975.     property Container: IDispatch read Get_Container;
  4976.     property PrintFormsData: WordBool read Get_PrintFormsData write Set_PrintFormsData;
  4977.     property ListParagraphs: ListParagraphs read Get_ListParagraphs;
  4978.     property Password: WideString write Set_Password;
  4979.     property WritePassword: WideString write Set_WritePassword;
  4980.     property HasPassword: WordBool read Get_HasPassword;
  4981.     property WriteReserved: WordBool read Get_WriteReserved;
  4982.     property ActiveWritingStyle[var LanguageID: OleVariant]: WideString read Get_ActiveWritingStyle write Set_ActiveWritingStyle;
  4983.     property UserControl: WordBool read Get_UserControl write Set_UserControl;
  4984.     property HasMailer: WordBool read Get_HasMailer write Set_HasMailer;
  4985.     property Mailer: Mailer read Get_Mailer;
  4986.     property ReadabilityStatistics: ReadabilityStatistics read Get_ReadabilityStatistics;
  4987.     property GrammaticalErrors: ProofreadingErrors read Get_GrammaticalErrors;
  4988.     property SpellingErrors: ProofreadingErrors read Get_SpellingErrors;
  4989.     property VBProject: VBProject read Get_VBProject;
  4990.     property FormsDesign: WordBool read Get_FormsDesign;
  4991.     property _CodeName: WideString read Get__CodeName write Set__CodeName;
  4992.     property CodeName: WideString read Get_CodeName;
  4993.     property SnapToGrid: WordBool read Get_SnapToGrid write Set_SnapToGrid;
  4994.     property SnapToShapes: WordBool read Get_SnapToShapes write Set_SnapToShapes;
  4995.     property GridDistanceHorizontal: Single read Get_GridDistanceHorizontal write Set_GridDistanceHorizontal;
  4996.     property GridDistanceVertical: Single read Get_GridDistanceVertical write Set_GridDistanceVertical;
  4997.     property GridOriginHorizontal: Single read Get_GridOriginHorizontal write Set_GridOriginHorizontal;
  4998.     property GridOriginVertical: Single read Get_GridOriginVertical write Set_GridOriginVertical;
  4999.     property GridSpaceBetweenHorizontalLines: Integer read Get_GridSpaceBetweenHorizontalLines write Set_GridSpaceBetweenHorizontalLines;
  5000.     property GridSpaceBetweenVerticalLines: Integer read Get_GridSpaceBetweenVerticalLines write Set_GridSpaceBetweenVerticalLines;
  5001.     property GridOriginFromMargin: WordBool read Get_GridOriginFromMargin write Set_GridOriginFromMargin;
  5002.     property KerningByAlgorithm: WordBool read Get_KerningByAlgorithm write Set_KerningByAlgorithm;
  5003.     property JustificationMode: WdJustificationMode read Get_JustificationMode write Set_JustificationMode;
  5004.     property FarEastLineBreakLevel: WdFarEastLineBreakLevel read Get_FarEastLineBreakLevel write Set_FarEastLineBreakLevel;
  5005.     property NoLineBreakBefore: WideString read Get_NoLineBreakBefore write Set_NoLineBreakBefore;
  5006.     property NoLineBreakAfter: WideString read Get_NoLineBreakAfter write Set_NoLineBreakAfter;
  5007.     property TrackRevisions: WordBool read Get_TrackRevisions write Set_TrackRevisions;
  5008.     property PrintRevisions: WordBool read Get_PrintRevisions write Set_PrintRevisions;
  5009.     property ShowRevisions: WordBool read Get_ShowRevisions write Set_ShowRevisions;
  5010.   end;
  5011.  
  5012. // *********************************************************************//
  5013. // DispIntf:  _DocumentDisp
  5014. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  5015. // GUID:      {0002096B-0000-0000-C000-000000000046}
  5016. // *********************************************************************//
  5017.   _DocumentDisp = dispinterface
  5018.     ['{0002096B-0000-0000-C000-000000000046}']
  5019.     property Name: WideString readonly dispid 0;
  5020.     property Application: WordApplication readonly dispid 1;
  5021.     property Creator: Integer readonly dispid 1001;
  5022.     property Parent: IDispatch readonly dispid 1002;
  5023.     property BuiltInDocumentProperties: IDispatch readonly dispid 1000;
  5024.     property CustomDocumentProperties: IDispatch readonly dispid 2;
  5025.     property Path: WideString readonly dispid 3;
  5026.     property Bookmarks: Bookmarks readonly dispid 4;
  5027.     property Tables: Tables readonly dispid 6;
  5028.     property Footnotes: Footnotes readonly dispid 7;
  5029.     property Endnotes: Endnotes readonly dispid 8;
  5030.     property Comments: Comments readonly dispid 9;
  5031.     property Type_: WdDocumentType readonly dispid 10;
  5032.     property AutoHyphenation: WordBool dispid 11;
  5033.     property HyphenateCaps: WordBool dispid 12;
  5034.     property HyphenationZone: Integer dispid 13;
  5035.     property ConsecutiveHyphensLimit: Integer dispid 14;
  5036.     property Sections: Sections readonly dispid 15;
  5037.     property Paragraphs: Paragraphs readonly dispid 16;
  5038.     property Words: Words readonly dispid 17;
  5039.     property Sentences: Sentences readonly dispid 18;
  5040.     property Characters: Characters readonly dispid 19;
  5041.     property Fields: Fields readonly dispid 20;
  5042.     property FormFields: FormFields readonly dispid 21;
  5043.     property Styles: Styles readonly dispid 22;
  5044.     property Frames: Frames readonly dispid 23;
  5045.     property TablesOfFigures: TablesOfFigures readonly dispid 25;
  5046.     property Variables: Variables readonly dispid 26;
  5047.     property MailMerge: MailMerge readonly dispid 27;
  5048.     property Envelope: Envelope readonly dispid 28;
  5049.     property FullName: WideString readonly dispid 29;
  5050.     property Revisions: Revisions readonly dispid 30;
  5051.     property TablesOfContents: TablesOfContents readonly dispid 31;
  5052.     property TablesOfAuthorities: TablesOfAuthorities readonly dispid 32;
  5053.     property PageSetup: PageSetup dispid 1101;
  5054.     property Windows: Windows readonly dispid 34;
  5055.     property HasRoutingSlip: WordBool dispid 35;
  5056.     property RoutingSlip: RoutingSlip readonly dispid 36;
  5057.     property Routed: WordBool readonly dispid 37;
  5058.     property TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories readonly dispid 38;
  5059.     property Indexes: Indexes readonly dispid 39;
  5060.     property Saved: WordBool dispid 40;
  5061.     property Content: Range readonly dispid 41;
  5062.     property ActiveWindow: Window readonly dispid 42;
  5063.     property Kind: WdDocumentKind dispid 43;
  5064.     property ReadOnly: WordBool readonly dispid 44;
  5065.     property Subdocuments: Subdocuments readonly dispid 45;
  5066.     property IsMasterDocument: WordBool readonly dispid 46;
  5067.     property DefaultTabStop: Single dispid 48;
  5068.     property EmbedTrueTypeFonts: WordBool dispid 50;
  5069.     property SaveFormsData: WordBool dispid 51;
  5070.     property ReadOnlyRecommended: WordBool dispid 52;
  5071.     property SaveSubsetFonts: WordBool dispid 53;
  5072.     property Compatibility[Type_: WdCompatibility]: WordBool dispid 55;
  5073.     property StoryRanges: StoryRanges readonly dispid 56;
  5074.     property CommandBars: CommandBars readonly dispid 57;
  5075.     property IsSubdocument: WordBool readonly dispid 58;
  5076.     property SaveFormat: Integer readonly dispid 59;
  5077.     property ProtectionType: WdProtectionType readonly dispid 60;
  5078.     property Hyperlinks: Hyperlinks readonly dispid 61;
  5079.     property Shapes: Shapes readonly dispid 62;
  5080.     property ListTemplates: ListTemplates readonly dispid 63;
  5081.     property Lists: Lists readonly dispid 64;
  5082.     property UpdateStylesOnOpen: WordBool dispid 66;
  5083.     function  AttachedTemplate: OleVariant; dispid 67;
  5084.     property InlineShapes: InlineShapes readonly dispid 68;
  5085.     property Background: Shape dispid 69;
  5086.     property GrammarChecked: WordBool dispid 70;
  5087.     property SpellingChecked: WordBool dispid 71;
  5088.     property ShowGrammaticalErrors: WordBool dispid 72;
  5089.     property ShowSpellingErrors: WordBool dispid 73;
  5090.     property Versions: Versions readonly dispid 75;
  5091.     property ShowSummary: WordBool dispid 76;
  5092.     property SummaryViewMode: WdSummaryMode dispid 77;
  5093.     property SummaryLength: Integer dispid 78;
  5094.     property PrintFractionalWidths: WordBool dispid 79;
  5095.     property PrintPostScriptOverText: WordBool dispid 80;
  5096.     property Container: IDispatch readonly dispid 82;
  5097.     property PrintFormsData: WordBool dispid 83;
  5098.     property ListParagraphs: ListParagraphs readonly dispid 84;
  5099.     property Password: WideString writeonly dispid 85;
  5100.     property WritePassword: WideString writeonly dispid 86;
  5101.     property HasPassword: WordBool readonly dispid 87;
  5102.     property WriteReserved: WordBool readonly dispid 88;
  5103.     property ActiveWritingStyle[var LanguageID: OleVariant]: WideString dispid 90;
  5104.     property UserControl: WordBool dispid 92;
  5105.     property HasMailer: WordBool dispid 93;
  5106.     property Mailer: Mailer readonly dispid 94;
  5107.     property ReadabilityStatistics: ReadabilityStatistics readonly dispid 96;
  5108.     property GrammaticalErrors: ProofreadingErrors readonly dispid 97;
  5109.     property SpellingErrors: ProofreadingErrors readonly dispid 98;
  5110.     property VBProject: VBProject readonly dispid 99;
  5111.     property FormsDesign: WordBool readonly dispid 100;
  5112.     property _CodeName: WideString dispid -2147418112;
  5113.     property CodeName: WideString readonly dispid 262;
  5114.     property SnapToGrid: WordBool dispid 300;
  5115.     property SnapToShapes: WordBool dispid 301;
  5116.     property GridDistanceHorizontal: Single dispid 302;
  5117.     property GridDistanceVertical: Single dispid 303;
  5118.     property GridOriginHorizontal: Single dispid 304;
  5119.     property GridOriginVertical: Single dispid 305;
  5120.     property GridSpaceBetweenHorizontalLines: Integer dispid 306;
  5121.     property GridSpaceBetweenVerticalLines: Integer dispid 307;
  5122.     property GridOriginFromMargin: WordBool dispid 308;
  5123.     property KerningByAlgorithm: WordBool dispid 309;
  5124.     property JustificationMode: WdJustificationMode dispid 310;
  5125.     property FarEastLineBreakLevel: WdFarEastLineBreakLevel dispid 311;
  5126.     property NoLineBreakBefore: WideString dispid 312;
  5127.     property NoLineBreakAfter: WideString dispid 313;
  5128.     property TrackRevisions: WordBool dispid 314;
  5129.     property PrintRevisions: WordBool dispid 315;
  5130.     property ShowRevisions: WordBool dispid 316;
  5131.     procedure Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
  5132.                     var RouteDocument: OleVariant); dispid 1105;
  5133.     procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  5134.                      var LockComments: OleVariant; var Password: OleVariant; 
  5135.                      var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
  5136.                      var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
  5137.                      var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant; 
  5138.                      var SaveAsAOCELetter: OleVariant); dispid 102;
  5139.     procedure Repaginate; dispid 103;
  5140.     procedure FitToPages; dispid 104;
  5141.     procedure ManualHyphenation; dispid 105;
  5142.     procedure Select; dispid 65535;
  5143.     procedure DataForm; dispid 106;
  5144.     procedure Route; dispid 107;
  5145.     procedure Save; dispid 108;
  5146.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  5147.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  5148.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  5149.                        var PageType: OleVariant; var PrintToFile: OleVariant; 
  5150.                        var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
  5151.                        var ManualDuplexPrint: OleVariant); dispid 109;
  5152.     procedure SendMail; dispid 110;
  5153.     function  Range(var Start: OleVariant; var End_: OleVariant): Range; dispid 2000;
  5154.     procedure RunAutoMacro(Which: WdAutoMacros); dispid 112;
  5155.     procedure Activate; dispid 113;
  5156.     procedure PrintPreview; dispid 114;
  5157.     function  GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
  5158.                     var Name: OleVariant): Range; dispid 115;
  5159.     function  Undo(var Times: OleVariant): WordBool; dispid 116;
  5160.     function  Redo(var Times: OleVariant): WordBool; dispid 117;
  5161.     function  ComputeStatistics(Statistic: WdStatistic; var IncludeFootnotesAndEndnotes: OleVariant): Integer; dispid 118;
  5162.     procedure MakeCompatibilityDefault; dispid 119;
  5163.     procedure Protect(Type_: WdProtectionType; var NoReset: OleVariant; var Password: OleVariant); dispid 120;
  5164.     procedure Unprotect(var Password: OleVariant); dispid 121;
  5165.     procedure EditionOptions(Type_: WdEditionType; Option: WdEditionOption; const Name: WideString; 
  5166.                              var Format: OleVariant); dispid 122;
  5167.     procedure RunLetterWizard(var LetterContent: OleVariant; var WizardMode: OleVariant); dispid 123;
  5168.     function  GetLetterContent: WordLetterContent; dispid 124;
  5169.     procedure SetLetterContent(var LetterContent: OleVariant); dispid 125;
  5170.     procedure CopyStylesFromTemplate(const Template: WideString); dispid 126;
  5171.     procedure UpdateStyles; dispid 127;
  5172.     procedure CheckGrammar; dispid 131;
  5173.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  5174.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  5175.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  5176.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  5177.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  5178.                             var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); dispid 132;
  5179.     procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
  5180.                               var NewWindow: OleVariant; var AddHistory: OleVariant; 
  5181.                               var ExtraInfo: OleVariant; var Method: OleVariant; 
  5182.                               var HeaderInfo: OleVariant); dispid 135;
  5183.     procedure AddToFavorites; dispid 136;
  5184.     procedure Reload; dispid 137;
  5185.     function  AutoSummarize(var Length: OleVariant; var Mode: OleVariant; 
  5186.                             var UpdateProperties: OleVariant): Range; dispid 138;
  5187.     procedure RemoveNumbers(var NumberType: OleVariant); dispid 140;
  5188.     procedure ConvertNumbersToText(var NumberType: OleVariant); dispid 141;
  5189.     function  CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer; dispid 142;
  5190.     procedure Post; dispid 143;
  5191.     procedure ToggleFormsDesign; dispid 144;
  5192.     procedure Compare(const Name: WideString); dispid 145;
  5193.     procedure UpdateSummaryProperties; dispid 146;
  5194.     function  GetCrossReferenceItems(var ReferenceType: OleVariant): OleVariant; dispid 147;
  5195.     procedure AutoFormat; dispid 148;
  5196.     procedure ViewCode; dispid 149;
  5197.     procedure ViewPropertyBrowser; dispid 150;
  5198.     procedure ForwardMailer; dispid 250;
  5199.     procedure Reply; dispid 251;
  5200.     procedure ReplyAll; dispid 252;
  5201.     procedure SendMailer(var FileFormat: OleVariant; var Priority: OleVariant); dispid 253;
  5202.     procedure UndoClear; dispid 254;
  5203.     procedure PresentIt; dispid 255;
  5204.     procedure SendFax(const Address: WideString; var Subject: OleVariant); dispid 256;
  5205.     procedure Merge(const FileName: WideString); dispid 257;
  5206.     procedure ClosePrintPreview; dispid 258;
  5207.     procedure CheckConsistency; dispid 259;
  5208.     function  CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
  5209.                                   const PageDesign: WideString; LetterStyle: WdLetterStyle; 
  5210.                                   Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
  5211.                                   LetterheadSize: Single; const RecipientName: WideString; 
  5212.                                   const RecipientAddress: WideString; const Salutation: WideString; 
  5213.                                   SalutationType: WdSalutationType; 
  5214.                                   const RecipientReference: WideString; 
  5215.                                   const MailingInstructions: WideString; 
  5216.                                   const AttentionLine: WideString; const Subject: WideString; 
  5217.                                   const CCList: WideString; const ReturnAddress: WideString; 
  5218.                                   const SenderName: WideString; const Closing: WideString; 
  5219.                                   const SenderCompany: WideString; 
  5220.                                   const SenderJobTitle: WideString; 
  5221.                                   const SenderInitials: WideString; EnclosureNumber: Integer; 
  5222.                                   var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
  5223.                                   var RecipientGender: OleVariant; 
  5224.                                   var ReturnAddressShortForm: OleVariant; 
  5225.                                   var SenderCity: OleVariant; var SenderCode: OleVariant; 
  5226.                                   var SenderGender: OleVariant; var SenderReference: OleVariant): WordLetterContent; dispid 260;
  5227.     procedure AcceptAllRevisions; dispid 317;
  5228.     procedure RejectAllRevisions; dispid 318;
  5229.   end;
  5230.  
  5231. // *********************************************************************//
  5232. // Interface: Template
  5233. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5234. // GUID:      {0002096A-0000-0000-C000-000000000046}
  5235. // *********************************************************************//
  5236.   Template = interface(IDispatch)
  5237.     ['{0002096A-0000-0000-C000-000000000046}']
  5238.     function  Get_Name: WideString; safecall;
  5239.     function  Get_Application: WordApplication; safecall;
  5240.     function  Get_Creator: Integer; safecall;
  5241.     function  Get_Parent: IDispatch; safecall;
  5242.     function  Get_Path: WideString; safecall;
  5243.     function  Get_AutoTextEntries: AutoTextEntries; safecall;
  5244.     function  Get_LanguageID: WdLanguageID; safecall;
  5245.     procedure Set_LanguageID(prop: WdLanguageID); safecall;
  5246.     function  Get_Saved: WordBool; safecall;
  5247.     procedure Set_Saved(prop: WordBool); safecall;
  5248.     function  Get_Type_: WdTemplateType; safecall;
  5249.     function  Get_FullName: WideString; safecall;
  5250.     function  Get_BuiltInDocumentProperties: IDispatch; safecall;
  5251.     function  Get_CustomDocumentProperties: IDispatch; safecall;
  5252.     function  Get_ListTemplates: ListTemplates; safecall;
  5253.     function  Get_LanguageIDFarEast: WdLanguageID; safecall;
  5254.     procedure Set_LanguageIDFarEast(prop: WdLanguageID); safecall;
  5255.     function  Get_VBProject: VBProject; safecall;
  5256.     function  Get_KerningByAlgorithm: WordBool; safecall;
  5257.     procedure Set_KerningByAlgorithm(prop: WordBool); safecall;
  5258.     function  Get_JustificationMode: WdJustificationMode; safecall;
  5259.     procedure Set_JustificationMode(prop: WdJustificationMode); safecall;
  5260.     function  Get_FarEastLineBreakLevel: WdFarEastLineBreakLevel; safecall;
  5261.     procedure Set_FarEastLineBreakLevel(prop: WdFarEastLineBreakLevel); safecall;
  5262.     function  Get_NoLineBreakBefore: WideString; safecall;
  5263.     procedure Set_NoLineBreakBefore(const prop: WideString); safecall;
  5264.     function  Get_NoLineBreakAfter: WideString; safecall;
  5265.     procedure Set_NoLineBreakAfter(const prop: WideString); safecall;
  5266.     function  OpenAsDocument: WordDocument; safecall;
  5267.     procedure Save; safecall;
  5268.     property Name: WideString read Get_Name;
  5269.     property Application: WordApplication read Get_Application;
  5270.     property Creator: Integer read Get_Creator;
  5271.     property Parent: IDispatch read Get_Parent;
  5272.     property Path: WideString read Get_Path;
  5273.     property AutoTextEntries: AutoTextEntries read Get_AutoTextEntries;
  5274.     property LanguageID: WdLanguageID read Get_LanguageID write Set_LanguageID;
  5275.     property Saved: WordBool read Get_Saved write Set_Saved;
  5276.     property Type_: WdTemplateType read Get_Type_;
  5277.     property FullName: WideString read Get_FullName;
  5278.     property BuiltInDocumentProperties: IDispatch read Get_BuiltInDocumentProperties;
  5279.     property CustomDocumentProperties: IDispatch read Get_CustomDocumentProperties;
  5280.     property ListTemplates: ListTemplates read Get_ListTemplates;
  5281.     property LanguageIDFarEast: WdLanguageID read Get_LanguageIDFarEast write Set_LanguageIDFarEast;
  5282.     property VBProject: VBProject read Get_VBProject;
  5283.     property KerningByAlgorithm: WordBool read Get_KerningByAlgorithm write Set_KerningByAlgorithm;
  5284.     property JustificationMode: WdJustificationMode read Get_JustificationMode write Set_JustificationMode;
  5285.     property FarEastLineBreakLevel: WdFarEastLineBreakLevel read Get_FarEastLineBreakLevel write Set_FarEastLineBreakLevel;
  5286.     property NoLineBreakBefore: WideString read Get_NoLineBreakBefore write Set_NoLineBreakBefore;
  5287.     property NoLineBreakAfter: WideString read Get_NoLineBreakAfter write Set_NoLineBreakAfter;
  5288.   end;
  5289.  
  5290. // *********************************************************************//
  5291. // DispIntf:  TemplateDisp
  5292. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5293. // GUID:      {0002096A-0000-0000-C000-000000000046}
  5294. // *********************************************************************//
  5295.   TemplateDisp = dispinterface
  5296.     ['{0002096A-0000-0000-C000-000000000046}']
  5297.     property Name: WideString readonly dispid 0;
  5298.     property Application: WordApplication readonly dispid 1000;
  5299.     property Creator: Integer readonly dispid 1001;
  5300.     property Parent: IDispatch readonly dispid 1002;
  5301.     property Path: WideString readonly dispid 1;
  5302.     property AutoTextEntries: AutoTextEntries readonly dispid 2;
  5303.     property LanguageID: WdLanguageID dispid 4;
  5304.     property Saved: WordBool dispid 5;
  5305.     property Type_: WdTemplateType readonly dispid 6;
  5306.     property FullName: WideString readonly dispid 7;
  5307.     property BuiltInDocumentProperties: IDispatch readonly dispid 8;
  5308.     property CustomDocumentProperties: IDispatch readonly dispid 9;
  5309.     property ListTemplates: ListTemplates readonly dispid 10;
  5310.     property LanguageIDFarEast: WdLanguageID dispid 11;
  5311.     property VBProject: VBProject readonly dispid 99;
  5312.     property KerningByAlgorithm: WordBool dispid 12;
  5313.     property JustificationMode: WdJustificationMode dispid 13;
  5314.     property FarEastLineBreakLevel: WdFarEastLineBreakLevel dispid 14;
  5315.     property NoLineBreakBefore: WideString dispid 15;
  5316.     property NoLineBreakAfter: WideString dispid 16;
  5317.     function  OpenAsDocument: WordDocument; dispid 100;
  5318.     procedure Save; dispid 101;
  5319.   end;
  5320.  
  5321. // *********************************************************************//
  5322. // Interface: Templates
  5323. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5324. // GUID:      {000209A2-0000-0000-C000-000000000046}
  5325. // *********************************************************************//
  5326.   Templates = interface(IDispatch)
  5327.     ['{000209A2-0000-0000-C000-000000000046}']
  5328.     function  Get_Application: WordApplication; safecall;
  5329.     function  Get_Creator: Integer; safecall;
  5330.     function  Get_Parent: IDispatch; safecall;
  5331.     function  Get_Count: Integer; safecall;
  5332.     function  Get__NewEnum: IUnknown; safecall;
  5333.     function  Item(var Index: OleVariant): Template; safecall;
  5334.     property Application: WordApplication read Get_Application;
  5335.     property Creator: Integer read Get_Creator;
  5336.     property Parent: IDispatch read Get_Parent;
  5337.     property Count: Integer read Get_Count;
  5338.     property _NewEnum: IUnknown read Get__NewEnum;
  5339.   end;
  5340.  
  5341. // *********************************************************************//
  5342. // DispIntf:  TemplatesDisp
  5343. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5344. // GUID:      {000209A2-0000-0000-C000-000000000046}
  5345. // *********************************************************************//
  5346.   TemplatesDisp = dispinterface
  5347.     ['{000209A2-0000-0000-C000-000000000046}']
  5348.     property Application: WordApplication readonly dispid 1000;
  5349.     property Creator: Integer readonly dispid 1001;
  5350.     property Parent: IDispatch readonly dispid 1002;
  5351.     property Count: Integer readonly dispid 1;
  5352.     property _NewEnum: IUnknown readonly dispid -4;
  5353.     function  Item(var Index: OleVariant): Template; dispid 0;
  5354.   end;
  5355.  
  5356. // *********************************************************************//
  5357. // Interface: RoutingSlip
  5358. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5359. // GUID:      {00020969-0000-0000-C000-000000000046}
  5360. // *********************************************************************//
  5361.   RoutingSlip = interface(IDispatch)
  5362.     ['{00020969-0000-0000-C000-000000000046}']
  5363.     function  Get_Application: WordApplication; safecall;
  5364.     function  Get_Creator: Integer; safecall;
  5365.     function  Get_Parent: IDispatch; safecall;
  5366.     function  Get_Subject: WideString; safecall;
  5367.     procedure Set_Subject(const prop: WideString); safecall;
  5368.     function  Get_Message: WideString; safecall;
  5369.     procedure Set_Message(const prop: WideString); safecall;
  5370.     function  Get_Delivery: WdRoutingSlipDelivery; safecall;
  5371.     procedure Set_Delivery(prop: WdRoutingSlipDelivery); safecall;
  5372.     function  Get_TrackStatus: WordBool; safecall;
  5373.     procedure Set_TrackStatus(prop: WordBool); safecall;
  5374.     function  Get_Protect: WdProtectionType; safecall;
  5375.     procedure Set_Protect(prop: WdProtectionType); safecall;
  5376.     function  Get_ReturnWhenDone: WordBool; safecall;
  5377.     procedure Set_ReturnWhenDone(prop: WordBool); safecall;
  5378.     function  Get_Status: WdRoutingSlipStatus; safecall;
  5379.     function  Get_Recipients(var Index: OleVariant): OleVariant; safecall;
  5380.     procedure Reset; safecall;
  5381.     procedure AddRecipient(const Recipient: WideString); safecall;
  5382.     property Application: WordApplication read Get_Application;
  5383.     property Creator: Integer read Get_Creator;
  5384.     property Parent: IDispatch read Get_Parent;
  5385.     property Subject: WideString read Get_Subject write Set_Subject;
  5386.     property Message: WideString read Get_Message write Set_Message;
  5387.     property Delivery: WdRoutingSlipDelivery read Get_Delivery write Set_Delivery;
  5388.     property TrackStatus: WordBool read Get_TrackStatus write Set_TrackStatus;
  5389.     property Protect: WdProtectionType read Get_Protect write Set_Protect;
  5390.     property ReturnWhenDone: WordBool read Get_ReturnWhenDone write Set_ReturnWhenDone;
  5391.     property Status: WdRoutingSlipStatus read Get_Status;
  5392.     property Recipients[var Index: OleVariant]: OleVariant read Get_Recipients;
  5393.   end;
  5394.  
  5395. // *********************************************************************//
  5396. // DispIntf:  RoutingSlipDisp
  5397. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5398. // GUID:      {00020969-0000-0000-C000-000000000046}
  5399. // *********************************************************************//
  5400.   RoutingSlipDisp = dispinterface
  5401.     ['{00020969-0000-0000-C000-000000000046}']
  5402.     property Application: WordApplication readonly dispid 1000;
  5403.     property Creator: Integer readonly dispid 1001;
  5404.     property Parent: IDispatch readonly dispid 1002;
  5405.     property Subject: WideString dispid 1;
  5406.     property Message: WideString dispid 2;
  5407.     property Delivery: WdRoutingSlipDelivery dispid 3;
  5408.     property TrackStatus: WordBool dispid 4;
  5409.     property Protect: WdProtectionType dispid 5;
  5410.     property ReturnWhenDone: WordBool dispid 6;
  5411.     property Status: WdRoutingSlipStatus readonly dispid 7;
  5412.     property Recipients[var Index: OleVariant]: OleVariant readonly dispid 9;
  5413.     procedure Reset; dispid 101;
  5414.     procedure AddRecipient(const Recipient: WideString); dispid 102;
  5415.   end;
  5416.  
  5417. // *********************************************************************//
  5418. // Interface: Bookmark
  5419. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5420. // GUID:      {00020968-0000-0000-C000-000000000046}
  5421. // *********************************************************************//
  5422.   Bookmark = interface(IDispatch)
  5423.     ['{00020968-0000-0000-C000-000000000046}']
  5424.     function  Get_Name: WideString; safecall;
  5425.     function  Get_Range: Range; safecall;
  5426.     function  Get_Empty: WordBool; safecall;
  5427.     function  Get_Start: Integer; safecall;
  5428.     procedure Set_Start(prop: Integer); safecall;
  5429.     function  Get_End_: Integer; safecall;
  5430.     procedure Set_End_(prop: Integer); safecall;
  5431.     function  Get_Column: WordBool; safecall;
  5432.     function  Get_StoryType: WdStoryType; safecall;
  5433.     function  Get_Application: WordApplication; safecall;
  5434.     function  Get_Creator: Integer; safecall;
  5435.     function  Get_Parent: IDispatch; safecall;
  5436.     procedure Select; safecall;
  5437.     procedure Delete; safecall;
  5438.     function  Copy(const Name: WideString): Bookmark; safecall;
  5439.     property Name: WideString read Get_Name;
  5440.     property Range: Range read Get_Range;
  5441.     property Empty: WordBool read Get_Empty;
  5442.     property Start: Integer read Get_Start write Set_Start;
  5443.     property End_: Integer read Get_End_ write Set_End_;
  5444.     property Column: WordBool read Get_Column;
  5445.     property StoryType: WdStoryType read Get_StoryType;
  5446.     property Application: WordApplication read Get_Application;
  5447.     property Creator: Integer read Get_Creator;
  5448.     property Parent: IDispatch read Get_Parent;
  5449.   end;
  5450.  
  5451. // *********************************************************************//
  5452. // DispIntf:  BookmarkDisp
  5453. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5454. // GUID:      {00020968-0000-0000-C000-000000000046}
  5455. // *********************************************************************//
  5456.   BookmarkDisp = dispinterface
  5457.     ['{00020968-0000-0000-C000-000000000046}']
  5458.     property Name: WideString readonly dispid 0;
  5459.     property Range: Range readonly dispid 1;
  5460.     property Empty: WordBool readonly dispid 2;
  5461.     property Start: Integer dispid 3;
  5462.     property End_: Integer dispid 4;
  5463.     property Column: WordBool readonly dispid 5;
  5464.     property StoryType: WdStoryType readonly dispid 6;
  5465.     property Application: WordApplication readonly dispid 1000;
  5466.     property Creator: Integer readonly dispid 1001;
  5467.     property Parent: IDispatch readonly dispid 1002;
  5468.     procedure Select; dispid 65535;
  5469.     procedure Delete; dispid 11;
  5470.     function  Copy(const Name: WideString): Bookmark; dispid 12;
  5471.   end;
  5472.  
  5473. // *********************************************************************//
  5474. // Interface: Bookmarks
  5475. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5476. // GUID:      {00020967-0000-0000-C000-000000000046}
  5477. // *********************************************************************//
  5478.   Bookmarks = interface(IDispatch)
  5479.     ['{00020967-0000-0000-C000-000000000046}']
  5480.     function  Get__NewEnum: IUnknown; safecall;
  5481.     function  Get_Count: Integer; safecall;
  5482.     function  Get_DefaultSorting: WdBookmarkSortBy; safecall;
  5483.     procedure Set_DefaultSorting(prop: WdBookmarkSortBy); safecall;
  5484.     function  Get_ShowHidden: WordBool; safecall;
  5485.     procedure Set_ShowHidden(prop: WordBool); safecall;
  5486.     function  Get_Application: WordApplication; safecall;
  5487.     function  Get_Creator: Integer; safecall;
  5488.     function  Get_Parent: IDispatch; safecall;
  5489.     function  Item(var Index: OleVariant): Bookmark; safecall;
  5490.     function  Add(const Name: WideString; var Range: OleVariant): Bookmark; safecall;
  5491.     function  Exists(const Name: WideString): WordBool; safecall;
  5492.     property _NewEnum: IUnknown read Get__NewEnum;
  5493.     property Count: Integer read Get_Count;
  5494.     property DefaultSorting: WdBookmarkSortBy read Get_DefaultSorting write Set_DefaultSorting;
  5495.     property ShowHidden: WordBool read Get_ShowHidden write Set_ShowHidden;
  5496.     property Application: WordApplication read Get_Application;
  5497.     property Creator: Integer read Get_Creator;
  5498.     property Parent: IDispatch read Get_Parent;
  5499.   end;
  5500.  
  5501. // *********************************************************************//
  5502. // DispIntf:  BookmarksDisp
  5503. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5504. // GUID:      {00020967-0000-0000-C000-000000000046}
  5505. // *********************************************************************//
  5506.   BookmarksDisp = dispinterface
  5507.     ['{00020967-0000-0000-C000-000000000046}']
  5508.     property _NewEnum: IUnknown readonly dispid -4;
  5509.     property Count: Integer readonly dispid 2;
  5510.     property DefaultSorting: WdBookmarkSortBy dispid 3;
  5511.     property ShowHidden: WordBool dispid 4;
  5512.     property Application: WordApplication readonly dispid 1000;
  5513.     property Creator: Integer readonly dispid 1001;
  5514.     property Parent: IDispatch readonly dispid 1002;
  5515.     function  Item(var Index: OleVariant): Bookmark; dispid 0;
  5516.     function  Add(const Name: WideString; var Range: OleVariant): Bookmark; dispid 5;
  5517.     function  Exists(const Name: WideString): WordBool; dispid 6;
  5518.   end;
  5519.  
  5520. // *********************************************************************//
  5521. // Interface: Variable
  5522. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5523. // GUID:      {00020966-0000-0000-C000-000000000046}
  5524. // *********************************************************************//
  5525.   Variable = interface(IDispatch)
  5526.     ['{00020966-0000-0000-C000-000000000046}']
  5527.     function  Get_Application: WordApplication; safecall;
  5528.     function  Get_Creator: Integer; safecall;
  5529.     function  Get_Parent: IDispatch; safecall;
  5530.     function  Get_Name: WideString; safecall;
  5531.     function  Get_Value: WideString; safecall;
  5532.     procedure Set_Value(const prop: WideString); safecall;
  5533.     function  Get_Index: Integer; safecall;
  5534.     procedure Delete; safecall;
  5535.     property Application: WordApplication read Get_Application;
  5536.     property Creator: Integer read Get_Creator;
  5537.     property Parent: IDispatch read Get_Parent;
  5538.     property Name: WideString read Get_Name;
  5539.     property Value: WideString read Get_Value write Set_Value;
  5540.     property Index: Integer read Get_Index;
  5541.   end;
  5542.  
  5543. // *********************************************************************//
  5544. // DispIntf:  VariableDisp
  5545. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5546. // GUID:      {00020966-0000-0000-C000-000000000046}
  5547. // *********************************************************************//
  5548.   VariableDisp = dispinterface
  5549.     ['{00020966-0000-0000-C000-000000000046}']
  5550.     property Application: WordApplication readonly dispid 1000;
  5551.     property Creator: Integer readonly dispid 1001;
  5552.     property Parent: IDispatch readonly dispid 1002;
  5553.     property Name: WideString readonly dispid 1;
  5554.     property Value: WideString dispid 0;
  5555.     property Index: Integer readonly dispid 2;
  5556.     procedure Delete; dispid 11;
  5557.   end;
  5558.  
  5559. // *********************************************************************//
  5560. // Interface: Variables
  5561. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5562. // GUID:      {00020965-0000-0000-C000-000000000046}
  5563. // *********************************************************************//
  5564.   Variables = interface(IDispatch)
  5565.     ['{00020965-0000-0000-C000-000000000046}']
  5566.     function  Get__NewEnum: IUnknown; safecall;
  5567.     function  Get_Count: Integer; safecall;
  5568.     function  Get_Application: WordApplication; safecall;
  5569.     function  Get_Creator: Integer; safecall;
  5570.     function  Get_Parent: IDispatch; safecall;
  5571.     function  Item(var Index: OleVariant): Variable; safecall;
  5572.     function  Add(const Name: WideString; var Value: OleVariant): Variable; safecall;
  5573.     property _NewEnum: IUnknown read Get__NewEnum;
  5574.     property Count: Integer read Get_Count;
  5575.     property Application: WordApplication read Get_Application;
  5576.     property Creator: Integer read Get_Creator;
  5577.     property Parent: IDispatch read Get_Parent;
  5578.   end;
  5579.  
  5580. // *********************************************************************//
  5581. // DispIntf:  VariablesDisp
  5582. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5583. // GUID:      {00020965-0000-0000-C000-000000000046}
  5584. // *********************************************************************//
  5585.   VariablesDisp = dispinterface
  5586.     ['{00020965-0000-0000-C000-000000000046}']
  5587.     property _NewEnum: IUnknown readonly dispid -4;
  5588.     property Count: Integer readonly dispid 2;
  5589.     property Application: WordApplication readonly dispid 1000;
  5590.     property Creator: Integer readonly dispid 1001;
  5591.     property Parent: IDispatch readonly dispid 1002;
  5592.     function  Item(var Index: OleVariant): Variable; dispid 0;
  5593.     function  Add(const Name: WideString; var Value: OleVariant): Variable; dispid 7;
  5594.   end;
  5595.  
  5596. // *********************************************************************//
  5597. // Interface: RecentFile
  5598. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5599. // GUID:      {00020964-0000-0000-C000-000000000046}
  5600. // *********************************************************************//
  5601.   RecentFile = interface(IDispatch)
  5602.     ['{00020964-0000-0000-C000-000000000046}']
  5603.     function  Get_Application: WordApplication; safecall;
  5604.     function  Get_Creator: Integer; safecall;
  5605.     function  Get_Parent: IDispatch; safecall;
  5606.     function  Get_Name: WideString; safecall;
  5607.     function  Get_Index: Integer; safecall;
  5608.     function  Get_ReadOnly: WordBool; safecall;
  5609.     procedure Set_ReadOnly(prop: WordBool); safecall;
  5610.     function  Get_Path: WideString; safecall;
  5611.     function  Open: WordDocument; safecall;
  5612.     procedure Delete; safecall;
  5613.     property Application: WordApplication read Get_Application;
  5614.     property Creator: Integer read Get_Creator;
  5615.     property Parent: IDispatch read Get_Parent;
  5616.     property Name: WideString read Get_Name;
  5617.     property Index: Integer read Get_Index;
  5618.     property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
  5619.     property Path: WideString read Get_Path;
  5620.   end;
  5621.  
  5622. // *********************************************************************//
  5623. // DispIntf:  RecentFileDisp
  5624. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5625. // GUID:      {00020964-0000-0000-C000-000000000046}
  5626. // *********************************************************************//
  5627.   RecentFileDisp = dispinterface
  5628.     ['{00020964-0000-0000-C000-000000000046}']
  5629.     property Application: WordApplication readonly dispid 1000;
  5630.     property Creator: Integer readonly dispid 1001;
  5631.     property Parent: IDispatch readonly dispid 1002;
  5632.     property Name: WideString readonly dispid 0;
  5633.     property Index: Integer readonly dispid 1;
  5634.     property ReadOnly: WordBool dispid 2;
  5635.     property Path: WideString readonly dispid 3;
  5636.     function  Open: WordDocument; dispid 4;
  5637.     procedure Delete; dispid 5;
  5638.   end;
  5639.  
  5640. // *********************************************************************//
  5641. // Interface: RecentFiles
  5642. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5643. // GUID:      {00020963-0000-0000-C000-000000000046}
  5644. // *********************************************************************//
  5645.   RecentFiles = interface(IDispatch)
  5646.     ['{00020963-0000-0000-C000-000000000046}']
  5647.     function  Get_Application: WordApplication; safecall;
  5648.     function  Get_Creator: Integer; safecall;
  5649.     function  Get_Parent: IDispatch; safecall;
  5650.     function  Get__NewEnum: IUnknown; safecall;
  5651.     function  Get_Count: Integer; safecall;
  5652.     function  Get_Maximum: Integer; safecall;
  5653.     procedure Set_Maximum(prop: Integer); safecall;
  5654.     function  Item(Index: Integer): RecentFile; safecall;
  5655.     function  Add(var Document: OleVariant; var ReadOnly: OleVariant): RecentFile; safecall;
  5656.     property Application: WordApplication read Get_Application;
  5657.     property Creator: Integer read Get_Creator;
  5658.     property Parent: IDispatch read Get_Parent;
  5659.     property _NewEnum: IUnknown read Get__NewEnum;
  5660.     property Count: Integer read Get_Count;
  5661.     property Maximum: Integer read Get_Maximum write Set_Maximum;
  5662.   end;
  5663.  
  5664. // *********************************************************************//
  5665. // DispIntf:  RecentFilesDisp
  5666. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5667. // GUID:      {00020963-0000-0000-C000-000000000046}
  5668. // *********************************************************************//
  5669.   RecentFilesDisp = dispinterface
  5670.     ['{00020963-0000-0000-C000-000000000046}']
  5671.     property Application: WordApplication readonly dispid 1000;
  5672.     property Creator: Integer readonly dispid 1001;
  5673.     property Parent: IDispatch readonly dispid 1002;
  5674.     property _NewEnum: IUnknown readonly dispid -4;
  5675.     property Count: Integer readonly dispid 1;
  5676.     property Maximum: Integer dispid 2;
  5677.     function  Item(Index: Integer): RecentFile; dispid 0;
  5678.     function  Add(var Document: OleVariant; var ReadOnly: OleVariant): RecentFile; dispid 3;
  5679.   end;
  5680.  
  5681. // *********************************************************************//
  5682. // Interface: Window
  5683. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5684. // GUID:      {00020962-0000-0000-C000-000000000046}
  5685. // *********************************************************************//
  5686.   Window = interface(IDispatch)
  5687.     ['{00020962-0000-0000-C000-000000000046}']
  5688.     function  Get_Application: WordApplication; safecall;
  5689.     function  Get_Creator: Integer; safecall;
  5690.     function  Get_Parent: IDispatch; safecall;
  5691.     function  Get_ActivePane: Pane; safecall;
  5692.     function  Get_Document: WordDocument; safecall;
  5693.     function  Get_Panes: Panes; safecall;
  5694.     function  Get_Selection: Selection; safecall;
  5695.     function  Get_Left: Integer; safecall;
  5696.     procedure Set_Left(prop: Integer); safecall;
  5697.     function  Get_Top: Integer; safecall;
  5698.     procedure Set_Top(prop: Integer); safecall;
  5699.     function  Get_Width: Integer; safecall;
  5700.     procedure Set_Width(prop: Integer); safecall;
  5701.     function  Get_Height: Integer; safecall;
  5702.     procedure Set_Height(prop: Integer); safecall;
  5703.     function  Get_Split: WordBool; safecall;
  5704.     procedure Set_Split(prop: WordBool); safecall;
  5705.     function  Get_SplitVertical: Integer; safecall;
  5706.     procedure Set_SplitVertical(prop: Integer); safecall;
  5707.     function  Get_Caption: WideString; safecall;
  5708.     procedure Set_Caption(const prop: WideString); safecall;
  5709.     function  Get_WindowState: WdWindowState; safecall;
  5710.     procedure Set_WindowState(prop: WdWindowState); safecall;
  5711.     function  Get_DisplayRulers: WordBool; safecall;
  5712.     procedure Set_DisplayRulers(prop: WordBool); safecall;
  5713.     function  Get_DisplayVerticalRuler: WordBool; safecall;
  5714.     procedure Set_DisplayVerticalRuler(prop: WordBool); safecall;
  5715.     function  Get_View: View; safecall;
  5716.     function  Get_Type_: WdWindowType; safecall;
  5717.     function  Get_Next: Window; safecall;
  5718.     function  Get_Previous: Window; safecall;
  5719.     function  Get_WindowNumber: Integer; safecall;
  5720.     function  Get_DisplayVerticalScrollBar: WordBool; safecall;
  5721.     procedure Set_DisplayVerticalScrollBar(prop: WordBool); safecall;
  5722.     function  Get_DisplayHorizontalScrollBar: WordBool; safecall;
  5723.     procedure Set_DisplayHorizontalScrollBar(prop: WordBool); safecall;
  5724.     function  Get_StyleAreaWidth: Single; safecall;
  5725.     procedure Set_StyleAreaWidth(prop: Single); safecall;
  5726.     function  Get_DisplayScreenTips: WordBool; safecall;
  5727.     procedure Set_DisplayScreenTips(prop: WordBool); safecall;
  5728.     function  Get_HorizontalPercentScrolled: Integer; safecall;
  5729.     procedure Set_HorizontalPercentScrolled(prop: Integer); safecall;
  5730.     function  Get_VerticalPercentScrolled: Integer; safecall;
  5731.     procedure Set_VerticalPercentScrolled(prop: Integer); safecall;
  5732.     function  Get_DocumentMap: WordBool; safecall;
  5733.     procedure Set_DocumentMap(prop: WordBool); safecall;
  5734.     function  Get_Active: WordBool; safecall;
  5735.     function  Get_DocumentMapPercentWidth: Integer; safecall;
  5736.     procedure Set_DocumentMapPercentWidth(prop: Integer); safecall;
  5737.     function  Get_Index: Integer; safecall;
  5738.     function  Get_IMEMode: WdIMEMode; safecall;
  5739.     procedure Set_IMEMode(prop: WdIMEMode); safecall;
  5740.     procedure Activate; safecall;
  5741.     procedure Close(var SaveChanges: OleVariant; var RouteDocument: OleVariant); safecall;
  5742.     procedure LargeScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
  5743.                           var ToLeft: OleVariant); safecall;
  5744.     procedure SmallScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
  5745.                           var ToLeft: OleVariant); safecall;
  5746.     function  NewWindow: Window; safecall;
  5747.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  5748.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  5749.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  5750.                        var PageType: OleVariant; var PrintToFile: OleVariant; 
  5751.                        var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
  5752.                        var ManualDuplexPrint: OleVariant); safecall;
  5753.     procedure PageScroll(var Down: OleVariant; var Up: OleVariant); safecall;
  5754.     property Application: WordApplication read Get_Application;
  5755.     property Creator: Integer read Get_Creator;
  5756.     property Parent: IDispatch read Get_Parent;
  5757.     property ActivePane: Pane read Get_ActivePane;
  5758.     property Document: WordDocument read Get_Document;
  5759.     property Panes: Panes read Get_Panes;
  5760.     property Selection: Selection read Get_Selection;
  5761.     property Left: Integer read Get_Left write Set_Left;
  5762.     property Top: Integer read Get_Top write Set_Top;
  5763.     property Width: Integer read Get_Width write Set_Width;
  5764.     property Height: Integer read Get_Height write Set_Height;
  5765.     property Split: WordBool read Get_Split write Set_Split;
  5766.     property SplitVertical: Integer read Get_SplitVertical write Set_SplitVertical;
  5767.     property Caption: WideString read Get_Caption write Set_Caption;
  5768.     property WindowState: WdWindowState read Get_WindowState write Set_WindowState;
  5769.     property DisplayRulers: WordBool read Get_DisplayRulers write Set_DisplayRulers;
  5770.     property DisplayVerticalRuler: WordBool read Get_DisplayVerticalRuler write Set_DisplayVerticalRuler;
  5771.     property View: View read Get_View;
  5772.     property Type_: WdWindowType read Get_Type_;
  5773.     property Next: Window read Get_Next;
  5774.     property Previous: Window read Get_Previous;
  5775.     property WindowNumber: Integer read Get_WindowNumber;
  5776.     property DisplayVerticalScrollBar: WordBool read Get_DisplayVerticalScrollBar write Set_DisplayVerticalScrollBar;
  5777.     property DisplayHorizontalScrollBar: WordBool read Get_DisplayHorizontalScrollBar write Set_DisplayHorizontalScrollBar;
  5778.     property StyleAreaWidth: Single read Get_StyleAreaWidth write Set_StyleAreaWidth;
  5779.     property DisplayScreenTips: WordBool read Get_DisplayScreenTips write Set_DisplayScreenTips;
  5780.     property HorizontalPercentScrolled: Integer read Get_HorizontalPercentScrolled write Set_HorizontalPercentScrolled;
  5781.     property VerticalPercentScrolled: Integer read Get_VerticalPercentScrolled write Set_VerticalPercentScrolled;
  5782.     property DocumentMap: WordBool read Get_DocumentMap write Set_DocumentMap;
  5783.     property Active: WordBool read Get_Active;
  5784.     property DocumentMapPercentWidth: Integer read Get_DocumentMapPercentWidth write Set_DocumentMapPercentWidth;
  5785.     property Index: Integer read Get_Index;
  5786.     property IMEMode: WdIMEMode read Get_IMEMode write Set_IMEMode;
  5787.   end;
  5788.  
  5789. // *********************************************************************//
  5790. // DispIntf:  WindowDisp
  5791. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5792. // GUID:      {00020962-0000-0000-C000-000000000046}
  5793. // *********************************************************************//
  5794.   WindowDisp = dispinterface
  5795.     ['{00020962-0000-0000-C000-000000000046}']
  5796.     property Application: WordApplication readonly dispid 1000;
  5797.     property Creator: Integer readonly dispid 1001;
  5798.     property Parent: IDispatch readonly dispid 1002;
  5799.     property ActivePane: Pane readonly dispid 1;
  5800.     property Document: WordDocument readonly dispid 2;
  5801.     property Panes: Panes readonly dispid 3;
  5802.     property Selection: Selection readonly dispid 4;
  5803.     property Left: Integer dispid 5;
  5804.     property Top: Integer dispid 6;
  5805.     property Width: Integer dispid 7;
  5806.     property Height: Integer dispid 8;
  5807.     property Split: WordBool dispid 9;
  5808.     property SplitVertical: Integer dispid 10;
  5809.     property Caption: WideString dispid 0;
  5810.     property WindowState: WdWindowState dispid 11;
  5811.     property DisplayRulers: WordBool dispid 12;
  5812.     property DisplayVerticalRuler: WordBool dispid 13;
  5813.     property View: View readonly dispid 14;
  5814.     property Type_: WdWindowType readonly dispid 15;
  5815.     property Next: Window readonly dispid 16;
  5816.     property Previous: Window readonly dispid 17;
  5817.     property WindowNumber: Integer readonly dispid 18;
  5818.     property DisplayVerticalScrollBar: WordBool dispid 19;
  5819.     property DisplayHorizontalScrollBar: WordBool dispid 20;
  5820.     property StyleAreaWidth: Single dispid 21;
  5821.     property DisplayScreenTips: WordBool dispid 22;
  5822.     property HorizontalPercentScrolled: Integer dispid 23;
  5823.     property VerticalPercentScrolled: Integer dispid 24;
  5824.     property DocumentMap: WordBool dispid 25;
  5825.     property Active: WordBool readonly dispid 26;
  5826.     property DocumentMapPercentWidth: Integer dispid 27;
  5827.     property Index: Integer readonly dispid 28;
  5828.     property IMEMode: WdIMEMode dispid 30;
  5829.     procedure Activate; dispid 100;
  5830.     procedure Close(var SaveChanges: OleVariant; var RouteDocument: OleVariant); dispid 102;
  5831.     procedure LargeScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
  5832.                           var ToLeft: OleVariant); dispid 103;
  5833.     procedure SmallScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
  5834.                           var ToLeft: OleVariant); dispid 104;
  5835.     function  NewWindow: Window; dispid 105;
  5836.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  5837.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  5838.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  5839.                        var PageType: OleVariant; var PrintToFile: OleVariant; 
  5840.                        var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
  5841.                        var ManualDuplexPrint: OleVariant); dispid 107;
  5842.     procedure PageScroll(var Down: OleVariant; var Up: OleVariant); dispid 108;
  5843.   end;
  5844.  
  5845. // *********************************************************************//
  5846. // Interface: Windows
  5847. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5848. // GUID:      {00020961-0000-0000-C000-000000000046}
  5849. // *********************************************************************//
  5850.   Windows = interface(IDispatch)
  5851.     ['{00020961-0000-0000-C000-000000000046}']
  5852.     function  Get__NewEnum: IUnknown; safecall;
  5853.     function  Get_Count: Integer; safecall;
  5854.     function  Get_Application: WordApplication; safecall;
  5855.     function  Get_Creator: Integer; safecall;
  5856.     function  Get_Parent: IDispatch; safecall;
  5857.     function  Item(var Index: OleVariant): Window; safecall;
  5858.     function  Add(var Window: OleVariant): Window; safecall;
  5859.     procedure Arrange(var ArrangeStyle: OleVariant); safecall;
  5860.     property _NewEnum: IUnknown read Get__NewEnum;
  5861.     property Count: Integer read Get_Count;
  5862.     property Application: WordApplication read Get_Application;
  5863.     property Creator: Integer read Get_Creator;
  5864.     property Parent: IDispatch read Get_Parent;
  5865.   end;
  5866.  
  5867. // *********************************************************************//
  5868. // DispIntf:  WindowsDisp
  5869. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5870. // GUID:      {00020961-0000-0000-C000-000000000046}
  5871. // *********************************************************************//
  5872.   WindowsDisp = dispinterface
  5873.     ['{00020961-0000-0000-C000-000000000046}']
  5874.     property _NewEnum: IUnknown readonly dispid -4;
  5875.     property Count: Integer readonly dispid 2;
  5876.     property Application: WordApplication readonly dispid 1000;
  5877.     property Creator: Integer readonly dispid 1001;
  5878.     property Parent: IDispatch readonly dispid 1002;
  5879.     function  Item(var Index: OleVariant): Window; dispid 0;
  5880.     function  Add(var Window: OleVariant): Window; dispid 10;
  5881.     procedure Arrange(var ArrangeStyle: OleVariant); dispid 11;
  5882.   end;
  5883.  
  5884. // *********************************************************************//
  5885. // Interface: Pane
  5886. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5887. // GUID:      {00020960-0000-0000-C000-000000000046}
  5888. // *********************************************************************//
  5889.   Pane = interface(IDispatch)
  5890.     ['{00020960-0000-0000-C000-000000000046}']
  5891.     function  Get_Application: WordApplication; safecall;
  5892.     function  Get_Creator: Integer; safecall;
  5893.     function  Get_Parent: IDispatch; safecall;
  5894.     function  Get_Document: WordDocument; safecall;
  5895.     function  Get_Selection: Selection; safecall;
  5896.     function  Get_DisplayRulers: WordBool; safecall;
  5897.     procedure Set_DisplayRulers(prop: WordBool); safecall;
  5898.     function  Get_DisplayVerticalRuler: WordBool; safecall;
  5899.     procedure Set_DisplayVerticalRuler(prop: WordBool); safecall;
  5900.     function  Get_Zooms: Zooms; safecall;
  5901.     function  Get_Index: Integer; safecall;
  5902.     function  Get_View: View; safecall;
  5903.     function  Get_Next: Pane; safecall;
  5904.     function  Get_Previous: Pane; safecall;
  5905.     function  Get_HorizontalPercentScrolled: Integer; safecall;
  5906.     procedure Set_HorizontalPercentScrolled(prop: Integer); safecall;
  5907.     function  Get_VerticalPercentScrolled: Integer; safecall;
  5908.     procedure Set_VerticalPercentScrolled(prop: Integer); safecall;
  5909.     function  Get_MinimumFontSize: Integer; safecall;
  5910.     procedure Set_MinimumFontSize(prop: Integer); safecall;
  5911.     function  Get_BrowseToWindow: WordBool; safecall;
  5912.     procedure Set_BrowseToWindow(prop: WordBool); safecall;
  5913.     function  Get_BrowseWidth: Integer; safecall;
  5914.     procedure Activate; safecall;
  5915.     procedure Close; safecall;
  5916.     procedure LargeScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
  5917.                           var ToLeft: OleVariant); safecall;
  5918.     procedure SmallScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
  5919.                           var ToLeft: OleVariant); safecall;
  5920.     procedure AutoScroll(Velocity: Integer); safecall;
  5921.     procedure PageScroll(var Down: OleVariant; var Up: OleVariant); safecall;
  5922.     property Application: WordApplication read Get_Application;
  5923.     property Creator: Integer read Get_Creator;
  5924.     property Parent: IDispatch read Get_Parent;
  5925.     property Document: WordDocument read Get_Document;
  5926.     property Selection: Selection read Get_Selection;
  5927.     property DisplayRulers: WordBool read Get_DisplayRulers write Set_DisplayRulers;
  5928.     property DisplayVerticalRuler: WordBool read Get_DisplayVerticalRuler write Set_DisplayVerticalRuler;
  5929.     property Zooms: Zooms read Get_Zooms;
  5930.     property Index: Integer read Get_Index;
  5931.     property View: View read Get_View;
  5932.     property Next: Pane read Get_Next;
  5933.     property Previous: Pane read Get_Previous;
  5934.     property HorizontalPercentScrolled: Integer read Get_HorizontalPercentScrolled write Set_HorizontalPercentScrolled;
  5935.     property VerticalPercentScrolled: Integer read Get_VerticalPercentScrolled write Set_VerticalPercentScrolled;
  5936.     property MinimumFontSize: Integer read Get_MinimumFontSize write Set_MinimumFontSize;
  5937.     property BrowseToWindow: WordBool read Get_BrowseToWindow write Set_BrowseToWindow;
  5938.     property BrowseWidth: Integer read Get_BrowseWidth;
  5939.   end;
  5940.  
  5941. // *********************************************************************//
  5942. // DispIntf:  PaneDisp
  5943. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5944. // GUID:      {00020960-0000-0000-C000-000000000046}
  5945. // *********************************************************************//
  5946.   PaneDisp = dispinterface
  5947.     ['{00020960-0000-0000-C000-000000000046}']
  5948.     property Application: WordApplication readonly dispid 1000;
  5949.     property Creator: Integer readonly dispid 1001;
  5950.     property Parent: IDispatch readonly dispid 1002;
  5951.     property Document: WordDocument readonly dispid 1;
  5952.     property Selection: Selection readonly dispid 3;
  5953.     property DisplayRulers: WordBool dispid 4;
  5954.     property DisplayVerticalRuler: WordBool dispid 5;
  5955.     property Zooms: Zooms readonly dispid 7;
  5956.     property Index: Integer readonly dispid 9;
  5957.     property View: View readonly dispid 10;
  5958.     property Next: Pane readonly dispid 11;
  5959.     property Previous: Pane readonly dispid 12;
  5960.     property HorizontalPercentScrolled: Integer dispid 13;
  5961.     property VerticalPercentScrolled: Integer dispid 14;
  5962.     property MinimumFontSize: Integer dispid 15;
  5963.     property BrowseToWindow: WordBool dispid 16;
  5964.     property BrowseWidth: Integer readonly dispid 17;
  5965.     procedure Activate; dispid 100;
  5966.     procedure Close; dispid 101;
  5967.     procedure LargeScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
  5968.                           var ToLeft: OleVariant); dispid 102;
  5969.     procedure SmallScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
  5970.                           var ToLeft: OleVariant); dispid 103;
  5971.     procedure AutoScroll(Velocity: Integer); dispid 104;
  5972.     procedure PageScroll(var Down: OleVariant; var Up: OleVariant); dispid 105;
  5973.   end;
  5974.  
  5975. // *********************************************************************//
  5976. // Interface: Panes
  5977. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5978. // GUID:      {0002095F-0000-0000-C000-000000000046}
  5979. // *********************************************************************//
  5980.   Panes = interface(IDispatch)
  5981.     ['{0002095F-0000-0000-C000-000000000046}']
  5982.     function  Get__NewEnum: IUnknown; safecall;
  5983.     function  Get_Count: Integer; safecall;
  5984.     function  Get_Application: WordApplication; safecall;
  5985.     function  Get_Creator: Integer; safecall;
  5986.     function  Get_Parent: IDispatch; safecall;
  5987.     function  Item(Index: Integer): Pane; safecall;
  5988.     function  Add(var SplitVertical: OleVariant): Pane; safecall;
  5989.     property _NewEnum: IUnknown read Get__NewEnum;
  5990.     property Count: Integer read Get_Count;
  5991.     property Application: WordApplication read Get_Application;
  5992.     property Creator: Integer read Get_Creator;
  5993.     property Parent: IDispatch read Get_Parent;
  5994.   end;
  5995.  
  5996. // *********************************************************************//
  5997. // DispIntf:  PanesDisp
  5998. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  5999. // GUID:      {0002095F-0000-0000-C000-000000000046}
  6000. // *********************************************************************//
  6001.   PanesDisp = dispinterface
  6002.     ['{0002095F-0000-0000-C000-000000000046}']
  6003.     property _NewEnum: IUnknown readonly dispid -4;
  6004.     property Count: Integer readonly dispid 2;
  6005.     property Application: WordApplication readonly dispid 1000;
  6006.     property Creator: Integer readonly dispid 1001;
  6007.     property Parent: IDispatch readonly dispid 1002;
  6008.     function  Item(Index: Integer): Pane; dispid 0;
  6009.     function  Add(var SplitVertical: OleVariant): Pane; dispid 3;
  6010.   end;
  6011.  
  6012. // *********************************************************************//
  6013. // Interface: Range
  6014. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6015. // GUID:      {0002095E-0000-0000-C000-000000000046}
  6016. // *********************************************************************//
  6017.   Range = interface(IDispatch)
  6018.     ['{0002095E-0000-0000-C000-000000000046}']
  6019.     function  Get_Text: WideString; safecall;
  6020.     procedure Set_Text(const prop: WideString); safecall;
  6021.     function  Get_FormattedText: Range; safecall;
  6022.     procedure Set_FormattedText(const prop: Range); safecall;
  6023.     function  Get_Start: Integer; safecall;
  6024.     procedure Set_Start(prop: Integer); safecall;
  6025.     function  Get_End_: Integer; safecall;
  6026.     procedure Set_End_(prop: Integer); safecall;
  6027.     function  Get_Font: WordFont; safecall;
  6028.     procedure Set_Font(const prop: WordFont); safecall;
  6029.     function  Get_Duplicate: Range; safecall;
  6030.     function  Get_StoryType: WdStoryType; safecall;
  6031.     function  Get_Tables: Tables; safecall;
  6032.     function  Get_Words: Words; safecall;
  6033.     function  Get_Sentences: Sentences; safecall;
  6034.     function  Get_Characters: Characters; safecall;
  6035.     function  Get_Footnotes: Footnotes; safecall;
  6036.     function  Get_Endnotes: Endnotes; safecall;
  6037.     function  Get_Comments: Comments; safecall;
  6038.     function  Get_Cells: Cells; safecall;
  6039.     function  Get_Sections: Sections; safecall;
  6040.     function  Get_Paragraphs: Paragraphs; safecall;
  6041.     function  Get_Borders: Borders; safecall;
  6042.     procedure Set_Borders(const prop: Borders); safecall;
  6043.     function  Get_Shading: Shading; safecall;
  6044.     function  Get_TextRetrievalMode: TextRetrievalMode; safecall;
  6045.     procedure Set_TextRetrievalMode(const prop: TextRetrievalMode); safecall;
  6046.     function  Get_Fields: Fields; safecall;
  6047.     function  Get_FormFields: FormFields; safecall;
  6048.     function  Get_Frames: Frames; safecall;
  6049.     function  Get_ParagraphFormat: WordParagraphFormat; safecall;
  6050.     procedure Set_ParagraphFormat(const prop: WordParagraphFormat); safecall;
  6051.     function  Get_ListFormat: ListFormat; safecall;
  6052.     function  Get_Bookmarks: Bookmarks; safecall;
  6053.     function  Get_Application: WordApplication; safecall;
  6054.     function  Get_Creator: Integer; safecall;
  6055.     function  Get_Parent: IDispatch; safecall;
  6056.     function  Get_Bold: Integer; safecall;
  6057.     procedure Set_Bold(prop: Integer); safecall;
  6058.     function  Get_Italic: Integer; safecall;
  6059.     procedure Set_Italic(prop: Integer); safecall;
  6060.     function  Get_Underline: WdUnderline; safecall;
  6061.     procedure Set_Underline(prop: WdUnderline); safecall;
  6062.     function  Get_EmphasisMark: WdEmphasisMark; safecall;
  6063.     procedure Set_EmphasisMark(prop: WdEmphasisMark); safecall;
  6064.     function  Get_DisableCharacterSpaceGrid: WordBool; safecall;
  6065.     procedure Set_DisableCharacterSpaceGrid(prop: WordBool); safecall;
  6066.     function  Get_Revisions: Revisions; safecall;
  6067.     function  Get_Style: OleVariant; safecall;
  6068.     procedure Set_Style(var prop: OleVariant); safecall;
  6069.     function  Get_StoryLength: Integer; safecall;
  6070.     function  Get_LanguageID: WdLanguageID; safecall;
  6071.     procedure Set_LanguageID(prop: WdLanguageID); safecall;
  6072.     function  Get_SynonymInfo: SynonymInfo; safecall;
  6073.     function  Get_Hyperlinks: Hyperlinks; safecall;
  6074.     function  Get_ListParagraphs: ListParagraphs; safecall;
  6075.     function  Get_Subdocuments: Subdocuments; safecall;
  6076.     function  Get_GrammarChecked: WordBool; safecall;
  6077.     procedure Set_GrammarChecked(prop: WordBool); safecall;
  6078.     function  Get_SpellingChecked: WordBool; safecall;
  6079.     procedure Set_SpellingChecked(prop: WordBool); safecall;
  6080.     function  Get_HighlightColorIndex: WdColorIndex; safecall;
  6081.     procedure Set_HighlightColorIndex(prop: WdColorIndex); safecall;
  6082.     function  Get_Columns: Columns; safecall;
  6083.     function  Get_Rows: Rows; safecall;
  6084.     function  Get_CanEdit: Integer; safecall;
  6085.     function  Get_CanPaste: Integer; safecall;
  6086.     function  Get_IsEndOfRowMark: WordBool; safecall;
  6087.     function  Get_BookmarkID: Integer; safecall;
  6088.     function  Get_PreviousBookmarkID: Integer; safecall;
  6089.     function  Get_Find: Find; safecall;
  6090.     function  Get_PageSetup: PageSetup; safecall;
  6091.     procedure Set_PageSetup(const prop: PageSetup); safecall;
  6092.     function  Get_ShapeRange: ShapeRange; safecall;
  6093.     function  Get_Case_: WdCharacterCase; safecall;
  6094.     procedure Set_Case_(prop: WdCharacterCase); safecall;
  6095.     function  Get_Information(Type_: WdInformation): OleVariant; safecall;
  6096.     function  Get_ReadabilityStatistics: ReadabilityStatistics; safecall;
  6097.     function  Get_GrammaticalErrors: ProofreadingErrors; safecall;
  6098.     function  Get_SpellingErrors: ProofreadingErrors; safecall;
  6099.     function  Get_Orientation: WdTextOrientation; safecall;
  6100.     procedure Set_Orientation(prop: WdTextOrientation); safecall;
  6101.     function  Get_InlineShapes: InlineShapes; safecall;
  6102.     function  Get_NextStoryRange: Range; safecall;
  6103.     function  Get_LanguageIDFarEast: WdLanguageID; safecall;
  6104.     procedure Set_LanguageIDFarEast(prop: WdLanguageID); safecall;
  6105.     function  Get_LanguageIDOther: WdLanguageID; safecall;
  6106.     procedure Set_LanguageIDOther(prop: WdLanguageID); safecall;
  6107.     procedure Select; safecall;
  6108.     procedure SetRange(Start: Integer; End_: Integer); safecall;
  6109.     procedure Collapse(var Direction: OleVariant); safecall;
  6110.     procedure InsertBefore(const Text: WideString); safecall;
  6111.     procedure InsertAfter(const Text: WideString); safecall;
  6112.     function  Next(var Unit_: OleVariant; var Count: OleVariant): Range; safecall;
  6113.     function  Previous(var Unit_: OleVariant; var Count: OleVariant): Range; safecall;
  6114.     function  StartOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; safecall;
  6115.     function  EndOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; safecall;
  6116.     function  Move(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
  6117.     function  MoveStart(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
  6118.     function  MoveEnd(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
  6119.     function  MoveWhile(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
  6120.     function  MoveStartWhile(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
  6121.     function  MoveEndWhile(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
  6122.     function  MoveUntil(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
  6123.     function  MoveStartUntil(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
  6124.     function  MoveEndUntil(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
  6125.     procedure Cut; safecall;
  6126.     procedure Copy; safecall;
  6127.     procedure Paste; safecall;
  6128.     procedure InsertBreak(var Type_: OleVariant); safecall;
  6129.     procedure InsertFile(const FileName: WideString; var Range: OleVariant; 
  6130.                          var ConfirmConversions: OleVariant; var Link: OleVariant; 
  6131.                          var Attachment: OleVariant); safecall;
  6132.     function  InStory(const Range: Range): WordBool; safecall;
  6133.     function  InRange(const Range: Range): WordBool; safecall;
  6134.     function  Delete(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
  6135.     procedure WholeStory; safecall;
  6136.     function  Expand(var Unit_: OleVariant): Integer; safecall;
  6137.     procedure InsertParagraph; safecall;
  6138.     procedure InsertParagraphAfter; safecall;
  6139.     function  ConvertToTable(var Separator: OleVariant; var NumRows: OleVariant; 
  6140.                              var NumColumns: OleVariant; var InitialColumnWidth: OleVariant; 
  6141.                              var Format: OleVariant; var ApplyBorders: OleVariant; 
  6142.                              var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
  6143.                              var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
  6144.                              var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
  6145.                              var ApplyLastColumn: OleVariant; var AutoFit: OleVariant): Table; safecall;
  6146.     procedure InsertDateTime(var DateTimeFormat: OleVariant; var InsertAsField: OleVariant; 
  6147.                              var InsertAsFullWidth: OleVariant); safecall;
  6148.     procedure InsertSymbol(CharacterNumber: Integer; var Font: OleVariant; var Unicode: OleVariant; 
  6149.                            var Bias: OleVariant); safecall;
  6150.     procedure InsertCrossReference(var ReferenceType: OleVariant; ReferenceKind: WdReferenceKind; 
  6151.                                    var ReferenceItem: OleVariant; 
  6152.                                    var InsertAsHyperlink: OleVariant; 
  6153.                                    var IncludePosition: OleVariant); safecall;
  6154.     procedure InsertCaption(var Label_: OleVariant; var Title: OleVariant; 
  6155.                             var TitleAutoText: OleVariant; var Position: OleVariant); safecall;
  6156.     procedure CopyAsPicture; safecall;
  6157.     procedure Sort(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
  6158.                    var SortFieldType: OleVariant; var SortOrder: OleVariant; 
  6159.                    var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
  6160.                    var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
  6161.                    var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
  6162.                    var SortColumn: OleVariant; var Separator: OleVariant; 
  6163.                    var CaseSensitive: OleVariant; var LanguageID: OleVariant); safecall;
  6164.     procedure SortAscending; safecall;
  6165.     procedure SortDescending; safecall;
  6166.     function  IsEqual(const Range: Range): WordBool; safecall;
  6167.     function  Calculate: Single; safecall;
  6168.     function  GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
  6169.                     var Name: OleVariant): Range; safecall;
  6170.     function  GoToNext(What: WdGoToItem): Range; safecall;
  6171.     function  GoToPrevious(What: WdGoToItem): Range; safecall;
  6172.     procedure PasteSpecial(var IconIndex: OleVariant; var Link: OleVariant; 
  6173.                            var Placement: OleVariant; var DisplayAsIcon: OleVariant; 
  6174.                            var DataType: OleVariant; var IconFileName: OleVariant; 
  6175.                            var IconLabel: OleVariant); safecall;
  6176.     procedure LookupNameProperties; safecall;
  6177.     function  ComputeStatistics(Statistic: WdStatistic): Integer; safecall;
  6178.     procedure Relocate(Direction: Integer); safecall;
  6179.     procedure CheckSynonyms; safecall;
  6180.     procedure SubscribeTo(const Edition: WideString; var Format: OleVariant); safecall;
  6181.     procedure CreatePublisher(var Edition: OleVariant; var ContainsPICT: OleVariant; 
  6182.                               var ContainsRTF: OleVariant; var ContainsText: OleVariant); safecall;
  6183.     procedure InsertAutoText; safecall;
  6184.     procedure InsertDatabase(var Format: OleVariant; var Style: OleVariant; 
  6185.                              var LinkToSource: OleVariant; var Connection: OleVariant; 
  6186.                              var SQLStatement: OleVariant; var SQLStatement1: OleVariant; 
  6187.                              var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
  6188.                              var WritePasswordDocument: OleVariant; 
  6189.                              var WritePasswordTemplate: OleVariant; var DataSource: OleVariant; 
  6190.                              var From: OleVariant; var To_: OleVariant; 
  6191.                              var IncludeFields: OleVariant); safecall;
  6192.     procedure AutoFormat; safecall;
  6193.     procedure CheckGrammar; safecall;
  6194.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  6195.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  6196.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  6197.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  6198.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  6199.                             var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); safecall;
  6200.     function  GetSpellingSuggestions(var CustomDictionary: OleVariant; 
  6201.                                      var IgnoreUppercase: OleVariant; 
  6202.                                      var MainDictionary: OleVariant; 
  6203.                                      var SuggestionMode: OleVariant; 
  6204.                                      var CustomDictionary2: OleVariant; 
  6205.                                      var CustomDictionary3: OleVariant; 
  6206.                                      var CustomDictionary4: OleVariant; 
  6207.                                      var CustomDictionary5: OleVariant; 
  6208.                                      var CustomDictionary6: OleVariant; 
  6209.                                      var CustomDictionary7: OleVariant; 
  6210.                                      var CustomDictionary8: OleVariant; 
  6211.                                      var CustomDictionary9: OleVariant; 
  6212.                                      var CustomDictionary10: OleVariant): SpellingSuggestions; safecall;
  6213.     procedure InsertParagraphBefore; safecall;
  6214.     procedure NextSubdocument; safecall;
  6215.     procedure PreviousSubdocument; safecall;
  6216.     procedure ConvertHangulAndHanja(var ConversionsMode: OleVariant; 
  6217.                                     var FastConversion: OleVariant; 
  6218.                                     var CheckHangulEnding: OleVariant; 
  6219.                                     var EnableRecentOrdering: OleVariant; 
  6220.                                     var CustomDictionary: OleVariant); safecall;
  6221.     property Text: WideString read Get_Text write Set_Text;
  6222.     property FormattedText: Range read Get_FormattedText write Set_FormattedText;
  6223.     property Start: Integer read Get_Start write Set_Start;
  6224.     property End_: Integer read Get_End_ write Set_End_;
  6225.     property Font: WordFont read Get_Font write Set_Font;
  6226.     property Duplicate: Range read Get_Duplicate;
  6227.     property StoryType: WdStoryType read Get_StoryType;
  6228.     property Tables: Tables read Get_Tables;
  6229.     property Words: Words read Get_Words;
  6230.     property Sentences: Sentences read Get_Sentences;
  6231.     property Characters: Characters read Get_Characters;
  6232.     property Footnotes: Footnotes read Get_Footnotes;
  6233.     property Endnotes: Endnotes read Get_Endnotes;
  6234.     property Comments: Comments read Get_Comments;
  6235.     property Cells: Cells read Get_Cells;
  6236.     property Sections: Sections read Get_Sections;
  6237.     property Paragraphs: Paragraphs read Get_Paragraphs;
  6238.     property Borders: Borders read Get_Borders write Set_Borders;
  6239.     property Shading: Shading read Get_Shading;
  6240.     property TextRetrievalMode: TextRetrievalMode read Get_TextRetrievalMode write Set_TextRetrievalMode;
  6241.     property Fields: Fields read Get_Fields;
  6242.     property FormFields: FormFields read Get_FormFields;
  6243.     property Frames: Frames read Get_Frames;
  6244.     property ParagraphFormat: WordParagraphFormat read Get_ParagraphFormat write Set_ParagraphFormat;
  6245.     property ListFormat: ListFormat read Get_ListFormat;
  6246.     property Bookmarks: Bookmarks read Get_Bookmarks;
  6247.     property Application: WordApplication read Get_Application;
  6248.     property Creator: Integer read Get_Creator;
  6249.     property Parent: IDispatch read Get_Parent;
  6250.     property Bold: Integer read Get_Bold write Set_Bold;
  6251.     property Italic: Integer read Get_Italic write Set_Italic;
  6252.     property Underline: WdUnderline read Get_Underline write Set_Underline;
  6253.     property EmphasisMark: WdEmphasisMark read Get_EmphasisMark write Set_EmphasisMark;
  6254.     property DisableCharacterSpaceGrid: WordBool read Get_DisableCharacterSpaceGrid write Set_DisableCharacterSpaceGrid;
  6255.     property Revisions: Revisions read Get_Revisions;
  6256.     property StoryLength: Integer read Get_StoryLength;
  6257.     property LanguageID: WdLanguageID read Get_LanguageID write Set_LanguageID;
  6258.     property SynonymInfo: SynonymInfo read Get_SynonymInfo;
  6259.     property Hyperlinks: Hyperlinks read Get_Hyperlinks;
  6260.     property ListParagraphs: ListParagraphs read Get_ListParagraphs;
  6261.     property Subdocuments: Subdocuments read Get_Subdocuments;
  6262.     property GrammarChecked: WordBool read Get_GrammarChecked write Set_GrammarChecked;
  6263.     property SpellingChecked: WordBool read Get_SpellingChecked write Set_SpellingChecked;
  6264.     property HighlightColorIndex: WdColorIndex read Get_HighlightColorIndex write Set_HighlightColorIndex;
  6265.     property Columns: Columns read Get_Columns;
  6266.     property Rows: Rows read Get_Rows;
  6267.     property CanEdit: Integer read Get_CanEdit;
  6268.     property CanPaste: Integer read Get_CanPaste;
  6269.     property IsEndOfRowMark: WordBool read Get_IsEndOfRowMark;
  6270.     property BookmarkID: Integer read Get_BookmarkID;
  6271.     property PreviousBookmarkID: Integer read Get_PreviousBookmarkID;
  6272.     property Find: Find read Get_Find;
  6273.     property PageSetup: PageSetup read Get_PageSetup write Set_PageSetup;
  6274.     property ShapeRange: ShapeRange read Get_ShapeRange;
  6275.     property Case_: WdCharacterCase read Get_Case_ write Set_Case_;
  6276.     property Information[Type_: WdInformation]: OleVariant read Get_Information;
  6277.     property ReadabilityStatistics: ReadabilityStatistics read Get_ReadabilityStatistics;
  6278.     property GrammaticalErrors: ProofreadingErrors read Get_GrammaticalErrors;
  6279.     property SpellingErrors: ProofreadingErrors read Get_SpellingErrors;
  6280.     property Orientation: WdTextOrientation read Get_Orientation write Set_Orientation;
  6281.     property InlineShapes: InlineShapes read Get_InlineShapes;
  6282.     property NextStoryRange: Range read Get_NextStoryRange;
  6283.     property LanguageIDFarEast: WdLanguageID read Get_LanguageIDFarEast write Set_LanguageIDFarEast;
  6284.     property LanguageIDOther: WdLanguageID read Get_LanguageIDOther write Set_LanguageIDOther;
  6285.   end;
  6286.  
  6287. // *********************************************************************//
  6288. // DispIntf:  RangeDisp
  6289. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6290. // GUID:      {0002095E-0000-0000-C000-000000000046}
  6291. // *********************************************************************//
  6292.   RangeDisp = dispinterface
  6293.     ['{0002095E-0000-0000-C000-000000000046}']
  6294.     property Text: WideString dispid 0;
  6295.     property FormattedText: Range dispid 2;
  6296.     property Start: Integer dispid 3;
  6297.     property End_: Integer dispid 4;
  6298.     property Font: WordFont dispid 5;
  6299.     property Duplicate: Range readonly dispid 6;
  6300.     property StoryType: WdStoryType readonly dispid 7;
  6301.     property Tables: Tables readonly dispid 50;
  6302.     property Words: Words readonly dispid 51;
  6303.     property Sentences: Sentences readonly dispid 52;
  6304.     property Characters: Characters readonly dispid 53;
  6305.     property Footnotes: Footnotes readonly dispid 54;
  6306.     property Endnotes: Endnotes readonly dispid 55;
  6307.     property Comments: Comments readonly dispid 56;
  6308.     property Cells: Cells readonly dispid 57;
  6309.     property Sections: Sections readonly dispid 58;
  6310.     property Paragraphs: Paragraphs readonly dispid 59;
  6311.     property Borders: Borders dispid 1100;
  6312.     property Shading: Shading readonly dispid 61;
  6313.     property TextRetrievalMode: TextRetrievalMode dispid 62;
  6314.     property Fields: Fields readonly dispid 64;
  6315.     property FormFields: FormFields readonly dispid 65;
  6316.     property Frames: Frames readonly dispid 66;
  6317.     property ParagraphFormat: WordParagraphFormat dispid 1102;
  6318.     property ListFormat: ListFormat readonly dispid 68;
  6319.     property Bookmarks: Bookmarks readonly dispid 75;
  6320.     property Application: WordApplication readonly dispid 1000;
  6321.     property Creator: Integer readonly dispid 1001;
  6322.     property Parent: IDispatch readonly dispid 1002;
  6323.     property Bold: Integer dispid 130;
  6324.     property Italic: Integer dispid 131;
  6325.     property Underline: WdUnderline dispid 139;
  6326.     property EmphasisMark: WdEmphasisMark dispid 140;
  6327.     property DisableCharacterSpaceGrid: WordBool dispid 141;
  6328.     property Revisions: Revisions readonly dispid 150;
  6329.     function  Style: OleVariant; dispid 151;
  6330.     property StoryLength: Integer readonly dispid 152;
  6331.     property LanguageID: WdLanguageID dispid 153;
  6332.     property SynonymInfo: SynonymInfo readonly dispid 155;
  6333.     property Hyperlinks: Hyperlinks readonly dispid 156;
  6334.     property ListParagraphs: ListParagraphs readonly dispid 157;
  6335.     property Subdocuments: Subdocuments readonly dispid 159;
  6336.     property GrammarChecked: WordBool dispid 260;
  6337.     property SpellingChecked: WordBool dispid 261;
  6338.     property HighlightColorIndex: WdColorIndex dispid 301;
  6339.     property Columns: Columns readonly dispid 302;
  6340.     property Rows: Rows readonly dispid 303;
  6341.     property CanEdit: Integer readonly dispid 304;
  6342.     property CanPaste: Integer readonly dispid 305;
  6343.     property IsEndOfRowMark: WordBool readonly dispid 307;
  6344.     property BookmarkID: Integer readonly dispid 308;
  6345.     property PreviousBookmarkID: Integer readonly dispid 309;
  6346.     property Find: Find readonly dispid 262;
  6347.     property PageSetup: PageSetup dispid 1101;
  6348.     property ShapeRange: ShapeRange readonly dispid 311;
  6349.     property Case_: WdCharacterCase dispid 312;
  6350.     property Information[Type_: WdInformation]: OleVariant readonly dispid 313;
  6351.     property ReadabilityStatistics: ReadabilityStatistics readonly dispid 314;
  6352.     property GrammaticalErrors: ProofreadingErrors readonly dispid 315;
  6353.     property SpellingErrors: ProofreadingErrors readonly dispid 316;
  6354.     property Orientation: WdTextOrientation dispid 317;
  6355.     property InlineShapes: InlineShapes readonly dispid 319;
  6356.     property NextStoryRange: Range readonly dispid 320;
  6357.     property LanguageIDFarEast: WdLanguageID dispid 321;
  6358.     property LanguageIDOther: WdLanguageID dispid 322;
  6359.     procedure Select; dispid 65535;
  6360.     procedure SetRange(Start: Integer; End_: Integer); dispid 100;
  6361.     procedure Collapse(var Direction: OleVariant); dispid 101;
  6362.     procedure InsertBefore(const Text: WideString); dispid 102;
  6363.     procedure InsertAfter(const Text: WideString); dispid 104;
  6364.     function  Next(var Unit_: OleVariant; var Count: OleVariant): Range; dispid 105;
  6365.     function  Previous(var Unit_: OleVariant; var Count: OleVariant): Range; dispid 106;
  6366.     function  StartOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; dispid 107;
  6367.     function  EndOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; dispid 108;
  6368.     function  Move(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 109;
  6369.     function  MoveStart(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 110;
  6370.     function  MoveEnd(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 111;
  6371.     function  MoveWhile(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 112;
  6372.     function  MoveStartWhile(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 113;
  6373.     function  MoveEndWhile(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 114;
  6374.     function  MoveUntil(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 115;
  6375.     function  MoveStartUntil(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 116;
  6376.     function  MoveEndUntil(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 117;
  6377.     procedure Cut; dispid 119;
  6378.     procedure Copy; dispid 120;
  6379.     procedure Paste; dispid 121;
  6380.     procedure InsertBreak(var Type_: OleVariant); dispid 122;
  6381.     procedure InsertFile(const FileName: WideString; var Range: OleVariant; 
  6382.                          var ConfirmConversions: OleVariant; var Link: OleVariant; 
  6383.                          var Attachment: OleVariant); dispid 123;
  6384.     function  InStory(const Range: Range): WordBool; dispid 125;
  6385.     function  InRange(const Range: Range): WordBool; dispid 126;
  6386.     function  Delete(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 127;
  6387.     procedure WholeStory; dispid 128;
  6388.     function  Expand(var Unit_: OleVariant): Integer; dispid 129;
  6389.     procedure InsertParagraph; dispid 160;
  6390.     procedure InsertParagraphAfter; dispid 161;
  6391.     function  ConvertToTable(var Separator: OleVariant; var NumRows: OleVariant; 
  6392.                              var NumColumns: OleVariant; var InitialColumnWidth: OleVariant; 
  6393.                              var Format: OleVariant; var ApplyBorders: OleVariant; 
  6394.                              var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
  6395.                              var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
  6396.                              var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
  6397.                              var ApplyLastColumn: OleVariant; var AutoFit: OleVariant): Table; dispid 162;
  6398.     procedure InsertDateTime(var DateTimeFormat: OleVariant; var InsertAsField: OleVariant; 
  6399.                              var InsertAsFullWidth: OleVariant); dispid 163;
  6400.     procedure InsertSymbol(CharacterNumber: Integer; var Font: OleVariant; var Unicode: OleVariant; 
  6401.                            var Bias: OleVariant); dispid 164;
  6402.     procedure InsertCrossReference(var ReferenceType: OleVariant; ReferenceKind: WdReferenceKind; 
  6403.                                    var ReferenceItem: OleVariant; 
  6404.                                    var InsertAsHyperlink: OleVariant; 
  6405.                                    var IncludePosition: OleVariant); dispid 165;
  6406.     procedure InsertCaption(var Label_: OleVariant; var Title: OleVariant; 
  6407.                             var TitleAutoText: OleVariant; var Position: OleVariant); dispid 166;
  6408.     procedure CopyAsPicture; dispid 167;
  6409.     procedure Sort(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
  6410.                    var SortFieldType: OleVariant; var SortOrder: OleVariant; 
  6411.                    var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
  6412.                    var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
  6413.                    var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
  6414.                    var SortColumn: OleVariant; var Separator: OleVariant; 
  6415.                    var CaseSensitive: OleVariant; var LanguageID: OleVariant); dispid 168;
  6416.     procedure SortAscending; dispid 169;
  6417.     procedure SortDescending; dispid 170;
  6418.     function  IsEqual(const Range: Range): WordBool; dispid 171;
  6419.     function  Calculate: Single; dispid 172;
  6420.     function  GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
  6421.                     var Name: OleVariant): Range; dispid 173;
  6422.     function  GoToNext(What: WdGoToItem): Range; dispid 174;
  6423.     function  GoToPrevious(What: WdGoToItem): Range; dispid 175;
  6424.     procedure PasteSpecial(var IconIndex: OleVariant; var Link: OleVariant; 
  6425.                            var Placement: OleVariant; var DisplayAsIcon: OleVariant; 
  6426.                            var DataType: OleVariant; var IconFileName: OleVariant; 
  6427.                            var IconLabel: OleVariant); dispid 176;
  6428.     procedure LookupNameProperties; dispid 177;
  6429.     function  ComputeStatistics(Statistic: WdStatistic): Integer; dispid 178;
  6430.     procedure Relocate(Direction: Integer); dispid 179;
  6431.     procedure CheckSynonyms; dispid 180;
  6432.     procedure SubscribeTo(const Edition: WideString; var Format: OleVariant); dispid 181;
  6433.     procedure CreatePublisher(var Edition: OleVariant; var ContainsPICT: OleVariant; 
  6434.                               var ContainsRTF: OleVariant; var ContainsText: OleVariant); dispid 182;
  6435.     procedure InsertAutoText; dispid 183;
  6436.     procedure InsertDatabase(var Format: OleVariant; var Style: OleVariant; 
  6437.                              var LinkToSource: OleVariant; var Connection: OleVariant; 
  6438.                              var SQLStatement: OleVariant; var SQLStatement1: OleVariant; 
  6439.                              var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
  6440.                              var WritePasswordDocument: OleVariant; 
  6441.                              var WritePasswordTemplate: OleVariant; var DataSource: OleVariant; 
  6442.                              var From: OleVariant; var To_: OleVariant; 
  6443.                              var IncludeFields: OleVariant); dispid 194;
  6444.     procedure AutoFormat; dispid 195;
  6445.     procedure CheckGrammar; dispid 204;
  6446.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  6447.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  6448.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  6449.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  6450.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  6451.                             var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); dispid 205;
  6452.     function  GetSpellingSuggestions(var CustomDictionary: OleVariant; 
  6453.                                      var IgnoreUppercase: OleVariant; 
  6454.                                      var MainDictionary: OleVariant; 
  6455.                                      var SuggestionMode: OleVariant; 
  6456.                                      var CustomDictionary2: OleVariant; 
  6457.                                      var CustomDictionary3: OleVariant; 
  6458.                                      var CustomDictionary4: OleVariant; 
  6459.                                      var CustomDictionary5: OleVariant; 
  6460.                                      var CustomDictionary6: OleVariant; 
  6461.                                      var CustomDictionary7: OleVariant; 
  6462.                                      var CustomDictionary8: OleVariant; 
  6463.                                      var CustomDictionary9: OleVariant; 
  6464.                                      var CustomDictionary10: OleVariant): SpellingSuggestions; dispid 209;
  6465.     procedure InsertParagraphBefore; dispid 212;
  6466.     procedure NextSubdocument; dispid 219;
  6467.     procedure PreviousSubdocument; dispid 220;
  6468.     procedure ConvertHangulAndHanja(var ConversionsMode: OleVariant; 
  6469.                                     var FastConversion: OleVariant; 
  6470.                                     var CheckHangulEnding: OleVariant; 
  6471.                                     var EnableRecentOrdering: OleVariant; 
  6472.                                     var CustomDictionary: OleVariant); dispid 221;
  6473.   end;
  6474.  
  6475. // *********************************************************************//
  6476. // Interface: ListFormat
  6477. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6478. // GUID:      {000209C0-0000-0000-C000-000000000046}
  6479. // *********************************************************************//
  6480.   ListFormat = interface(IDispatch)
  6481.     ['{000209C0-0000-0000-C000-000000000046}']
  6482.     function  Get_ListLevelNumber: Integer; safecall;
  6483.     procedure Set_ListLevelNumber(prop: Integer); safecall;
  6484.     function  Get_List: List; safecall;
  6485.     function  Get_ListTemplate: ListTemplate; safecall;
  6486.     function  Get_ListValue: Integer; safecall;
  6487.     function  Get_SingleList: WordBool; safecall;
  6488.     function  Get_SingleListTemplate: WordBool; safecall;
  6489.     function  Get_ListType: WdListType; safecall;
  6490.     function  Get_ListString: WideString; safecall;
  6491.     function  Get_Application: WordApplication; safecall;
  6492.     function  Get_Creator: Integer; safecall;
  6493.     function  Get_Parent: IDispatch; safecall;
  6494.     function  CanContinuePreviousList(const ListTemplate: ListTemplate): WdContinue; safecall;
  6495.     procedure RemoveNumbers(var NumberType: OleVariant); safecall;
  6496.     procedure ConvertNumbersToText(var NumberType: OleVariant); safecall;
  6497.     function  CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer; safecall;
  6498.     procedure ApplyBulletDefault; safecall;
  6499.     procedure ApplyNumberDefault; safecall;
  6500.     procedure ApplyOutlineNumberDefault; safecall;
  6501.     procedure ApplyListTemplate(const ListTemplate: ListTemplate; 
  6502.                                 var ContinuePreviousList: OleVariant; var ApplyTo: OleVariant); safecall;
  6503.     procedure ListOutdent; safecall;
  6504.     procedure ListIndent; safecall;
  6505.     property ListLevelNumber: Integer read Get_ListLevelNumber write Set_ListLevelNumber;
  6506.     property List: List read Get_List;
  6507.     property ListTemplate: ListTemplate read Get_ListTemplate;
  6508.     property ListValue: Integer read Get_ListValue;
  6509.     property SingleList: WordBool read Get_SingleList;
  6510.     property SingleListTemplate: WordBool read Get_SingleListTemplate;
  6511.     property ListType: WdListType read Get_ListType;
  6512.     property ListString: WideString read Get_ListString;
  6513.     property Application: WordApplication read Get_Application;
  6514.     property Creator: Integer read Get_Creator;
  6515.     property Parent: IDispatch read Get_Parent;
  6516.   end;
  6517.  
  6518. // *********************************************************************//
  6519. // DispIntf:  ListFormatDisp
  6520. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6521. // GUID:      {000209C0-0000-0000-C000-000000000046}
  6522. // *********************************************************************//
  6523.   ListFormatDisp = dispinterface
  6524.     ['{000209C0-0000-0000-C000-000000000046}']
  6525.     property ListLevelNumber: Integer dispid 68;
  6526.     property List: List readonly dispid 69;
  6527.     property ListTemplate: ListTemplate readonly dispid 70;
  6528.     property ListValue: Integer readonly dispid 71;
  6529.     property SingleList: WordBool readonly dispid 72;
  6530.     property SingleListTemplate: WordBool readonly dispid 73;
  6531.     property ListType: WdListType readonly dispid 74;
  6532.     property ListString: WideString readonly dispid 75;
  6533.     property Application: WordApplication readonly dispid 1000;
  6534.     property Creator: Integer readonly dispid 1001;
  6535.     property Parent: IDispatch readonly dispid 1002;
  6536.     function  CanContinuePreviousList(const ListTemplate: ListTemplate): WdContinue; dispid 184;
  6537.     procedure RemoveNumbers(var NumberType: OleVariant); dispid 185;
  6538.     procedure ConvertNumbersToText(var NumberType: OleVariant); dispid 186;
  6539.     function  CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer; dispid 187;
  6540.     procedure ApplyBulletDefault; dispid 188;
  6541.     procedure ApplyNumberDefault; dispid 189;
  6542.     procedure ApplyOutlineNumberDefault; dispid 190;
  6543.     procedure ApplyListTemplate(const ListTemplate: ListTemplate; 
  6544.                                 var ContinuePreviousList: OleVariant; var ApplyTo: OleVariant); dispid 191;
  6545.     procedure ListOutdent; dispid 210;
  6546.     procedure ListIndent; dispid 211;
  6547.   end;
  6548.  
  6549. // *********************************************************************//
  6550. // Interface: Find
  6551. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6552. // GUID:      {000209B0-0000-0000-C000-000000000046}
  6553. // *********************************************************************//
  6554.   Find = interface(IDispatch)
  6555.     ['{000209B0-0000-0000-C000-000000000046}']
  6556.     function  Get_Application: WordApplication; safecall;
  6557.     function  Get_Creator: Integer; safecall;
  6558.     function  Get_Parent: IDispatch; safecall;
  6559.     function  Get_Forward: WordBool; safecall;
  6560.     procedure Set_Forward(prop: WordBool); safecall;
  6561.     function  Get_Font: WordFont; safecall;
  6562.     procedure Set_Font(const prop: WordFont); safecall;
  6563.     function  Get_Found: WordBool; safecall;
  6564.     function  Get_MatchAllWordForms: WordBool; safecall;
  6565.     procedure Set_MatchAllWordForms(prop: WordBool); safecall;
  6566.     function  Get_MatchCase: WordBool; safecall;
  6567.     procedure Set_MatchCase(prop: WordBool); safecall;
  6568.     function  Get_MatchWildcards: WordBool; safecall;
  6569.     procedure Set_MatchWildcards(prop: WordBool); safecall;
  6570.     function  Get_MatchSoundsLike: WordBool; safecall;
  6571.     procedure Set_MatchSoundsLike(prop: WordBool); safecall;
  6572.     function  Get_MatchWholeWord: WordBool; safecall;
  6573.     procedure Set_MatchWholeWord(prop: WordBool); safecall;
  6574.     function  Get_MatchFuzzy: WordBool; safecall;
  6575.     procedure Set_MatchFuzzy(prop: WordBool); safecall;
  6576.     function  Get_MatchByte: WordBool; safecall;
  6577.     procedure Set_MatchByte(prop: WordBool); safecall;
  6578.     function  Get_ParagraphFormat: WordParagraphFormat; safecall;
  6579.     procedure Set_ParagraphFormat(const prop: WordParagraphFormat); safecall;
  6580.     function  Get_Style: OleVariant; safecall;
  6581.     procedure Set_Style(var prop: OleVariant); safecall;
  6582.     function  Get_Text: WideString; safecall;
  6583.     procedure Set_Text(const prop: WideString); safecall;
  6584.     function  Get_LanguageID: WdLanguageID; safecall;
  6585.     procedure Set_LanguageID(prop: WdLanguageID); safecall;
  6586.     function  Get_Highlight: Integer; safecall;
  6587.     procedure Set_Highlight(prop: Integer); safecall;
  6588.     function  Get_Replacement: Replacement; safecall;
  6589.     function  Get_Frame: Frame; safecall;
  6590.     function  Get_Wrap: WdFindWrap; safecall;
  6591.     procedure Set_Wrap(prop: WdFindWrap); safecall;
  6592.     function  Get_Format: WordBool; safecall;
  6593.     procedure Set_Format(prop: WordBool); safecall;
  6594.     function  Get_LanguageIDFarEast: WdLanguageID; safecall;
  6595.     procedure Set_LanguageIDFarEast(prop: WdLanguageID); safecall;
  6596.     function  Get_LanguageIDOther: WdLanguageID; safecall;
  6597.     procedure Set_LanguageIDOther(prop: WdLanguageID); safecall;
  6598.     function  Get_CorrectHangulEndings: WordBool; safecall;
  6599.     procedure Set_CorrectHangulEndings(prop: WordBool); safecall;
  6600.     function  Execute(var FindText: OleVariant; var MatchCase: OleVariant; 
  6601.                       var MatchWholeWord: OleVariant; var MatchWildcards: OleVariant; 
  6602.                       var MatchSoundsLike: OleVariant; var MatchAllWordForms: OleVariant; 
  6603.                       var Forward: OleVariant; var Wrap: OleVariant; var Format: OleVariant; 
  6604.                       var ReplaceWith: OleVariant; var Replace: OleVariant): WordBool; safecall;
  6605.     procedure ClearFormatting; safecall;
  6606.     procedure SetAllFuzzyOptions; safecall;
  6607.     procedure ClearAllFuzzyOptions; safecall;
  6608.     property Application: WordApplication read Get_Application;
  6609.     property Creator: Integer read Get_Creator;
  6610.     property Parent: IDispatch read Get_Parent;
  6611.     property Forward: WordBool read Get_Forward write Set_Forward;
  6612.     property Font: WordFont read Get_Font write Set_Font;
  6613.     property Found: WordBool read Get_Found;
  6614.     property MatchAllWordForms: WordBool read Get_MatchAllWordForms write Set_MatchAllWordForms;
  6615.     property MatchCase: WordBool read Get_MatchCase write Set_MatchCase;
  6616.     property MatchWildcards: WordBool read Get_MatchWildcards write Set_MatchWildcards;
  6617.     property MatchSoundsLike: WordBool read Get_MatchSoundsLike write Set_MatchSoundsLike;
  6618.     property MatchWholeWord: WordBool read Get_MatchWholeWord write Set_MatchWholeWord;
  6619.     property MatchFuzzy: WordBool read Get_MatchFuzzy write Set_MatchFuzzy;
  6620.     property MatchByte: WordBool read Get_MatchByte write Set_MatchByte;
  6621.     property ParagraphFormat: WordParagraphFormat read Get_ParagraphFormat write Set_ParagraphFormat;
  6622.     property Text: WideString read Get_Text write Set_Text;
  6623.     property LanguageID: WdLanguageID read Get_LanguageID write Set_LanguageID;
  6624.     property Highlight: Integer read Get_Highlight write Set_Highlight;
  6625.     property Replacement: Replacement read Get_Replacement;
  6626.     property Frame: Frame read Get_Frame;
  6627.     property Wrap: WdFindWrap read Get_Wrap write Set_Wrap;
  6628.     property Format: WordBool read Get_Format write Set_Format;
  6629.     property LanguageIDFarEast: WdLanguageID read Get_LanguageIDFarEast write Set_LanguageIDFarEast;
  6630.     property LanguageIDOther: WdLanguageID read Get_LanguageIDOther write Set_LanguageIDOther;
  6631.     property CorrectHangulEndings: WordBool read Get_CorrectHangulEndings write Set_CorrectHangulEndings;
  6632.   end;
  6633.  
  6634. // *********************************************************************//
  6635. // DispIntf:  FindDisp
  6636. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6637. // GUID:      {000209B0-0000-0000-C000-000000000046}
  6638. // *********************************************************************//
  6639.   FindDisp = dispinterface
  6640.     ['{000209B0-0000-0000-C000-000000000046}']
  6641.     property Application: WordApplication readonly dispid 1000;
  6642.     property Creator: Integer readonly dispid 1001;
  6643.     property Parent: IDispatch readonly dispid 1002;
  6644.     property Forward: WordBool dispid 10;
  6645.     property Font: WordFont dispid 11;
  6646.     property Found: WordBool readonly dispid 12;
  6647.     property MatchAllWordForms: WordBool dispid 13;
  6648.     property MatchCase: WordBool dispid 14;
  6649.     property MatchWildcards: WordBool dispid 15;
  6650.     property MatchSoundsLike: WordBool dispid 16;
  6651.     property MatchWholeWord: WordBool dispid 17;
  6652.     property MatchFuzzy: WordBool dispid 40;
  6653.     property MatchByte: WordBool dispid 41;
  6654.     property ParagraphFormat: WordParagraphFormat dispid 18;
  6655.     function  Style: OleVariant; dispid 19;
  6656.     property Text: WideString dispid 22;
  6657.     property LanguageID: WdLanguageID dispid 23;
  6658.     property Highlight: Integer dispid 24;
  6659.     property Replacement: Replacement readonly dispid 25;
  6660.     property Frame: Frame readonly dispid 26;
  6661.     property Wrap: WdFindWrap dispid 27;
  6662.     property Format: WordBool dispid 28;
  6663.     property LanguageIDFarEast: WdLanguageID dispid 29;
  6664.     property LanguageIDOther: WdLanguageID dispid 60;
  6665.     property CorrectHangulEndings: WordBool dispid 61;
  6666.     function  Execute(var FindText: OleVariant; var MatchCase: OleVariant; 
  6667.                       var MatchWholeWord: OleVariant; var MatchWildcards: OleVariant; 
  6668.                       var MatchSoundsLike: OleVariant; var MatchAllWordForms: OleVariant; 
  6669.                       var Forward: OleVariant; var Wrap: OleVariant; var Format: OleVariant; 
  6670.                       var ReplaceWith: OleVariant; var Replace: OleVariant): WordBool; dispid 30;
  6671.     procedure ClearFormatting; dispid 31;
  6672.     procedure SetAllFuzzyOptions; dispid 32;
  6673.     procedure ClearAllFuzzyOptions; dispid 33;
  6674.   end;
  6675.  
  6676. // *********************************************************************//
  6677. // Interface: Replacement
  6678. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6679. // GUID:      {000209B1-0000-0000-C000-000000000046}
  6680. // *********************************************************************//
  6681.   Replacement = interface(IDispatch)
  6682.     ['{000209B1-0000-0000-C000-000000000046}']
  6683.     function  Get_Application: WordApplication; safecall;
  6684.     function  Get_Creator: Integer; safecall;
  6685.     function  Get_Parent: IDispatch; safecall;
  6686.     function  Get_Font: WordFont; safecall;
  6687.     procedure Set_Font(const prop: WordFont); safecall;
  6688.     function  Get_ParagraphFormat: WordParagraphFormat; safecall;
  6689.     procedure Set_ParagraphFormat(const prop: WordParagraphFormat); safecall;
  6690.     function  Get_Style: OleVariant; safecall;
  6691.     procedure Set_Style(var prop: OleVariant); safecall;
  6692.     function  Get_Text: WideString; safecall;
  6693.     procedure Set_Text(const prop: WideString); safecall;
  6694.     function  Get_LanguageID: WdLanguageID; safecall;
  6695.     procedure Set_LanguageID(prop: WdLanguageID); safecall;
  6696.     function  Get_Highlight: Integer; safecall;
  6697.     procedure Set_Highlight(prop: Integer); safecall;
  6698.     function  Get_Frame: Frame; safecall;
  6699.     function  Get_LanguageIDFarEast: WdLanguageID; safecall;
  6700.     procedure Set_LanguageIDFarEast(prop: WdLanguageID); safecall;
  6701.     procedure ClearFormatting; safecall;
  6702.     property Application: WordApplication read Get_Application;
  6703.     property Creator: Integer read Get_Creator;
  6704.     property Parent: IDispatch read Get_Parent;
  6705.     property Font: WordFont read Get_Font write Set_Font;
  6706.     property ParagraphFormat: WordParagraphFormat read Get_ParagraphFormat write Set_ParagraphFormat;
  6707.     property Text: WideString read Get_Text write Set_Text;
  6708.     property LanguageID: WdLanguageID read Get_LanguageID write Set_LanguageID;
  6709.     property Highlight: Integer read Get_Highlight write Set_Highlight;
  6710.     property Frame: Frame read Get_Frame;
  6711.     property LanguageIDFarEast: WdLanguageID read Get_LanguageIDFarEast write Set_LanguageIDFarEast;
  6712.   end;
  6713.  
  6714. // *********************************************************************//
  6715. // DispIntf:  ReplacementDisp
  6716. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6717. // GUID:      {000209B1-0000-0000-C000-000000000046}
  6718. // *********************************************************************//
  6719.   ReplacementDisp = dispinterface
  6720.     ['{000209B1-0000-0000-C000-000000000046}']
  6721.     property Application: WordApplication readonly dispid 1000;
  6722.     property Creator: Integer readonly dispid 1001;
  6723.     property Parent: IDispatch readonly dispid 1002;
  6724.     property Font: WordFont dispid 10;
  6725.     property ParagraphFormat: WordParagraphFormat dispid 11;
  6726.     function  Style: OleVariant; dispid 12;
  6727.     property Text: WideString dispid 15;
  6728.     property LanguageID: WdLanguageID dispid 16;
  6729.     property Highlight: Integer dispid 17;
  6730.     property Frame: Frame readonly dispid 18;
  6731.     property LanguageIDFarEast: WdLanguageID dispid 19;
  6732.     procedure ClearFormatting; dispid 20;
  6733.   end;
  6734.  
  6735. // *********************************************************************//
  6736. // Interface: Characters
  6737. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6738. // GUID:      {0002095D-0000-0000-C000-000000000046}
  6739. // *********************************************************************//
  6740.   Characters = interface(IDispatch)
  6741.     ['{0002095D-0000-0000-C000-000000000046}']
  6742.     function  Get__NewEnum: IUnknown; safecall;
  6743.     function  Get_Count: Integer; safecall;
  6744.     function  Get_First: Range; safecall;
  6745.     function  Get_Last: Range; safecall;
  6746.     function  Get_Application: WordApplication; safecall;
  6747.     function  Get_Creator: Integer; safecall;
  6748.     function  Get_Parent: IDispatch; safecall;
  6749.     function  Item(Index: Integer): Range; safecall;
  6750.     property _NewEnum: IUnknown read Get__NewEnum;
  6751.     property Count: Integer read Get_Count;
  6752.     property First: Range read Get_First;
  6753.     property Last: Range read Get_Last;
  6754.     property Application: WordApplication read Get_Application;
  6755.     property Creator: Integer read Get_Creator;
  6756.     property Parent: IDispatch read Get_Parent;
  6757.   end;
  6758.  
  6759. // *********************************************************************//
  6760. // DispIntf:  CharactersDisp
  6761. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6762. // GUID:      {0002095D-0000-0000-C000-000000000046}
  6763. // *********************************************************************//
  6764.   CharactersDisp = dispinterface
  6765.     ['{0002095D-0000-0000-C000-000000000046}']
  6766.     property _NewEnum: IUnknown readonly dispid -4;
  6767.     property Count: Integer readonly dispid 2;
  6768.     property First: Range readonly dispid 3;
  6769.     property Last: Range readonly dispid 4;
  6770.     property Application: WordApplication readonly dispid 1000;
  6771.     property Creator: Integer readonly dispid 1001;
  6772.     property Parent: IDispatch readonly dispid 1002;
  6773.     function  Item(Index: Integer): Range; dispid 0;
  6774.   end;
  6775.  
  6776. // *********************************************************************//
  6777. // Interface: Words
  6778. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6779. // GUID:      {0002095C-0000-0000-C000-000000000046}
  6780. // *********************************************************************//
  6781.   Words = interface(IDispatch)
  6782.     ['{0002095C-0000-0000-C000-000000000046}']
  6783.     function  Get__NewEnum: IUnknown; safecall;
  6784.     function  Get_Count: Integer; safecall;
  6785.     function  Get_First: Range; safecall;
  6786.     function  Get_Last: Range; safecall;
  6787.     function  Get_Application: WordApplication; safecall;
  6788.     function  Get_Creator: Integer; safecall;
  6789.     function  Get_Parent: IDispatch; safecall;
  6790.     function  Item(Index: Integer): Range; safecall;
  6791.     property _NewEnum: IUnknown read Get__NewEnum;
  6792.     property Count: Integer read Get_Count;
  6793.     property First: Range read Get_First;
  6794.     property Last: Range read Get_Last;
  6795.     property Application: WordApplication read Get_Application;
  6796.     property Creator: Integer read Get_Creator;
  6797.     property Parent: IDispatch read Get_Parent;
  6798.   end;
  6799.  
  6800. // *********************************************************************//
  6801. // DispIntf:  WordsDisp
  6802. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6803. // GUID:      {0002095C-0000-0000-C000-000000000046}
  6804. // *********************************************************************//
  6805.   WordsDisp = dispinterface
  6806.     ['{0002095C-0000-0000-C000-000000000046}']
  6807.     property _NewEnum: IUnknown readonly dispid -4;
  6808.     property Count: Integer readonly dispid 2;
  6809.     property First: Range readonly dispid 3;
  6810.     property Last: Range readonly dispid 4;
  6811.     property Application: WordApplication readonly dispid 1000;
  6812.     property Creator: Integer readonly dispid 1001;
  6813.     property Parent: IDispatch readonly dispid 1002;
  6814.     function  Item(Index: Integer): Range; dispid 0;
  6815.   end;
  6816.  
  6817. // *********************************************************************//
  6818. // Interface: Sentences
  6819. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6820. // GUID:      {0002095B-0000-0000-C000-000000000046}
  6821. // *********************************************************************//
  6822.   Sentences = interface(IDispatch)
  6823.     ['{0002095B-0000-0000-C000-000000000046}']
  6824.     function  Get__NewEnum: IUnknown; safecall;
  6825.     function  Get_Count: Integer; safecall;
  6826.     function  Get_First: Range; safecall;
  6827.     function  Get_Last: Range; safecall;
  6828.     function  Get_Application: WordApplication; safecall;
  6829.     function  Get_Creator: Integer; safecall;
  6830.     function  Get_Parent: IDispatch; safecall;
  6831.     function  Item(Index: Integer): Range; safecall;
  6832.     property _NewEnum: IUnknown read Get__NewEnum;
  6833.     property Count: Integer read Get_Count;
  6834.     property First: Range read Get_First;
  6835.     property Last: Range read Get_Last;
  6836.     property Application: WordApplication read Get_Application;
  6837.     property Creator: Integer read Get_Creator;
  6838.     property Parent: IDispatch read Get_Parent;
  6839.   end;
  6840.  
  6841. // *********************************************************************//
  6842. // DispIntf:  SentencesDisp
  6843. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6844. // GUID:      {0002095B-0000-0000-C000-000000000046}
  6845. // *********************************************************************//
  6846.   SentencesDisp = dispinterface
  6847.     ['{0002095B-0000-0000-C000-000000000046}']
  6848.     property _NewEnum: IUnknown readonly dispid -4;
  6849.     property Count: Integer readonly dispid 2;
  6850.     property First: Range readonly dispid 3;
  6851.     property Last: Range readonly dispid 4;
  6852.     property Application: WordApplication readonly dispid 1000;
  6853.     property Creator: Integer readonly dispid 1001;
  6854.     property Parent: IDispatch readonly dispid 1002;
  6855.     function  Item(Index: Integer): Range; dispid 0;
  6856.   end;
  6857.  
  6858. // *********************************************************************//
  6859. // Interface: Sections
  6860. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6861. // GUID:      {0002095A-0000-0000-C000-000000000046}
  6862. // *********************************************************************//
  6863.   Sections = interface(IDispatch)
  6864.     ['{0002095A-0000-0000-C000-000000000046}']
  6865.     function  Get__NewEnum: IUnknown; safecall;
  6866.     function  Get_Count: Integer; safecall;
  6867.     function  Get_First: Section; safecall;
  6868.     function  Get_Last: Section; safecall;
  6869.     function  Get_Application: WordApplication; safecall;
  6870.     function  Get_Creator: Integer; safecall;
  6871.     function  Get_Parent: IDispatch; safecall;
  6872.     function  Get_PageSetup: PageSetup; safecall;
  6873.     procedure Set_PageSetup(const prop: PageSetup); safecall;
  6874.     function  Item(Index: Integer): Section; safecall;
  6875.     function  Add(var Range: OleVariant; var Start: OleVariant): Section; safecall;
  6876.     property _NewEnum: IUnknown read Get__NewEnum;
  6877.     property Count: Integer read Get_Count;
  6878.     property First: Section read Get_First;
  6879.     property Last: Section read Get_Last;
  6880.     property Application: WordApplication read Get_Application;
  6881.     property Creator: Integer read Get_Creator;
  6882.     property Parent: IDispatch read Get_Parent;
  6883.     property PageSetup: PageSetup read Get_PageSetup write Set_PageSetup;
  6884.   end;
  6885.  
  6886. // *********************************************************************//
  6887. // DispIntf:  SectionsDisp
  6888. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6889. // GUID:      {0002095A-0000-0000-C000-000000000046}
  6890. // *********************************************************************//
  6891.   SectionsDisp = dispinterface
  6892.     ['{0002095A-0000-0000-C000-000000000046}']
  6893.     property _NewEnum: IUnknown readonly dispid -4;
  6894.     property Count: Integer readonly dispid 2;
  6895.     property First: Section readonly dispid 3;
  6896.     property Last: Section readonly dispid 4;
  6897.     property Application: WordApplication readonly dispid 1000;
  6898.     property Creator: Integer readonly dispid 1001;
  6899.     property Parent: IDispatch readonly dispid 1002;
  6900.     property PageSetup: PageSetup dispid 1101;
  6901.     function  Item(Index: Integer): Section; dispid 0;
  6902.     function  Add(var Range: OleVariant; var Start: OleVariant): Section; dispid 5;
  6903.   end;
  6904.  
  6905. // *********************************************************************//
  6906. // Interface: Section
  6907. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6908. // GUID:      {00020959-0000-0000-C000-000000000046}
  6909. // *********************************************************************//
  6910.   Section = interface(IDispatch)
  6911.     ['{00020959-0000-0000-C000-000000000046}']
  6912.     function  Get_Range: Range; safecall;
  6913.     function  Get_Application: WordApplication; safecall;
  6914.     function  Get_Creator: Integer; safecall;
  6915.     function  Get_Parent: IDispatch; safecall;
  6916.     function  Get_PageSetup: PageSetup; safecall;
  6917.     procedure Set_PageSetup(const prop: PageSetup); safecall;
  6918.     function  Get_Headers: HeadersFooters; safecall;
  6919.     function  Get_Footers: HeadersFooters; safecall;
  6920.     function  Get_ProtectedForForms: WordBool; safecall;
  6921.     procedure Set_ProtectedForForms(prop: WordBool); safecall;
  6922.     function  Get_Index: Integer; safecall;
  6923.     function  Get_Borders: Borders; safecall;
  6924.     procedure Set_Borders(const prop: Borders); safecall;
  6925.     property Range: Range read Get_Range;
  6926.     property Application: WordApplication read Get_Application;
  6927.     property Creator: Integer read Get_Creator;
  6928.     property Parent: IDispatch read Get_Parent;
  6929.     property PageSetup: PageSetup read Get_PageSetup write Set_PageSetup;
  6930.     property Headers: HeadersFooters read Get_Headers;
  6931.     property Footers: HeadersFooters read Get_Footers;
  6932.     property ProtectedForForms: WordBool read Get_ProtectedForForms write Set_ProtectedForForms;
  6933.     property Index: Integer read Get_Index;
  6934.     property Borders: Borders read Get_Borders write Set_Borders;
  6935.   end;
  6936.  
  6937. // *********************************************************************//
  6938. // DispIntf:  SectionDisp
  6939. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6940. // GUID:      {00020959-0000-0000-C000-000000000046}
  6941. // *********************************************************************//
  6942.   SectionDisp = dispinterface
  6943.     ['{00020959-0000-0000-C000-000000000046}']
  6944.     property Range: Range readonly dispid 0;
  6945.     property Application: WordApplication readonly dispid 1000;
  6946.     property Creator: Integer readonly dispid 1001;
  6947.     property Parent: IDispatch readonly dispid 1002;
  6948.     property PageSetup: PageSetup dispid 1101;
  6949.     property Headers: HeadersFooters readonly dispid 121;
  6950.     property Footers: HeadersFooters readonly dispid 122;
  6951.     property ProtectedForForms: WordBool dispid 123;
  6952.     property Index: Integer readonly dispid 124;
  6953.     property Borders: Borders dispid 1100;
  6954.   end;
  6955.  
  6956. // *********************************************************************//
  6957. // Interface: Paragraphs
  6958. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  6959. // GUID:      {00020958-0000-0000-C000-000000000046}
  6960. // *********************************************************************//
  6961.   Paragraphs = interface(IDispatch)
  6962.     ['{00020958-0000-0000-C000-000000000046}']
  6963.     function  Get__NewEnum: IUnknown; safecall;
  6964.     function  Get_Count: Integer; safecall;
  6965.     function  Get_First: Paragraph; safecall;
  6966.     function  Get_Last: Paragraph; safecall;
  6967.     function  Get_Application: WordApplication; safecall;
  6968.     function  Get_Creator: Integer; safecall;
  6969.     function  Get_Parent: IDispatch; safecall;
  6970.     function  Get_Format: WordParagraphFormat; safecall;
  6971.     procedure Set_Format(const prop: WordParagraphFormat); safecall;
  6972.     function  Get_TabStops: TabStops; safecall;
  6973.     procedure Set_TabStops(const prop: TabStops); safecall;
  6974.     function  Get_Borders: Borders; safecall;
  6975.     procedure Set_Borders(const prop: Borders); safecall;
  6976.     function  Get_Style: OleVariant; safecall;
  6977.     procedure Set_Style(var prop: OleVariant); safecall;
  6978.     function  Get_Alignment: WdParagraphAlignment; safecall;
  6979.     procedure Set_Alignment(prop: WdParagraphAlignment); safecall;
  6980.     function  Get_KeepTogether: Integer; safecall;
  6981.     procedure Set_KeepTogether(prop: Integer); safecall;
  6982.     function  Get_KeepWithNext: Integer; safecall;
  6983.     procedure Set_KeepWithNext(prop: Integer); safecall;
  6984.     function  Get_PageBreakBefore: Integer; safecall;
  6985.     procedure Set_PageBreakBefore(prop: Integer); safecall;
  6986.     function  Get_NoLineNumber: Integer; safecall;
  6987.     procedure Set_NoLineNumber(prop: Integer); safecall;
  6988.     function  Get_RightIndent: Single; safecall;
  6989.     procedure Set_RightIndent(prop: Single); safecall;
  6990.     function  Get_LeftIndent: Single; safecall;
  6991.     procedure Set_LeftIndent(prop: Single); safecall;
  6992.     function  Get_FirstLineIndent: Single; safecall;
  6993.     procedure Set_FirstLineIndent(prop: Single); safecall;
  6994.     function  Get_LineSpacing: Single; safecall;
  6995.     procedure Set_LineSpacing(prop: Single); safecall;
  6996.     function  Get_LineSpacingRule: WdLineSpacing; safecall;
  6997.     procedure Set_LineSpacingRule(prop: WdLineSpacing); safecall;
  6998.     function  Get_SpaceBefore: Single; safecall;
  6999.     procedure Set_SpaceBefore(prop: Single); safecall;
  7000.     function  Get_SpaceAfter: Single; safecall;
  7001.     procedure Set_SpaceAfter(prop: Single); safecall;
  7002.     function  Get_Hyphenation: Integer; safecall;
  7003.     procedure Set_Hyphenation(prop: Integer); safecall;
  7004.     function  Get_WidowControl: Integer; safecall;
  7005.     procedure Set_WidowControl(prop: Integer); safecall;
  7006.     function  Get_Shading: Shading; safecall;
  7007.     function  Get_FarEastLineBreakControl: Integer; safecall;
  7008.     procedure Set_FarEastLineBreakControl(prop: Integer); safecall;
  7009.     function  Get_WordWrap: Integer; safecall;
  7010.     procedure Set_WordWrap(prop: Integer); safecall;
  7011.     function  Get_HangingPunctuation: Integer; safecall;
  7012.     procedure Set_HangingPunctuation(prop: Integer); safecall;
  7013.     function  Get_HalfWidthPunctuationOnTopOfLine: Integer; safecall;
  7014.     procedure Set_HalfWidthPunctuationOnTopOfLine(prop: Integer); safecall;
  7015.     function  Get_AddSpaceBetweenFarEastAndAlpha: Integer; safecall;
  7016.     procedure Set_AddSpaceBetweenFarEastAndAlpha(prop: Integer); safecall;
  7017.     function  Get_AddSpaceBetweenFarEastAndDigit: Integer; safecall;
  7018.     procedure Set_AddSpaceBetweenFarEastAndDigit(prop: Integer); safecall;
  7019.     function  Get_BaseLineAlignment: WdBaselineAlignment; safecall;
  7020.     procedure Set_BaseLineAlignment(prop: WdBaselineAlignment); safecall;
  7021.     function  Get_AutoAdjustRightIndent: Integer; safecall;
  7022.     procedure Set_AutoAdjustRightIndent(prop: Integer); safecall;
  7023.     function  Get_DisableLineHeightGrid: Integer; safecall;
  7024.     procedure Set_DisableLineHeightGrid(prop: Integer); safecall;
  7025.     function  Get_OutlineLevel: WdOutlineLevel; safecall;
  7026.     procedure Set_OutlineLevel(prop: WdOutlineLevel); safecall;
  7027.     function  Item(Index: Integer): Paragraph; safecall;
  7028.     function  Add(var Range: OleVariant): Paragraph; safecall;
  7029.     procedure CloseUp; safecall;
  7030.     procedure OpenUp; safecall;
  7031.     procedure OpenOrCloseUp; safecall;
  7032.     procedure TabHangingIndent(Count: Smallint); safecall;
  7033.     procedure TabIndent(Count: Smallint); safecall;
  7034.     procedure Reset; safecall;
  7035.     procedure Space1; safecall;
  7036.     procedure Space15; safecall;
  7037.     procedure Space2; safecall;
  7038.     procedure IndentCharWidth(Count: Smallint); safecall;
  7039.     procedure IndentFirstLineCharWidth(Count: Smallint); safecall;
  7040.     procedure OutlinePromote; safecall;
  7041.     procedure OutlineDemote; safecall;
  7042.     procedure OutlineDemoteToBody; safecall;
  7043.     procedure Indent; safecall;
  7044.     procedure Outdent; safecall;
  7045.     property _NewEnum: IUnknown read Get__NewEnum;
  7046.     property Count: Integer read Get_Count;
  7047.     property First: Paragraph read Get_First;
  7048.     property Last: Paragraph read Get_Last;
  7049.     property Application: WordApplication read Get_Application;
  7050.     property Creator: Integer read Get_Creator;
  7051.     property Parent: IDispatch read Get_Parent;
  7052.     property Format: WordParagraphFormat read Get_Format write Set_Format;
  7053.     property TabStops: TabStops read Get_TabStops write Set_TabStops;
  7054.     property Borders: Borders read Get_Borders write Set_Borders;
  7055.     property Alignment: WdParagraphAlignment read Get_Alignment write Set_Alignment;
  7056.     property KeepTogether: Integer read Get_KeepTogether write Set_KeepTogether;
  7057.     property KeepWithNext: Integer read Get_KeepWithNext write Set_KeepWithNext;
  7058.     property PageBreakBefore: Integer read Get_PageBreakBefore write Set_PageBreakBefore;
  7059.     property NoLineNumber: Integer read Get_NoLineNumber write Set_NoLineNumber;
  7060.     property RightIndent: Single read Get_RightIndent write Set_RightIndent;
  7061.     property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
  7062.     property FirstLineIndent: Single read Get_FirstLineIndent write Set_FirstLineIndent;
  7063.     property LineSpacing: Single read Get_LineSpacing write Set_LineSpacing;
  7064.     property LineSpacingRule: WdLineSpacing read Get_LineSpacingRule write Set_LineSpacingRule;
  7065.     property SpaceBefore: Single read Get_SpaceBefore write Set_SpaceBefore;
  7066.     property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
  7067.     property Hyphenation: Integer read Get_Hyphenation write Set_Hyphenation;
  7068.     property WidowControl: Integer read Get_WidowControl write Set_WidowControl;
  7069.     property Shading: Shading read Get_Shading;
  7070.     property FarEastLineBreakControl: Integer read Get_FarEastLineBreakControl write Set_FarEastLineBreakControl;
  7071.     property WordWrap: Integer read Get_WordWrap write Set_WordWrap;
  7072.     property HangingPunctuation: Integer read Get_HangingPunctuation write Set_HangingPunctuation;
  7073.     property HalfWidthPunctuationOnTopOfLine: Integer read Get_HalfWidthPunctuationOnTopOfLine write Set_HalfWidthPunctuationOnTopOfLine;
  7074.     property AddSpaceBetweenFarEastAndAlpha: Integer read Get_AddSpaceBetweenFarEastAndAlpha write Set_AddSpaceBetweenFarEastAndAlpha;
  7075.     property AddSpaceBetweenFarEastAndDigit: Integer read Get_AddSpaceBetweenFarEastAndDigit write Set_AddSpaceBetweenFarEastAndDigit;
  7076.     property BaseLineAlignment: WdBaselineAlignment read Get_BaseLineAlignment write Set_BaseLineAlignment;
  7077.     property AutoAdjustRightIndent: Integer read Get_AutoAdjustRightIndent write Set_AutoAdjustRightIndent;
  7078.     property DisableLineHeightGrid: Integer read Get_DisableLineHeightGrid write Set_DisableLineHeightGrid;
  7079.     property OutlineLevel: WdOutlineLevel read Get_OutlineLevel write Set_OutlineLevel;
  7080.   end;
  7081.  
  7082. // *********************************************************************//
  7083. // DispIntf:  ParagraphsDisp
  7084. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7085. // GUID:      {00020958-0000-0000-C000-000000000046}
  7086. // *********************************************************************//
  7087.   ParagraphsDisp = dispinterface
  7088.     ['{00020958-0000-0000-C000-000000000046}']
  7089.     property _NewEnum: IUnknown readonly dispid -4;
  7090.     property Count: Integer readonly dispid 2;
  7091.     property First: Paragraph readonly dispid 3;
  7092.     property Last: Paragraph readonly dispid 4;
  7093.     property Application: WordApplication readonly dispid 1000;
  7094.     property Creator: Integer readonly dispid 1001;
  7095.     property Parent: IDispatch readonly dispid 1002;
  7096.     property Format: WordParagraphFormat dispid 1102;
  7097.     property TabStops: TabStops dispid 1103;
  7098.     property Borders: Borders dispid 1100;
  7099.     function  Style: OleVariant; dispid 100;
  7100.     property Alignment: WdParagraphAlignment dispid 101;
  7101.     property KeepTogether: Integer dispid 102;
  7102.     property KeepWithNext: Integer dispid 103;
  7103.     property PageBreakBefore: Integer dispid 104;
  7104.     property NoLineNumber: Integer dispid 105;
  7105.     property RightIndent: Single dispid 106;
  7106.     property LeftIndent: Single dispid 107;
  7107.     property FirstLineIndent: Single dispid 108;
  7108.     property LineSpacing: Single dispid 109;
  7109.     property LineSpacingRule: WdLineSpacing dispid 110;
  7110.     property SpaceBefore: Single dispid 111;
  7111.     property SpaceAfter: Single dispid 112;
  7112.     property Hyphenation: Integer dispid 113;
  7113.     property WidowControl: Integer dispid 114;
  7114.     property Shading: Shading readonly dispid 116;
  7115.     property FarEastLineBreakControl: Integer dispid 117;
  7116.     property WordWrap: Integer dispid 118;
  7117.     property HangingPunctuation: Integer dispid 119;
  7118.     property HalfWidthPunctuationOnTopOfLine: Integer dispid 120;
  7119.     property AddSpaceBetweenFarEastAndAlpha: Integer dispid 121;
  7120.     property AddSpaceBetweenFarEastAndDigit: Integer dispid 122;
  7121.     property BaseLineAlignment: WdBaselineAlignment dispid 123;
  7122.     property AutoAdjustRightIndent: Integer dispid 124;
  7123.     property DisableLineHeightGrid: Integer dispid 125;
  7124.     property OutlineLevel: WdOutlineLevel dispid 202;
  7125.     function  Item(Index: Integer): Paragraph; dispid 0;
  7126.     function  Add(var Range: OleVariant): Paragraph; dispid 5;
  7127.     procedure CloseUp; dispid 301;
  7128.     procedure OpenUp; dispid 302;
  7129.     procedure OpenOrCloseUp; dispid 303;
  7130.     procedure TabHangingIndent(Count: Smallint); dispid 304;
  7131.     procedure TabIndent(Count: Smallint); dispid 306;
  7132.     procedure Reset; dispid 312;
  7133.     procedure Space1; dispid 313;
  7134.     procedure Space15; dispid 314;
  7135.     procedure Space2; dispid 315;
  7136.     procedure IndentCharWidth(Count: Smallint); dispid 320;
  7137.     procedure IndentFirstLineCharWidth(Count: Smallint); dispid 322;
  7138.     procedure OutlinePromote; dispid 324;
  7139.     procedure OutlineDemote; dispid 325;
  7140.     procedure OutlineDemoteToBody; dispid 326;
  7141.     procedure Indent; dispid 333;
  7142.     procedure Outdent; dispid 334;
  7143.   end;
  7144.  
  7145. // *********************************************************************//
  7146. // Interface: Paragraph
  7147. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7148. // GUID:      {00020957-0000-0000-C000-000000000046}
  7149. // *********************************************************************//
  7150.   Paragraph = interface(IDispatch)
  7151.     ['{00020957-0000-0000-C000-000000000046}']
  7152.     function  Get_Range: Range; safecall;
  7153.     function  Get_Application: WordApplication; safecall;
  7154.     function  Get_Creator: Integer; safecall;
  7155.     function  Get_Parent: IDispatch; safecall;
  7156.     function  Get_Format: WordParagraphFormat; safecall;
  7157.     procedure Set_Format(const prop: WordParagraphFormat); safecall;
  7158.     function  Get_TabStops: TabStops; safecall;
  7159.     procedure Set_TabStops(const prop: TabStops); safecall;
  7160.     function  Get_Borders: Borders; safecall;
  7161.     procedure Set_Borders(const prop: Borders); safecall;
  7162.     function  Get_DropCap: DropCap; safecall;
  7163.     function  Get_Style: OleVariant; safecall;
  7164.     procedure Set_Style(var prop: OleVariant); safecall;
  7165.     function  Get_Alignment: WdParagraphAlignment; safecall;
  7166.     procedure Set_Alignment(prop: WdParagraphAlignment); safecall;
  7167.     function  Get_KeepTogether: Integer; safecall;
  7168.     procedure Set_KeepTogether(prop: Integer); safecall;
  7169.     function  Get_KeepWithNext: Integer; safecall;
  7170.     procedure Set_KeepWithNext(prop: Integer); safecall;
  7171.     function  Get_PageBreakBefore: Integer; safecall;
  7172.     procedure Set_PageBreakBefore(prop: Integer); safecall;
  7173.     function  Get_NoLineNumber: Integer; safecall;
  7174.     procedure Set_NoLineNumber(prop: Integer); safecall;
  7175.     function  Get_RightIndent: Single; safecall;
  7176.     procedure Set_RightIndent(prop: Single); safecall;
  7177.     function  Get_LeftIndent: Single; safecall;
  7178.     procedure Set_LeftIndent(prop: Single); safecall;
  7179.     function  Get_FirstLineIndent: Single; safecall;
  7180.     procedure Set_FirstLineIndent(prop: Single); safecall;
  7181.     function  Get_LineSpacing: Single; safecall;
  7182.     procedure Set_LineSpacing(prop: Single); safecall;
  7183.     function  Get_LineSpacingRule: WdLineSpacing; safecall;
  7184.     procedure Set_LineSpacingRule(prop: WdLineSpacing); safecall;
  7185.     function  Get_SpaceBefore: Single; safecall;
  7186.     procedure Set_SpaceBefore(prop: Single); safecall;
  7187.     function  Get_SpaceAfter: Single; safecall;
  7188.     procedure Set_SpaceAfter(prop: Single); safecall;
  7189.     function  Get_Hyphenation: Integer; safecall;
  7190.     procedure Set_Hyphenation(prop: Integer); safecall;
  7191.     function  Get_WidowControl: Integer; safecall;
  7192.     procedure Set_WidowControl(prop: Integer); safecall;
  7193.     function  Get_Shading: Shading; safecall;
  7194.     function  Get_FarEastLineBreakControl: Integer; safecall;
  7195.     procedure Set_FarEastLineBreakControl(prop: Integer); safecall;
  7196.     function  Get_WordWrap: Integer; safecall;
  7197.     procedure Set_WordWrap(prop: Integer); safecall;
  7198.     function  Get_HangingPunctuation: Integer; safecall;
  7199.     procedure Set_HangingPunctuation(prop: Integer); safecall;
  7200.     function  Get_HalfWidthPunctuationOnTopOfLine: Integer; safecall;
  7201.     procedure Set_HalfWidthPunctuationOnTopOfLine(prop: Integer); safecall;
  7202.     function  Get_AddSpaceBetweenFarEastAndAlpha: Integer; safecall;
  7203.     procedure Set_AddSpaceBetweenFarEastAndAlpha(prop: Integer); safecall;
  7204.     function  Get_AddSpaceBetweenFarEastAndDigit: Integer; safecall;
  7205.     procedure Set_AddSpaceBetweenFarEastAndDigit(prop: Integer); safecall;
  7206.     function  Get_BaseLineAlignment: WdBaselineAlignment; safecall;
  7207.     procedure Set_BaseLineAlignment(prop: WdBaselineAlignment); safecall;
  7208.     function  Get_AutoAdjustRightIndent: Integer; safecall;
  7209.     procedure Set_AutoAdjustRightIndent(prop: Integer); safecall;
  7210.     function  Get_DisableLineHeightGrid: Integer; safecall;
  7211.     procedure Set_DisableLineHeightGrid(prop: Integer); safecall;
  7212.     function  Get_OutlineLevel: WdOutlineLevel; safecall;
  7213.     procedure Set_OutlineLevel(prop: WdOutlineLevel); safecall;
  7214.     procedure CloseUp; safecall;
  7215.     procedure OpenUp; safecall;
  7216.     procedure OpenOrCloseUp; safecall;
  7217.     procedure TabHangingIndent(Count: Smallint); safecall;
  7218.     procedure TabIndent(Count: Smallint); safecall;
  7219.     procedure Reset; safecall;
  7220.     procedure Space1; safecall;
  7221.     procedure Space15; safecall;
  7222.     procedure Space2; safecall;
  7223.     procedure IndentCharWidth(Count: Smallint); safecall;
  7224.     procedure IndentFirstLineCharWidth(Count: Smallint); safecall;
  7225.     function  Next(var Count: OleVariant): Paragraph; safecall;
  7226.     function  Previous(var Count: OleVariant): Paragraph; safecall;
  7227.     procedure OutlinePromote; safecall;
  7228.     procedure OutlineDemote; safecall;
  7229.     procedure OutlineDemoteToBody; safecall;
  7230.     procedure Indent; safecall;
  7231.     procedure Outdent; safecall;
  7232.     property Range: Range read Get_Range;
  7233.     property Application: WordApplication read Get_Application;
  7234.     property Creator: Integer read Get_Creator;
  7235.     property Parent: IDispatch read Get_Parent;
  7236.     property Format: WordParagraphFormat read Get_Format write Set_Format;
  7237.     property TabStops: TabStops read Get_TabStops write Set_TabStops;
  7238.     property Borders: Borders read Get_Borders write Set_Borders;
  7239.     property DropCap: DropCap read Get_DropCap;
  7240.     property Alignment: WdParagraphAlignment read Get_Alignment write Set_Alignment;
  7241.     property KeepTogether: Integer read Get_KeepTogether write Set_KeepTogether;
  7242.     property KeepWithNext: Integer read Get_KeepWithNext write Set_KeepWithNext;
  7243.     property PageBreakBefore: Integer read Get_PageBreakBefore write Set_PageBreakBefore;
  7244.     property NoLineNumber: Integer read Get_NoLineNumber write Set_NoLineNumber;
  7245.     property RightIndent: Single read Get_RightIndent write Set_RightIndent;
  7246.     property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
  7247.     property FirstLineIndent: Single read Get_FirstLineIndent write Set_FirstLineIndent;
  7248.     property LineSpacing: Single read Get_LineSpacing write Set_LineSpacing;
  7249.     property LineSpacingRule: WdLineSpacing read Get_LineSpacingRule write Set_LineSpacingRule;
  7250.     property SpaceBefore: Single read Get_SpaceBefore write Set_SpaceBefore;
  7251.     property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
  7252.     property Hyphenation: Integer read Get_Hyphenation write Set_Hyphenation;
  7253.     property WidowControl: Integer read Get_WidowControl write Set_WidowControl;
  7254.     property Shading: Shading read Get_Shading;
  7255.     property FarEastLineBreakControl: Integer read Get_FarEastLineBreakControl write Set_FarEastLineBreakControl;
  7256.     property WordWrap: Integer read Get_WordWrap write Set_WordWrap;
  7257.     property HangingPunctuation: Integer read Get_HangingPunctuation write Set_HangingPunctuation;
  7258.     property HalfWidthPunctuationOnTopOfLine: Integer read Get_HalfWidthPunctuationOnTopOfLine write Set_HalfWidthPunctuationOnTopOfLine;
  7259.     property AddSpaceBetweenFarEastAndAlpha: Integer read Get_AddSpaceBetweenFarEastAndAlpha write Set_AddSpaceBetweenFarEastAndAlpha;
  7260.     property AddSpaceBetweenFarEastAndDigit: Integer read Get_AddSpaceBetweenFarEastAndDigit write Set_AddSpaceBetweenFarEastAndDigit;
  7261.     property BaseLineAlignment: WdBaselineAlignment read Get_BaseLineAlignment write Set_BaseLineAlignment;
  7262.     property AutoAdjustRightIndent: Integer read Get_AutoAdjustRightIndent write Set_AutoAdjustRightIndent;
  7263.     property DisableLineHeightGrid: Integer read Get_DisableLineHeightGrid write Set_DisableLineHeightGrid;
  7264.     property OutlineLevel: WdOutlineLevel read Get_OutlineLevel write Set_OutlineLevel;
  7265.   end;
  7266.  
  7267. // *********************************************************************//
  7268. // DispIntf:  ParagraphDisp
  7269. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7270. // GUID:      {00020957-0000-0000-C000-000000000046}
  7271. // *********************************************************************//
  7272.   ParagraphDisp = dispinterface
  7273.     ['{00020957-0000-0000-C000-000000000046}']
  7274.     property Range: Range readonly dispid 0;
  7275.     property Application: WordApplication readonly dispid 1000;
  7276.     property Creator: Integer readonly dispid 1001;
  7277.     property Parent: IDispatch readonly dispid 1002;
  7278.     property Format: WordParagraphFormat dispid 1102;
  7279.     property TabStops: TabStops dispid 1103;
  7280.     property Borders: Borders dispid 1100;
  7281.     property DropCap: DropCap readonly dispid 13;
  7282.     function  Style: OleVariant; dispid 100;
  7283.     property Alignment: WdParagraphAlignment dispid 101;
  7284.     property KeepTogether: Integer dispid 102;
  7285.     property KeepWithNext: Integer dispid 103;
  7286.     property PageBreakBefore: Integer dispid 104;
  7287.     property NoLineNumber: Integer dispid 105;
  7288.     property RightIndent: Single dispid 106;
  7289.     property LeftIndent: Single dispid 107;
  7290.     property FirstLineIndent: Single dispid 108;
  7291.     property LineSpacing: Single dispid 109;
  7292.     property LineSpacingRule: WdLineSpacing dispid 110;
  7293.     property SpaceBefore: Single dispid 111;
  7294.     property SpaceAfter: Single dispid 112;
  7295.     property Hyphenation: Integer dispid 113;
  7296.     property WidowControl: Integer dispid 114;
  7297.     property Shading: Shading readonly dispid 116;
  7298.     property FarEastLineBreakControl: Integer dispid 117;
  7299.     property WordWrap: Integer dispid 118;
  7300.     property HangingPunctuation: Integer dispid 119;
  7301.     property HalfWidthPunctuationOnTopOfLine: Integer dispid 120;
  7302.     property AddSpaceBetweenFarEastAndAlpha: Integer dispid 121;
  7303.     property AddSpaceBetweenFarEastAndDigit: Integer dispid 122;
  7304.     property BaseLineAlignment: WdBaselineAlignment dispid 123;
  7305.     property AutoAdjustRightIndent: Integer dispid 124;
  7306.     property DisableLineHeightGrid: Integer dispid 125;
  7307.     property OutlineLevel: WdOutlineLevel dispid 202;
  7308.     procedure CloseUp; dispid 301;
  7309.     procedure OpenUp; dispid 302;
  7310.     procedure OpenOrCloseUp; dispid 303;
  7311.     procedure TabHangingIndent(Count: Smallint); dispid 304;
  7312.     procedure TabIndent(Count: Smallint); dispid 306;
  7313.     procedure Reset; dispid 312;
  7314.     procedure Space1; dispid 313;
  7315.     procedure Space15; dispid 314;
  7316.     procedure Space2; dispid 315;
  7317.     procedure IndentCharWidth(Count: Smallint); dispid 320;
  7318.     procedure IndentFirstLineCharWidth(Count: Smallint); dispid 322;
  7319.     function  Next(var Count: OleVariant): Paragraph; dispid 324;
  7320.     function  Previous(var Count: OleVariant): Paragraph; dispid 325;
  7321.     procedure OutlinePromote; dispid 326;
  7322.     procedure OutlineDemote; dispid 327;
  7323.     procedure OutlineDemoteToBody; dispid 328;
  7324.     procedure Indent; dispid 333;
  7325.     procedure Outdent; dispid 334;
  7326.   end;
  7327.  
  7328. // *********************************************************************//
  7329. // Interface: DropCap
  7330. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7331. // GUID:      {00020956-0000-0000-C000-000000000046}
  7332. // *********************************************************************//
  7333.   DropCap = interface(IDispatch)
  7334.     ['{00020956-0000-0000-C000-000000000046}']
  7335.     function  Get_Application: WordApplication; safecall;
  7336.     function  Get_Creator: Integer; safecall;
  7337.     function  Get_Parent: IDispatch; safecall;
  7338.     function  Get_Position: WdDropPosition; safecall;
  7339.     procedure Set_Position(prop: WdDropPosition); safecall;
  7340.     function  Get_FontName: WideString; safecall;
  7341.     procedure Set_FontName(const prop: WideString); safecall;
  7342.     function  Get_LinesToDrop: Integer; safecall;
  7343.     procedure Set_LinesToDrop(prop: Integer); safecall;
  7344.     function  Get_DistanceFromText: Single; safecall;
  7345.     procedure Set_DistanceFromText(prop: Single); safecall;
  7346.     procedure Clear; safecall;
  7347.     procedure Enable; safecall;
  7348.     property Application: WordApplication read Get_Application;
  7349.     property Creator: Integer read Get_Creator;
  7350.     property Parent: IDispatch read Get_Parent;
  7351.     property Position: WdDropPosition read Get_Position write Set_Position;
  7352.     property FontName: WideString read Get_FontName write Set_FontName;
  7353.     property LinesToDrop: Integer read Get_LinesToDrop write Set_LinesToDrop;
  7354.     property DistanceFromText: Single read Get_DistanceFromText write Set_DistanceFromText;
  7355.   end;
  7356.  
  7357. // *********************************************************************//
  7358. // DispIntf:  DropCapDisp
  7359. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7360. // GUID:      {00020956-0000-0000-C000-000000000046}
  7361. // *********************************************************************//
  7362.   DropCapDisp = dispinterface
  7363.     ['{00020956-0000-0000-C000-000000000046}']
  7364.     property Application: WordApplication readonly dispid 1000;
  7365.     property Creator: Integer readonly dispid 1001;
  7366.     property Parent: IDispatch readonly dispid 1002;
  7367.     property Position: WdDropPosition dispid 10;
  7368.     property FontName: WideString dispid 11;
  7369.     property LinesToDrop: Integer dispid 12;
  7370.     property DistanceFromText: Single dispid 13;
  7371.     procedure Clear; dispid 100;
  7372.     procedure Enable; dispid 101;
  7373.   end;
  7374.  
  7375. // *********************************************************************//
  7376. // Interface: TabStops
  7377. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7378. // GUID:      {00020955-0000-0000-C000-000000000046}
  7379. // *********************************************************************//
  7380.   TabStops = interface(IDispatch)
  7381.     ['{00020955-0000-0000-C000-000000000046}']
  7382.     function  Get__NewEnum: IUnknown; safecall;
  7383.     function  Get_Count: Integer; safecall;
  7384.     function  Get_Application: WordApplication; safecall;
  7385.     function  Get_Creator: Integer; safecall;
  7386.     function  Get_Parent: IDispatch; safecall;
  7387.     function  Item(var Index: OleVariant): TabStop; safecall;
  7388.     function  Add(Position: Single; var Alignment: OleVariant; var Leader: OleVariant): TabStop; safecall;
  7389.     procedure ClearAll; safecall;
  7390.     function  Before(Position: Single): TabStop; safecall;
  7391.     function  After(Position: Single): TabStop; safecall;
  7392.     property _NewEnum: IUnknown read Get__NewEnum;
  7393.     property Count: Integer read Get_Count;
  7394.     property Application: WordApplication read Get_Application;
  7395.     property Creator: Integer read Get_Creator;
  7396.     property Parent: IDispatch read Get_Parent;
  7397.   end;
  7398.  
  7399. // *********************************************************************//
  7400. // DispIntf:  TabStopsDisp
  7401. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7402. // GUID:      {00020955-0000-0000-C000-000000000046}
  7403. // *********************************************************************//
  7404.   TabStopsDisp = dispinterface
  7405.     ['{00020955-0000-0000-C000-000000000046}']
  7406.     property _NewEnum: IUnknown readonly dispid -4;
  7407.     property Count: Integer readonly dispid 2;
  7408.     property Application: WordApplication readonly dispid 1000;
  7409.     property Creator: Integer readonly dispid 1001;
  7410.     property Parent: IDispatch readonly dispid 1002;
  7411.     function  Item(var Index: OleVariant): TabStop; dispid 0;
  7412.     function  Add(Position: Single; var Alignment: OleVariant; var Leader: OleVariant): TabStop; dispid 100;
  7413.     procedure ClearAll; dispid 101;
  7414.     function  Before(Position: Single): TabStop; dispid 102;
  7415.     function  After(Position: Single): TabStop; dispid 103;
  7416.   end;
  7417.  
  7418. // *********************************************************************//
  7419. // Interface: TabStop
  7420. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7421. // GUID:      {00020954-0000-0000-C000-000000000046}
  7422. // *********************************************************************//
  7423.   TabStop = interface(IDispatch)
  7424.     ['{00020954-0000-0000-C000-000000000046}']
  7425.     function  Get_Application: WordApplication; safecall;
  7426.     function  Get_Creator: Integer; safecall;
  7427.     function  Get_Parent: IDispatch; safecall;
  7428.     function  Get_Alignment: WdTabAlignment; safecall;
  7429.     procedure Set_Alignment(prop: WdTabAlignment); safecall;
  7430.     function  Get_Leader: WdTabLeader; safecall;
  7431.     procedure Set_Leader(prop: WdTabLeader); safecall;
  7432.     function  Get_Position: Single; safecall;
  7433.     procedure Set_Position(prop: Single); safecall;
  7434.     function  Get_CustomTab: WordBool; safecall;
  7435.     function  Get_Next: TabStop; safecall;
  7436.     function  Get_Previous: TabStop; safecall;
  7437.     procedure Clear; safecall;
  7438.     property Application: WordApplication read Get_Application;
  7439.     property Creator: Integer read Get_Creator;
  7440.     property Parent: IDispatch read Get_Parent;
  7441.     property Alignment: WdTabAlignment read Get_Alignment write Set_Alignment;
  7442.     property Leader: WdTabLeader read Get_Leader write Set_Leader;
  7443.     property Position: Single read Get_Position write Set_Position;
  7444.     property CustomTab: WordBool read Get_CustomTab;
  7445.     property Next: TabStop read Get_Next;
  7446.     property Previous: TabStop read Get_Previous;
  7447.   end;
  7448.  
  7449. // *********************************************************************//
  7450. // DispIntf:  TabStopDisp
  7451. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7452. // GUID:      {00020954-0000-0000-C000-000000000046}
  7453. // *********************************************************************//
  7454.   TabStopDisp = dispinterface
  7455.     ['{00020954-0000-0000-C000-000000000046}']
  7456.     property Application: WordApplication readonly dispid 1000;
  7457.     property Creator: Integer readonly dispid 1001;
  7458.     property Parent: IDispatch readonly dispid 1002;
  7459.     property Alignment: WdTabAlignment dispid 100;
  7460.     property Leader: WdTabLeader dispid 101;
  7461.     property Position: Single dispid 102;
  7462.     property CustomTab: WordBool readonly dispid 103;
  7463.     property Next: TabStop readonly dispid 104;
  7464.     property Previous: TabStop readonly dispid 105;
  7465.     procedure Clear; dispid 200;
  7466.   end;
  7467.  
  7468. // *********************************************************************//
  7469. // Interface: _ParagraphFormat
  7470. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  7471. // GUID:      {00020953-0000-0000-C000-000000000046}
  7472. // *********************************************************************//
  7473.   _ParagraphFormat = interface(IDispatch)
  7474.     ['{00020953-0000-0000-C000-000000000046}']
  7475.     function  Get_Application: WordApplication; safecall;
  7476.     function  Get_Creator: Integer; safecall;
  7477.     function  Get_Parent: IDispatch; safecall;
  7478.     function  Get_Duplicate: WordParagraphFormat; safecall;
  7479.     function  Get_Style: OleVariant; safecall;
  7480.     procedure Set_Style(var prop: OleVariant); safecall;
  7481.     function  Get_Alignment: WdParagraphAlignment; safecall;
  7482.     procedure Set_Alignment(prop: WdParagraphAlignment); safecall;
  7483.     function  Get_KeepTogether: Integer; safecall;
  7484.     procedure Set_KeepTogether(prop: Integer); safecall;
  7485.     function  Get_KeepWithNext: Integer; safecall;
  7486.     procedure Set_KeepWithNext(prop: Integer); safecall;
  7487.     function  Get_PageBreakBefore: Integer; safecall;
  7488.     procedure Set_PageBreakBefore(prop: Integer); safecall;
  7489.     function  Get_NoLineNumber: Integer; safecall;
  7490.     procedure Set_NoLineNumber(prop: Integer); safecall;
  7491.     function  Get_RightIndent: Single; safecall;
  7492.     procedure Set_RightIndent(prop: Single); safecall;
  7493.     function  Get_LeftIndent: Single; safecall;
  7494.     procedure Set_LeftIndent(prop: Single); safecall;
  7495.     function  Get_FirstLineIndent: Single; safecall;
  7496.     procedure Set_FirstLineIndent(prop: Single); safecall;
  7497.     function  Get_LineSpacing: Single; safecall;
  7498.     procedure Set_LineSpacing(prop: Single); safecall;
  7499.     function  Get_LineSpacingRule: WdLineSpacing; safecall;
  7500.     procedure Set_LineSpacingRule(prop: WdLineSpacing); safecall;
  7501.     function  Get_SpaceBefore: Single; safecall;
  7502.     procedure Set_SpaceBefore(prop: Single); safecall;
  7503.     function  Get_SpaceAfter: Single; safecall;
  7504.     procedure Set_SpaceAfter(prop: Single); safecall;
  7505.     function  Get_Hyphenation: Integer; safecall;
  7506.     procedure Set_Hyphenation(prop: Integer); safecall;
  7507.     function  Get_WidowControl: Integer; safecall;
  7508.     procedure Set_WidowControl(prop: Integer); safecall;
  7509.     function  Get_FarEastLineBreakControl: Integer; safecall;
  7510.     procedure Set_FarEastLineBreakControl(prop: Integer); safecall;
  7511.     function  Get_WordWrap: Integer; safecall;
  7512.     procedure Set_WordWrap(prop: Integer); safecall;
  7513.     function  Get_HangingPunctuation: Integer; safecall;
  7514.     procedure Set_HangingPunctuation(prop: Integer); safecall;
  7515.     function  Get_HalfWidthPunctuationOnTopOfLine: Integer; safecall;
  7516.     procedure Set_HalfWidthPunctuationOnTopOfLine(prop: Integer); safecall;
  7517.     function  Get_AddSpaceBetweenFarEastAndAlpha: Integer; safecall;
  7518.     procedure Set_AddSpaceBetweenFarEastAndAlpha(prop: Integer); safecall;
  7519.     function  Get_AddSpaceBetweenFarEastAndDigit: Integer; safecall;
  7520.     procedure Set_AddSpaceBetweenFarEastAndDigit(prop: Integer); safecall;
  7521.     function  Get_BaseLineAlignment: WdBaselineAlignment; safecall;
  7522.     procedure Set_BaseLineAlignment(prop: WdBaselineAlignment); safecall;
  7523.     function  Get_AutoAdjustRightIndent: Integer; safecall;
  7524.     procedure Set_AutoAdjustRightIndent(prop: Integer); safecall;
  7525.     function  Get_DisableLineHeightGrid: Integer; safecall;
  7526.     procedure Set_DisableLineHeightGrid(prop: Integer); safecall;
  7527.     function  Get_TabStops: TabStops; safecall;
  7528.     procedure Set_TabStops(const prop: TabStops); safecall;
  7529.     function  Get_Borders: Borders; safecall;
  7530.     procedure Set_Borders(const prop: Borders); safecall;
  7531.     function  Get_Shading: Shading; safecall;
  7532.     function  Get_OutlineLevel: WdOutlineLevel; safecall;
  7533.     procedure Set_OutlineLevel(prop: WdOutlineLevel); safecall;
  7534.     procedure CloseUp; safecall;
  7535.     procedure OpenUp; safecall;
  7536.     procedure OpenOrCloseUp; safecall;
  7537.     procedure TabHangingIndent(Count: Smallint); safecall;
  7538.     procedure TabIndent(Count: Smallint); safecall;
  7539.     procedure Reset; safecall;
  7540.     procedure Space1; safecall;
  7541.     procedure Space15; safecall;
  7542.     procedure Space2; safecall;
  7543.     procedure IndentCharWidth(Count: Smallint); safecall;
  7544.     procedure IndentFirstLineCharWidth(Count: Smallint); safecall;
  7545.     property Application: WordApplication read Get_Application;
  7546.     property Creator: Integer read Get_Creator;
  7547.     property Parent: IDispatch read Get_Parent;
  7548.     property Duplicate: WordParagraphFormat read Get_Duplicate;
  7549.     property Alignment: WdParagraphAlignment read Get_Alignment write Set_Alignment;
  7550.     property KeepTogether: Integer read Get_KeepTogether write Set_KeepTogether;
  7551.     property KeepWithNext: Integer read Get_KeepWithNext write Set_KeepWithNext;
  7552.     property PageBreakBefore: Integer read Get_PageBreakBefore write Set_PageBreakBefore;
  7553.     property NoLineNumber: Integer read Get_NoLineNumber write Set_NoLineNumber;
  7554.     property RightIndent: Single read Get_RightIndent write Set_RightIndent;
  7555.     property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
  7556.     property FirstLineIndent: Single read Get_FirstLineIndent write Set_FirstLineIndent;
  7557.     property LineSpacing: Single read Get_LineSpacing write Set_LineSpacing;
  7558.     property LineSpacingRule: WdLineSpacing read Get_LineSpacingRule write Set_LineSpacingRule;
  7559.     property SpaceBefore: Single read Get_SpaceBefore write Set_SpaceBefore;
  7560.     property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
  7561.     property Hyphenation: Integer read Get_Hyphenation write Set_Hyphenation;
  7562.     property WidowControl: Integer read Get_WidowControl write Set_WidowControl;
  7563.     property FarEastLineBreakControl: Integer read Get_FarEastLineBreakControl write Set_FarEastLineBreakControl;
  7564.     property WordWrap: Integer read Get_WordWrap write Set_WordWrap;
  7565.     property HangingPunctuation: Integer read Get_HangingPunctuation write Set_HangingPunctuation;
  7566.     property HalfWidthPunctuationOnTopOfLine: Integer read Get_HalfWidthPunctuationOnTopOfLine write Set_HalfWidthPunctuationOnTopOfLine;
  7567.     property AddSpaceBetweenFarEastAndAlpha: Integer read Get_AddSpaceBetweenFarEastAndAlpha write Set_AddSpaceBetweenFarEastAndAlpha;
  7568.     property AddSpaceBetweenFarEastAndDigit: Integer read Get_AddSpaceBetweenFarEastAndDigit write Set_AddSpaceBetweenFarEastAndDigit;
  7569.     property BaseLineAlignment: WdBaselineAlignment read Get_BaseLineAlignment write Set_BaseLineAlignment;
  7570.     property AutoAdjustRightIndent: Integer read Get_AutoAdjustRightIndent write Set_AutoAdjustRightIndent;
  7571.     property DisableLineHeightGrid: Integer read Get_DisableLineHeightGrid write Set_DisableLineHeightGrid;
  7572.     property TabStops: TabStops read Get_TabStops write Set_TabStops;
  7573.     property Borders: Borders read Get_Borders write Set_Borders;
  7574.     property Shading: Shading read Get_Shading;
  7575.     property OutlineLevel: WdOutlineLevel read Get_OutlineLevel write Set_OutlineLevel;
  7576.   end;
  7577.  
  7578. // *********************************************************************//
  7579. // DispIntf:  _ParagraphFormatDisp
  7580. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  7581. // GUID:      {00020953-0000-0000-C000-000000000046}
  7582. // *********************************************************************//
  7583.   _ParagraphFormatDisp = dispinterface
  7584.     ['{00020953-0000-0000-C000-000000000046}']
  7585.     property Application: WordApplication readonly dispid 1000;
  7586.     property Creator: Integer readonly dispid 1001;
  7587.     property Parent: IDispatch readonly dispid 1002;
  7588.     property Duplicate: WordParagraphFormat readonly dispid 10;
  7589.     function  Style: OleVariant; dispid 100;
  7590.     property Alignment: WdParagraphAlignment dispid 101;
  7591.     property KeepTogether: Integer dispid 102;
  7592.     property KeepWithNext: Integer dispid 103;
  7593.     property PageBreakBefore: Integer dispid 104;
  7594.     property NoLineNumber: Integer dispid 105;
  7595.     property RightIndent: Single dispid 106;
  7596.     property LeftIndent: Single dispid 107;
  7597.     property FirstLineIndent: Single dispid 108;
  7598.     property LineSpacing: Single dispid 109;
  7599.     property LineSpacingRule: WdLineSpacing dispid 110;
  7600.     property SpaceBefore: Single dispid 111;
  7601.     property SpaceAfter: Single dispid 112;
  7602.     property Hyphenation: Integer dispid 113;
  7603.     property WidowControl: Integer dispid 114;
  7604.     property FarEastLineBreakControl: Integer dispid 117;
  7605.     property WordWrap: Integer dispid 118;
  7606.     property HangingPunctuation: Integer dispid 119;
  7607.     property HalfWidthPunctuationOnTopOfLine: Integer dispid 120;
  7608.     property AddSpaceBetweenFarEastAndAlpha: Integer dispid 121;
  7609.     property AddSpaceBetweenFarEastAndDigit: Integer dispid 122;
  7610.     property BaseLineAlignment: WdBaselineAlignment dispid 123;
  7611.     property AutoAdjustRightIndent: Integer dispid 124;
  7612.     property DisableLineHeightGrid: Integer dispid 125;
  7613.     property TabStops: TabStops dispid 1103;
  7614.     property Borders: Borders dispid 1100;
  7615.     property Shading: Shading readonly dispid 1101;
  7616.     property OutlineLevel: WdOutlineLevel dispid 202;
  7617.     procedure CloseUp; dispid 301;
  7618.     procedure OpenUp; dispid 302;
  7619.     procedure OpenOrCloseUp; dispid 303;
  7620.     procedure TabHangingIndent(Count: Smallint); dispid 304;
  7621.     procedure TabIndent(Count: Smallint); dispid 306;
  7622.     procedure Reset; dispid 312;
  7623.     procedure Space1; dispid 313;
  7624.     procedure Space15; dispid 314;
  7625.     procedure Space2; dispid 315;
  7626.     procedure IndentCharWidth(Count: Smallint); dispid 320;
  7627.     procedure IndentFirstLineCharWidth(Count: Smallint); dispid 322;
  7628.   end;
  7629.  
  7630. // *********************************************************************//
  7631. // Interface: _Font
  7632. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  7633. // GUID:      {00020952-0000-0000-C000-000000000046}
  7634. // *********************************************************************//
  7635.   _Font = interface(IDispatch)
  7636.     ['{00020952-0000-0000-C000-000000000046}']
  7637.     function  Get_Application: WordApplication; safecall;
  7638.     function  Get_Creator: Integer; safecall;
  7639.     function  Get_Parent: IDispatch; safecall;
  7640.     function  Get_Duplicate: WordFont; safecall;
  7641.     function  Get_Bold: Integer; safecall;
  7642.     procedure Set_Bold(prop: Integer); safecall;
  7643.     function  Get_Italic: Integer; safecall;
  7644.     procedure Set_Italic(prop: Integer); safecall;
  7645.     function  Get_Hidden: Integer; safecall;
  7646.     procedure Set_Hidden(prop: Integer); safecall;
  7647.     function  Get_SmallCaps: Integer; safecall;
  7648.     procedure Set_SmallCaps(prop: Integer); safecall;
  7649.     function  Get_AllCaps: Integer; safecall;
  7650.     procedure Set_AllCaps(prop: Integer); safecall;
  7651.     function  Get_StrikeThrough: Integer; safecall;
  7652.     procedure Set_StrikeThrough(prop: Integer); safecall;
  7653.     function  Get_DoubleStrikeThrough: Integer; safecall;
  7654.     procedure Set_DoubleStrikeThrough(prop: Integer); safecall;
  7655.     function  Get_ColorIndex: WdColorIndex; safecall;
  7656.     procedure Set_ColorIndex(prop: WdColorIndex); safecall;
  7657.     function  Get_Subscript: Integer; safecall;
  7658.     procedure Set_Subscript(prop: Integer); safecall;
  7659.     function  Get_Superscript: Integer; safecall;
  7660.     procedure Set_Superscript(prop: Integer); safecall;
  7661.     function  Get_Underline: WdUnderline; safecall;
  7662.     procedure Set_Underline(prop: WdUnderline); safecall;
  7663.     function  Get_Size: Single; safecall;
  7664.     procedure Set_Size(prop: Single); safecall;
  7665.     function  Get_Name: WideString; safecall;
  7666.     procedure Set_Name(const prop: WideString); safecall;
  7667.     function  Get_Position: Integer; safecall;
  7668.     procedure Set_Position(prop: Integer); safecall;
  7669.     function  Get_Spacing: Single; safecall;
  7670.     procedure Set_Spacing(prop: Single); safecall;
  7671.     function  Get_Scaling: Integer; safecall;
  7672.     procedure Set_Scaling(prop: Integer); safecall;
  7673.     function  Get_Shadow: Integer; safecall;
  7674.     procedure Set_Shadow(prop: Integer); safecall;
  7675.     function  Get_Outline: Integer; safecall;
  7676.     procedure Set_Outline(prop: Integer); safecall;
  7677.     function  Get_Emboss: Integer; safecall;
  7678.     procedure Set_Emboss(prop: Integer); safecall;
  7679.     function  Get_Kerning: Single; safecall;
  7680.     procedure Set_Kerning(prop: Single); safecall;
  7681.     function  Get_Engrave: Integer; safecall;
  7682.     procedure Set_Engrave(prop: Integer); safecall;
  7683.     function  Get_Animation: WdAnimation; safecall;
  7684.     procedure Set_Animation(prop: WdAnimation); safecall;
  7685.     function  Get_Borders: Borders; safecall;
  7686.     procedure Set_Borders(const prop: Borders); safecall;
  7687.     function  Get_Shading: Shading; safecall;
  7688.     function  Get_EmphasisMark: WdEmphasisMark; safecall;
  7689.     procedure Set_EmphasisMark(prop: WdEmphasisMark); safecall;
  7690.     function  Get_DisableCharacterSpaceGrid: WordBool; safecall;
  7691.     procedure Set_DisableCharacterSpaceGrid(prop: WordBool); safecall;
  7692.     function  Get_NameFarEast: WideString; safecall;
  7693.     procedure Set_NameFarEast(const prop: WideString); safecall;
  7694.     function  Get_NameAscii: WideString; safecall;
  7695.     procedure Set_NameAscii(const prop: WideString); safecall;
  7696.     function  Get_NameOther: WideString; safecall;
  7697.     procedure Set_NameOther(const prop: WideString); safecall;
  7698.     procedure Grow; safecall;
  7699.     procedure Shrink; safecall;
  7700.     procedure Reset; safecall;
  7701.     procedure SetAsTemplateDefault; safecall;
  7702.     property Application: WordApplication read Get_Application;
  7703.     property Creator: Integer read Get_Creator;
  7704.     property Parent: IDispatch read Get_Parent;
  7705.     property Duplicate: WordFont read Get_Duplicate;
  7706.     property Bold: Integer read Get_Bold write Set_Bold;
  7707.     property Italic: Integer read Get_Italic write Set_Italic;
  7708.     property Hidden: Integer read Get_Hidden write Set_Hidden;
  7709.     property SmallCaps: Integer read Get_SmallCaps write Set_SmallCaps;
  7710.     property AllCaps: Integer read Get_AllCaps write Set_AllCaps;
  7711.     property StrikeThrough: Integer read Get_StrikeThrough write Set_StrikeThrough;
  7712.     property DoubleStrikeThrough: Integer read Get_DoubleStrikeThrough write Set_DoubleStrikeThrough;
  7713.     property ColorIndex: WdColorIndex read Get_ColorIndex write Set_ColorIndex;
  7714.     property Subscript: Integer read Get_Subscript write Set_Subscript;
  7715.     property Superscript: Integer read Get_Superscript write Set_Superscript;
  7716.     property Underline: WdUnderline read Get_Underline write Set_Underline;
  7717.     property Size: Single read Get_Size write Set_Size;
  7718.     property Name: WideString read Get_Name write Set_Name;
  7719.     property Position: Integer read Get_Position write Set_Position;
  7720.     property Spacing: Single read Get_Spacing write Set_Spacing;
  7721.     property Scaling: Integer read Get_Scaling write Set_Scaling;
  7722.     property Shadow: Integer read Get_Shadow write Set_Shadow;
  7723.     property Outline: Integer read Get_Outline write Set_Outline;
  7724.     property Emboss: Integer read Get_Emboss write Set_Emboss;
  7725.     property Kerning: Single read Get_Kerning write Set_Kerning;
  7726.     property Engrave: Integer read Get_Engrave write Set_Engrave;
  7727.     property Animation: WdAnimation read Get_Animation write Set_Animation;
  7728.     property Borders: Borders read Get_Borders write Set_Borders;
  7729.     property Shading: Shading read Get_Shading;
  7730.     property EmphasisMark: WdEmphasisMark read Get_EmphasisMark write Set_EmphasisMark;
  7731.     property DisableCharacterSpaceGrid: WordBool read Get_DisableCharacterSpaceGrid write Set_DisableCharacterSpaceGrid;
  7732.     property NameFarEast: WideString read Get_NameFarEast write Set_NameFarEast;
  7733.     property NameAscii: WideString read Get_NameAscii write Set_NameAscii;
  7734.     property NameOther: WideString read Get_NameOther write Set_NameOther;
  7735.   end;
  7736.  
  7737. // *********************************************************************//
  7738. // DispIntf:  _FontDisp
  7739. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  7740. // GUID:      {00020952-0000-0000-C000-000000000046}
  7741. // *********************************************************************//
  7742.   _FontDisp = dispinterface
  7743.     ['{00020952-0000-0000-C000-000000000046}']
  7744.     property Application: WordApplication readonly dispid 1000;
  7745.     property Creator: Integer readonly dispid 1001;
  7746.     property Parent: IDispatch readonly dispid 1002;
  7747.     property Duplicate: WordFont readonly dispid 10;
  7748.     property Bold: Integer dispid 130;
  7749.     property Italic: Integer dispid 131;
  7750.     property Hidden: Integer dispid 132;
  7751.     property SmallCaps: Integer dispid 133;
  7752.     property AllCaps: Integer dispid 134;
  7753.     property StrikeThrough: Integer dispid 135;
  7754.     property DoubleStrikeThrough: Integer dispid 136;
  7755.     property ColorIndex: WdColorIndex dispid 137;
  7756.     property Subscript: Integer dispid 138;
  7757.     property Superscript: Integer dispid 139;
  7758.     property Underline: WdUnderline dispid 140;
  7759.     property Size: Single dispid 141;
  7760.     property Name: WideString dispid 142;
  7761.     property Position: Integer dispid 143;
  7762.     property Spacing: Single dispid 144;
  7763.     property Scaling: Integer dispid 145;
  7764.     property Shadow: Integer dispid 146;
  7765.     property Outline: Integer dispid 147;
  7766.     property Emboss: Integer dispid 148;
  7767.     property Kerning: Single dispid 149;
  7768.     property Engrave: Integer dispid 150;
  7769.     property Animation: WdAnimation dispid 151;
  7770.     property Borders: Borders dispid 1100;
  7771.     property Shading: Shading readonly dispid 153;
  7772.     property EmphasisMark: WdEmphasisMark dispid 154;
  7773.     property DisableCharacterSpaceGrid: WordBool dispid 155;
  7774.     property NameFarEast: WideString dispid 156;
  7775.     property NameAscii: WideString dispid 157;
  7776.     property NameOther: WideString dispid 158;
  7777.     procedure Grow; dispid 100;
  7778.     procedure Shrink; dispid 101;
  7779.     procedure Reset; dispid 102;
  7780.     procedure SetAsTemplateDefault; dispid 103;
  7781.   end;
  7782.  
  7783. // *********************************************************************//
  7784. // Interface: Table
  7785. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7786. // GUID:      {00020951-0000-0000-C000-000000000046}
  7787. // *********************************************************************//
  7788.   Table = interface(IDispatch)
  7789.     ['{00020951-0000-0000-C000-000000000046}']
  7790.     function  Get_Range: Range; safecall;
  7791.     function  Get_Application: WordApplication; safecall;
  7792.     function  Get_Creator: Integer; safecall;
  7793.     function  Get_Parent: IDispatch; safecall;
  7794.     function  Get_Columns: Columns; safecall;
  7795.     function  Get_Rows: Rows; safecall;
  7796.     function  Get_Borders: Borders; safecall;
  7797.     procedure Set_Borders(const prop: Borders); safecall;
  7798.     function  Get_Shading: Shading; safecall;
  7799.     function  Get_Uniform: WordBool; safecall;
  7800.     function  Get_AutoFormatType: Integer; safecall;
  7801.     procedure Select; safecall;
  7802.     procedure Delete; safecall;
  7803.     procedure Sort(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
  7804.                    var SortFieldType: OleVariant; var SortOrder: OleVariant; 
  7805.                    var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
  7806.                    var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
  7807.                    var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
  7808.                    var CaseSensitive: OleVariant; var LanguageID: OleVariant); safecall;
  7809.     procedure SortAscending; safecall;
  7810.     procedure SortDescending; safecall;
  7811.     procedure AutoFormat(var Format: OleVariant; var ApplyBorders: OleVariant; 
  7812.                          var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
  7813.                          var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
  7814.                          var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
  7815.                          var ApplyLastColumn: OleVariant; var AutoFit: OleVariant); safecall;
  7816.     procedure UpdateAutoFormat; safecall;
  7817.     function  ConvertToText(var Separator: OleVariant): Range; safecall;
  7818.     function  Cell(Row: Integer; Column: Integer): Cell; safecall;
  7819.     function  Split(var BeforeRow: OleVariant): Table; safecall;
  7820.     property Range: Range read Get_Range;
  7821.     property Application: WordApplication read Get_Application;
  7822.     property Creator: Integer read Get_Creator;
  7823.     property Parent: IDispatch read Get_Parent;
  7824.     property Columns: Columns read Get_Columns;
  7825.     property Rows: Rows read Get_Rows;
  7826.     property Borders: Borders read Get_Borders write Set_Borders;
  7827.     property Shading: Shading read Get_Shading;
  7828.     property Uniform: WordBool read Get_Uniform;
  7829.     property AutoFormatType: Integer read Get_AutoFormatType;
  7830.   end;
  7831.  
  7832. // *********************************************************************//
  7833. // DispIntf:  TableDisp
  7834. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7835. // GUID:      {00020951-0000-0000-C000-000000000046}
  7836. // *********************************************************************//
  7837.   TableDisp = dispinterface
  7838.     ['{00020951-0000-0000-C000-000000000046}']
  7839.     property Range: Range readonly dispid 0;
  7840.     property Application: WordApplication readonly dispid 1000;
  7841.     property Creator: Integer readonly dispid 1001;
  7842.     property Parent: IDispatch readonly dispid 1002;
  7843.     property Columns: Columns readonly dispid 100;
  7844.     property Rows: Rows readonly dispid 101;
  7845.     property Borders: Borders dispid 1100;
  7846.     property Shading: Shading readonly dispid 104;
  7847.     property Uniform: WordBool readonly dispid 105;
  7848.     property AutoFormatType: Integer readonly dispid 106;
  7849.     procedure Select; dispid 200;
  7850.     procedure Delete; dispid 9;
  7851.     procedure Sort(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
  7852.                    var SortFieldType: OleVariant; var SortOrder: OleVariant; 
  7853.                    var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
  7854.                    var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
  7855.                    var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
  7856.                    var CaseSensitive: OleVariant; var LanguageID: OleVariant); dispid 10;
  7857.     procedure SortAscending; dispid 12;
  7858.     procedure SortDescending; dispid 13;
  7859.     procedure AutoFormat(var Format: OleVariant; var ApplyBorders: OleVariant; 
  7860.                          var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
  7861.                          var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
  7862.                          var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
  7863.                          var ApplyLastColumn: OleVariant; var AutoFit: OleVariant); dispid 14;
  7864.     procedure UpdateAutoFormat; dispid 15;
  7865.     function  ConvertToText(var Separator: OleVariant): Range; dispid 16;
  7866.     function  Cell(Row: Integer; Column: Integer): Cell; dispid 17;
  7867.     function  Split(var BeforeRow: OleVariant): Table; dispid 18;
  7868.   end;
  7869.  
  7870. // *********************************************************************//
  7871. // Interface: Row
  7872. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7873. // GUID:      {00020950-0000-0000-C000-000000000046}
  7874. // *********************************************************************//
  7875.   Row = interface(IDispatch)
  7876.     ['{00020950-0000-0000-C000-000000000046}']
  7877.     function  Get_Range: Range; safecall;
  7878.     function  Get_Application: WordApplication; safecall;
  7879.     function  Get_Creator: Integer; safecall;
  7880.     function  Get_Parent: IDispatch; safecall;
  7881.     function  Get_AllowBreakAcrossPages: Integer; safecall;
  7882.     procedure Set_AllowBreakAcrossPages(prop: Integer); safecall;
  7883.     function  Get_Alignment: WdRowAlignment; safecall;
  7884.     procedure Set_Alignment(prop: WdRowAlignment); safecall;
  7885.     function  Get_HeadingFormat: Integer; safecall;
  7886.     procedure Set_HeadingFormat(prop: Integer); safecall;
  7887.     function  Get_SpaceBetweenColumns: Single; safecall;
  7888.     procedure Set_SpaceBetweenColumns(prop: Single); safecall;
  7889.     function  Get_Height: Single; safecall;
  7890.     procedure Set_Height(prop: Single); safecall;
  7891.     function  Get_HeightRule: WdRowHeightRule; safecall;
  7892.     procedure Set_HeightRule(prop: WdRowHeightRule); safecall;
  7893.     function  Get_LeftIndent: Single; safecall;
  7894.     procedure Set_LeftIndent(prop: Single); safecall;
  7895.     function  Get_IsLast: WordBool; safecall;
  7896.     function  Get_IsFirst: WordBool; safecall;
  7897.     function  Get_Index: Integer; safecall;
  7898.     function  Get_Cells: Cells; safecall;
  7899.     function  Get_Borders: Borders; safecall;
  7900.     procedure Set_Borders(const prop: Borders); safecall;
  7901.     function  Get_Shading: Shading; safecall;
  7902.     function  Get_Next: Row; safecall;
  7903.     function  Get_Previous: Row; safecall;
  7904.     procedure Select; safecall;
  7905.     procedure Delete; safecall;
  7906.     procedure SetLeftIndent(LeftIndent: Single; RulerStyle: WdRulerStyle); safecall;
  7907.     procedure SetHeight(RowHeight: Single; HeightRule: WdRowHeightRule); safecall;
  7908.     function  ConvertToText(var Separator: OleVariant): Range; safecall;
  7909.     property Range: Range read Get_Range;
  7910.     property Application: WordApplication read Get_Application;
  7911.     property Creator: Integer read Get_Creator;
  7912.     property Parent: IDispatch read Get_Parent;
  7913.     property AllowBreakAcrossPages: Integer read Get_AllowBreakAcrossPages write Set_AllowBreakAcrossPages;
  7914.     property Alignment: WdRowAlignment read Get_Alignment write Set_Alignment;
  7915.     property HeadingFormat: Integer read Get_HeadingFormat write Set_HeadingFormat;
  7916.     property SpaceBetweenColumns: Single read Get_SpaceBetweenColumns write Set_SpaceBetweenColumns;
  7917.     property Height: Single read Get_Height write Set_Height;
  7918.     property HeightRule: WdRowHeightRule read Get_HeightRule write Set_HeightRule;
  7919.     property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
  7920.     property IsLast: WordBool read Get_IsLast;
  7921.     property IsFirst: WordBool read Get_IsFirst;
  7922.     property Index: Integer read Get_Index;
  7923.     property Cells: Cells read Get_Cells;
  7924.     property Borders: Borders read Get_Borders write Set_Borders;
  7925.     property Shading: Shading read Get_Shading;
  7926.     property Next: Row read Get_Next;
  7927.     property Previous: Row read Get_Previous;
  7928.   end;
  7929.  
  7930. // *********************************************************************//
  7931. // DispIntf:  RowDisp
  7932. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7933. // GUID:      {00020950-0000-0000-C000-000000000046}
  7934. // *********************************************************************//
  7935.   RowDisp = dispinterface
  7936.     ['{00020950-0000-0000-C000-000000000046}']
  7937.     property Range: Range readonly dispid 0;
  7938.     property Application: WordApplication readonly dispid 1000;
  7939.     property Creator: Integer readonly dispid 1001;
  7940.     property Parent: IDispatch readonly dispid 1002;
  7941.     property AllowBreakAcrossPages: Integer dispid 3;
  7942.     property Alignment: WdRowAlignment dispid 4;
  7943.     property HeadingFormat: Integer dispid 5;
  7944.     property SpaceBetweenColumns: Single dispid 6;
  7945.     property Height: Single dispid 7;
  7946.     property HeightRule: WdRowHeightRule dispid 8;
  7947.     property LeftIndent: Single dispid 9;
  7948.     property IsLast: WordBool readonly dispid 10;
  7949.     property IsFirst: WordBool readonly dispid 11;
  7950.     property Index: Integer readonly dispid 12;
  7951.     property Cells: Cells readonly dispid 100;
  7952.     property Borders: Borders dispid 1100;
  7953.     property Shading: Shading readonly dispid 103;
  7954.     property Next: Row readonly dispid 104;
  7955.     property Previous: Row readonly dispid 105;
  7956.     procedure Select; dispid 65535;
  7957.     procedure Delete; dispid 200;
  7958.     procedure SetLeftIndent(LeftIndent: Single; RulerStyle: WdRulerStyle); dispid 202;
  7959.     procedure SetHeight(RowHeight: Single; HeightRule: WdRowHeightRule); dispid 203;
  7960.     function  ConvertToText(var Separator: OleVariant): Range; dispid 16;
  7961.   end;
  7962.  
  7963. // *********************************************************************//
  7964. // Interface: Column
  7965. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  7966. // GUID:      {0002094F-0000-0000-C000-000000000046}
  7967. // *********************************************************************//
  7968.   Column = interface(IDispatch)
  7969.     ['{0002094F-0000-0000-C000-000000000046}']
  7970.     function  Get_Application: WordApplication; safecall;
  7971.     function  Get_Creator: Integer; safecall;
  7972.     function  Get_Parent: IDispatch; safecall;
  7973.     function  Get_Width: Single; safecall;
  7974.     procedure Set_Width(prop: Single); safecall;
  7975.     function  Get_IsFirst: WordBool; safecall;
  7976.     function  Get_IsLast: WordBool; safecall;
  7977.     function  Get_Index: Integer; safecall;
  7978.     function  Get_Cells: Cells; safecall;
  7979.     function  Get_Borders: Borders; safecall;
  7980.     procedure Set_Borders(const prop: Borders); safecall;
  7981.     function  Get_Shading: Shading; safecall;
  7982.     function  Get_Next: Column; safecall;
  7983.     function  Get_Previous: Column; safecall;
  7984.     procedure Select; safecall;
  7985.     procedure Delete; safecall;
  7986.     procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); safecall;
  7987.     procedure AutoFit; safecall;
  7988.     procedure Sort(var ExcludeHeader: OleVariant; var SortFieldType: OleVariant; 
  7989.                    var SortOrder: OleVariant; var CaseSensitive: OleVariant; 
  7990.                    var LanguageID: OleVariant); safecall;
  7991.     property Application: WordApplication read Get_Application;
  7992.     property Creator: Integer read Get_Creator;
  7993.     property Parent: IDispatch read Get_Parent;
  7994.     property Width: Single read Get_Width write Set_Width;
  7995.     property IsFirst: WordBool read Get_IsFirst;
  7996.     property IsLast: WordBool read Get_IsLast;
  7997.     property Index: Integer read Get_Index;
  7998.     property Cells: Cells read Get_Cells;
  7999.     property Borders: Borders read Get_Borders write Set_Borders;
  8000.     property Shading: Shading read Get_Shading;
  8001.     property Next: Column read Get_Next;
  8002.     property Previous: Column read Get_Previous;
  8003.   end;
  8004.  
  8005. // *********************************************************************//
  8006. // DispIntf:  ColumnDisp
  8007. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8008. // GUID:      {0002094F-0000-0000-C000-000000000046}
  8009. // *********************************************************************//
  8010.   ColumnDisp = dispinterface
  8011.     ['{0002094F-0000-0000-C000-000000000046}']
  8012.     property Application: WordApplication readonly dispid 1000;
  8013.     property Creator: Integer readonly dispid 1001;
  8014.     property Parent: IDispatch readonly dispid 1002;
  8015.     property Width: Single dispid 3;
  8016.     property IsFirst: WordBool readonly dispid 4;
  8017.     property IsLast: WordBool readonly dispid 5;
  8018.     property Index: Integer readonly dispid 6;
  8019.     property Cells: Cells readonly dispid 100;
  8020.     property Borders: Borders dispid 1100;
  8021.     property Shading: Shading readonly dispid 102;
  8022.     property Next: Column readonly dispid 103;
  8023.     property Previous: Column readonly dispid 104;
  8024.     procedure Select; dispid 65535;
  8025.     procedure Delete; dispid 200;
  8026.     procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); dispid 201;
  8027.     procedure AutoFit; dispid 202;
  8028.     procedure Sort(var ExcludeHeader: OleVariant; var SortFieldType: OleVariant; 
  8029.                    var SortOrder: OleVariant; var CaseSensitive: OleVariant; 
  8030.                    var LanguageID: OleVariant); dispid 203;
  8031.   end;
  8032.  
  8033. // *********************************************************************//
  8034. // Interface: Cell
  8035. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8036. // GUID:      {0002094E-0000-0000-C000-000000000046}
  8037. // *********************************************************************//
  8038.   Cell = interface(IDispatch)
  8039.     ['{0002094E-0000-0000-C000-000000000046}']
  8040.     function  Get_Range: Range; safecall;
  8041.     function  Get_Application: WordApplication; safecall;
  8042.     function  Get_Creator: Integer; safecall;
  8043.     function  Get_Parent: IDispatch; safecall;
  8044.     function  Get_RowIndex: Integer; safecall;
  8045.     function  Get_ColumnIndex: Integer; safecall;
  8046.     function  Get_Width: Single; safecall;
  8047.     procedure Set_Width(prop: Single); safecall;
  8048.     function  Get_Height: Single; safecall;
  8049.     procedure Set_Height(prop: Single); safecall;
  8050.     function  Get_HeightRule: WdRowHeightRule; safecall;
  8051.     procedure Set_HeightRule(prop: WdRowHeightRule); safecall;
  8052.     function  Get_VerticalAlignment: WdCellVerticalAlignment; safecall;
  8053.     procedure Set_VerticalAlignment(prop: WdCellVerticalAlignment); safecall;
  8054.     function  Get_Column: Column; safecall;
  8055.     function  Get_Row: Row; safecall;
  8056.     function  Get_Next: Cell; safecall;
  8057.     function  Get_Previous: Cell; safecall;
  8058.     function  Get_Shading: Shading; safecall;
  8059.     function  Get_Borders: Borders; safecall;
  8060.     procedure Set_Borders(const prop: Borders); safecall;
  8061.     procedure Select; safecall;
  8062.     procedure Delete(var ShiftCells: OleVariant); safecall;
  8063.     procedure Formula(var Formula: OleVariant; var NumFormat: OleVariant); safecall;
  8064.     procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); safecall;
  8065.     procedure SetHeight(var RowHeight: OleVariant; HeightRule: WdRowHeightRule); safecall;
  8066.     procedure Merge(const MergeTo: Cell); safecall;
  8067.     procedure Split(var NumRows: OleVariant; var NumColumns: OleVariant); safecall;
  8068.     procedure AutoSum; safecall;
  8069.     property Range: Range read Get_Range;
  8070.     property Application: WordApplication read Get_Application;
  8071.     property Creator: Integer read Get_Creator;
  8072.     property Parent: IDispatch read Get_Parent;
  8073.     property RowIndex: Integer read Get_RowIndex;
  8074.     property ColumnIndex: Integer read Get_ColumnIndex;
  8075.     property Width: Single read Get_Width write Set_Width;
  8076.     property Height: Single read Get_Height write Set_Height;
  8077.     property HeightRule: WdRowHeightRule read Get_HeightRule write Set_HeightRule;
  8078.     property VerticalAlignment: WdCellVerticalAlignment read Get_VerticalAlignment write Set_VerticalAlignment;
  8079.     property Column: Column read Get_Column;
  8080.     property Row: Row read Get_Row;
  8081.     property Next: Cell read Get_Next;
  8082.     property Previous: Cell read Get_Previous;
  8083.     property Shading: Shading read Get_Shading;
  8084.     property Borders: Borders read Get_Borders write Set_Borders;
  8085.   end;
  8086.  
  8087. // *********************************************************************//
  8088. // DispIntf:  CellDisp
  8089. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8090. // GUID:      {0002094E-0000-0000-C000-000000000046}
  8091. // *********************************************************************//
  8092.   CellDisp = dispinterface
  8093.     ['{0002094E-0000-0000-C000-000000000046}']
  8094.     property Range: Range readonly dispid 0;
  8095.     property Application: WordApplication readonly dispid 1000;
  8096.     property Creator: Integer readonly dispid 1001;
  8097.     property Parent: IDispatch readonly dispid 1002;
  8098.     property RowIndex: Integer readonly dispid 4;
  8099.     property ColumnIndex: Integer readonly dispid 5;
  8100.     property Width: Single dispid 6;
  8101.     property Height: Single dispid 7;
  8102.     property HeightRule: WdRowHeightRule dispid 8;
  8103.     property VerticalAlignment: WdCellVerticalAlignment dispid 1104;
  8104.     property Column: Column readonly dispid 101;
  8105.     property Row: Row readonly dispid 102;
  8106.     property Next: Cell readonly dispid 103;
  8107.     property Previous: Cell readonly dispid 104;
  8108.     property Shading: Shading readonly dispid 105;
  8109.     property Borders: Borders dispid 1100;
  8110.     procedure Select; dispid 65535;
  8111.     procedure Delete(var ShiftCells: OleVariant); dispid 200;
  8112.     procedure Formula(var Formula: OleVariant; var NumFormat: OleVariant); dispid 201;
  8113.     procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); dispid 202;
  8114.     procedure SetHeight(var RowHeight: OleVariant; HeightRule: WdRowHeightRule); dispid 203;
  8115.     procedure Merge(const MergeTo: Cell); dispid 204;
  8116.     procedure Split(var NumRows: OleVariant; var NumColumns: OleVariant); dispid 205;
  8117.     procedure AutoSum; dispid 206;
  8118.   end;
  8119.  
  8120. // *********************************************************************//
  8121. // Interface: Tables
  8122. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8123. // GUID:      {0002094D-0000-0000-C000-000000000046}
  8124. // *********************************************************************//
  8125.   Tables = interface(IDispatch)
  8126.     ['{0002094D-0000-0000-C000-000000000046}']
  8127.     function  Get__NewEnum: IUnknown; safecall;
  8128.     function  Get_Count: Integer; safecall;
  8129.     function  Get_Application: WordApplication; safecall;
  8130.     function  Get_Creator: Integer; safecall;
  8131.     function  Get_Parent: IDispatch; safecall;
  8132.     function  Item(Index: Integer): Table; safecall;
  8133.     function  Add(const Range: Range; NumRows: Integer; NumColumns: Integer): Table; safecall;
  8134.     property _NewEnum: IUnknown read Get__NewEnum;
  8135.     property Count: Integer read Get_Count;
  8136.     property Application: WordApplication read Get_Application;
  8137.     property Creator: Integer read Get_Creator;
  8138.     property Parent: IDispatch read Get_Parent;
  8139.   end;
  8140.  
  8141. // *********************************************************************//
  8142. // DispIntf:  TablesDisp
  8143. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8144. // GUID:      {0002094D-0000-0000-C000-000000000046}
  8145. // *********************************************************************//
  8146.   TablesDisp = dispinterface
  8147.     ['{0002094D-0000-0000-C000-000000000046}']
  8148.     property _NewEnum: IUnknown readonly dispid -4;
  8149.     property Count: Integer readonly dispid 2;
  8150.     property Application: WordApplication readonly dispid 1000;
  8151.     property Creator: Integer readonly dispid 1001;
  8152.     property Parent: IDispatch readonly dispid 1002;
  8153.     function  Item(Index: Integer): Table; dispid 0;
  8154.     function  Add(const Range: Range; NumRows: Integer; NumColumns: Integer): Table; dispid 4;
  8155.   end;
  8156.  
  8157. // *********************************************************************//
  8158. // Interface: Rows
  8159. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8160. // GUID:      {0002094C-0000-0000-C000-000000000046}
  8161. // *********************************************************************//
  8162.   Rows = interface(IDispatch)
  8163.     ['{0002094C-0000-0000-C000-000000000046}']
  8164.     function  Get__NewEnum: IUnknown; safecall;
  8165.     function  Get_Count: Integer; safecall;
  8166.     function  Get_AllowBreakAcrossPages: Integer; safecall;
  8167.     procedure Set_AllowBreakAcrossPages(prop: Integer); safecall;
  8168.     function  Get_Alignment: WdRowAlignment; safecall;
  8169.     procedure Set_Alignment(prop: WdRowAlignment); safecall;
  8170.     function  Get_HeadingFormat: Integer; safecall;
  8171.     procedure Set_HeadingFormat(prop: Integer); safecall;
  8172.     function  Get_SpaceBetweenColumns: Single; safecall;
  8173.     procedure Set_SpaceBetweenColumns(prop: Single); safecall;
  8174.     function  Get_Height: Single; safecall;
  8175.     procedure Set_Height(prop: Single); safecall;
  8176.     function  Get_HeightRule: WdRowHeightRule; safecall;
  8177.     procedure Set_HeightRule(prop: WdRowHeightRule); safecall;
  8178.     function  Get_LeftIndent: Single; safecall;
  8179.     procedure Set_LeftIndent(prop: Single); safecall;
  8180.     function  Get_First: Row; safecall;
  8181.     function  Get_Last: Row; safecall;
  8182.     function  Get_Application: WordApplication; safecall;
  8183.     function  Get_Creator: Integer; safecall;
  8184.     function  Get_Parent: IDispatch; safecall;
  8185.     function  Get_Borders: Borders; safecall;
  8186.     procedure Set_Borders(const prop: Borders); safecall;
  8187.     function  Get_Shading: Shading; safecall;
  8188.     function  Item(Index: Integer): Row; safecall;
  8189.     function  Add(var BeforeRow: OleVariant): Row; safecall;
  8190.     procedure Select; safecall;
  8191.     procedure Delete; safecall;
  8192.     procedure SetLeftIndent(LeftIndent: Single; RulerStyle: WdRulerStyle); safecall;
  8193.     procedure SetHeight(RowHeight: Single; HeightRule: WdRowHeightRule); safecall;
  8194.     function  ConvertToText(var Separator: OleVariant): Range; safecall;
  8195.     procedure DistributeHeight; safecall;
  8196.     property _NewEnum: IUnknown read Get__NewEnum;
  8197.     property Count: Integer read Get_Count;
  8198.     property AllowBreakAcrossPages: Integer read Get_AllowBreakAcrossPages write Set_AllowBreakAcrossPages;
  8199.     property Alignment: WdRowAlignment read Get_Alignment write Set_Alignment;
  8200.     property HeadingFormat: Integer read Get_HeadingFormat write Set_HeadingFormat;
  8201.     property SpaceBetweenColumns: Single read Get_SpaceBetweenColumns write Set_SpaceBetweenColumns;
  8202.     property Height: Single read Get_Height write Set_Height;
  8203.     property HeightRule: WdRowHeightRule read Get_HeightRule write Set_HeightRule;
  8204.     property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
  8205.     property First: Row read Get_First;
  8206.     property Last: Row read Get_Last;
  8207.     property Application: WordApplication read Get_Application;
  8208.     property Creator: Integer read Get_Creator;
  8209.     property Parent: IDispatch read Get_Parent;
  8210.     property Borders: Borders read Get_Borders write Set_Borders;
  8211.     property Shading: Shading read Get_Shading;
  8212.   end;
  8213.  
  8214. // *********************************************************************//
  8215. // DispIntf:  RowsDisp
  8216. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8217. // GUID:      {0002094C-0000-0000-C000-000000000046}
  8218. // *********************************************************************//
  8219.   RowsDisp = dispinterface
  8220.     ['{0002094C-0000-0000-C000-000000000046}']
  8221.     property _NewEnum: IUnknown readonly dispid -4;
  8222.     property Count: Integer readonly dispid 2;
  8223.     property AllowBreakAcrossPages: Integer dispid 3;
  8224.     property Alignment: WdRowAlignment dispid 4;
  8225.     property HeadingFormat: Integer dispid 5;
  8226.     property SpaceBetweenColumns: Single dispid 6;
  8227.     property Height: Single dispid 7;
  8228.     property HeightRule: WdRowHeightRule dispid 8;
  8229.     property LeftIndent: Single dispid 9;
  8230.     property First: Row readonly dispid 10;
  8231.     property Last: Row readonly dispid 11;
  8232.     property Application: WordApplication readonly dispid 1000;
  8233.     property Creator: Integer readonly dispid 1001;
  8234.     property Parent: IDispatch readonly dispid 1002;
  8235.     property Borders: Borders dispid 1100;
  8236.     property Shading: Shading readonly dispid 102;
  8237.     function  Item(Index: Integer): Row; dispid 0;
  8238.     function  Add(var BeforeRow: OleVariant): Row; dispid 100;
  8239.     procedure Select; dispid 199;
  8240.     procedure Delete; dispid 200;
  8241.     procedure SetLeftIndent(LeftIndent: Single; RulerStyle: WdRulerStyle); dispid 202;
  8242.     procedure SetHeight(RowHeight: Single; HeightRule: WdRowHeightRule); dispid 203;
  8243.     function  ConvertToText(var Separator: OleVariant): Range; dispid 16;
  8244.     procedure DistributeHeight; dispid 206;
  8245.   end;
  8246.  
  8247. // *********************************************************************//
  8248. // Interface: Columns
  8249. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8250. // GUID:      {0002094B-0000-0000-C000-000000000046}
  8251. // *********************************************************************//
  8252.   Columns = interface(IDispatch)
  8253.     ['{0002094B-0000-0000-C000-000000000046}']
  8254.     function  Get__NewEnum: IUnknown; safecall;
  8255.     function  Get_Count: Integer; safecall;
  8256.     function  Get_Application: WordApplication; safecall;
  8257.     function  Get_Creator: Integer; safecall;
  8258.     function  Get_Parent: IDispatch; safecall;
  8259.     function  Get_First: Column; safecall;
  8260.     function  Get_Last: Column; safecall;
  8261.     function  Get_Width: Single; safecall;
  8262.     procedure Set_Width(prop: Single); safecall;
  8263.     function  Get_Borders: Borders; safecall;
  8264.     procedure Set_Borders(const prop: Borders); safecall;
  8265.     function  Get_Shading: Shading; safecall;
  8266.     function  Item(Index: Integer): Column; safecall;
  8267.     function  Add(var BeforeColumn: OleVariant): Column; safecall;
  8268.     procedure Select; safecall;
  8269.     procedure Delete; safecall;
  8270.     procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); safecall;
  8271.     procedure AutoFit; safecall;
  8272.     procedure DistributeWidth; safecall;
  8273.     property _NewEnum: IUnknown read Get__NewEnum;
  8274.     property Count: Integer read Get_Count;
  8275.     property Application: WordApplication read Get_Application;
  8276.     property Creator: Integer read Get_Creator;
  8277.     property Parent: IDispatch read Get_Parent;
  8278.     property First: Column read Get_First;
  8279.     property Last: Column read Get_Last;
  8280.     property Width: Single read Get_Width write Set_Width;
  8281.     property Borders: Borders read Get_Borders write Set_Borders;
  8282.     property Shading: Shading read Get_Shading;
  8283.   end;
  8284.  
  8285. // *********************************************************************//
  8286. // DispIntf:  ColumnsDisp
  8287. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8288. // GUID:      {0002094B-0000-0000-C000-000000000046}
  8289. // *********************************************************************//
  8290.   ColumnsDisp = dispinterface
  8291.     ['{0002094B-0000-0000-C000-000000000046}']
  8292.     property _NewEnum: IUnknown readonly dispid -4;
  8293.     property Count: Integer readonly dispid 2;
  8294.     property Application: WordApplication readonly dispid 1000;
  8295.     property Creator: Integer readonly dispid 1001;
  8296.     property Parent: IDispatch readonly dispid 1002;
  8297.     property First: Column readonly dispid 100;
  8298.     property Last: Column readonly dispid 101;
  8299.     property Width: Single dispid 3;
  8300.     property Borders: Borders dispid 1100;
  8301.     property Shading: Shading readonly dispid 103;
  8302.     function  Item(Index: Integer): Column; dispid 0;
  8303.     function  Add(var BeforeColumn: OleVariant): Column; dispid 5;
  8304.     procedure Select; dispid 199;
  8305.     procedure Delete; dispid 200;
  8306.     procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); dispid 201;
  8307.     procedure AutoFit; dispid 202;
  8308.     procedure DistributeWidth; dispid 203;
  8309.   end;
  8310.  
  8311. // *********************************************************************//
  8312. // Interface: Cells
  8313. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8314. // GUID:      {0002094A-0000-0000-C000-000000000046}
  8315. // *********************************************************************//
  8316.   Cells = interface(IDispatch)
  8317.     ['{0002094A-0000-0000-C000-000000000046}']
  8318.     function  Get__NewEnum: IUnknown; safecall;
  8319.     function  Get_Count: Integer; safecall;
  8320.     function  Get_Application: WordApplication; safecall;
  8321.     function  Get_Creator: Integer; safecall;
  8322.     function  Get_Parent: IDispatch; safecall;
  8323.     function  Get_Width: Single; safecall;
  8324.     procedure Set_Width(prop: Single); safecall;
  8325.     function  Get_Height: Single; safecall;
  8326.     procedure Set_Height(prop: Single); safecall;
  8327.     function  Get_HeightRule: WdRowHeightRule; safecall;
  8328.     procedure Set_HeightRule(prop: WdRowHeightRule); safecall;
  8329.     function  Get_VerticalAlignment: WdCellVerticalAlignment; safecall;
  8330.     procedure Set_VerticalAlignment(prop: WdCellVerticalAlignment); safecall;
  8331.     function  Get_Borders: Borders; safecall;
  8332.     procedure Set_Borders(const prop: Borders); safecall;
  8333.     function  Get_Shading: Shading; safecall;
  8334.     function  Item(Index: Integer): Cell; safecall;
  8335.     function  Add(var BeforeCell: OleVariant): Cell; safecall;
  8336.     procedure Delete(var ShiftCells: OleVariant); safecall;
  8337.     procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); safecall;
  8338.     procedure SetHeight(var RowHeight: OleVariant; HeightRule: WdRowHeightRule); safecall;
  8339.     procedure Merge; safecall;
  8340.     procedure Split(var NumRows: OleVariant; var NumColumns: OleVariant; 
  8341.                     var MergeBeforeSplit: OleVariant); safecall;
  8342.     procedure DistributeHeight; safecall;
  8343.     procedure DistributeWidth; safecall;
  8344.     procedure AutoFit; safecall;
  8345.     property _NewEnum: IUnknown read Get__NewEnum;
  8346.     property Count: Integer read Get_Count;
  8347.     property Application: WordApplication read Get_Application;
  8348.     property Creator: Integer read Get_Creator;
  8349.     property Parent: IDispatch read Get_Parent;
  8350.     property Width: Single read Get_Width write Set_Width;
  8351.     property Height: Single read Get_Height write Set_Height;
  8352.     property HeightRule: WdRowHeightRule read Get_HeightRule write Set_HeightRule;
  8353.     property VerticalAlignment: WdCellVerticalAlignment read Get_VerticalAlignment write Set_VerticalAlignment;
  8354.     property Borders: Borders read Get_Borders write Set_Borders;
  8355.     property Shading: Shading read Get_Shading;
  8356.   end;
  8357.  
  8358. // *********************************************************************//
  8359. // DispIntf:  CellsDisp
  8360. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8361. // GUID:      {0002094A-0000-0000-C000-000000000046}
  8362. // *********************************************************************//
  8363.   CellsDisp = dispinterface
  8364.     ['{0002094A-0000-0000-C000-000000000046}']
  8365.     property _NewEnum: IUnknown readonly dispid -4;
  8366.     property Count: Integer readonly dispid 2;
  8367.     property Application: WordApplication readonly dispid 1000;
  8368.     property Creator: Integer readonly dispid 1001;
  8369.     property Parent: IDispatch readonly dispid 1002;
  8370.     property Width: Single dispid 6;
  8371.     property Height: Single dispid 7;
  8372.     property HeightRule: WdRowHeightRule dispid 8;
  8373.     property VerticalAlignment: WdCellVerticalAlignment dispid 1104;
  8374.     property Borders: Borders dispid 1100;
  8375.     property Shading: Shading readonly dispid 101;
  8376.     function  Item(Index: Integer): Cell; dispid 0;
  8377.     function  Add(var BeforeCell: OleVariant): Cell; dispid 4;
  8378.     procedure Delete(var ShiftCells: OleVariant); dispid 200;
  8379.     procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); dispid 202;
  8380.     procedure SetHeight(var RowHeight: OleVariant; HeightRule: WdRowHeightRule); dispid 203;
  8381.     procedure Merge; dispid 204;
  8382.     procedure Split(var NumRows: OleVariant; var NumColumns: OleVariant; 
  8383.                     var MergeBeforeSplit: OleVariant); dispid 205;
  8384.     procedure DistributeHeight; dispid 206;
  8385.     procedure DistributeWidth; dispid 207;
  8386.     procedure AutoFit; dispid 208;
  8387.   end;
  8388.  
  8389. // *********************************************************************//
  8390. // Interface: AutoCorrect
  8391. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8392. // GUID:      {00020949-0000-0000-C000-000000000046}
  8393. // *********************************************************************//
  8394.   AutoCorrect = interface(IDispatch)
  8395.     ['{00020949-0000-0000-C000-000000000046}']
  8396.     function  Get_Application: WordApplication; safecall;
  8397.     function  Get_Creator: Integer; safecall;
  8398.     function  Get_Parent: IDispatch; safecall;
  8399.     function  Get_CorrectDays: WordBool; safecall;
  8400.     procedure Set_CorrectDays(prop: WordBool); safecall;
  8401.     function  Get_CorrectInitialCaps: WordBool; safecall;
  8402.     procedure Set_CorrectInitialCaps(prop: WordBool); safecall;
  8403.     function  Get_CorrectSentenceCaps: WordBool; safecall;
  8404.     procedure Set_CorrectSentenceCaps(prop: WordBool); safecall;
  8405.     function  Get_ReplaceText: WordBool; safecall;
  8406.     procedure Set_ReplaceText(prop: WordBool); safecall;
  8407.     function  Get_Entries: AutoCorrectEntries; safecall;
  8408.     function  Get_FirstLetterExceptions: FirstLetterExceptions; safecall;
  8409.     function  Get_FirstLetterAutoAdd: WordBool; safecall;
  8410.     procedure Set_FirstLetterAutoAdd(prop: WordBool); safecall;
  8411.     function  Get_TwoInitialCapsExceptions: TwoInitialCapsExceptions; safecall;
  8412.     function  Get_TwoInitialCapsAutoAdd: WordBool; safecall;
  8413.     procedure Set_TwoInitialCapsAutoAdd(prop: WordBool); safecall;
  8414.     function  Get_CorrectCapsLock: WordBool; safecall;
  8415.     procedure Set_CorrectCapsLock(prop: WordBool); safecall;
  8416.     function  Get_CorrectHangulAndAlphabet: WordBool; safecall;
  8417.     procedure Set_CorrectHangulAndAlphabet(prop: WordBool); safecall;
  8418.     function  Get_HangulAndAlphabetExceptions: HangulAndAlphabetExceptions; safecall;
  8419.     function  Get_HangulAndAlphabetAutoAdd: WordBool; safecall;
  8420.     procedure Set_HangulAndAlphabetAutoAdd(prop: WordBool); safecall;
  8421.     property Application: WordApplication read Get_Application;
  8422.     property Creator: Integer read Get_Creator;
  8423.     property Parent: IDispatch read Get_Parent;
  8424.     property CorrectDays: WordBool read Get_CorrectDays write Set_CorrectDays;
  8425.     property CorrectInitialCaps: WordBool read Get_CorrectInitialCaps write Set_CorrectInitialCaps;
  8426.     property CorrectSentenceCaps: WordBool read Get_CorrectSentenceCaps write Set_CorrectSentenceCaps;
  8427.     property ReplaceText: WordBool read Get_ReplaceText write Set_ReplaceText;
  8428.     property Entries: AutoCorrectEntries read Get_Entries;
  8429.     property FirstLetterExceptions: FirstLetterExceptions read Get_FirstLetterExceptions;
  8430.     property FirstLetterAutoAdd: WordBool read Get_FirstLetterAutoAdd write Set_FirstLetterAutoAdd;
  8431.     property TwoInitialCapsExceptions: TwoInitialCapsExceptions read Get_TwoInitialCapsExceptions;
  8432.     property TwoInitialCapsAutoAdd: WordBool read Get_TwoInitialCapsAutoAdd write Set_TwoInitialCapsAutoAdd;
  8433.     property CorrectCapsLock: WordBool read Get_CorrectCapsLock write Set_CorrectCapsLock;
  8434.     property CorrectHangulAndAlphabet: WordBool read Get_CorrectHangulAndAlphabet write Set_CorrectHangulAndAlphabet;
  8435.     property HangulAndAlphabetExceptions: HangulAndAlphabetExceptions read Get_HangulAndAlphabetExceptions;
  8436.     property HangulAndAlphabetAutoAdd: WordBool read Get_HangulAndAlphabetAutoAdd write Set_HangulAndAlphabetAutoAdd;
  8437.   end;
  8438.  
  8439. // *********************************************************************//
  8440. // DispIntf:  AutoCorrectDisp
  8441. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8442. // GUID:      {00020949-0000-0000-C000-000000000046}
  8443. // *********************************************************************//
  8444.   AutoCorrectDisp = dispinterface
  8445.     ['{00020949-0000-0000-C000-000000000046}']
  8446.     property Application: WordApplication readonly dispid 1000;
  8447.     property Creator: Integer readonly dispid 1001;
  8448.     property Parent: IDispatch readonly dispid 1002;
  8449.     property CorrectDays: WordBool dispid 1;
  8450.     property CorrectInitialCaps: WordBool dispid 2;
  8451.     property CorrectSentenceCaps: WordBool dispid 3;
  8452.     property ReplaceText: WordBool dispid 4;
  8453.     property Entries: AutoCorrectEntries readonly dispid 6;
  8454.     property FirstLetterExceptions: FirstLetterExceptions readonly dispid 7;
  8455.     property FirstLetterAutoAdd: WordBool dispid 8;
  8456.     property TwoInitialCapsExceptions: TwoInitialCapsExceptions readonly dispid 9;
  8457.     property TwoInitialCapsAutoAdd: WordBool dispid 10;
  8458.     property CorrectCapsLock: WordBool dispid 11;
  8459.     property CorrectHangulAndAlphabet: WordBool dispid 12;
  8460.     property HangulAndAlphabetExceptions: HangulAndAlphabetExceptions readonly dispid 13;
  8461.     property HangulAndAlphabetAutoAdd: WordBool dispid 14;
  8462.   end;
  8463.  
  8464. // *********************************************************************//
  8465. // Interface: AutoCorrectEntries
  8466. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8467. // GUID:      {00020948-0000-0000-C000-000000000046}
  8468. // *********************************************************************//
  8469.   AutoCorrectEntries = interface(IDispatch)
  8470.     ['{00020948-0000-0000-C000-000000000046}']
  8471.     function  Get_Application: WordApplication; safecall;
  8472.     function  Get_Creator: Integer; safecall;
  8473.     function  Get_Parent: IDispatch; safecall;
  8474.     function  Get__NewEnum: IUnknown; safecall;
  8475.     function  Get_Count: Integer; safecall;
  8476.     function  Item(var Index: OleVariant): AutoCorrectEntry; safecall;
  8477.     function  Add(const Name: WideString; const Value: WideString): AutoCorrectEntry; safecall;
  8478.     function  AddRichText(const Name: WideString; const Range: Range): AutoCorrectEntry; safecall;
  8479.     property Application: WordApplication read Get_Application;
  8480.     property Creator: Integer read Get_Creator;
  8481.     property Parent: IDispatch read Get_Parent;
  8482.     property _NewEnum: IUnknown read Get__NewEnum;
  8483.     property Count: Integer read Get_Count;
  8484.   end;
  8485.  
  8486. // *********************************************************************//
  8487. // DispIntf:  AutoCorrectEntriesDisp
  8488. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8489. // GUID:      {00020948-0000-0000-C000-000000000046}
  8490. // *********************************************************************//
  8491.   AutoCorrectEntriesDisp = dispinterface
  8492.     ['{00020948-0000-0000-C000-000000000046}']
  8493.     property Application: WordApplication readonly dispid 1000;
  8494.     property Creator: Integer readonly dispid 1001;
  8495.     property Parent: IDispatch readonly dispid 1002;
  8496.     property _NewEnum: IUnknown readonly dispid -4;
  8497.     property Count: Integer readonly dispid 1;
  8498.     function  Item(var Index: OleVariant): AutoCorrectEntry; dispid 0;
  8499.     function  Add(const Name: WideString; const Value: WideString): AutoCorrectEntry; dispid 101;
  8500.     function  AddRichText(const Name: WideString; const Range: Range): AutoCorrectEntry; dispid 102;
  8501.   end;
  8502.  
  8503. // *********************************************************************//
  8504. // Interface: AutoCorrectEntry
  8505. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8506. // GUID:      {00020947-0000-0000-C000-000000000046}
  8507. // *********************************************************************//
  8508.   AutoCorrectEntry = interface(IDispatch)
  8509.     ['{00020947-0000-0000-C000-000000000046}']
  8510.     function  Get_Application: WordApplication; safecall;
  8511.     function  Get_Creator: Integer; safecall;
  8512.     function  Get_Parent: IDispatch; safecall;
  8513.     function  Get_Index: Integer; safecall;
  8514.     function  Get_Name: WideString; safecall;
  8515.     procedure Set_Name(const prop: WideString); safecall;
  8516.     function  Get_Value: WideString; safecall;
  8517.     procedure Set_Value(const prop: WideString); safecall;
  8518.     function  Get_RichText: WordBool; safecall;
  8519.     procedure Delete; safecall;
  8520.     procedure Apply(const Range: Range); safecall;
  8521.     property Application: WordApplication read Get_Application;
  8522.     property Creator: Integer read Get_Creator;
  8523.     property Parent: IDispatch read Get_Parent;
  8524.     property Index: Integer read Get_Index;
  8525.     property Name: WideString read Get_Name write Set_Name;
  8526.     property Value: WideString read Get_Value write Set_Value;
  8527.     property RichText: WordBool read Get_RichText;
  8528.   end;
  8529.  
  8530. // *********************************************************************//
  8531. // DispIntf:  AutoCorrectEntryDisp
  8532. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8533. // GUID:      {00020947-0000-0000-C000-000000000046}
  8534. // *********************************************************************//
  8535.   AutoCorrectEntryDisp = dispinterface
  8536.     ['{00020947-0000-0000-C000-000000000046}']
  8537.     property Application: WordApplication readonly dispid 1000;
  8538.     property Creator: Integer readonly dispid 1001;
  8539.     property Parent: IDispatch readonly dispid 1002;
  8540.     property Index: Integer readonly dispid 1;
  8541.     property Name: WideString dispid 2;
  8542.     property Value: WideString dispid 3;
  8543.     property RichText: WordBool readonly dispid 4;
  8544.     procedure Delete; dispid 101;
  8545.     procedure Apply(const Range: Range); dispid 102;
  8546.   end;
  8547.  
  8548. // *********************************************************************//
  8549. // Interface: FirstLetterExceptions
  8550. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8551. // GUID:      {00020946-0000-0000-C000-000000000046}
  8552. // *********************************************************************//
  8553.   FirstLetterExceptions = interface(IDispatch)
  8554.     ['{00020946-0000-0000-C000-000000000046}']
  8555.     function  Get_Application: WordApplication; safecall;
  8556.     function  Get_Creator: Integer; safecall;
  8557.     function  Get_Parent: IDispatch; safecall;
  8558.     function  Get__NewEnum: IUnknown; safecall;
  8559.     function  Get_Count: Integer; safecall;
  8560.     function  Item(var Index: OleVariant): FirstLetterException; safecall;
  8561.     function  Add(const Name: WideString): FirstLetterException; safecall;
  8562.     property Application: WordApplication read Get_Application;
  8563.     property Creator: Integer read Get_Creator;
  8564.     property Parent: IDispatch read Get_Parent;
  8565.     property _NewEnum: IUnknown read Get__NewEnum;
  8566.     property Count: Integer read Get_Count;
  8567.   end;
  8568.  
  8569. // *********************************************************************//
  8570. // DispIntf:  FirstLetterExceptionsDisp
  8571. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8572. // GUID:      {00020946-0000-0000-C000-000000000046}
  8573. // *********************************************************************//
  8574.   FirstLetterExceptionsDisp = dispinterface
  8575.     ['{00020946-0000-0000-C000-000000000046}']
  8576.     property Application: WordApplication readonly dispid 1000;
  8577.     property Creator: Integer readonly dispid 1001;
  8578.     property Parent: IDispatch readonly dispid 1002;
  8579.     property _NewEnum: IUnknown readonly dispid -4;
  8580.     property Count: Integer readonly dispid 1;
  8581.     function  Item(var Index: OleVariant): FirstLetterException; dispid 0;
  8582.     function  Add(const Name: WideString): FirstLetterException; dispid 101;
  8583.   end;
  8584.  
  8585. // *********************************************************************//
  8586. // Interface: FirstLetterException
  8587. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8588. // GUID:      {00020945-0000-0000-C000-000000000046}
  8589. // *********************************************************************//
  8590.   FirstLetterException = interface(IDispatch)
  8591.     ['{00020945-0000-0000-C000-000000000046}']
  8592.     function  Get_Application: WordApplication; safecall;
  8593.     function  Get_Creator: Integer; safecall;
  8594.     function  Get_Parent: IDispatch; safecall;
  8595.     function  Get_Index: Integer; safecall;
  8596.     function  Get_Name: WideString; safecall;
  8597.     procedure Delete; safecall;
  8598.     property Application: WordApplication read Get_Application;
  8599.     property Creator: Integer read Get_Creator;
  8600.     property Parent: IDispatch read Get_Parent;
  8601.     property Index: Integer read Get_Index;
  8602.     property Name: WideString read Get_Name;
  8603.   end;
  8604.  
  8605. // *********************************************************************//
  8606. // DispIntf:  FirstLetterExceptionDisp
  8607. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8608. // GUID:      {00020945-0000-0000-C000-000000000046}
  8609. // *********************************************************************//
  8610.   FirstLetterExceptionDisp = dispinterface
  8611.     ['{00020945-0000-0000-C000-000000000046}']
  8612.     property Application: WordApplication readonly dispid 1000;
  8613.     property Creator: Integer readonly dispid 1001;
  8614.     property Parent: IDispatch readonly dispid 1002;
  8615.     property Index: Integer readonly dispid 1;
  8616.     property Name: WideString readonly dispid 2;
  8617.     procedure Delete; dispid 101;
  8618.   end;
  8619.  
  8620. // *********************************************************************//
  8621. // Interface: TwoInitialCapsExceptions
  8622. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8623. // GUID:      {00020944-0000-0000-C000-000000000046}
  8624. // *********************************************************************//
  8625.   TwoInitialCapsExceptions = interface(IDispatch)
  8626.     ['{00020944-0000-0000-C000-000000000046}']
  8627.     function  Get_Application: WordApplication; safecall;
  8628.     function  Get_Creator: Integer; safecall;
  8629.     function  Get_Parent: IDispatch; safecall;
  8630.     function  Get__NewEnum: IUnknown; safecall;
  8631.     function  Get_Count: Integer; safecall;
  8632.     function  Item(var Index: OleVariant): TwoInitialCapsException; safecall;
  8633.     function  Add(const Name: WideString): TwoInitialCapsException; safecall;
  8634.     property Application: WordApplication read Get_Application;
  8635.     property Creator: Integer read Get_Creator;
  8636.     property Parent: IDispatch read Get_Parent;
  8637.     property _NewEnum: IUnknown read Get__NewEnum;
  8638.     property Count: Integer read Get_Count;
  8639.   end;
  8640.  
  8641. // *********************************************************************//
  8642. // DispIntf:  TwoInitialCapsExceptionsDisp
  8643. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8644. // GUID:      {00020944-0000-0000-C000-000000000046}
  8645. // *********************************************************************//
  8646.   TwoInitialCapsExceptionsDisp = dispinterface
  8647.     ['{00020944-0000-0000-C000-000000000046}']
  8648.     property Application: WordApplication readonly dispid 1000;
  8649.     property Creator: Integer readonly dispid 1001;
  8650.     property Parent: IDispatch readonly dispid 1002;
  8651.     property _NewEnum: IUnknown readonly dispid -4;
  8652.     property Count: Integer readonly dispid 1;
  8653.     function  Item(var Index: OleVariant): TwoInitialCapsException; dispid 0;
  8654.     function  Add(const Name: WideString): TwoInitialCapsException; dispid 101;
  8655.   end;
  8656.  
  8657. // *********************************************************************//
  8658. // Interface: TwoInitialCapsException
  8659. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8660. // GUID:      {00020943-0000-0000-C000-000000000046}
  8661. // *********************************************************************//
  8662.   TwoInitialCapsException = interface(IDispatch)
  8663.     ['{00020943-0000-0000-C000-000000000046}']
  8664.     function  Get_Application: WordApplication; safecall;
  8665.     function  Get_Creator: Integer; safecall;
  8666.     function  Get_Parent: IDispatch; safecall;
  8667.     function  Get_Index: Integer; safecall;
  8668.     function  Get_Name: WideString; safecall;
  8669.     procedure Delete; safecall;
  8670.     property Application: WordApplication read Get_Application;
  8671.     property Creator: Integer read Get_Creator;
  8672.     property Parent: IDispatch read Get_Parent;
  8673.     property Index: Integer read Get_Index;
  8674.     property Name: WideString read Get_Name;
  8675.   end;
  8676.  
  8677. // *********************************************************************//
  8678. // DispIntf:  TwoInitialCapsExceptionDisp
  8679. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8680. // GUID:      {00020943-0000-0000-C000-000000000046}
  8681. // *********************************************************************//
  8682.   TwoInitialCapsExceptionDisp = dispinterface
  8683.     ['{00020943-0000-0000-C000-000000000046}']
  8684.     property Application: WordApplication readonly dispid 1000;
  8685.     property Creator: Integer readonly dispid 1001;
  8686.     property Parent: IDispatch readonly dispid 1002;
  8687.     property Index: Integer readonly dispid 1;
  8688.     property Name: WideString readonly dispid 2;
  8689.     procedure Delete; dispid 101;
  8690.   end;
  8691.  
  8692. // *********************************************************************//
  8693. // Interface: Footnotes
  8694. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8695. // GUID:      {00020942-0000-0000-C000-000000000046}
  8696. // *********************************************************************//
  8697.   Footnotes = interface(IDispatch)
  8698.     ['{00020942-0000-0000-C000-000000000046}']
  8699.     function  Get__NewEnum: IUnknown; safecall;
  8700.     function  Get_Count: Integer; safecall;
  8701.     function  Get_Application: WordApplication; safecall;
  8702.     function  Get_Creator: Integer; safecall;
  8703.     function  Get_Parent: IDispatch; safecall;
  8704.     function  Get_Location: WdFootnoteLocation; safecall;
  8705.     procedure Set_Location(prop: WdFootnoteLocation); safecall;
  8706.     function  Get_NumberStyle: WdNoteNumberStyle; safecall;
  8707.     procedure Set_NumberStyle(prop: WdNoteNumberStyle); safecall;
  8708.     function  Get_StartingNumber: Integer; safecall;
  8709.     procedure Set_StartingNumber(prop: Integer); safecall;
  8710.     function  Get_NumberingRule: WdNumberingRule; safecall;
  8711.     procedure Set_NumberingRule(prop: WdNumberingRule); safecall;
  8712.     function  Get_Separator: Range; safecall;
  8713.     function  Get_ContinuationSeparator: Range; safecall;
  8714.     function  Get_ContinuationNotice: Range; safecall;
  8715.     function  Item(Index: Integer): Footnote; safecall;
  8716.     function  Add(const Range: Range; var Reference: OleVariant; var Text: OleVariant): Footnote; safecall;
  8717.     procedure Convert; safecall;
  8718.     procedure SwapWithEndnotes; safecall;
  8719.     procedure ResetSeparator; safecall;
  8720.     procedure ResetContinuationSeparator; safecall;
  8721.     procedure ResetContinuationNotice; safecall;
  8722.     property _NewEnum: IUnknown read Get__NewEnum;
  8723.     property Count: Integer read Get_Count;
  8724.     property Application: WordApplication read Get_Application;
  8725.     property Creator: Integer read Get_Creator;
  8726.     property Parent: IDispatch read Get_Parent;
  8727.     property Location: WdFootnoteLocation read Get_Location write Set_Location;
  8728.     property NumberStyle: WdNoteNumberStyle read Get_NumberStyle write Set_NumberStyle;
  8729.     property StartingNumber: Integer read Get_StartingNumber write Set_StartingNumber;
  8730.     property NumberingRule: WdNumberingRule read Get_NumberingRule write Set_NumberingRule;
  8731.     property Separator: Range read Get_Separator;
  8732.     property ContinuationSeparator: Range read Get_ContinuationSeparator;
  8733.     property ContinuationNotice: Range read Get_ContinuationNotice;
  8734.   end;
  8735.  
  8736. // *********************************************************************//
  8737. // DispIntf:  FootnotesDisp
  8738. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8739. // GUID:      {00020942-0000-0000-C000-000000000046}
  8740. // *********************************************************************//
  8741.   FootnotesDisp = dispinterface
  8742.     ['{00020942-0000-0000-C000-000000000046}']
  8743.     property _NewEnum: IUnknown readonly dispid -4;
  8744.     property Count: Integer readonly dispid 2;
  8745.     property Application: WordApplication readonly dispid 1000;
  8746.     property Creator: Integer readonly dispid 1001;
  8747.     property Parent: IDispatch readonly dispid 1002;
  8748.     property Location: WdFootnoteLocation dispid 100;
  8749.     property NumberStyle: WdNoteNumberStyle dispid 101;
  8750.     property StartingNumber: Integer dispid 102;
  8751.     property NumberingRule: WdNumberingRule dispid 103;
  8752.     property Separator: Range readonly dispid 104;
  8753.     property ContinuationSeparator: Range readonly dispid 105;
  8754.     property ContinuationNotice: Range readonly dispid 106;
  8755.     function  Item(Index: Integer): Footnote; dispid 0;
  8756.     function  Add(const Range: Range; var Reference: OleVariant; var Text: OleVariant): Footnote; dispid 4;
  8757.     procedure Convert; dispid 5;
  8758.     procedure SwapWithEndnotes; dispid 6;
  8759.     procedure ResetSeparator; dispid 7;
  8760.     procedure ResetContinuationSeparator; dispid 8;
  8761.     procedure ResetContinuationNotice; dispid 9;
  8762.   end;
  8763.  
  8764. // *********************************************************************//
  8765. // Interface: Endnotes
  8766. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8767. // GUID:      {00020941-0000-0000-C000-000000000046}
  8768. // *********************************************************************//
  8769.   Endnotes = interface(IDispatch)
  8770.     ['{00020941-0000-0000-C000-000000000046}']
  8771.     function  Get__NewEnum: IUnknown; safecall;
  8772.     function  Get_Count: Integer; safecall;
  8773.     function  Get_Application: WordApplication; safecall;
  8774.     function  Get_Creator: Integer; safecall;
  8775.     function  Get_Parent: IDispatch; safecall;
  8776.     function  Get_Location: WdEndnoteLocation; safecall;
  8777.     procedure Set_Location(prop: WdEndnoteLocation); safecall;
  8778.     function  Get_NumberStyle: WdNoteNumberStyle; safecall;
  8779.     procedure Set_NumberStyle(prop: WdNoteNumberStyle); safecall;
  8780.     function  Get_StartingNumber: Integer; safecall;
  8781.     procedure Set_StartingNumber(prop: Integer); safecall;
  8782.     function  Get_NumberingRule: WdNumberingRule; safecall;
  8783.     procedure Set_NumberingRule(prop: WdNumberingRule); safecall;
  8784.     function  Get_Separator: Range; safecall;
  8785.     function  Get_ContinuationSeparator: Range; safecall;
  8786.     function  Get_ContinuationNotice: Range; safecall;
  8787.     function  Item(Index: Integer): Endnote; safecall;
  8788.     function  Add(const Range: Range; var Reference: OleVariant; var Text: OleVariant): Endnote; safecall;
  8789.     procedure Convert; safecall;
  8790.     procedure SwapWithFootnotes; safecall;
  8791.     procedure ResetSeparator; safecall;
  8792.     procedure ResetContinuationSeparator; safecall;
  8793.     procedure ResetContinuationNotice; safecall;
  8794.     property _NewEnum: IUnknown read Get__NewEnum;
  8795.     property Count: Integer read Get_Count;
  8796.     property Application: WordApplication read Get_Application;
  8797.     property Creator: Integer read Get_Creator;
  8798.     property Parent: IDispatch read Get_Parent;
  8799.     property Location: WdEndnoteLocation read Get_Location write Set_Location;
  8800.     property NumberStyle: WdNoteNumberStyle read Get_NumberStyle write Set_NumberStyle;
  8801.     property StartingNumber: Integer read Get_StartingNumber write Set_StartingNumber;
  8802.     property NumberingRule: WdNumberingRule read Get_NumberingRule write Set_NumberingRule;
  8803.     property Separator: Range read Get_Separator;
  8804.     property ContinuationSeparator: Range read Get_ContinuationSeparator;
  8805.     property ContinuationNotice: Range read Get_ContinuationNotice;
  8806.   end;
  8807.  
  8808. // *********************************************************************//
  8809. // DispIntf:  EndnotesDisp
  8810. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8811. // GUID:      {00020941-0000-0000-C000-000000000046}
  8812. // *********************************************************************//
  8813.   EndnotesDisp = dispinterface
  8814.     ['{00020941-0000-0000-C000-000000000046}']
  8815.     property _NewEnum: IUnknown readonly dispid -4;
  8816.     property Count: Integer readonly dispid 2;
  8817.     property Application: WordApplication readonly dispid 1000;
  8818.     property Creator: Integer readonly dispid 1001;
  8819.     property Parent: IDispatch readonly dispid 1002;
  8820.     property Location: WdEndnoteLocation dispid 100;
  8821.     property NumberStyle: WdNoteNumberStyle dispid 101;
  8822.     property StartingNumber: Integer dispid 102;
  8823.     property NumberingRule: WdNumberingRule dispid 103;
  8824.     property Separator: Range readonly dispid 104;
  8825.     property ContinuationSeparator: Range readonly dispid 105;
  8826.     property ContinuationNotice: Range readonly dispid 106;
  8827.     function  Item(Index: Integer): Endnote; dispid 0;
  8828.     function  Add(const Range: Range; var Reference: OleVariant; var Text: OleVariant): Endnote; dispid 4;
  8829.     procedure Convert; dispid 5;
  8830.     procedure SwapWithFootnotes; dispid 6;
  8831.     procedure ResetSeparator; dispid 7;
  8832.     procedure ResetContinuationSeparator; dispid 8;
  8833.     procedure ResetContinuationNotice; dispid 9;
  8834.   end;
  8835.  
  8836. // *********************************************************************//
  8837. // Interface: Comments
  8838. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8839. // GUID:      {00020940-0000-0000-C000-000000000046}
  8840. // *********************************************************************//
  8841.   Comments = interface(IDispatch)
  8842.     ['{00020940-0000-0000-C000-000000000046}']
  8843.     function  Get__NewEnum: IUnknown; safecall;
  8844.     function  Get_Count: Integer; safecall;
  8845.     function  Get_Application: WordApplication; safecall;
  8846.     function  Get_Creator: Integer; safecall;
  8847.     function  Get_Parent: IDispatch; safecall;
  8848.     function  Get_ShowBy: WideString; safecall;
  8849.     procedure Set_ShowBy(const prop: WideString); safecall;
  8850.     function  Item(Index: Integer): Comment; safecall;
  8851.     function  Add(const Range: Range; var Text: OleVariant): Comment; safecall;
  8852.     property _NewEnum: IUnknown read Get__NewEnum;
  8853.     property Count: Integer read Get_Count;
  8854.     property Application: WordApplication read Get_Application;
  8855.     property Creator: Integer read Get_Creator;
  8856.     property Parent: IDispatch read Get_Parent;
  8857.     property ShowBy: WideString read Get_ShowBy write Set_ShowBy;
  8858.   end;
  8859.  
  8860. // *********************************************************************//
  8861. // DispIntf:  CommentsDisp
  8862. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8863. // GUID:      {00020940-0000-0000-C000-000000000046}
  8864. // *********************************************************************//
  8865.   CommentsDisp = dispinterface
  8866.     ['{00020940-0000-0000-C000-000000000046}']
  8867.     property _NewEnum: IUnknown readonly dispid -4;
  8868.     property Count: Integer readonly dispid 2;
  8869.     property Application: WordApplication readonly dispid 1000;
  8870.     property Creator: Integer readonly dispid 1001;
  8871.     property Parent: IDispatch readonly dispid 1002;
  8872.     property ShowBy: WideString dispid 1003;
  8873.     function  Item(Index: Integer): Comment; dispid 0;
  8874.     function  Add(const Range: Range; var Text: OleVariant): Comment; dispid 4;
  8875.   end;
  8876.  
  8877. // *********************************************************************//
  8878. // Interface: Footnote
  8879. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8880. // GUID:      {0002093F-0000-0000-C000-000000000046}
  8881. // *********************************************************************//
  8882.   Footnote = interface(IDispatch)
  8883.     ['{0002093F-0000-0000-C000-000000000046}']
  8884.     function  Get_Application: WordApplication; safecall;
  8885.     function  Get_Creator: Integer; safecall;
  8886.     function  Get_Parent: IDispatch; safecall;
  8887.     function  Get_Range: Range; safecall;
  8888.     function  Get_Reference: Range; safecall;
  8889.     function  Get_Index: Integer; safecall;
  8890.     procedure Delete; safecall;
  8891.     property Application: WordApplication read Get_Application;
  8892.     property Creator: Integer read Get_Creator;
  8893.     property Parent: IDispatch read Get_Parent;
  8894.     property Range: Range read Get_Range;
  8895.     property Reference: Range read Get_Reference;
  8896.     property Index: Integer read Get_Index;
  8897.   end;
  8898.  
  8899. // *********************************************************************//
  8900. // DispIntf:  FootnoteDisp
  8901. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8902. // GUID:      {0002093F-0000-0000-C000-000000000046}
  8903. // *********************************************************************//
  8904.   FootnoteDisp = dispinterface
  8905.     ['{0002093F-0000-0000-C000-000000000046}']
  8906.     property Application: WordApplication readonly dispid 1000;
  8907.     property Creator: Integer readonly dispid 1001;
  8908.     property Parent: IDispatch readonly dispid 1002;
  8909.     property Range: Range readonly dispid 4;
  8910.     property Reference: Range readonly dispid 5;
  8911.     property Index: Integer readonly dispid 6;
  8912.     procedure Delete; dispid 10;
  8913.   end;
  8914.  
  8915. // *********************************************************************//
  8916. // Interface: Endnote
  8917. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8918. // GUID:      {0002093E-0000-0000-C000-000000000046}
  8919. // *********************************************************************//
  8920.   Endnote = interface(IDispatch)
  8921.     ['{0002093E-0000-0000-C000-000000000046}']
  8922.     function  Get_Application: WordApplication; safecall;
  8923.     function  Get_Creator: Integer; safecall;
  8924.     function  Get_Parent: IDispatch; safecall;
  8925.     function  Get_Range: Range; safecall;
  8926.     function  Get_Reference: Range; safecall;
  8927.     function  Get_Index: Integer; safecall;
  8928.     procedure Delete; safecall;
  8929.     property Application: WordApplication read Get_Application;
  8930.     property Creator: Integer read Get_Creator;
  8931.     property Parent: IDispatch read Get_Parent;
  8932.     property Range: Range read Get_Range;
  8933.     property Reference: Range read Get_Reference;
  8934.     property Index: Integer read Get_Index;
  8935.   end;
  8936.  
  8937. // *********************************************************************//
  8938. // DispIntf:  EndnoteDisp
  8939. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8940. // GUID:      {0002093E-0000-0000-C000-000000000046}
  8941. // *********************************************************************//
  8942.   EndnoteDisp = dispinterface
  8943.     ['{0002093E-0000-0000-C000-000000000046}']
  8944.     property Application: WordApplication readonly dispid 1000;
  8945.     property Creator: Integer readonly dispid 1001;
  8946.     property Parent: IDispatch readonly dispid 1002;
  8947.     property Range: Range readonly dispid 4;
  8948.     property Reference: Range readonly dispid 5;
  8949.     property Index: Integer readonly dispid 6;
  8950.     procedure Delete; dispid 10;
  8951.   end;
  8952.  
  8953. // *********************************************************************//
  8954. // Interface: Comment
  8955. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8956. // GUID:      {0002093D-0000-0000-C000-000000000046}
  8957. // *********************************************************************//
  8958.   Comment = interface(IDispatch)
  8959.     ['{0002093D-0000-0000-C000-000000000046}']
  8960.     function  Get_Application: WordApplication; safecall;
  8961.     function  Get_Creator: Integer; safecall;
  8962.     function  Get_Parent: IDispatch; safecall;
  8963.     function  Get_Range: Range; safecall;
  8964.     function  Get_Reference: Range; safecall;
  8965.     function  Get_Scope: Range; safecall;
  8966.     function  Get_Index: Integer; safecall;
  8967.     function  Get_Author: WideString; safecall;
  8968.     procedure Set_Author(const prop: WideString); safecall;
  8969.     function  Get_Initial: WideString; safecall;
  8970.     procedure Set_Initial(const prop: WideString); safecall;
  8971.     function  Get_ShowTip: WordBool; safecall;
  8972.     procedure Set_ShowTip(prop: WordBool); safecall;
  8973.     procedure Delete; safecall;
  8974.     property Application: WordApplication read Get_Application;
  8975.     property Creator: Integer read Get_Creator;
  8976.     property Parent: IDispatch read Get_Parent;
  8977.     property Range: Range read Get_Range;
  8978.     property Reference: Range read Get_Reference;
  8979.     property Scope: Range read Get_Scope;
  8980.     property Index: Integer read Get_Index;
  8981.     property Author: WideString read Get_Author write Set_Author;
  8982.     property Initial: WideString read Get_Initial write Set_Initial;
  8983.     property ShowTip: WordBool read Get_ShowTip write Set_ShowTip;
  8984.   end;
  8985.  
  8986. // *********************************************************************//
  8987. // DispIntf:  CommentDisp
  8988. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  8989. // GUID:      {0002093D-0000-0000-C000-000000000046}
  8990. // *********************************************************************//
  8991.   CommentDisp = dispinterface
  8992.     ['{0002093D-0000-0000-C000-000000000046}']
  8993.     property Application: WordApplication readonly dispid 1000;
  8994.     property Creator: Integer readonly dispid 1001;
  8995.     property Parent: IDispatch readonly dispid 1002;
  8996.     property Range: Range readonly dispid 1003;
  8997.     property Reference: Range readonly dispid 1004;
  8998.     property Scope: Range readonly dispid 1005;
  8999.     property Index: Integer readonly dispid 1006;
  9000.     property Author: WideString dispid 1007;
  9001.     property Initial: WideString dispid 1008;
  9002.     property ShowTip: WordBool dispid 1009;
  9003.     procedure Delete; dispid 10;
  9004.   end;
  9005.  
  9006. // *********************************************************************//
  9007. // Interface: Borders
  9008. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9009. // GUID:      {0002093C-0000-0000-C000-000000000046}
  9010. // *********************************************************************//
  9011.   Borders = interface(IDispatch)
  9012.     ['{0002093C-0000-0000-C000-000000000046}']
  9013.     function  Get_Application: WordApplication; safecall;
  9014.     function  Get_Creator: Integer; safecall;
  9015.     function  Get_Parent: IDispatch; safecall;
  9016.     function  Get__NewEnum: IUnknown; safecall;
  9017.     function  Get_Count: Integer; safecall;
  9018.     function  Get_Enable: Integer; safecall;
  9019.     procedure Set_Enable(prop: Integer); safecall;
  9020.     function  Get_DistanceFromTop: Integer; safecall;
  9021.     procedure Set_DistanceFromTop(prop: Integer); safecall;
  9022.     function  Get_Shadow: WordBool; safecall;
  9023.     procedure Set_Shadow(prop: WordBool); safecall;
  9024.     function  Get_InsideLineStyle: WdLineStyle; safecall;
  9025.     procedure Set_InsideLineStyle(prop: WdLineStyle); safecall;
  9026.     function  Get_OutsideLineStyle: WdLineStyle; safecall;
  9027.     procedure Set_OutsideLineStyle(prop: WdLineStyle); safecall;
  9028.     function  Get_InsideLineWidth: WdLineWidth; safecall;
  9029.     procedure Set_InsideLineWidth(prop: WdLineWidth); safecall;
  9030.     function  Get_OutsideLineWidth: WdLineWidth; safecall;
  9031.     procedure Set_OutsideLineWidth(prop: WdLineWidth); safecall;
  9032.     function  Get_InsideColorIndex: WdColorIndex; safecall;
  9033.     procedure Set_InsideColorIndex(prop: WdColorIndex); safecall;
  9034.     function  Get_OutsideColorIndex: WdColorIndex; safecall;
  9035.     procedure Set_OutsideColorIndex(prop: WdColorIndex); safecall;
  9036.     function  Get_DistanceFromLeft: Integer; safecall;
  9037.     procedure Set_DistanceFromLeft(prop: Integer); safecall;
  9038.     function  Get_DistanceFromBottom: Integer; safecall;
  9039.     procedure Set_DistanceFromBottom(prop: Integer); safecall;
  9040.     function  Get_DistanceFromRight: Integer; safecall;
  9041.     procedure Set_DistanceFromRight(prop: Integer); safecall;
  9042.     function  Get_AlwaysInFront: WordBool; safecall;
  9043.     procedure Set_AlwaysInFront(prop: WordBool); safecall;
  9044.     function  Get_SurroundHeader: WordBool; safecall;
  9045.     procedure Set_SurroundHeader(prop: WordBool); safecall;
  9046.     function  Get_SurroundFooter: WordBool; safecall;
  9047.     procedure Set_SurroundFooter(prop: WordBool); safecall;
  9048.     function  Get_JoinBorders: WordBool; safecall;
  9049.     procedure Set_JoinBorders(prop: WordBool); safecall;
  9050.     function  Get_HasHorizontal: WordBool; safecall;
  9051.     function  Get_HasVertical: WordBool; safecall;
  9052.     function  Get_DistanceFrom: WdBorderDistanceFrom; safecall;
  9053.     procedure Set_DistanceFrom(prop: WdBorderDistanceFrom); safecall;
  9054.     function  Get_EnableFirstPageInSection: WordBool; safecall;
  9055.     procedure Set_EnableFirstPageInSection(prop: WordBool); safecall;
  9056.     function  Get_EnableOtherPagesInSection: WordBool; safecall;
  9057.     procedure Set_EnableOtherPagesInSection(prop: WordBool); safecall;
  9058.     function  Item(Index: WdBorderType): Border; safecall;
  9059.     procedure ApplyPageBordersToAllSections; safecall;
  9060.     property Application: WordApplication read Get_Application;
  9061.     property Creator: Integer read Get_Creator;
  9062.     property Parent: IDispatch read Get_Parent;
  9063.     property _NewEnum: IUnknown read Get__NewEnum;
  9064.     property Count: Integer read Get_Count;
  9065.     property Enable: Integer read Get_Enable write Set_Enable;
  9066.     property DistanceFromTop: Integer read Get_DistanceFromTop write Set_DistanceFromTop;
  9067.     property Shadow: WordBool read Get_Shadow write Set_Shadow;
  9068.     property InsideLineStyle: WdLineStyle read Get_InsideLineStyle write Set_InsideLineStyle;
  9069.     property OutsideLineStyle: WdLineStyle read Get_OutsideLineStyle write Set_OutsideLineStyle;
  9070.     property InsideLineWidth: WdLineWidth read Get_InsideLineWidth write Set_InsideLineWidth;
  9071.     property OutsideLineWidth: WdLineWidth read Get_OutsideLineWidth write Set_OutsideLineWidth;
  9072.     property InsideColorIndex: WdColorIndex read Get_InsideColorIndex write Set_InsideColorIndex;
  9073.     property OutsideColorIndex: WdColorIndex read Get_OutsideColorIndex write Set_OutsideColorIndex;
  9074.     property DistanceFromLeft: Integer read Get_DistanceFromLeft write Set_DistanceFromLeft;
  9075.     property DistanceFromBottom: Integer read Get_DistanceFromBottom write Set_DistanceFromBottom;
  9076.     property DistanceFromRight: Integer read Get_DistanceFromRight write Set_DistanceFromRight;
  9077.     property AlwaysInFront: WordBool read Get_AlwaysInFront write Set_AlwaysInFront;
  9078.     property SurroundHeader: WordBool read Get_SurroundHeader write Set_SurroundHeader;
  9079.     property SurroundFooter: WordBool read Get_SurroundFooter write Set_SurroundFooter;
  9080.     property JoinBorders: WordBool read Get_JoinBorders write Set_JoinBorders;
  9081.     property HasHorizontal: WordBool read Get_HasHorizontal;
  9082.     property HasVertical: WordBool read Get_HasVertical;
  9083.     property DistanceFrom: WdBorderDistanceFrom read Get_DistanceFrom write Set_DistanceFrom;
  9084.     property EnableFirstPageInSection: WordBool read Get_EnableFirstPageInSection write Set_EnableFirstPageInSection;
  9085.     property EnableOtherPagesInSection: WordBool read Get_EnableOtherPagesInSection write Set_EnableOtherPagesInSection;
  9086.   end;
  9087.  
  9088. // *********************************************************************//
  9089. // DispIntf:  BordersDisp
  9090. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9091. // GUID:      {0002093C-0000-0000-C000-000000000046}
  9092. // *********************************************************************//
  9093.   BordersDisp = dispinterface
  9094.     ['{0002093C-0000-0000-C000-000000000046}']
  9095.     property Application: WordApplication readonly dispid 1000;
  9096.     property Creator: Integer readonly dispid 1001;
  9097.     property Parent: IDispatch readonly dispid 1002;
  9098.     property _NewEnum: IUnknown readonly dispid -4;
  9099.     property Count: Integer readonly dispid 1;
  9100.     property Enable: Integer dispid 2;
  9101.     property DistanceFromTop: Integer dispid 4;
  9102.     property Shadow: WordBool dispid 5;
  9103.     property InsideLineStyle: WdLineStyle dispid 6;
  9104.     property OutsideLineStyle: WdLineStyle dispid 7;
  9105.     property InsideLineWidth: WdLineWidth dispid 8;
  9106.     property OutsideLineWidth: WdLineWidth dispid 9;
  9107.     property InsideColorIndex: WdColorIndex dispid 10;
  9108.     property OutsideColorIndex: WdColorIndex dispid 11;
  9109.     property DistanceFromLeft: Integer dispid 20;
  9110.     property DistanceFromBottom: Integer dispid 21;
  9111.     property DistanceFromRight: Integer dispid 22;
  9112.     property AlwaysInFront: WordBool dispid 23;
  9113.     property SurroundHeader: WordBool dispid 24;
  9114.     property SurroundFooter: WordBool dispid 25;
  9115.     property JoinBorders: WordBool dispid 26;
  9116.     property HasHorizontal: WordBool readonly dispid 27;
  9117.     property HasVertical: WordBool readonly dispid 28;
  9118.     property DistanceFrom: WdBorderDistanceFrom dispid 29;
  9119.     property EnableFirstPageInSection: WordBool dispid 30;
  9120.     property EnableOtherPagesInSection: WordBool dispid 31;
  9121.     function  Item(Index: WdBorderType): Border; dispid 0;
  9122.     procedure ApplyPageBordersToAllSections; dispid 2000;
  9123.   end;
  9124.  
  9125. // *********************************************************************//
  9126. // Interface: Border
  9127. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9128. // GUID:      {0002093B-0000-0000-C000-000000000046}
  9129. // *********************************************************************//
  9130.   Border = interface(IDispatch)
  9131.     ['{0002093B-0000-0000-C000-000000000046}']
  9132.     function  Get_Application: WordApplication; safecall;
  9133.     function  Get_Creator: Integer; safecall;
  9134.     function  Get_Parent: IDispatch; safecall;
  9135.     function  Get_Visible: WordBool; safecall;
  9136.     procedure Set_Visible(prop: WordBool); safecall;
  9137.     function  Get_ColorIndex: WdColorIndex; safecall;
  9138.     procedure Set_ColorIndex(prop: WdColorIndex); safecall;
  9139.     function  Get_Inside: WordBool; safecall;
  9140.     function  Get_LineStyle: WdLineStyle; safecall;
  9141.     procedure Set_LineStyle(prop: WdLineStyle); safecall;
  9142.     function  Get_LineWidth: WdLineWidth; safecall;
  9143.     procedure Set_LineWidth(prop: WdLineWidth); safecall;
  9144.     function  Get_ArtStyle: WdPageBorderArt; safecall;
  9145.     procedure Set_ArtStyle(prop: WdPageBorderArt); safecall;
  9146.     function  Get_ArtWidth: Integer; safecall;
  9147.     procedure Set_ArtWidth(prop: Integer); safecall;
  9148.     property Application: WordApplication read Get_Application;
  9149.     property Creator: Integer read Get_Creator;
  9150.     property Parent: IDispatch read Get_Parent;
  9151.     property Visible: WordBool read Get_Visible write Set_Visible;
  9152.     property ColorIndex: WdColorIndex read Get_ColorIndex write Set_ColorIndex;
  9153.     property Inside: WordBool read Get_Inside;
  9154.     property LineStyle: WdLineStyle read Get_LineStyle write Set_LineStyle;
  9155.     property LineWidth: WdLineWidth read Get_LineWidth write Set_LineWidth;
  9156.     property ArtStyle: WdPageBorderArt read Get_ArtStyle write Set_ArtStyle;
  9157.     property ArtWidth: Integer read Get_ArtWidth write Set_ArtWidth;
  9158.   end;
  9159.  
  9160. // *********************************************************************//
  9161. // DispIntf:  BorderDisp
  9162. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9163. // GUID:      {0002093B-0000-0000-C000-000000000046}
  9164. // *********************************************************************//
  9165.   BorderDisp = dispinterface
  9166.     ['{0002093B-0000-0000-C000-000000000046}']
  9167.     property Application: WordApplication readonly dispid 1000;
  9168.     property Creator: Integer readonly dispid 1001;
  9169.     property Parent: IDispatch readonly dispid 1002;
  9170.     property Visible: WordBool dispid 0;
  9171.     property ColorIndex: WdColorIndex dispid 1;
  9172.     property Inside: WordBool readonly dispid 2;
  9173.     property LineStyle: WdLineStyle dispid 3;
  9174.     property LineWidth: WdLineWidth dispid 4;
  9175.     property ArtStyle: WdPageBorderArt dispid 5;
  9176.     property ArtWidth: Integer dispid 6;
  9177.   end;
  9178.  
  9179. // *********************************************************************//
  9180. // Interface: Shading
  9181. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9182. // GUID:      {0002093A-0000-0000-C000-000000000046}
  9183. // *********************************************************************//
  9184.   Shading = interface(IDispatch)
  9185.     ['{0002093A-0000-0000-C000-000000000046}']
  9186.     function  Get_Application: WordApplication; safecall;
  9187.     function  Get_Creator: Integer; safecall;
  9188.     function  Get_Parent: IDispatch; safecall;
  9189.     function  Get_ForegroundPatternColorIndex: WdColorIndex; safecall;
  9190.     procedure Set_ForegroundPatternColorIndex(prop: WdColorIndex); safecall;
  9191.     function  Get_BackgroundPatternColorIndex: WdColorIndex; safecall;
  9192.     procedure Set_BackgroundPatternColorIndex(prop: WdColorIndex); safecall;
  9193.     function  Get_Texture: WdTextureIndex; safecall;
  9194.     procedure Set_Texture(prop: WdTextureIndex); safecall;
  9195.     property Application: WordApplication read Get_Application;
  9196.     property Creator: Integer read Get_Creator;
  9197.     property Parent: IDispatch read Get_Parent;
  9198.     property ForegroundPatternColorIndex: WdColorIndex read Get_ForegroundPatternColorIndex write Set_ForegroundPatternColorIndex;
  9199.     property BackgroundPatternColorIndex: WdColorIndex read Get_BackgroundPatternColorIndex write Set_BackgroundPatternColorIndex;
  9200.     property Texture: WdTextureIndex read Get_Texture write Set_Texture;
  9201.   end;
  9202.  
  9203. // *********************************************************************//
  9204. // DispIntf:  ShadingDisp
  9205. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9206. // GUID:      {0002093A-0000-0000-C000-000000000046}
  9207. // *********************************************************************//
  9208.   ShadingDisp = dispinterface
  9209.     ['{0002093A-0000-0000-C000-000000000046}']
  9210.     property Application: WordApplication readonly dispid 1000;
  9211.     property Creator: Integer readonly dispid 1001;
  9212.     property Parent: IDispatch readonly dispid 1002;
  9213.     property ForegroundPatternColorIndex: WdColorIndex dispid 1;
  9214.     property BackgroundPatternColorIndex: WdColorIndex dispid 2;
  9215.     property Texture: WdTextureIndex dispid 3;
  9216.   end;
  9217.  
  9218. // *********************************************************************//
  9219. // Interface: TextRetrievalMode
  9220. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9221. // GUID:      {00020939-0000-0000-C000-000000000046}
  9222. // *********************************************************************//
  9223.   TextRetrievalMode = interface(IDispatch)
  9224.     ['{00020939-0000-0000-C000-000000000046}']
  9225.     function  Get_Application: WordApplication; safecall;
  9226.     function  Get_Creator: Integer; safecall;
  9227.     function  Get_Parent: IDispatch; safecall;
  9228.     function  Get_ViewType: WdViewType; safecall;
  9229.     procedure Set_ViewType(prop: WdViewType); safecall;
  9230.     function  Get_Duplicate: TextRetrievalMode; safecall;
  9231.     function  Get_IncludeHiddenText: WordBool; safecall;
  9232.     procedure Set_IncludeHiddenText(prop: WordBool); safecall;
  9233.     function  Get_IncludeFieldCodes: WordBool; safecall;
  9234.     procedure Set_IncludeFieldCodes(prop: WordBool); safecall;
  9235.     property Application: WordApplication read Get_Application;
  9236.     property Creator: Integer read Get_Creator;
  9237.     property Parent: IDispatch read Get_Parent;
  9238.     property ViewType: WdViewType read Get_ViewType write Set_ViewType;
  9239.     property Duplicate: TextRetrievalMode read Get_Duplicate;
  9240.     property IncludeHiddenText: WordBool read Get_IncludeHiddenText write Set_IncludeHiddenText;
  9241.     property IncludeFieldCodes: WordBool read Get_IncludeFieldCodes write Set_IncludeFieldCodes;
  9242.   end;
  9243.  
  9244. // *********************************************************************//
  9245. // DispIntf:  TextRetrievalModeDisp
  9246. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9247. // GUID:      {00020939-0000-0000-C000-000000000046}
  9248. // *********************************************************************//
  9249.   TextRetrievalModeDisp = dispinterface
  9250.     ['{00020939-0000-0000-C000-000000000046}']
  9251.     property Application: WordApplication readonly dispid 1000;
  9252.     property Creator: Integer readonly dispid 1001;
  9253.     property Parent: IDispatch readonly dispid 1002;
  9254.     property ViewType: WdViewType dispid 0;
  9255.     property Duplicate: TextRetrievalMode readonly dispid 1;
  9256.     property IncludeHiddenText: WordBool dispid 2;
  9257.     property IncludeFieldCodes: WordBool dispid 3;
  9258.   end;
  9259.  
  9260. // *********************************************************************//
  9261. // Interface: AutoTextEntries
  9262. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9263. // GUID:      {00020937-0000-0000-C000-000000000046}
  9264. // *********************************************************************//
  9265.   AutoTextEntries = interface(IDispatch)
  9266.     ['{00020937-0000-0000-C000-000000000046}']
  9267.     function  Get_Application: WordApplication; safecall;
  9268.     function  Get_Creator: Integer; safecall;
  9269.     function  Get_Parent: IDispatch; safecall;
  9270.     function  Get__NewEnum: IUnknown; safecall;
  9271.     function  Get_Count: Integer; safecall;
  9272.     function  Item(var Index: OleVariant): AutoTextEntry; safecall;
  9273.     function  Add(const Name: WideString; const Range: Range): AutoTextEntry; safecall;
  9274.     function  AppendToSpike(const Range: Range): AutoTextEntry; safecall;
  9275.     property Application: WordApplication read Get_Application;
  9276.     property Creator: Integer read Get_Creator;
  9277.     property Parent: IDispatch read Get_Parent;
  9278.     property _NewEnum: IUnknown read Get__NewEnum;
  9279.     property Count: Integer read Get_Count;
  9280.   end;
  9281.  
  9282. // *********************************************************************//
  9283. // DispIntf:  AutoTextEntriesDisp
  9284. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9285. // GUID:      {00020937-0000-0000-C000-000000000046}
  9286. // *********************************************************************//
  9287.   AutoTextEntriesDisp = dispinterface
  9288.     ['{00020937-0000-0000-C000-000000000046}']
  9289.     property Application: WordApplication readonly dispid 1000;
  9290.     property Creator: Integer readonly dispid 1001;
  9291.     property Parent: IDispatch readonly dispid 1002;
  9292.     property _NewEnum: IUnknown readonly dispid -4;
  9293.     property Count: Integer readonly dispid 1;
  9294.     function  Item(var Index: OleVariant): AutoTextEntry; dispid 0;
  9295.     function  Add(const Name: WideString; const Range: Range): AutoTextEntry; dispid 101;
  9296.     function  AppendToSpike(const Range: Range): AutoTextEntry; dispid 102;
  9297.   end;
  9298.  
  9299. // *********************************************************************//
  9300. // Interface: AutoTextEntry
  9301. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9302. // GUID:      {00020936-0000-0000-C000-000000000046}
  9303. // *********************************************************************//
  9304.   AutoTextEntry = interface(IDispatch)
  9305.     ['{00020936-0000-0000-C000-000000000046}']
  9306.     function  Get_Application: WordApplication; safecall;
  9307.     function  Get_Creator: Integer; safecall;
  9308.     function  Get_Parent: IDispatch; safecall;
  9309.     function  Get_Index: Integer; safecall;
  9310.     function  Get_Name: WideString; safecall;
  9311.     procedure Set_Name(const prop: WideString); safecall;
  9312.     function  Get_StyleName: WideString; safecall;
  9313.     function  Get_Value: WideString; safecall;
  9314.     procedure Set_Value(const prop: WideString); safecall;
  9315.     procedure Delete; safecall;
  9316.     function  Insert(const Where: Range; var RichText: OleVariant): Range; safecall;
  9317.     property Application: WordApplication read Get_Application;
  9318.     property Creator: Integer read Get_Creator;
  9319.     property Parent: IDispatch read Get_Parent;
  9320.     property Index: Integer read Get_Index;
  9321.     property Name: WideString read Get_Name write Set_Name;
  9322.     property StyleName: WideString read Get_StyleName;
  9323.     property Value: WideString read Get_Value write Set_Value;
  9324.   end;
  9325.  
  9326. // *********************************************************************//
  9327. // DispIntf:  AutoTextEntryDisp
  9328. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9329. // GUID:      {00020936-0000-0000-C000-000000000046}
  9330. // *********************************************************************//
  9331.   AutoTextEntryDisp = dispinterface
  9332.     ['{00020936-0000-0000-C000-000000000046}']
  9333.     property Application: WordApplication readonly dispid 1000;
  9334.     property Creator: Integer readonly dispid 1001;
  9335.     property Parent: IDispatch readonly dispid 1002;
  9336.     property Index: Integer readonly dispid 1;
  9337.     property Name: WideString dispid 2;
  9338.     property StyleName: WideString readonly dispid 3;
  9339.     property Value: WideString dispid 0;
  9340.     procedure Delete; dispid 101;
  9341.     function  Insert(const Where: Range; var RichText: OleVariant): Range; dispid 102;
  9342.   end;
  9343.  
  9344. // *********************************************************************//
  9345. // Interface: System
  9346. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9347. // GUID:      {00020935-0000-0000-C000-000000000046}
  9348. // *********************************************************************//
  9349.   System = interface(IDispatch)
  9350.     ['{00020935-0000-0000-C000-000000000046}']
  9351.     function  Get_Application: WordApplication; safecall;
  9352.     function  Get_Creator: Integer; safecall;
  9353.     function  Get_Parent: IDispatch; safecall;
  9354.     function  Get_OperatingSystem: WideString; safecall;
  9355.     function  Get_ProcessorType: WideString; safecall;
  9356.     function  Get_Version: WideString; safecall;
  9357.     function  Get_FreeDiskSpace: Integer; safecall;
  9358.     function  Get_Country: WdCountry; safecall;
  9359.     function  Get_LanguageDesignation: WideString; safecall;
  9360.     function  Get_HorizontalResolution: Integer; safecall;
  9361.     function  Get_VerticalResolution: Integer; safecall;
  9362.     function  Get_ProfileString(const Section: WideString; const Key: WideString): WideString; safecall;
  9363.     procedure Set_ProfileString(const Section: WideString; const Key: WideString; 
  9364.                                 const prop: WideString); safecall;
  9365.     function  Get_PrivateProfileString(const FileName: WideString; const Section: WideString; 
  9366.                                        const Key: WideString): WideString; safecall;
  9367.     procedure Set_PrivateProfileString(const FileName: WideString; const Section: WideString; 
  9368.                                        const Key: WideString; const prop: WideString); safecall;
  9369.     function  Get_MathCoprocessorInstalled: WordBool; safecall;
  9370.     function  Get_ComputerType: WideString; safecall;
  9371.     function  Get_MacintoshName: WideString; safecall;
  9372.     function  Get_QuickDrawInstalled: WordBool; safecall;
  9373.     function  Get_Cursor: WdCursorType; safecall;
  9374.     procedure Set_Cursor(prop: WdCursorType); safecall;
  9375.     procedure MSInfo; safecall;
  9376.     procedure Connect(const Path: WideString; var Drive: OleVariant; var Password: OleVariant); safecall;
  9377.     property Application: WordApplication read Get_Application;
  9378.     property Creator: Integer read Get_Creator;
  9379.     property Parent: IDispatch read Get_Parent;
  9380.     property OperatingSystem: WideString read Get_OperatingSystem;
  9381.     property ProcessorType: WideString read Get_ProcessorType;
  9382.     property Version: WideString read Get_Version;
  9383.     property FreeDiskSpace: Integer read Get_FreeDiskSpace;
  9384.     property Country: WdCountry read Get_Country;
  9385.     property LanguageDesignation: WideString read Get_LanguageDesignation;
  9386.     property HorizontalResolution: Integer read Get_HorizontalResolution;
  9387.     property VerticalResolution: Integer read Get_VerticalResolution;
  9388.     property ProfileString[const Section: WideString; const Key: WideString]: WideString read Get_ProfileString write Set_ProfileString;
  9389.     property PrivateProfileString[const FileName: WideString; const Section: WideString; 
  9390.                                   const Key: WideString]: WideString read Get_PrivateProfileString write Set_PrivateProfileString;
  9391.     property MathCoprocessorInstalled: WordBool read Get_MathCoprocessorInstalled;
  9392.     property ComputerType: WideString read Get_ComputerType;
  9393.     property MacintoshName: WideString read Get_MacintoshName;
  9394.     property QuickDrawInstalled: WordBool read Get_QuickDrawInstalled;
  9395.     property Cursor: WdCursorType read Get_Cursor write Set_Cursor;
  9396.   end;
  9397.  
  9398. // *********************************************************************//
  9399. // DispIntf:  SystemDisp
  9400. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9401. // GUID:      {00020935-0000-0000-C000-000000000046}
  9402. // *********************************************************************//
  9403.   SystemDisp = dispinterface
  9404.     ['{00020935-0000-0000-C000-000000000046}']
  9405.     property Application: WordApplication readonly dispid 1000;
  9406.     property Creator: Integer readonly dispid 1001;
  9407.     property Parent: IDispatch readonly dispid 1002;
  9408.     property OperatingSystem: WideString readonly dispid 1;
  9409.     property ProcessorType: WideString readonly dispid 2;
  9410.     property Version: WideString readonly dispid 3;
  9411.     property FreeDiskSpace: Integer readonly dispid 4;
  9412.     property Country: WdCountry readonly dispid 5;
  9413.     property LanguageDesignation: WideString readonly dispid 6;
  9414.     property HorizontalResolution: Integer readonly dispid 7;
  9415.     property VerticalResolution: Integer readonly dispid 8;
  9416.     property ProfileString[const Section: WideString; const Key: WideString]: WideString dispid 9;
  9417.     property PrivateProfileString[const FileName: WideString; const Section: WideString; 
  9418.                                   const Key: WideString]: WideString dispid 10;
  9419.     property MathCoprocessorInstalled: WordBool readonly dispid 11;
  9420.     property ComputerType: WideString readonly dispid 12;
  9421.     property MacintoshName: WideString readonly dispid 14;
  9422.     property QuickDrawInstalled: WordBool readonly dispid 15;
  9423.     property Cursor: WdCursorType dispid 16;
  9424.     procedure MSInfo; dispid 101;
  9425.     procedure Connect(const Path: WideString; var Drive: OleVariant; var Password: OleVariant); dispid 102;
  9426.   end;
  9427.  
  9428. // *********************************************************************//
  9429. // Interface: OLEFormat
  9430. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9431. // GUID:      {00020933-0000-0000-C000-000000000046}
  9432. // *********************************************************************//
  9433.   OLEFormat = interface(IDispatch)
  9434.     ['{00020933-0000-0000-C000-000000000046}']
  9435.     function  Get_Application: WordApplication; safecall;
  9436.     function  Get_Creator: Integer; safecall;
  9437.     function  Get_Parent: IDispatch; safecall;
  9438.     function  Get_ClassType: WideString; safecall;
  9439.     procedure Set_ClassType(const prop: WideString); safecall;
  9440.     function  Get_DisplayAsIcon: WordBool; safecall;
  9441.     procedure Set_DisplayAsIcon(prop: WordBool); safecall;
  9442.     function  Get_IconName: WideString; safecall;
  9443.     procedure Set_IconName(const prop: WideString); safecall;
  9444.     function  Get_IconPath: WideString; safecall;
  9445.     function  Get_IconIndex: Integer; safecall;
  9446.     procedure Set_IconIndex(prop: Integer); safecall;
  9447.     function  Get_IconLabel: WideString; safecall;
  9448.     procedure Set_IconLabel(const prop: WideString); safecall;
  9449.     function  Get_Label_: WideString; safecall;
  9450.     function  Get_Object_: IDispatch; safecall;
  9451.     function  Get_ProgID: WideString; safecall;
  9452.     procedure Activate; safecall;
  9453.     procedure Edit; safecall;
  9454.     procedure Open; safecall;
  9455.     procedure DoVerb(var VerbIndex: OleVariant); safecall;
  9456.     procedure ConvertTo(var ClassType: OleVariant; var DisplayAsIcon: OleVariant; 
  9457.                         var IconFileName: OleVariant; var IconIndex: OleVariant; 
  9458.                         var IconLabel: OleVariant); safecall;
  9459.     procedure ActivateAs(const ClassType: WideString); safecall;
  9460.     property Application: WordApplication read Get_Application;
  9461.     property Creator: Integer read Get_Creator;
  9462.     property Parent: IDispatch read Get_Parent;
  9463.     property ClassType: WideString read Get_ClassType write Set_ClassType;
  9464.     property DisplayAsIcon: WordBool read Get_DisplayAsIcon write Set_DisplayAsIcon;
  9465.     property IconName: WideString read Get_IconName write Set_IconName;
  9466.     property IconPath: WideString read Get_IconPath;
  9467.     property IconIndex: Integer read Get_IconIndex write Set_IconIndex;
  9468.     property IconLabel: WideString read Get_IconLabel write Set_IconLabel;
  9469.     property Label_: WideString read Get_Label_;
  9470.     property Object_: IDispatch read Get_Object_;
  9471.     property ProgID: WideString read Get_ProgID;
  9472.   end;
  9473.  
  9474. // *********************************************************************//
  9475. // DispIntf:  OLEFormatDisp
  9476. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9477. // GUID:      {00020933-0000-0000-C000-000000000046}
  9478. // *********************************************************************//
  9479.   OLEFormatDisp = dispinterface
  9480.     ['{00020933-0000-0000-C000-000000000046}']
  9481.     property Application: WordApplication readonly dispid 1000;
  9482.     property Creator: Integer readonly dispid 1001;
  9483.     property Parent: IDispatch readonly dispid 1002;
  9484.     property ClassType: WideString dispid 2;
  9485.     property DisplayAsIcon: WordBool dispid 3;
  9486.     property IconName: WideString dispid 7;
  9487.     property IconPath: WideString readonly dispid 8;
  9488.     property IconIndex: Integer dispid 9;
  9489.     property IconLabel: WideString dispid 10;
  9490.     property Label_: WideString readonly dispid 12;
  9491.     property Object_: IDispatch readonly dispid 14;
  9492.     property ProgID: WideString readonly dispid 22;
  9493.     procedure Activate; dispid 104;
  9494.     procedure Edit; dispid 106;
  9495.     procedure Open; dispid 107;
  9496.     procedure DoVerb(var VerbIndex: OleVariant); dispid 109;
  9497.     procedure ConvertTo(var ClassType: OleVariant; var DisplayAsIcon: OleVariant; 
  9498.                         var IconFileName: OleVariant; var IconIndex: OleVariant; 
  9499.                         var IconLabel: OleVariant); dispid 110;
  9500.     procedure ActivateAs(const ClassType: WideString); dispid 111;
  9501.   end;
  9502.  
  9503. // *********************************************************************//
  9504. // Interface: LinkFormat
  9505. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9506. // GUID:      {00020931-0000-0000-C000-000000000046}
  9507. // *********************************************************************//
  9508.   LinkFormat = interface(IDispatch)
  9509.     ['{00020931-0000-0000-C000-000000000046}']
  9510.     function  Get_Application: WordApplication; safecall;
  9511.     function  Get_Creator: Integer; safecall;
  9512.     function  Get_Parent: IDispatch; safecall;
  9513.     function  Get_AutoUpdate: WordBool; safecall;
  9514.     procedure Set_AutoUpdate(prop: WordBool); safecall;
  9515.     function  Get_SourceName: WideString; safecall;
  9516.     function  Get_SourcePath: WideString; safecall;
  9517.     function  Get_Locked: WordBool; safecall;
  9518.     procedure Set_Locked(prop: WordBool); safecall;
  9519.     function  Get_Type_: WdLinkType; safecall;
  9520.     function  Get_SourceFullName: WideString; safecall;
  9521.     procedure Set_SourceFullName(const prop: WideString); safecall;
  9522.     function  Get_SavePictureWithDocument: WordBool; safecall;
  9523.     procedure Set_SavePictureWithDocument(prop: WordBool); safecall;
  9524.     procedure BreakLink; safecall;
  9525.     procedure Update; safecall;
  9526.     property Application: WordApplication read Get_Application;
  9527.     property Creator: Integer read Get_Creator;
  9528.     property Parent: IDispatch read Get_Parent;
  9529.     property AutoUpdate: WordBool read Get_AutoUpdate write Set_AutoUpdate;
  9530.     property SourceName: WideString read Get_SourceName;
  9531.     property SourcePath: WideString read Get_SourcePath;
  9532.     property Locked: WordBool read Get_Locked write Set_Locked;
  9533.     property Type_: WdLinkType read Get_Type_;
  9534.     property SourceFullName: WideString read Get_SourceFullName write Set_SourceFullName;
  9535.     property SavePictureWithDocument: WordBool read Get_SavePictureWithDocument write Set_SavePictureWithDocument;
  9536.   end;
  9537.  
  9538. // *********************************************************************//
  9539. // DispIntf:  LinkFormatDisp
  9540. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9541. // GUID:      {00020931-0000-0000-C000-000000000046}
  9542. // *********************************************************************//
  9543.   LinkFormatDisp = dispinterface
  9544.     ['{00020931-0000-0000-C000-000000000046}']
  9545.     property Application: WordApplication readonly dispid 1000;
  9546.     property Creator: Integer readonly dispid 1001;
  9547.     property Parent: IDispatch readonly dispid 1002;
  9548.     property AutoUpdate: WordBool dispid 1;
  9549.     property SourceName: WideString readonly dispid 4;
  9550.     property SourcePath: WideString readonly dispid 5;
  9551.     property Locked: WordBool dispid 13;
  9552.     property Type_: WdLinkType readonly dispid 16;
  9553.     property SourceFullName: WideString dispid 21;
  9554.     property SavePictureWithDocument: WordBool dispid 22;
  9555.     procedure BreakLink; dispid 104;
  9556.     procedure Update; dispid 105;
  9557.   end;
  9558.  
  9559. // *********************************************************************//
  9560. // Interface: _OLEControl
  9561. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  9562. // GUID:      {000209A4-0000-0000-C000-000000000046}
  9563. // *********************************************************************//
  9564.   _OLEControl = interface(IDispatch)
  9565.     ['{000209A4-0000-0000-C000-000000000046}']
  9566.     function  Get_Left: Single; safecall;
  9567.     procedure Set_Left(prop: Single); safecall;
  9568.     function  Get_Top: Single; safecall;
  9569.     procedure Set_Top(prop: Single); safecall;
  9570.     function  Get_Height: Single; safecall;
  9571.     procedure Set_Height(prop: Single); safecall;
  9572.     function  Get_Width: Single; safecall;
  9573.     procedure Set_Width(prop: Single); safecall;
  9574.     function  Get_Name: WideString; safecall;
  9575.     procedure Set_Name(const prop: WideString); safecall;
  9576.     function  Get_Automation: IDispatch; safecall;
  9577.     procedure Select; safecall;
  9578.     procedure Copy; safecall;
  9579.     procedure Cut; safecall;
  9580.     procedure Delete; safecall;
  9581.     procedure Activate; safecall;
  9582.     property Left: Single read Get_Left write Set_Left;
  9583.     property Top: Single read Get_Top write Set_Top;
  9584.     property Height: Single read Get_Height write Set_Height;
  9585.     property Width: Single read Get_Width write Set_Width;
  9586.     property Name: WideString read Get_Name write Set_Name;
  9587.     property Automation: IDispatch read Get_Automation;
  9588.   end;
  9589.  
  9590. // *********************************************************************//
  9591. // DispIntf:  _OLEControlDisp
  9592. // Flags:     (4432) Hidden Dual OleAutomation Dispatchable
  9593. // GUID:      {000209A4-0000-0000-C000-000000000046}
  9594. // *********************************************************************//
  9595.   _OLEControlDisp = dispinterface
  9596.     ['{000209A4-0000-0000-C000-000000000046}']
  9597.     property Left: Single dispid -2147417853;
  9598.     property Top: Single dispid -2147417852;
  9599.     property Height: Single dispid -2147417851;
  9600.     property Width: Single dispid -2147417850;
  9601.     property Name: WideString dispid -2147418112;
  9602.     property Automation: IDispatch readonly dispid -2147417849;
  9603.     procedure Select; dispid -2147417568;
  9604.     procedure Copy; dispid -2147417560;
  9605.     procedure Cut; dispid -2147417559;
  9606.     procedure Delete; dispid -2147417520;
  9607.     procedure Activate; dispid -2147417519;
  9608.   end;
  9609.  
  9610. // *********************************************************************//
  9611. // Interface: Fields
  9612. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9613. // GUID:      {00020930-0000-0000-C000-000000000046}
  9614. // *********************************************************************//
  9615.   Fields = interface(IDispatch)
  9616.     ['{00020930-0000-0000-C000-000000000046}']
  9617.     function  Get_Application: WordApplication; safecall;
  9618.     function  Get_Creator: Integer; safecall;
  9619.     function  Get_Parent: IDispatch; safecall;
  9620.     function  Get_Count: Integer; safecall;
  9621.     function  Get_Locked: Integer; safecall;
  9622.     procedure Set_Locked(prop: Integer); safecall;
  9623.     function  Get__NewEnum: IUnknown; safecall;
  9624.     function  Item(Index: Integer): Field; safecall;
  9625.     procedure ToggleShowCodes; safecall;
  9626.     function  Update: Integer; safecall;
  9627.     procedure Unlink; safecall;
  9628.     procedure UpdateSource; safecall;
  9629.     function  Add(const Range: Range; var Type_: OleVariant; var Text: OleVariant; 
  9630.                   var PreserveFormatting: OleVariant): Field; safecall;
  9631.     property Application: WordApplication read Get_Application;
  9632.     property Creator: Integer read Get_Creator;
  9633.     property Parent: IDispatch read Get_Parent;
  9634.     property Count: Integer read Get_Count;
  9635.     property Locked: Integer read Get_Locked write Set_Locked;
  9636.     property _NewEnum: IUnknown read Get__NewEnum;
  9637.   end;
  9638.  
  9639. // *********************************************************************//
  9640. // DispIntf:  FieldsDisp
  9641. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9642. // GUID:      {00020930-0000-0000-C000-000000000046}
  9643. // *********************************************************************//
  9644.   FieldsDisp = dispinterface
  9645.     ['{00020930-0000-0000-C000-000000000046}']
  9646.     property Application: WordApplication readonly dispid 1000;
  9647.     property Creator: Integer readonly dispid 1001;
  9648.     property Parent: IDispatch readonly dispid 1002;
  9649.     property Count: Integer readonly dispid 1;
  9650.     property Locked: Integer dispid 2;
  9651.     property _NewEnum: IUnknown readonly dispid -4;
  9652.     function  Item(Index: Integer): Field; dispid 0;
  9653.     procedure ToggleShowCodes; dispid 100;
  9654.     function  Update: Integer; dispid 101;
  9655.     procedure Unlink; dispid 102;
  9656.     procedure UpdateSource; dispid 104;
  9657.     function  Add(const Range: Range; var Type_: OleVariant; var Text: OleVariant; 
  9658.                   var PreserveFormatting: OleVariant): Field; dispid 105;
  9659.   end;
  9660.  
  9661. // *********************************************************************//
  9662. // Interface: Field
  9663. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9664. // GUID:      {0002092F-0000-0000-C000-000000000046}
  9665. // *********************************************************************//
  9666.   Field = interface(IDispatch)
  9667.     ['{0002092F-0000-0000-C000-000000000046}']
  9668.     function  Get_Application: WordApplication; safecall;
  9669.     function  Get_Creator: Integer; safecall;
  9670.     function  Get_Parent: IDispatch; safecall;
  9671.     function  Get_Code: Range; safecall;
  9672.     procedure Set_Code(const prop: Range); safecall;
  9673.     function  Get_Type_: WdFieldType; safecall;
  9674.     function  Get_Locked: WordBool; safecall;
  9675.     procedure Set_Locked(prop: WordBool); safecall;
  9676.     function  Get_Kind: WdFieldKind; safecall;
  9677.     function  Get_Result: Range; safecall;
  9678.     procedure Set_Result(const prop: Range); safecall;
  9679.     function  Get_Data: WideString; safecall;
  9680.     procedure Set_Data(const prop: WideString); safecall;
  9681.     function  Get_Next: Field; safecall;
  9682.     function  Get_Previous: Field; safecall;
  9683.     function  Get_Index: Integer; safecall;
  9684.     function  Get_ShowCodes: WordBool; safecall;
  9685.     procedure Set_ShowCodes(prop: WordBool); safecall;
  9686.     function  Get_LinkFormat: LinkFormat; safecall;
  9687.     function  Get_OLEFormat: OLEFormat; safecall;
  9688.     function  Get_InlineShape: InlineShape; safecall;
  9689.     procedure Select; safecall;
  9690.     function  Update: WordBool; safecall;
  9691.     procedure Unlink; safecall;
  9692.     procedure UpdateSource; safecall;
  9693.     procedure DoClick; safecall;
  9694.     procedure Copy; safecall;
  9695.     procedure Cut; safecall;
  9696.     procedure Delete; safecall;
  9697.     property Application: WordApplication read Get_Application;
  9698.     property Creator: Integer read Get_Creator;
  9699.     property Parent: IDispatch read Get_Parent;
  9700.     property Code: Range read Get_Code write Set_Code;
  9701.     property Type_: WdFieldType read Get_Type_;
  9702.     property Locked: WordBool read Get_Locked write Set_Locked;
  9703.     property Kind: WdFieldKind read Get_Kind;
  9704.     property Result: Range read Get_Result write Set_Result;
  9705.     property Data: WideString read Get_Data write Set_Data;
  9706.     property Next: Field read Get_Next;
  9707.     property Previous: Field read Get_Previous;
  9708.     property Index: Integer read Get_Index;
  9709.     property ShowCodes: WordBool read Get_ShowCodes write Set_ShowCodes;
  9710.     property LinkFormat: LinkFormat read Get_LinkFormat;
  9711.     property OLEFormat: OLEFormat read Get_OLEFormat;
  9712.     property InlineShape: InlineShape read Get_InlineShape;
  9713.   end;
  9714.  
  9715. // *********************************************************************//
  9716. // DispIntf:  FieldDisp
  9717. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9718. // GUID:      {0002092F-0000-0000-C000-000000000046}
  9719. // *********************************************************************//
  9720.   FieldDisp = dispinterface
  9721.     ['{0002092F-0000-0000-C000-000000000046}']
  9722.     property Application: WordApplication readonly dispid 1000;
  9723.     property Creator: Integer readonly dispid 1001;
  9724.     property Parent: IDispatch readonly dispid 1002;
  9725.     property Code: Range dispid 0;
  9726.     property Type_: WdFieldType readonly dispid 1;
  9727.     property Locked: WordBool dispid 2;
  9728.     property Kind: WdFieldKind readonly dispid 3;
  9729.     property Result: Range dispid 4;
  9730.     property Data: WideString dispid 5;
  9731.     property Next: Field readonly dispid 6;
  9732.     property Previous: Field readonly dispid 7;
  9733.     property Index: Integer readonly dispid 8;
  9734.     property ShowCodes: WordBool dispid 9;
  9735.     property LinkFormat: LinkFormat readonly dispid 10;
  9736.     property OLEFormat: OLEFormat readonly dispid 11;
  9737.     property InlineShape: InlineShape readonly dispid 12;
  9738.     procedure Select; dispid 65535;
  9739.     function  Update: WordBool; dispid 101;
  9740.     procedure Unlink; dispid 102;
  9741.     procedure UpdateSource; dispid 103;
  9742.     procedure DoClick; dispid 104;
  9743.     procedure Copy; dispid 105;
  9744.     procedure Cut; dispid 106;
  9745.     procedure Delete; dispid 107;
  9746.   end;
  9747.  
  9748. // *********************************************************************//
  9749. // Interface: Browser
  9750. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9751. // GUID:      {0002092E-0000-0000-C000-000000000046}
  9752. // *********************************************************************//
  9753.   Browser = interface(IDispatch)
  9754.     ['{0002092E-0000-0000-C000-000000000046}']
  9755.     function  Get_Application: WordApplication; safecall;
  9756.     function  Get_Creator: Integer; safecall;
  9757.     function  Get_Parent: IDispatch; safecall;
  9758.     function  Get_Target: WdBrowseTarget; safecall;
  9759.     procedure Set_Target(prop: WdBrowseTarget); safecall;
  9760.     procedure Next; safecall;
  9761.     procedure Previous; safecall;
  9762.     property Application: WordApplication read Get_Application;
  9763.     property Creator: Integer read Get_Creator;
  9764.     property Parent: IDispatch read Get_Parent;
  9765.     property Target: WdBrowseTarget read Get_Target write Set_Target;
  9766.   end;
  9767.  
  9768. // *********************************************************************//
  9769. // DispIntf:  BrowserDisp
  9770. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9771. // GUID:      {0002092E-0000-0000-C000-000000000046}
  9772. // *********************************************************************//
  9773.   BrowserDisp = dispinterface
  9774.     ['{0002092E-0000-0000-C000-000000000046}']
  9775.     property Application: WordApplication readonly dispid 1000;
  9776.     property Creator: Integer readonly dispid 1001;
  9777.     property Parent: IDispatch readonly dispid 1002;
  9778.     property Target: WdBrowseTarget dispid 1;
  9779.     procedure Next; dispid 101;
  9780.     procedure Previous; dispid 102;
  9781.   end;
  9782.  
  9783. // *********************************************************************//
  9784. // Interface: Styles
  9785. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9786. // GUID:      {0002092D-0000-0000-C000-000000000046}
  9787. // *********************************************************************//
  9788.   Styles = interface(IDispatch)
  9789.     ['{0002092D-0000-0000-C000-000000000046}']
  9790.     function  Get_Application: WordApplication; safecall;
  9791.     function  Get_Creator: Integer; safecall;
  9792.     function  Get_Parent: IDispatch; safecall;
  9793.     function  Get__NewEnum: IUnknown; safecall;
  9794.     function  Get_Count: Integer; safecall;
  9795.     function  Item(var Index: OleVariant): Style; safecall;
  9796.     function  Add(const Name: WideString; var Type_: OleVariant): Style; safecall;
  9797.     property Application: WordApplication read Get_Application;
  9798.     property Creator: Integer read Get_Creator;
  9799.     property Parent: IDispatch read Get_Parent;
  9800.     property _NewEnum: IUnknown read Get__NewEnum;
  9801.     property Count: Integer read Get_Count;
  9802.   end;
  9803.  
  9804. // *********************************************************************//
  9805. // DispIntf:  StylesDisp
  9806. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9807. // GUID:      {0002092D-0000-0000-C000-000000000046}
  9808. // *********************************************************************//
  9809.   StylesDisp = dispinterface
  9810.     ['{0002092D-0000-0000-C000-000000000046}']
  9811.     property Application: WordApplication readonly dispid 1000;
  9812.     property Creator: Integer readonly dispid 1001;
  9813.     property Parent: IDispatch readonly dispid 1002;
  9814.     property _NewEnum: IUnknown readonly dispid -4;
  9815.     property Count: Integer readonly dispid 1;
  9816.     function  Item(var Index: OleVariant): Style; dispid 0;
  9817.     function  Add(const Name: WideString; var Type_: OleVariant): Style; dispid 100;
  9818.   end;
  9819.  
  9820. // *********************************************************************//
  9821. // Interface: Style
  9822. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9823. // GUID:      {0002092C-0000-0000-C000-000000000046}
  9824. // *********************************************************************//
  9825.   Style = interface(IDispatch)
  9826.     ['{0002092C-0000-0000-C000-000000000046}']
  9827.     function  Get_Application: WordApplication; safecall;
  9828.     function  Get_Creator: Integer; safecall;
  9829.     function  Get_Parent: IDispatch; safecall;
  9830.     function  Get_NameLocal: WideString; safecall;
  9831.     procedure Set_NameLocal(const prop: WideString); safecall;
  9832.     function  Get_BaseStyle: OleVariant; safecall;
  9833.     procedure Set_BaseStyle(var prop: OleVariant); safecall;
  9834.     function  Get_Description: WideString; safecall;
  9835.     function  Get_Type_: WdStyleType; safecall;
  9836.     function  Get_BuiltIn: WordBool; safecall;
  9837.     function  Get_NextParagraphStyle: OleVariant; safecall;
  9838.     procedure Set_NextParagraphStyle(var prop: OleVariant); safecall;
  9839.     function  Get_InUse: WordBool; safecall;
  9840.     function  Get_Shading: Shading; safecall;
  9841.     function  Get_Borders: Borders; safecall;
  9842.     procedure Set_Borders(const prop: Borders); safecall;
  9843.     function  Get_ParagraphFormat: WordParagraphFormat; safecall;
  9844.     procedure Set_ParagraphFormat(const prop: WordParagraphFormat); safecall;
  9845.     function  Get_Font: WordFont; safecall;
  9846.     procedure Set_Font(const prop: WordFont); safecall;
  9847.     function  Get_Frame: Frame; safecall;
  9848.     function  Get_LanguageID: WdLanguageID; safecall;
  9849.     procedure Set_LanguageID(prop: WdLanguageID); safecall;
  9850.     function  Get_AutomaticallyUpdate: WordBool; safecall;
  9851.     procedure Set_AutomaticallyUpdate(prop: WordBool); safecall;
  9852.     function  Get_ListTemplate: ListTemplate; safecall;
  9853.     function  Get_ListLevelNumber: Integer; safecall;
  9854.     function  Get_LanguageIDFarEast: WdLanguageID; safecall;
  9855.     procedure Set_LanguageIDFarEast(prop: WdLanguageID); safecall;
  9856.     function  Get_Hidden: WordBool; safecall;
  9857.     procedure Set_Hidden(prop: WordBool); safecall;
  9858.     procedure Delete; safecall;
  9859.     procedure LinkToListTemplate(const ListTemplate: ListTemplate; var ListLevelNumber: OleVariant); safecall;
  9860.     property Application: WordApplication read Get_Application;
  9861.     property Creator: Integer read Get_Creator;
  9862.     property Parent: IDispatch read Get_Parent;
  9863.     property NameLocal: WideString read Get_NameLocal write Set_NameLocal;
  9864.     property Description: WideString read Get_Description;
  9865.     property Type_: WdStyleType read Get_Type_;
  9866.     property BuiltIn: WordBool read Get_BuiltIn;
  9867.     property InUse: WordBool read Get_InUse;
  9868.     property Shading: Shading read Get_Shading;
  9869.     property Borders: Borders read Get_Borders write Set_Borders;
  9870.     property ParagraphFormat: WordParagraphFormat read Get_ParagraphFormat write Set_ParagraphFormat;
  9871.     property Font: WordFont read Get_Font write Set_Font;
  9872.     property Frame: Frame read Get_Frame;
  9873.     property LanguageID: WdLanguageID read Get_LanguageID write Set_LanguageID;
  9874.     property AutomaticallyUpdate: WordBool read Get_AutomaticallyUpdate write Set_AutomaticallyUpdate;
  9875.     property ListTemplate: ListTemplate read Get_ListTemplate;
  9876.     property ListLevelNumber: Integer read Get_ListLevelNumber;
  9877.     property LanguageIDFarEast: WdLanguageID read Get_LanguageIDFarEast write Set_LanguageIDFarEast;
  9878.     property Hidden: WordBool read Get_Hidden write Set_Hidden;
  9879.   end;
  9880.  
  9881. // *********************************************************************//
  9882. // DispIntf:  StyleDisp
  9883. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9884. // GUID:      {0002092C-0000-0000-C000-000000000046}
  9885. // *********************************************************************//
  9886.   StyleDisp = dispinterface
  9887.     ['{0002092C-0000-0000-C000-000000000046}']
  9888.     property Application: WordApplication readonly dispid 1000;
  9889.     property Creator: Integer readonly dispid 1001;
  9890.     property Parent: IDispatch readonly dispid 1002;
  9891.     property NameLocal: WideString dispid 0;
  9892.     function  BaseStyle: OleVariant; dispid 1;
  9893.     property Description: WideString readonly dispid 2;
  9894.     property Type_: WdStyleType readonly dispid 3;
  9895.     property BuiltIn: WordBool readonly dispid 4;
  9896.     function  NextParagraphStyle: OleVariant; dispid 5;
  9897.     property InUse: WordBool readonly dispid 6;
  9898.     property Shading: Shading readonly dispid 7;
  9899.     property Borders: Borders dispid 8;
  9900.     property ParagraphFormat: WordParagraphFormat dispid 9;
  9901.     property Font: WordFont dispid 10;
  9902.     property Frame: Frame readonly dispid 11;
  9903.     property LanguageID: WdLanguageID dispid 12;
  9904.     property AutomaticallyUpdate: WordBool dispid 13;
  9905.     property ListTemplate: ListTemplate readonly dispid 14;
  9906.     property ListLevelNumber: Integer readonly dispid 15;
  9907.     property LanguageIDFarEast: WdLanguageID dispid 16;
  9908.     property Hidden: WordBool dispid 17;
  9909.     procedure Delete; dispid 100;
  9910.     procedure LinkToListTemplate(const ListTemplate: ListTemplate; var ListLevelNumber: OleVariant); dispid 101;
  9911.   end;
  9912.  
  9913. // *********************************************************************//
  9914. // Interface: Frames
  9915. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9916. // GUID:      {0002092B-0000-0000-C000-000000000046}
  9917. // *********************************************************************//
  9918.   Frames = interface(IDispatch)
  9919.     ['{0002092B-0000-0000-C000-000000000046}']
  9920.     function  Get_Application: WordApplication; safecall;
  9921.     function  Get_Creator: Integer; safecall;
  9922.     function  Get_Parent: IDispatch; safecall;
  9923.     function  Get__NewEnum: IUnknown; safecall;
  9924.     function  Get_Count: Integer; safecall;
  9925.     function  Item(Index: Integer): Frame; safecall;
  9926.     function  Add(const Range: Range): Frame; safecall;
  9927.     procedure Delete; safecall;
  9928.     property Application: WordApplication read Get_Application;
  9929.     property Creator: Integer read Get_Creator;
  9930.     property Parent: IDispatch read Get_Parent;
  9931.     property _NewEnum: IUnknown read Get__NewEnum;
  9932.     property Count: Integer read Get_Count;
  9933.   end;
  9934.  
  9935. // *********************************************************************//
  9936. // DispIntf:  FramesDisp
  9937. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9938. // GUID:      {0002092B-0000-0000-C000-000000000046}
  9939. // *********************************************************************//
  9940.   FramesDisp = dispinterface
  9941.     ['{0002092B-0000-0000-C000-000000000046}']
  9942.     property Application: WordApplication readonly dispid 1000;
  9943.     property Creator: Integer readonly dispid 1001;
  9944.     property Parent: IDispatch readonly dispid 1002;
  9945.     property _NewEnum: IUnknown readonly dispid -4;
  9946.     property Count: Integer readonly dispid 1;
  9947.     function  Item(Index: Integer): Frame; dispid 0;
  9948.     function  Add(const Range: Range): Frame; dispid 100;
  9949.     procedure Delete; dispid 101;
  9950.   end;
  9951.  
  9952. // *********************************************************************//
  9953. // Interface: Frame
  9954. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  9955. // GUID:      {0002092A-0000-0000-C000-000000000046}
  9956. // *********************************************************************//
  9957.   Frame = interface(IDispatch)
  9958.     ['{0002092A-0000-0000-C000-000000000046}']
  9959.     function  Get_Application: WordApplication; safecall;
  9960.     function  Get_Creator: Integer; safecall;
  9961.     function  Get_Parent: IDispatch; safecall;
  9962.     function  Get_HeightRule: WdFrameSizeRule; safecall;
  9963.     procedure Set_HeightRule(prop: WdFrameSizeRule); safecall;
  9964.     function  Get_WidthRule: WdFrameSizeRule; safecall;
  9965.     procedure Set_WidthRule(prop: WdFrameSizeRule); safecall;
  9966.     function  Get_HorizontalDistanceFromText: Single; safecall;
  9967.     procedure Set_HorizontalDistanceFromText(prop: Single); safecall;
  9968.     function  Get_Height: Single; safecall;
  9969.     procedure Set_Height(prop: Single); safecall;
  9970.     function  Get_HorizontalPosition: Single; safecall;
  9971.     procedure Set_HorizontalPosition(prop: Single); safecall;
  9972.     function  Get_LockAnchor: WordBool; safecall;
  9973.     procedure Set_LockAnchor(prop: WordBool); safecall;
  9974.     function  Get_RelativeHorizontalPosition: WdRelativeHorizontalPosition; safecall;
  9975.     procedure Set_RelativeHorizontalPosition(prop: WdRelativeHorizontalPosition); safecall;
  9976.     function  Get_RelativeVerticalPosition: WdRelativeVerticalPosition; safecall;
  9977.     procedure Set_RelativeVerticalPosition(prop: WdRelativeVerticalPosition); safecall;
  9978.     function  Get_VerticalDistanceFromText: Single; safecall;
  9979.     procedure Set_VerticalDistanceFromText(prop: Single); safecall;
  9980.     function  Get_VerticalPosition: Single; safecall;
  9981.     procedure Set_VerticalPosition(prop: Single); safecall;
  9982.     function  Get_Width: Single; safecall;
  9983.     procedure Set_Width(prop: Single); safecall;
  9984.     function  Get_TextWrap: WordBool; safecall;
  9985.     procedure Set_TextWrap(prop: WordBool); safecall;
  9986.     function  Get_Shading: Shading; safecall;
  9987.     function  Get_Borders: Borders; safecall;
  9988.     procedure Set_Borders(const prop: Borders); safecall;
  9989.     function  Get_Range: Range; safecall;
  9990.     procedure Delete; safecall;
  9991.     procedure Select; safecall;
  9992.     procedure Copy; safecall;
  9993.     procedure Cut; safecall;
  9994.     property Application: WordApplication read Get_Application;
  9995.     property Creator: Integer read Get_Creator;
  9996.     property Parent: IDispatch read Get_Parent;
  9997.     property HeightRule: WdFrameSizeRule read Get_HeightRule write Set_HeightRule;
  9998.     property WidthRule: WdFrameSizeRule read Get_WidthRule write Set_WidthRule;
  9999.     property HorizontalDistanceFromText: Single read Get_HorizontalDistanceFromText write Set_HorizontalDistanceFromText;
  10000.     property Height: Single read Get_Height write Set_Height;
  10001.     property HorizontalPosition: Single read Get_HorizontalPosition write Set_HorizontalPosition;
  10002.     property LockAnchor: WordBool read Get_LockAnchor write Set_LockAnchor;
  10003.     property RelativeHorizontalPosition: WdRelativeHorizontalPosition read Get_RelativeHorizontalPosition write Set_RelativeHorizontalPosition;
  10004.     property RelativeVerticalPosition: WdRelativeVerticalPosition read Get_RelativeVerticalPosition write Set_RelativeVerticalPosition;
  10005.     property VerticalDistanceFromText: Single read Get_VerticalDistanceFromText write Set_VerticalDistanceFromText;
  10006.     property VerticalPosition: Single read Get_VerticalPosition write Set_VerticalPosition;
  10007.     property Width: Single read Get_Width write Set_Width;
  10008.     property TextWrap: WordBool read Get_TextWrap write Set_TextWrap;
  10009.     property Shading: Shading read Get_Shading;
  10010.     property Borders: Borders read Get_Borders write Set_Borders;
  10011.     property Range: Range read Get_Range;
  10012.   end;
  10013.  
  10014. // *********************************************************************//
  10015. // DispIntf:  FrameDisp
  10016. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10017. // GUID:      {0002092A-0000-0000-C000-000000000046}
  10018. // *********************************************************************//
  10019.   FrameDisp = dispinterface
  10020.     ['{0002092A-0000-0000-C000-000000000046}']
  10021.     property Application: WordApplication readonly dispid 1000;
  10022.     property Creator: Integer readonly dispid 1001;
  10023.     property Parent: IDispatch readonly dispid 1002;
  10024.     property HeightRule: WdFrameSizeRule dispid 1;
  10025.     property WidthRule: WdFrameSizeRule dispid 2;
  10026.     property HorizontalDistanceFromText: Single dispid 3;
  10027.     property Height: Single dispid 4;
  10028.     property HorizontalPosition: Single dispid 5;
  10029.     property LockAnchor: WordBool dispid 6;
  10030.     property RelativeHorizontalPosition: WdRelativeHorizontalPosition dispid 7;
  10031.     property RelativeVerticalPosition: WdRelativeVerticalPosition dispid 8;
  10032.     property VerticalDistanceFromText: Single dispid 9;
  10033.     property VerticalPosition: Single dispid 10;
  10034.     property Width: Single dispid 11;
  10035.     property TextWrap: WordBool dispid 12;
  10036.     property Shading: Shading readonly dispid 13;
  10037.     property Borders: Borders dispid 1100;
  10038.     property Range: Range readonly dispid 15;
  10039.     procedure Delete; dispid 100;
  10040.     procedure Select; dispid 65535;
  10041.     procedure Copy; dispid 101;
  10042.     procedure Cut; dispid 102;
  10043.   end;
  10044.  
  10045. // *********************************************************************//
  10046. // Interface: FormFields
  10047. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10048. // GUID:      {00020929-0000-0000-C000-000000000046}
  10049. // *********************************************************************//
  10050.   FormFields = interface(IDispatch)
  10051.     ['{00020929-0000-0000-C000-000000000046}']
  10052.     function  Get_Application: WordApplication; safecall;
  10053.     function  Get_Creator: Integer; safecall;
  10054.     function  Get_Parent: IDispatch; safecall;
  10055.     function  Get_Count: Integer; safecall;
  10056.     function  Get_Shaded: WordBool; safecall;
  10057.     procedure Set_Shaded(prop: WordBool); safecall;
  10058.     function  Get__NewEnum: IUnknown; safecall;
  10059.     function  Item(var Index: OleVariant): FormField; safecall;
  10060.     function  Add(const Range: Range; Type_: WdFieldType): FormField; safecall;
  10061.     property Application: WordApplication read Get_Application;
  10062.     property Creator: Integer read Get_Creator;
  10063.     property Parent: IDispatch read Get_Parent;
  10064.     property Count: Integer read Get_Count;
  10065.     property Shaded: WordBool read Get_Shaded write Set_Shaded;
  10066.     property _NewEnum: IUnknown read Get__NewEnum;
  10067.   end;
  10068.  
  10069. // *********************************************************************//
  10070. // DispIntf:  FormFieldsDisp
  10071. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10072. // GUID:      {00020929-0000-0000-C000-000000000046}
  10073. // *********************************************************************//
  10074.   FormFieldsDisp = dispinterface
  10075.     ['{00020929-0000-0000-C000-000000000046}']
  10076.     property Application: WordApplication readonly dispid 1000;
  10077.     property Creator: Integer readonly dispid 1001;
  10078.     property Parent: IDispatch readonly dispid 1002;
  10079.     property Count: Integer readonly dispid 1;
  10080.     property Shaded: WordBool dispid 2;
  10081.     property _NewEnum: IUnknown readonly dispid -4;
  10082.     function  Item(var Index: OleVariant): FormField; dispid 0;
  10083.     function  Add(const Range: Range; Type_: WdFieldType): FormField; dispid 101;
  10084.   end;
  10085.  
  10086. // *********************************************************************//
  10087. // Interface: FormField
  10088. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10089. // GUID:      {00020928-0000-0000-C000-000000000046}
  10090. // *********************************************************************//
  10091.   FormField = interface(IDispatch)
  10092.     ['{00020928-0000-0000-C000-000000000046}']
  10093.     function  Get_Application: WordApplication; safecall;
  10094.     function  Get_Creator: Integer; safecall;
  10095.     function  Get_Parent: IDispatch; safecall;
  10096.     function  Get_Type_: WdFieldType; safecall;
  10097.     function  Get_Name: WideString; safecall;
  10098.     procedure Set_Name(const prop: WideString); safecall;
  10099.     function  Get_EntryMacro: WideString; safecall;
  10100.     procedure Set_EntryMacro(const prop: WideString); safecall;
  10101.     function  Get_ExitMacro: WideString; safecall;
  10102.     procedure Set_ExitMacro(const prop: WideString); safecall;
  10103.     function  Get_OwnHelp: WordBool; safecall;
  10104.     procedure Set_OwnHelp(prop: WordBool); safecall;
  10105.     function  Get_OwnStatus: WordBool; safecall;
  10106.     procedure Set_OwnStatus(prop: WordBool); safecall;
  10107.     function  Get_HelpText: WideString; safecall;
  10108.     procedure Set_HelpText(const prop: WideString); safecall;
  10109.     function  Get_StatusText: WideString; safecall;
  10110.     procedure Set_StatusText(const prop: WideString); safecall;
  10111.     function  Get_Enabled: WordBool; safecall;
  10112.     procedure Set_Enabled(prop: WordBool); safecall;
  10113.     function  Get_Result: WideString; safecall;
  10114.     procedure Set_Result(const prop: WideString); safecall;
  10115.     function  Get_TextInput: TextInput; safecall;
  10116.     function  Get_CheckBox: CheckBox; safecall;
  10117.     function  Get_DropDown: DropDown; safecall;
  10118.     function  Get_Next: FormField; safecall;
  10119.     function  Get_Previous: FormField; safecall;
  10120.     function  Get_CalculateOnExit: WordBool; safecall;
  10121.     procedure Set_CalculateOnExit(prop: WordBool); safecall;
  10122.     function  Get_Range: Range; safecall;
  10123.     procedure Select; safecall;
  10124.     procedure Copy; safecall;
  10125.     procedure Cut; safecall;
  10126.     procedure Delete; safecall;
  10127.     property Application: WordApplication read Get_Application;
  10128.     property Creator: Integer read Get_Creator;
  10129.     property Parent: IDispatch read Get_Parent;
  10130.     property Type_: WdFieldType read Get_Type_;
  10131.     property Name: WideString read Get_Name write Set_Name;
  10132.     property EntryMacro: WideString read Get_EntryMacro write Set_EntryMacro;
  10133.     property ExitMacro: WideString read Get_ExitMacro write Set_ExitMacro;
  10134.     property OwnHelp: WordBool read Get_OwnHelp write Set_OwnHelp;
  10135.     property OwnStatus: WordBool read Get_OwnStatus write Set_OwnStatus;
  10136.     property HelpText: WideString read Get_HelpText write Set_HelpText;
  10137.     property StatusText: WideString read Get_StatusText write Set_StatusText;
  10138.     property Enabled: WordBool read Get_Enabled write Set_Enabled;
  10139.     property Result: WideString read Get_Result write Set_Result;
  10140.     property TextInput: TextInput read Get_TextInput;
  10141.     property CheckBox: CheckBox read Get_CheckBox;
  10142.     property DropDown: DropDown read Get_DropDown;
  10143.     property Next: FormField read Get_Next;
  10144.     property Previous: FormField read Get_Previous;
  10145.     property CalculateOnExit: WordBool read Get_CalculateOnExit write Set_CalculateOnExit;
  10146.     property Range: Range read Get_Range;
  10147.   end;
  10148.  
  10149. // *********************************************************************//
  10150. // DispIntf:  FormFieldDisp
  10151. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10152. // GUID:      {00020928-0000-0000-C000-000000000046}
  10153. // *********************************************************************//
  10154.   FormFieldDisp = dispinterface
  10155.     ['{00020928-0000-0000-C000-000000000046}']
  10156.     property Application: WordApplication readonly dispid 1000;
  10157.     property Creator: Integer readonly dispid 1001;
  10158.     property Parent: IDispatch readonly dispid 1002;
  10159.     property Type_: WdFieldType readonly dispid 0;
  10160.     property Name: WideString dispid 2;
  10161.     property EntryMacro: WideString dispid 3;
  10162.     property ExitMacro: WideString dispid 4;
  10163.     property OwnHelp: WordBool dispid 5;
  10164.     property OwnStatus: WordBool dispid 6;
  10165.     property HelpText: WideString dispid 7;
  10166.     property StatusText: WideString dispid 8;
  10167.     property Enabled: WordBool dispid 9;
  10168.     property Result: WideString dispid 10;
  10169.     property TextInput: TextInput readonly dispid 11;
  10170.     property CheckBox: CheckBox readonly dispid 12;
  10171.     property DropDown: DropDown readonly dispid 13;
  10172.     property Next: FormField readonly dispid 14;
  10173.     property Previous: FormField readonly dispid 15;
  10174.     property CalculateOnExit: WordBool dispid 16;
  10175.     property Range: Range readonly dispid 17;
  10176.     procedure Select; dispid 65535;
  10177.     procedure Copy; dispid 101;
  10178.     procedure Cut; dispid 102;
  10179.     procedure Delete; dispid 103;
  10180.   end;
  10181.  
  10182. // *********************************************************************//
  10183. // Interface: TextInput
  10184. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10185. // GUID:      {00020927-0000-0000-C000-000000000046}
  10186. // *********************************************************************//
  10187.   TextInput = interface(IDispatch)
  10188.     ['{00020927-0000-0000-C000-000000000046}']
  10189.     function  Get_Application: WordApplication; safecall;
  10190.     function  Get_Creator: Integer; safecall;
  10191.     function  Get_Parent: IDispatch; safecall;
  10192.     function  Get_Valid: WordBool; safecall;
  10193.     function  Get_Default: WideString; safecall;
  10194.     procedure Set_Default(const prop: WideString); safecall;
  10195.     function  Get_Type_: WdTextFormFieldType; safecall;
  10196.     function  Get_Format: WideString; safecall;
  10197.     function  Get_Width: Integer; safecall;
  10198.     procedure Set_Width(prop: Integer); safecall;
  10199.     procedure Clear; safecall;
  10200.     procedure EditType(Type_: WdTextFormFieldType; var Default: OleVariant; var Format: OleVariant; 
  10201.                        var Enabled: OleVariant); safecall;
  10202.     property Application: WordApplication read Get_Application;
  10203.     property Creator: Integer read Get_Creator;
  10204.     property Parent: IDispatch read Get_Parent;
  10205.     property Valid: WordBool read Get_Valid;
  10206.     property Default: WideString read Get_Default write Set_Default;
  10207.     property Type_: WdTextFormFieldType read Get_Type_;
  10208.     property Format: WideString read Get_Format;
  10209.     property Width: Integer read Get_Width write Set_Width;
  10210.   end;
  10211.  
  10212. // *********************************************************************//
  10213. // DispIntf:  TextInputDisp
  10214. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10215. // GUID:      {00020927-0000-0000-C000-000000000046}
  10216. // *********************************************************************//
  10217.   TextInputDisp = dispinterface
  10218.     ['{00020927-0000-0000-C000-000000000046}']
  10219.     property Application: WordApplication readonly dispid 1000;
  10220.     property Creator: Integer readonly dispid 1001;
  10221.     property Parent: IDispatch readonly dispid 1002;
  10222.     property Valid: WordBool readonly dispid 0;
  10223.     property Default: WideString dispid 1;
  10224.     property Type_: WdTextFormFieldType readonly dispid 2;
  10225.     property Format: WideString readonly dispid 3;
  10226.     property Width: Integer dispid 4;
  10227.     procedure Clear; dispid 101;
  10228.     procedure EditType(Type_: WdTextFormFieldType; var Default: OleVariant; var Format: OleVariant; 
  10229.                        var Enabled: OleVariant); dispid 102;
  10230.   end;
  10231.  
  10232. // *********************************************************************//
  10233. // Interface: CheckBox
  10234. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10235. // GUID:      {00020926-0000-0000-C000-000000000046}
  10236. // *********************************************************************//
  10237.   CheckBox = interface(IDispatch)
  10238.     ['{00020926-0000-0000-C000-000000000046}']
  10239.     function  Get_Application: WordApplication; safecall;
  10240.     function  Get_Creator: Integer; safecall;
  10241.     function  Get_Parent: IDispatch; safecall;
  10242.     function  Get_Valid: WordBool; safecall;
  10243.     function  Get_AutoSize: WordBool; safecall;
  10244.     procedure Set_AutoSize(prop: WordBool); safecall;
  10245.     function  Get_Size: Single; safecall;
  10246.     procedure Set_Size(prop: Single); safecall;
  10247.     function  Get_Default: WordBool; safecall;
  10248.     procedure Set_Default(prop: WordBool); safecall;
  10249.     function  Get_Value: WordBool; safecall;
  10250.     procedure Set_Value(prop: WordBool); safecall;
  10251.     property Application: WordApplication read Get_Application;
  10252.     property Creator: Integer read Get_Creator;
  10253.     property Parent: IDispatch read Get_Parent;
  10254.     property Valid: WordBool read Get_Valid;
  10255.     property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
  10256.     property Size: Single read Get_Size write Set_Size;
  10257.     property Default: WordBool read Get_Default write Set_Default;
  10258.     property Value: WordBool read Get_Value write Set_Value;
  10259.   end;
  10260.  
  10261. // *********************************************************************//
  10262. // DispIntf:  CheckBoxDisp
  10263. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10264. // GUID:      {00020926-0000-0000-C000-000000000046}
  10265. // *********************************************************************//
  10266.   CheckBoxDisp = dispinterface
  10267.     ['{00020926-0000-0000-C000-000000000046}']
  10268.     property Application: WordApplication readonly dispid 1000;
  10269.     property Creator: Integer readonly dispid 1001;
  10270.     property Parent: IDispatch readonly dispid 1002;
  10271.     property Valid: WordBool readonly dispid 0;
  10272.     property AutoSize: WordBool dispid 1;
  10273.     property Size: Single dispid 2;
  10274.     property Default: WordBool dispid 3;
  10275.     property Value: WordBool dispid 4;
  10276.   end;
  10277.  
  10278. // *********************************************************************//
  10279. // Interface: DropDown
  10280. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10281. // GUID:      {00020925-0000-0000-C000-000000000046}
  10282. // *********************************************************************//
  10283.   DropDown = interface(IDispatch)
  10284.     ['{00020925-0000-0000-C000-000000000046}']
  10285.     function  Get_Application: WordApplication; safecall;
  10286.     function  Get_Creator: Integer; safecall;
  10287.     function  Get_Parent: IDispatch; safecall;
  10288.     function  Get_Valid: WordBool; safecall;
  10289.     function  Get_Default: Integer; safecall;
  10290.     procedure Set_Default(prop: Integer); safecall;
  10291.     function  Get_Value: Integer; safecall;
  10292.     procedure Set_Value(prop: Integer); safecall;
  10293.     function  Get_ListEntries: ListEntries; safecall;
  10294.     property Application: WordApplication read Get_Application;
  10295.     property Creator: Integer read Get_Creator;
  10296.     property Parent: IDispatch read Get_Parent;
  10297.     property Valid: WordBool read Get_Valid;
  10298.     property Default: Integer read Get_Default write Set_Default;
  10299.     property Value: Integer read Get_Value write Set_Value;
  10300.     property ListEntries: ListEntries read Get_ListEntries;
  10301.   end;
  10302.  
  10303. // *********************************************************************//
  10304. // DispIntf:  DropDownDisp
  10305. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10306. // GUID:      {00020925-0000-0000-C000-000000000046}
  10307. // *********************************************************************//
  10308.   DropDownDisp = dispinterface
  10309.     ['{00020925-0000-0000-C000-000000000046}']
  10310.     property Application: WordApplication readonly dispid 1000;
  10311.     property Creator: Integer readonly dispid 1001;
  10312.     property Parent: IDispatch readonly dispid 1002;
  10313.     property Valid: WordBool readonly dispid 0;
  10314.     property Default: Integer dispid 1;
  10315.     property Value: Integer dispid 2;
  10316.     property ListEntries: ListEntries readonly dispid 3;
  10317.   end;
  10318.  
  10319. // *********************************************************************//
  10320. // Interface: ListEntries
  10321. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10322. // GUID:      {00020924-0000-0000-C000-000000000046}
  10323. // *********************************************************************//
  10324.   ListEntries = interface(IDispatch)
  10325.     ['{00020924-0000-0000-C000-000000000046}']
  10326.     function  Get_Application: WordApplication; safecall;
  10327.     function  Get_Creator: Integer; safecall;
  10328.     function  Get_Parent: IDispatch; safecall;
  10329.     function  Get__NewEnum: IUnknown; safecall;
  10330.     function  Get_Count: Integer; safecall;
  10331.     function  Item(var Index: OleVariant): ListEntry; safecall;
  10332.     function  Add(const Name: WideString; var Index: OleVariant): ListEntry; safecall;
  10333.     procedure Clear; safecall;
  10334.     property Application: WordApplication read Get_Application;
  10335.     property Creator: Integer read Get_Creator;
  10336.     property Parent: IDispatch read Get_Parent;
  10337.     property _NewEnum: IUnknown read Get__NewEnum;
  10338.     property Count: Integer read Get_Count;
  10339.   end;
  10340.  
  10341. // *********************************************************************//
  10342. // DispIntf:  ListEntriesDisp
  10343. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10344. // GUID:      {00020924-0000-0000-C000-000000000046}
  10345. // *********************************************************************//
  10346.   ListEntriesDisp = dispinterface
  10347.     ['{00020924-0000-0000-C000-000000000046}']
  10348.     property Application: WordApplication readonly dispid 1000;
  10349.     property Creator: Integer readonly dispid 1001;
  10350.     property Parent: IDispatch readonly dispid 1002;
  10351.     property _NewEnum: IUnknown readonly dispid -4;
  10352.     property Count: Integer readonly dispid 1;
  10353.     function  Item(var Index: OleVariant): ListEntry; dispid 0;
  10354.     function  Add(const Name: WideString; var Index: OleVariant): ListEntry; dispid 101;
  10355.     procedure Clear; dispid 102;
  10356.   end;
  10357.  
  10358. // *********************************************************************//
  10359. // Interface: ListEntry
  10360. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10361. // GUID:      {00020923-0000-0000-C000-000000000046}
  10362. // *********************************************************************//
  10363.   ListEntry = interface(IDispatch)
  10364.     ['{00020923-0000-0000-C000-000000000046}']
  10365.     function  Get_Application: WordApplication; safecall;
  10366.     function  Get_Creator: Integer; safecall;
  10367.     function  Get_Parent: IDispatch; safecall;
  10368.     function  Get_Index: Integer; safecall;
  10369.     function  Get_Name: WideString; safecall;
  10370.     procedure Set_Name(const prop: WideString); safecall;
  10371.     procedure Delete; safecall;
  10372.     property Application: WordApplication read Get_Application;
  10373.     property Creator: Integer read Get_Creator;
  10374.     property Parent: IDispatch read Get_Parent;
  10375.     property Index: Integer read Get_Index;
  10376.     property Name: WideString read Get_Name write Set_Name;
  10377.   end;
  10378.  
  10379. // *********************************************************************//
  10380. // DispIntf:  ListEntryDisp
  10381. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10382. // GUID:      {00020923-0000-0000-C000-000000000046}
  10383. // *********************************************************************//
  10384.   ListEntryDisp = dispinterface
  10385.     ['{00020923-0000-0000-C000-000000000046}']
  10386.     property Application: WordApplication readonly dispid 1000;
  10387.     property Creator: Integer readonly dispid 1001;
  10388.     property Parent: IDispatch readonly dispid 1002;
  10389.     property Index: Integer readonly dispid 1;
  10390.     property Name: WideString dispid 2;
  10391.     procedure Delete; dispid 11;
  10392.   end;
  10393.  
  10394. // *********************************************************************//
  10395. // Interface: TablesOfFigures
  10396. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10397. // GUID:      {00020922-0000-0000-C000-000000000046}
  10398. // *********************************************************************//
  10399.   TablesOfFigures = interface(IDispatch)
  10400.     ['{00020922-0000-0000-C000-000000000046}']
  10401.     function  Get_Application: WordApplication; safecall;
  10402.     function  Get_Creator: Integer; safecall;
  10403.     function  Get_Parent: IDispatch; safecall;
  10404.     function  Get__NewEnum: IUnknown; safecall;
  10405.     function  Get_Count: Integer; safecall;
  10406.     function  Get_Format: WdTofFormat; safecall;
  10407.     procedure Set_Format(prop: WdTofFormat); safecall;
  10408.     function  Item(Index: Integer): TableOfFigures; safecall;
  10409.     function  Add(const Range: Range; var Caption: OleVariant; var IncludeLabel: OleVariant; 
  10410.                   var UseHeadingStyles: OleVariant; var UpperHeadingLevel: OleVariant; 
  10411.                   var LowerHeadingLevel: OleVariant; var UseFields: OleVariant; 
  10412.                   var TableID: OleVariant; var RightAlignPageNumbers: OleVariant; 
  10413.                   var IncludePageNumbers: OleVariant; var AddedStyles: OleVariant): TableOfFigures; safecall;
  10414.     function  MarkEntry(const Range: Range; var Entry: OleVariant; var EntryAutoText: OleVariant; 
  10415.                         var TableID: OleVariant; var Level: OleVariant): Field; safecall;
  10416.     property Application: WordApplication read Get_Application;
  10417.     property Creator: Integer read Get_Creator;
  10418.     property Parent: IDispatch read Get_Parent;
  10419.     property _NewEnum: IUnknown read Get__NewEnum;
  10420.     property Count: Integer read Get_Count;
  10421.     property Format: WdTofFormat read Get_Format write Set_Format;
  10422.   end;
  10423.  
  10424. // *********************************************************************//
  10425. // DispIntf:  TablesOfFiguresDisp
  10426. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10427. // GUID:      {00020922-0000-0000-C000-000000000046}
  10428. // *********************************************************************//
  10429.   TablesOfFiguresDisp = dispinterface
  10430.     ['{00020922-0000-0000-C000-000000000046}']
  10431.     property Application: WordApplication readonly dispid 1000;
  10432.     property Creator: Integer readonly dispid 1001;
  10433.     property Parent: IDispatch readonly dispid 1002;
  10434.     property _NewEnum: IUnknown readonly dispid -4;
  10435.     property Count: Integer readonly dispid 1;
  10436.     property Format: WdTofFormat dispid 2;
  10437.     function  Item(Index: Integer): TableOfFigures; dispid 0;
  10438.     function  Add(const Range: Range; var Caption: OleVariant; var IncludeLabel: OleVariant; 
  10439.                   var UseHeadingStyles: OleVariant; var UpperHeadingLevel: OleVariant; 
  10440.                   var LowerHeadingLevel: OleVariant; var UseFields: OleVariant; 
  10441.                   var TableID: OleVariant; var RightAlignPageNumbers: OleVariant; 
  10442.                   var IncludePageNumbers: OleVariant; var AddedStyles: OleVariant): TableOfFigures; dispid 100;
  10443.     function  MarkEntry(const Range: Range; var Entry: OleVariant; var EntryAutoText: OleVariant; 
  10444.                         var TableID: OleVariant; var Level: OleVariant): Field; dispid 101;
  10445.   end;
  10446.  
  10447. // *********************************************************************//
  10448. // Interface: TableOfFigures
  10449. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10450. // GUID:      {00020921-0000-0000-C000-000000000046}
  10451. // *********************************************************************//
  10452.   TableOfFigures = interface(IDispatch)
  10453.     ['{00020921-0000-0000-C000-000000000046}']
  10454.     function  Get_Application: WordApplication; safecall;
  10455.     function  Get_Creator: Integer; safecall;
  10456.     function  Get_Parent: IDispatch; safecall;
  10457.     function  Get_Caption: WideString; safecall;
  10458.     procedure Set_Caption(const prop: WideString); safecall;
  10459.     function  Get_IncludeLabel: WordBool; safecall;
  10460.     procedure Set_IncludeLabel(prop: WordBool); safecall;
  10461.     function  Get_RightAlignPageNumbers: WordBool; safecall;
  10462.     procedure Set_RightAlignPageNumbers(prop: WordBool); safecall;
  10463.     function  Get_UseHeadingStyles: WordBool; safecall;
  10464.     procedure Set_UseHeadingStyles(prop: WordBool); safecall;
  10465.     function  Get_LowerHeadingLevel: Integer; safecall;
  10466.     procedure Set_LowerHeadingLevel(prop: Integer); safecall;
  10467.     function  Get_UpperHeadingLevel: Integer; safecall;
  10468.     procedure Set_UpperHeadingLevel(prop: Integer); safecall;
  10469.     function  Get_IncludePageNumbers: WordBool; safecall;
  10470.     procedure Set_IncludePageNumbers(prop: WordBool); safecall;
  10471.     function  Get_Range: Range; safecall;
  10472.     function  Get_UseFields: WordBool; safecall;
  10473.     procedure Set_UseFields(prop: WordBool); safecall;
  10474.     function  Get_TableID: WideString; safecall;
  10475.     procedure Set_TableID(const prop: WideString); safecall;
  10476.     function  Get_HeadingStyles: HeadingStyles; safecall;
  10477.     function  Get_TabLeader: WdTabLeader; safecall;
  10478.     procedure Set_TabLeader(prop: WdTabLeader); safecall;
  10479.     procedure Delete; safecall;
  10480.     procedure UpdatePageNumbers; safecall;
  10481.     procedure Update; safecall;
  10482.     property Application: WordApplication read Get_Application;
  10483.     property Creator: Integer read Get_Creator;
  10484.     property Parent: IDispatch read Get_Parent;
  10485.     property Caption: WideString read Get_Caption write Set_Caption;
  10486.     property IncludeLabel: WordBool read Get_IncludeLabel write Set_IncludeLabel;
  10487.     property RightAlignPageNumbers: WordBool read Get_RightAlignPageNumbers write Set_RightAlignPageNumbers;
  10488.     property UseHeadingStyles: WordBool read Get_UseHeadingStyles write Set_UseHeadingStyles;
  10489.     property LowerHeadingLevel: Integer read Get_LowerHeadingLevel write Set_LowerHeadingLevel;
  10490.     property UpperHeadingLevel: Integer read Get_UpperHeadingLevel write Set_UpperHeadingLevel;
  10491.     property IncludePageNumbers: WordBool read Get_IncludePageNumbers write Set_IncludePageNumbers;
  10492.     property Range: Range read Get_Range;
  10493.     property UseFields: WordBool read Get_UseFields write Set_UseFields;
  10494.     property TableID: WideString read Get_TableID write Set_TableID;
  10495.     property HeadingStyles: HeadingStyles read Get_HeadingStyles;
  10496.     property TabLeader: WdTabLeader read Get_TabLeader write Set_TabLeader;
  10497.   end;
  10498.  
  10499. // *********************************************************************//
  10500. // DispIntf:  TableOfFiguresDisp
  10501. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10502. // GUID:      {00020921-0000-0000-C000-000000000046}
  10503. // *********************************************************************//
  10504.   TableOfFiguresDisp = dispinterface
  10505.     ['{00020921-0000-0000-C000-000000000046}']
  10506.     property Application: WordApplication readonly dispid 1000;
  10507.     property Creator: Integer readonly dispid 1001;
  10508.     property Parent: IDispatch readonly dispid 1002;
  10509.     property Caption: WideString dispid 1;
  10510.     property IncludeLabel: WordBool dispid 2;
  10511.     property RightAlignPageNumbers: WordBool dispid 3;
  10512.     property UseHeadingStyles: WordBool dispid 4;
  10513.     property LowerHeadingLevel: Integer dispid 5;
  10514.     property UpperHeadingLevel: Integer dispid 6;
  10515.     property IncludePageNumbers: WordBool dispid 7;
  10516.     property Range: Range readonly dispid 8;
  10517.     property UseFields: WordBool dispid 9;
  10518.     property TableID: WideString dispid 10;
  10519.     property HeadingStyles: HeadingStyles readonly dispid 11;
  10520.     property TabLeader: WdTabLeader dispid 12;
  10521.     procedure Delete; dispid 100;
  10522.     procedure UpdatePageNumbers; dispid 101;
  10523.     procedure Update; dispid 102;
  10524.   end;
  10525.  
  10526. // *********************************************************************//
  10527. // Interface: MailMerge
  10528. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10529. // GUID:      {00020920-0000-0000-C000-000000000046}
  10530. // *********************************************************************//
  10531.   MailMerge = interface(IDispatch)
  10532.     ['{00020920-0000-0000-C000-000000000046}']
  10533.     function  Get_Application: WordApplication; safecall;
  10534.     function  Get_Creator: Integer; safecall;
  10535.     function  Get_Parent: IDispatch; safecall;
  10536.     function  Get_MainDocumentType: WdMailMergeMainDocType; safecall;
  10537.     procedure Set_MainDocumentType(prop: WdMailMergeMainDocType); safecall;
  10538.     function  Get_State: WdMailMergeState; safecall;
  10539.     function  Get_Destination: WdMailMergeDestination; safecall;
  10540.     procedure Set_Destination(prop: WdMailMergeDestination); safecall;
  10541.     function  Get_DataSource: MailMergeDataSource; safecall;
  10542.     function  Get_Fields: MailMergeFields; safecall;
  10543.     function  Get_ViewMailMergeFieldCodes: Integer; safecall;
  10544.     procedure Set_ViewMailMergeFieldCodes(prop: Integer); safecall;
  10545.     function  Get_SuppressBlankLines: WordBool; safecall;
  10546.     procedure Set_SuppressBlankLines(prop: WordBool); safecall;
  10547.     function  Get_MailAsAttachment: WordBool; safecall;
  10548.     procedure Set_MailAsAttachment(prop: WordBool); safecall;
  10549.     function  Get_MailAddressFieldName: WideString; safecall;
  10550.     procedure Set_MailAddressFieldName(const prop: WideString); safecall;
  10551.     function  Get_MailSubject: WideString; safecall;
  10552.     procedure Set_MailSubject(const prop: WideString); safecall;
  10553.     procedure CreateDataSource(var Name: OleVariant; var PasswordDocument: OleVariant; 
  10554.                                var WritePasswordDocument: OleVariant; var HeaderRecord: OleVariant; 
  10555.                                var MSQuery: OleVariant; var SQLStatement: OleVariant; 
  10556.                                var SQLStatement1: OleVariant; var Connection: OleVariant; 
  10557.                                var LinkToSource: OleVariant); safecall;
  10558.     procedure CreateHeaderSource(const Name: WideString; var PasswordDocument: OleVariant; 
  10559.                                  var WritePasswordDocument: OleVariant; var HeaderRecord: OleVariant); safecall;
  10560.     procedure OpenDataSource(const Name: WideString; var Format: OleVariant; 
  10561.                              var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; 
  10562.                              var LinkToSource: OleVariant; var AddToRecentFiles: OleVariant; 
  10563.                              var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
  10564.                              var Revert: OleVariant; var WritePasswordDocument: OleVariant; 
  10565.                              var WritePasswordTemplate: OleVariant; var Connection: OleVariant; 
  10566.                              var SQLStatement: OleVariant; var SQLStatement1: OleVariant); safecall;
  10567.     procedure OpenHeaderSource(const Name: WideString; var Format: OleVariant; 
  10568.                                var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; 
  10569.                                var AddToRecentFiles: OleVariant; var PasswordDocument: OleVariant; 
  10570.                                var PasswordTemplate: OleVariant; var Revert: OleVariant; 
  10571.                                var WritePasswordDocument: OleVariant; 
  10572.                                var WritePasswordTemplate: OleVariant); safecall;
  10573.     procedure Execute(var Pause: OleVariant); safecall;
  10574.     procedure Check; safecall;
  10575.     procedure EditDataSource; safecall;
  10576.     procedure EditHeaderSource; safecall;
  10577.     procedure EditMainDocument; safecall;
  10578.     procedure UseAddressBook(const Type_: WideString); safecall;
  10579.     property Application: WordApplication read Get_Application;
  10580.     property Creator: Integer read Get_Creator;
  10581.     property Parent: IDispatch read Get_Parent;
  10582.     property MainDocumentType: WdMailMergeMainDocType read Get_MainDocumentType write Set_MainDocumentType;
  10583.     property State: WdMailMergeState read Get_State;
  10584.     property Destination: WdMailMergeDestination read Get_Destination write Set_Destination;
  10585.     property DataSource: MailMergeDataSource read Get_DataSource;
  10586.     property Fields: MailMergeFields read Get_Fields;
  10587.     property ViewMailMergeFieldCodes: Integer read Get_ViewMailMergeFieldCodes write Set_ViewMailMergeFieldCodes;
  10588.     property SuppressBlankLines: WordBool read Get_SuppressBlankLines write Set_SuppressBlankLines;
  10589.     property MailAsAttachment: WordBool read Get_MailAsAttachment write Set_MailAsAttachment;
  10590.     property MailAddressFieldName: WideString read Get_MailAddressFieldName write Set_MailAddressFieldName;
  10591.     property MailSubject: WideString read Get_MailSubject write Set_MailSubject;
  10592.   end;
  10593.  
  10594. // *********************************************************************//
  10595. // DispIntf:  MailMergeDisp
  10596. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10597. // GUID:      {00020920-0000-0000-C000-000000000046}
  10598. // *********************************************************************//
  10599.   MailMergeDisp = dispinterface
  10600.     ['{00020920-0000-0000-C000-000000000046}']
  10601.     property Application: WordApplication readonly dispid 1000;
  10602.     property Creator: Integer readonly dispid 1001;
  10603.     property Parent: IDispatch readonly dispid 1002;
  10604.     property MainDocumentType: WdMailMergeMainDocType dispid 1;
  10605.     property State: WdMailMergeState readonly dispid 2;
  10606.     property Destination: WdMailMergeDestination dispid 3;
  10607.     property DataSource: MailMergeDataSource readonly dispid 4;
  10608.     property Fields: MailMergeFields readonly dispid 5;
  10609.     property ViewMailMergeFieldCodes: Integer dispid 6;
  10610.     property SuppressBlankLines: WordBool dispid 7;
  10611.     property MailAsAttachment: WordBool dispid 8;
  10612.     property MailAddressFieldName: WideString dispid 9;
  10613.     property MailSubject: WideString dispid 10;
  10614.     procedure CreateDataSource(var Name: OleVariant; var PasswordDocument: OleVariant; 
  10615.                                var WritePasswordDocument: OleVariant; var HeaderRecord: OleVariant; 
  10616.                                var MSQuery: OleVariant; var SQLStatement: OleVariant; 
  10617.                                var SQLStatement1: OleVariant; var Connection: OleVariant; 
  10618.                                var LinkToSource: OleVariant); dispid 101;
  10619.     procedure CreateHeaderSource(const Name: WideString; var PasswordDocument: OleVariant; 
  10620.                                  var WritePasswordDocument: OleVariant; var HeaderRecord: OleVariant); dispid 102;
  10621.     procedure OpenDataSource(const Name: WideString; var Format: OleVariant; 
  10622.                              var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; 
  10623.                              var LinkToSource: OleVariant; var AddToRecentFiles: OleVariant; 
  10624.                              var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
  10625.                              var Revert: OleVariant; var WritePasswordDocument: OleVariant; 
  10626.                              var WritePasswordTemplate: OleVariant; var Connection: OleVariant; 
  10627.                              var SQLStatement: OleVariant; var SQLStatement1: OleVariant); dispid 103;
  10628.     procedure OpenHeaderSource(const Name: WideString; var Format: OleVariant; 
  10629.                                var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; 
  10630.                                var AddToRecentFiles: OleVariant; var PasswordDocument: OleVariant; 
  10631.                                var PasswordTemplate: OleVariant; var Revert: OleVariant; 
  10632.                                var WritePasswordDocument: OleVariant; 
  10633.                                var WritePasswordTemplate: OleVariant); dispid 104;
  10634.     procedure Execute(var Pause: OleVariant); dispid 105;
  10635.     procedure Check; dispid 106;
  10636.     procedure EditDataSource; dispid 107;
  10637.     procedure EditHeaderSource; dispid 108;
  10638.     procedure EditMainDocument; dispid 109;
  10639.     procedure UseAddressBook(const Type_: WideString); dispid 111;
  10640.   end;
  10641.  
  10642. // *********************************************************************//
  10643. // Interface: MailMergeFields
  10644. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10645. // GUID:      {0002091F-0000-0000-C000-000000000046}
  10646. // *********************************************************************//
  10647.   MailMergeFields = interface(IDispatch)
  10648.     ['{0002091F-0000-0000-C000-000000000046}']
  10649.     function  Get_Application: WordApplication; safecall;
  10650.     function  Get_Creator: Integer; safecall;
  10651.     function  Get_Parent: IDispatch; safecall;
  10652.     function  Get__NewEnum: IUnknown; safecall;
  10653.     function  Get_Count: Integer; safecall;
  10654.     function  Item(Index: Integer): MailMergeField; safecall;
  10655.     function  Add(const Range: Range; const Name: WideString): MailMergeField; safecall;
  10656.     function  AddAsk(const Range: Range; const Name: WideString; var Prompt: OleVariant; 
  10657.                      var DefaultAskText: OleVariant; var AskOnce: OleVariant): MailMergeField; safecall;
  10658.     function  AddFillIn(const Range: Range; var Prompt: OleVariant; 
  10659.                         var DefaultFillInText: OleVariant; var AskOnce: OleVariant): MailMergeField; safecall;
  10660.     function  AddIf(const Range: Range; const MergeField: WideString; 
  10661.                     Comparison: WdMailMergeComparison; var CompareTo: OleVariant; 
  10662.                     var TrueAutoText: OleVariant; var TrueText: OleVariant; 
  10663.                     var FalseAutoText: OleVariant; var FalseText: OleVariant): MailMergeField; safecall;
  10664.     function  AddMergeRec(const Range: Range): MailMergeField; safecall;
  10665.     function  AddMergeSeq(const Range: Range): MailMergeField; safecall;
  10666.     function  AddNext(const Range: Range): MailMergeField; safecall;
  10667.     function  AddNextIf(const Range: Range; const MergeField: WideString; 
  10668.                         Comparison: WdMailMergeComparison; var CompareTo: OleVariant): MailMergeField; safecall;
  10669.     function  AddSet(const Range: Range; const Name: WideString; var ValueText: OleVariant; 
  10670.                      var ValueAutoText: OleVariant): MailMergeField; safecall;
  10671.     function  AddSkipIf(const Range: Range; const MergeField: WideString; 
  10672.                         Comparison: WdMailMergeComparison; var CompareTo: OleVariant): MailMergeField; safecall;
  10673.     property Application: WordApplication read Get_Application;
  10674.     property Creator: Integer read Get_Creator;
  10675.     property Parent: IDispatch read Get_Parent;
  10676.     property _NewEnum: IUnknown read Get__NewEnum;
  10677.     property Count: Integer read Get_Count;
  10678.   end;
  10679.  
  10680. // *********************************************************************//
  10681. // DispIntf:  MailMergeFieldsDisp
  10682. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10683. // GUID:      {0002091F-0000-0000-C000-000000000046}
  10684. // *********************************************************************//
  10685.   MailMergeFieldsDisp = dispinterface
  10686.     ['{0002091F-0000-0000-C000-000000000046}']
  10687.     property Application: WordApplication readonly dispid 1000;
  10688.     property Creator: Integer readonly dispid 1001;
  10689.     property Parent: IDispatch readonly dispid 1002;
  10690.     property _NewEnum: IUnknown readonly dispid -4;
  10691.     property Count: Integer readonly dispid 1;
  10692.     function  Item(Index: Integer): MailMergeField; dispid 0;
  10693.     function  Add(const Range: Range; const Name: WideString): MailMergeField; dispid 101;
  10694.     function  AddAsk(const Range: Range; const Name: WideString; var Prompt: OleVariant; 
  10695.                      var DefaultAskText: OleVariant; var AskOnce: OleVariant): MailMergeField; dispid 102;
  10696.     function  AddFillIn(const Range: Range; var Prompt: OleVariant; 
  10697.                         var DefaultFillInText: OleVariant; var AskOnce: OleVariant): MailMergeField; dispid 103;
  10698.     function  AddIf(const Range: Range; const MergeField: WideString; 
  10699.                     Comparison: WdMailMergeComparison; var CompareTo: OleVariant; 
  10700.                     var TrueAutoText: OleVariant; var TrueText: OleVariant; 
  10701.                     var FalseAutoText: OleVariant; var FalseText: OleVariant): MailMergeField; dispid 104;
  10702.     function  AddMergeRec(const Range: Range): MailMergeField; dispid 105;
  10703.     function  AddMergeSeq(const Range: Range): MailMergeField; dispid 106;
  10704.     function  AddNext(const Range: Range): MailMergeField; dispid 107;
  10705.     function  AddNextIf(const Range: Range; const MergeField: WideString; 
  10706.                         Comparison: WdMailMergeComparison; var CompareTo: OleVariant): MailMergeField; dispid 108;
  10707.     function  AddSet(const Range: Range; const Name: WideString; var ValueText: OleVariant; 
  10708.                      var ValueAutoText: OleVariant): MailMergeField; dispid 109;
  10709.     function  AddSkipIf(const Range: Range; const MergeField: WideString; 
  10710.                         Comparison: WdMailMergeComparison; var CompareTo: OleVariant): MailMergeField; dispid 110;
  10711.   end;
  10712.  
  10713. // *********************************************************************//
  10714. // Interface: MailMergeField
  10715. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10716. // GUID:      {0002091E-0000-0000-C000-000000000046}
  10717. // *********************************************************************//
  10718.   MailMergeField = interface(IDispatch)
  10719.     ['{0002091E-0000-0000-C000-000000000046}']
  10720.     function  Get_Application: WordApplication; safecall;
  10721.     function  Get_Creator: Integer; safecall;
  10722.     function  Get_Parent: IDispatch; safecall;
  10723.     function  Get_Type_: WdFieldType; safecall;
  10724.     function  Get_Locked: WordBool; safecall;
  10725.     procedure Set_Locked(prop: WordBool); safecall;
  10726.     function  Get_Code: Range; safecall;
  10727.     procedure Set_Code(const prop: Range); safecall;
  10728.     function  Get_Next: MailMergeField; safecall;
  10729.     function  Get_Previous: MailMergeField; safecall;
  10730.     procedure Select; safecall;
  10731.     procedure Copy; safecall;
  10732.     procedure Cut; safecall;
  10733.     procedure Delete; safecall;
  10734.     property Application: WordApplication read Get_Application;
  10735.     property Creator: Integer read Get_Creator;
  10736.     property Parent: IDispatch read Get_Parent;
  10737.     property Type_: WdFieldType read Get_Type_;
  10738.     property Locked: WordBool read Get_Locked write Set_Locked;
  10739.     property Code: Range read Get_Code write Set_Code;
  10740.     property Next: MailMergeField read Get_Next;
  10741.     property Previous: MailMergeField read Get_Previous;
  10742.   end;
  10743.  
  10744. // *********************************************************************//
  10745. // DispIntf:  MailMergeFieldDisp
  10746. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10747. // GUID:      {0002091E-0000-0000-C000-000000000046}
  10748. // *********************************************************************//
  10749.   MailMergeFieldDisp = dispinterface
  10750.     ['{0002091E-0000-0000-C000-000000000046}']
  10751.     property Application: WordApplication readonly dispid 1000;
  10752.     property Creator: Integer readonly dispid 1001;
  10753.     property Parent: IDispatch readonly dispid 1002;
  10754.     property Type_: WdFieldType readonly dispid 0;
  10755.     property Locked: WordBool dispid 3;
  10756.     property Code: Range dispid 5;
  10757.     property Next: MailMergeField readonly dispid 8;
  10758.     property Previous: MailMergeField readonly dispid 9;
  10759.     procedure Select; dispid 65535;
  10760.     procedure Copy; dispid 105;
  10761.     procedure Cut; dispid 106;
  10762.     procedure Delete; dispid 107;
  10763.   end;
  10764.  
  10765. // *********************************************************************//
  10766. // Interface: MailMergeDataSource
  10767. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10768. // GUID:      {0002091D-0000-0000-C000-000000000046}
  10769. // *********************************************************************//
  10770.   MailMergeDataSource = interface(IDispatch)
  10771.     ['{0002091D-0000-0000-C000-000000000046}']
  10772.     function  Get_Application: WordApplication; safecall;
  10773.     function  Get_Creator: Integer; safecall;
  10774.     function  Get_Parent: IDispatch; safecall;
  10775.     function  Get_Name: WideString; safecall;
  10776.     function  Get_HeaderSourceName: WideString; safecall;
  10777.     function  Get_Type_: WdMailMergeDataSource; safecall;
  10778.     function  Get_HeaderSourceType: WdMailMergeDataSource; safecall;
  10779.     function  Get_ConnectString: WideString; safecall;
  10780.     function  Get_QueryString: WideString; safecall;
  10781.     procedure Set_QueryString(const prop: WideString); safecall;
  10782.     function  Get_ActiveRecord: WdMailMergeActiveRecord; safecall;
  10783.     procedure Set_ActiveRecord(prop: WdMailMergeActiveRecord); safecall;
  10784.     function  Get_FirstRecord: Integer; safecall;
  10785.     procedure Set_FirstRecord(prop: Integer); safecall;
  10786.     function  Get_LastRecord: Integer; safecall;
  10787.     procedure Set_LastRecord(prop: Integer); safecall;
  10788.     function  Get_FieldNames: MailMergeFieldNames; safecall;
  10789.     function  Get_DataFields: MailMergeDataFields; safecall;
  10790.     function  FindRecord(const FindText: WideString; const Field: WideString): WordBool; safecall;
  10791.     property Application: WordApplication read Get_Application;
  10792.     property Creator: Integer read Get_Creator;
  10793.     property Parent: IDispatch read Get_Parent;
  10794.     property Name: WideString read Get_Name;
  10795.     property HeaderSourceName: WideString read Get_HeaderSourceName;
  10796.     property Type_: WdMailMergeDataSource read Get_Type_;
  10797.     property HeaderSourceType: WdMailMergeDataSource read Get_HeaderSourceType;
  10798.     property ConnectString: WideString read Get_ConnectString;
  10799.     property QueryString: WideString read Get_QueryString write Set_QueryString;
  10800.     property ActiveRecord: WdMailMergeActiveRecord read Get_ActiveRecord write Set_ActiveRecord;
  10801.     property FirstRecord: Integer read Get_FirstRecord write Set_FirstRecord;
  10802.     property LastRecord: Integer read Get_LastRecord write Set_LastRecord;
  10803.     property FieldNames: MailMergeFieldNames read Get_FieldNames;
  10804.     property DataFields: MailMergeDataFields read Get_DataFields;
  10805.   end;
  10806.  
  10807. // *********************************************************************//
  10808. // DispIntf:  MailMergeDataSourceDisp
  10809. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10810. // GUID:      {0002091D-0000-0000-C000-000000000046}
  10811. // *********************************************************************//
  10812.   MailMergeDataSourceDisp = dispinterface
  10813.     ['{0002091D-0000-0000-C000-000000000046}']
  10814.     property Application: WordApplication readonly dispid 1000;
  10815.     property Creator: Integer readonly dispid 1001;
  10816.     property Parent: IDispatch readonly dispid 1002;
  10817.     property Name: WideString readonly dispid 1;
  10818.     property HeaderSourceName: WideString readonly dispid 2;
  10819.     property Type_: WdMailMergeDataSource readonly dispid 3;
  10820.     property HeaderSourceType: WdMailMergeDataSource readonly dispid 4;
  10821.     property ConnectString: WideString readonly dispid 5;
  10822.     property QueryString: WideString dispid 6;
  10823.     property ActiveRecord: WdMailMergeActiveRecord dispid 7;
  10824.     property FirstRecord: Integer dispid 8;
  10825.     property LastRecord: Integer dispid 9;
  10826.     property FieldNames: MailMergeFieldNames readonly dispid 10;
  10827.     property DataFields: MailMergeDataFields readonly dispid 11;
  10828.     function  FindRecord(const FindText: WideString; const Field: WideString): WordBool; dispid 101;
  10829.   end;
  10830.  
  10831. // *********************************************************************//
  10832. // Interface: MailMergeFieldNames
  10833. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10834. // GUID:      {0002091C-0000-0000-C000-000000000046}
  10835. // *********************************************************************//
  10836.   MailMergeFieldNames = interface(IDispatch)
  10837.     ['{0002091C-0000-0000-C000-000000000046}']
  10838.     function  Get_Application: WordApplication; safecall;
  10839.     function  Get_Creator: Integer; safecall;
  10840.     function  Get_Parent: IDispatch; safecall;
  10841.     function  Get__NewEnum: IUnknown; safecall;
  10842.     function  Get_Count: Integer; safecall;
  10843.     function  Item(var Index: OleVariant): MailMergeFieldName; safecall;
  10844.     property Application: WordApplication read Get_Application;
  10845.     property Creator: Integer read Get_Creator;
  10846.     property Parent: IDispatch read Get_Parent;
  10847.     property _NewEnum: IUnknown read Get__NewEnum;
  10848.     property Count: Integer read Get_Count;
  10849.   end;
  10850.  
  10851. // *********************************************************************//
  10852. // DispIntf:  MailMergeFieldNamesDisp
  10853. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10854. // GUID:      {0002091C-0000-0000-C000-000000000046}
  10855. // *********************************************************************//
  10856.   MailMergeFieldNamesDisp = dispinterface
  10857.     ['{0002091C-0000-0000-C000-000000000046}']
  10858.     property Application: WordApplication readonly dispid 1000;
  10859.     property Creator: Integer readonly dispid 1001;
  10860.     property Parent: IDispatch readonly dispid 1002;
  10861.     property _NewEnum: IUnknown readonly dispid -4;
  10862.     property Count: Integer readonly dispid 1;
  10863.     function  Item(var Index: OleVariant): MailMergeFieldName; dispid 0;
  10864.   end;
  10865.  
  10866. // *********************************************************************//
  10867. // Interface: MailMergeFieldName
  10868. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10869. // GUID:      {0002091B-0000-0000-C000-000000000046}
  10870. // *********************************************************************//
  10871.   MailMergeFieldName = interface(IDispatch)
  10872.     ['{0002091B-0000-0000-C000-000000000046}']
  10873.     function  Get_Application: WordApplication; safecall;
  10874.     function  Get_Creator: Integer; safecall;
  10875.     function  Get_Parent: IDispatch; safecall;
  10876.     function  Get_Name: WideString; safecall;
  10877.     function  Get_Index: Integer; safecall;
  10878.     property Application: WordApplication read Get_Application;
  10879.     property Creator: Integer read Get_Creator;
  10880.     property Parent: IDispatch read Get_Parent;
  10881.     property Name: WideString read Get_Name;
  10882.     property Index: Integer read Get_Index;
  10883.   end;
  10884.  
  10885. // *********************************************************************//
  10886. // DispIntf:  MailMergeFieldNameDisp
  10887. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10888. // GUID:      {0002091B-0000-0000-C000-000000000046}
  10889. // *********************************************************************//
  10890.   MailMergeFieldNameDisp = dispinterface
  10891.     ['{0002091B-0000-0000-C000-000000000046}']
  10892.     property Application: WordApplication readonly dispid 1000;
  10893.     property Creator: Integer readonly dispid 1001;
  10894.     property Parent: IDispatch readonly dispid 1002;
  10895.     property Name: WideString readonly dispid 0;
  10896.     property Index: Integer readonly dispid 1;
  10897.   end;
  10898.  
  10899. // *********************************************************************//
  10900. // Interface: MailMergeDataFields
  10901. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10902. // GUID:      {0002091A-0000-0000-C000-000000000046}
  10903. // *********************************************************************//
  10904.   MailMergeDataFields = interface(IDispatch)
  10905.     ['{0002091A-0000-0000-C000-000000000046}']
  10906.     function  Get_Application: WordApplication; safecall;
  10907.     function  Get_Creator: Integer; safecall;
  10908.     function  Get_Parent: IDispatch; safecall;
  10909.     function  Get__NewEnum: IUnknown; safecall;
  10910.     function  Get_Count: Integer; safecall;
  10911.     function  Item(var Index: OleVariant): MailMergeDataField; safecall;
  10912.     property Application: WordApplication read Get_Application;
  10913.     property Creator: Integer read Get_Creator;
  10914.     property Parent: IDispatch read Get_Parent;
  10915.     property _NewEnum: IUnknown read Get__NewEnum;
  10916.     property Count: Integer read Get_Count;
  10917.   end;
  10918.  
  10919. // *********************************************************************//
  10920. // DispIntf:  MailMergeDataFieldsDisp
  10921. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10922. // GUID:      {0002091A-0000-0000-C000-000000000046}
  10923. // *********************************************************************//
  10924.   MailMergeDataFieldsDisp = dispinterface
  10925.     ['{0002091A-0000-0000-C000-000000000046}']
  10926.     property Application: WordApplication readonly dispid 1000;
  10927.     property Creator: Integer readonly dispid 1001;
  10928.     property Parent: IDispatch readonly dispid 1002;
  10929.     property _NewEnum: IUnknown readonly dispid -4;
  10930.     property Count: Integer readonly dispid 1;
  10931.     function  Item(var Index: OleVariant): MailMergeDataField; dispid 0;
  10932.   end;
  10933.  
  10934. // *********************************************************************//
  10935. // Interface: MailMergeDataField
  10936. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10937. // GUID:      {00020919-0000-0000-C000-000000000046}
  10938. // *********************************************************************//
  10939.   MailMergeDataField = interface(IDispatch)
  10940.     ['{00020919-0000-0000-C000-000000000046}']
  10941.     function  Get_Application: WordApplication; safecall;
  10942.     function  Get_Creator: Integer; safecall;
  10943.     function  Get_Parent: IDispatch; safecall;
  10944.     function  Get_Value: WideString; safecall;
  10945.     function  Get_Name: WideString; safecall;
  10946.     function  Get_Index: Integer; safecall;
  10947.     property Application: WordApplication read Get_Application;
  10948.     property Creator: Integer read Get_Creator;
  10949.     property Parent: IDispatch read Get_Parent;
  10950.     property Value: WideString read Get_Value;
  10951.     property Name: WideString read Get_Name;
  10952.     property Index: Integer read Get_Index;
  10953.   end;
  10954.  
  10955. // *********************************************************************//
  10956. // DispIntf:  MailMergeDataFieldDisp
  10957. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10958. // GUID:      {00020919-0000-0000-C000-000000000046}
  10959. // *********************************************************************//
  10960.   MailMergeDataFieldDisp = dispinterface
  10961.     ['{00020919-0000-0000-C000-000000000046}']
  10962.     property Application: WordApplication readonly dispid 1000;
  10963.     property Creator: Integer readonly dispid 1001;
  10964.     property Parent: IDispatch readonly dispid 1002;
  10965.     property Value: WideString readonly dispid 0;
  10966.     property Name: WideString readonly dispid 1;
  10967.     property Index: Integer readonly dispid 2;
  10968.   end;
  10969.  
  10970. // *********************************************************************//
  10971. // Interface: Envelope
  10972. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  10973. // GUID:      {00020918-0000-0000-C000-000000000046}
  10974. // *********************************************************************//
  10975.   Envelope = interface(IDispatch)
  10976.     ['{00020918-0000-0000-C000-000000000046}']
  10977.     function  Get_Application: WordApplication; safecall;
  10978.     function  Get_Creator: Integer; safecall;
  10979.     function  Get_Parent: IDispatch; safecall;
  10980.     function  Get_Address: Range; safecall;
  10981.     function  Get_ReturnAddress: Range; safecall;
  10982.     function  Get_DefaultPrintBarCode: WordBool; safecall;
  10983.     procedure Set_DefaultPrintBarCode(prop: WordBool); safecall;
  10984.     function  Get_DefaultPrintFIMA: WordBool; safecall;
  10985.     procedure Set_DefaultPrintFIMA(prop: WordBool); safecall;
  10986.     function  Get_DefaultHeight: Single; safecall;
  10987.     procedure Set_DefaultHeight(prop: Single); safecall;
  10988.     function  Get_DefaultWidth: Single; safecall;
  10989.     procedure Set_DefaultWidth(prop: Single); safecall;
  10990.     function  Get_DefaultSize: WideString; safecall;
  10991.     procedure Set_DefaultSize(const prop: WideString); safecall;
  10992.     function  Get_DefaultOmitReturnAddress: WordBool; safecall;
  10993.     procedure Set_DefaultOmitReturnAddress(prop: WordBool); safecall;
  10994.     function  Get_FeedSource: WdPaperTray; safecall;
  10995.     procedure Set_FeedSource(prop: WdPaperTray); safecall;
  10996.     function  Get_AddressFromLeft: Single; safecall;
  10997.     procedure Set_AddressFromLeft(prop: Single); safecall;
  10998.     function  Get_AddressFromTop: Single; safecall;
  10999.     procedure Set_AddressFromTop(prop: Single); safecall;
  11000.     function  Get_ReturnAddressFromLeft: Single; safecall;
  11001.     procedure Set_ReturnAddressFromLeft(prop: Single); safecall;
  11002.     function  Get_ReturnAddressFromTop: Single; safecall;
  11003.     procedure Set_ReturnAddressFromTop(prop: Single); safecall;
  11004.     function  Get_AddressStyle: Style; safecall;
  11005.     function  Get_ReturnAddressStyle: Style; safecall;
  11006.     function  Get_DefaultOrientation: WdEnvelopeOrientation; safecall;
  11007.     procedure Set_DefaultOrientation(prop: WdEnvelopeOrientation); safecall;
  11008.     function  Get_DefaultFaceUp: WordBool; safecall;
  11009.     procedure Set_DefaultFaceUp(prop: WordBool); safecall;
  11010.     procedure Insert(var ExtractAddress: OleVariant; var Address: OleVariant; 
  11011.                      var AutoText: OleVariant; var OmitReturnAddress: OleVariant; 
  11012.                      var ReturnAddress: OleVariant; var ReturnAutoText: OleVariant; 
  11013.                      var PrintBarCode: OleVariant; var PrintFIMA: OleVariant; var Size: OleVariant; 
  11014.                      var Height: OleVariant; var Width: OleVariant; var FeedSource: OleVariant; 
  11015.                      var AddressFromLeft: OleVariant; var AddressFromTop: OleVariant; 
  11016.                      var ReturnAddressFromLeft: OleVariant; var ReturnAddressFromTop: OleVariant; 
  11017.                      var DefaultFaceUp: OleVariant; var DefaultOrientation: OleVariant); safecall;
  11018.     procedure PrintOut(var ExtractAddress: OleVariant; var Address: OleVariant; 
  11019.                        var AutoText: OleVariant; var OmitReturnAddress: OleVariant; 
  11020.                        var ReturnAddress: OleVariant; var ReturnAutoText: OleVariant; 
  11021.                        var PrintBarCode: OleVariant; var PrintFIMA: OleVariant; 
  11022.                        var Size: OleVariant; var Height: OleVariant; var Width: OleVariant; 
  11023.                        var FeedSource: OleVariant; var AddressFromLeft: OleVariant; 
  11024.                        var AddressFromTop: OleVariant; var ReturnAddressFromLeft: OleVariant; 
  11025.                        var ReturnAddressFromTop: OleVariant; var DefaultFaceUp: OleVariant; 
  11026.                        var DefaultOrientation: OleVariant); safecall;
  11027.     procedure UpdateDocument; safecall;
  11028.     property Application: WordApplication read Get_Application;
  11029.     property Creator: Integer read Get_Creator;
  11030.     property Parent: IDispatch read Get_Parent;
  11031.     property Address: Range read Get_Address;
  11032.     property ReturnAddress: Range read Get_ReturnAddress;
  11033.     property DefaultPrintBarCode: WordBool read Get_DefaultPrintBarCode write Set_DefaultPrintBarCode;
  11034.     property DefaultPrintFIMA: WordBool read Get_DefaultPrintFIMA write Set_DefaultPrintFIMA;
  11035.     property DefaultHeight: Single read Get_DefaultHeight write Set_DefaultHeight;
  11036.     property DefaultWidth: Single read Get_DefaultWidth write Set_DefaultWidth;
  11037.     property DefaultSize: WideString read Get_DefaultSize write Set_DefaultSize;
  11038.     property DefaultOmitReturnAddress: WordBool read Get_DefaultOmitReturnAddress write Set_DefaultOmitReturnAddress;
  11039.     property FeedSource: WdPaperTray read Get_FeedSource write Set_FeedSource;
  11040.     property AddressFromLeft: Single read Get_AddressFromLeft write Set_AddressFromLeft;
  11041.     property AddressFromTop: Single read Get_AddressFromTop write Set_AddressFromTop;
  11042.     property ReturnAddressFromLeft: Single read Get_ReturnAddressFromLeft write Set_ReturnAddressFromLeft;
  11043.     property ReturnAddressFromTop: Single read Get_ReturnAddressFromTop write Set_ReturnAddressFromTop;
  11044.     property AddressStyle: Style read Get_AddressStyle;
  11045.     property ReturnAddressStyle: Style read Get_ReturnAddressStyle;
  11046.     property DefaultOrientation: WdEnvelopeOrientation read Get_DefaultOrientation write Set_DefaultOrientation;
  11047.     property DefaultFaceUp: WordBool read Get_DefaultFaceUp write Set_DefaultFaceUp;
  11048.   end;
  11049.  
  11050. // *********************************************************************//
  11051. // DispIntf:  EnvelopeDisp
  11052. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11053. // GUID:      {00020918-0000-0000-C000-000000000046}
  11054. // *********************************************************************//
  11055.   EnvelopeDisp = dispinterface
  11056.     ['{00020918-0000-0000-C000-000000000046}']
  11057.     property Application: WordApplication readonly dispid 1000;
  11058.     property Creator: Integer readonly dispid 1001;
  11059.     property Parent: IDispatch readonly dispid 1002;
  11060.     property Address: Range readonly dispid 1;
  11061.     property ReturnAddress: Range readonly dispid 2;
  11062.     property DefaultPrintBarCode: WordBool dispid 4;
  11063.     property DefaultPrintFIMA: WordBool dispid 5;
  11064.     property DefaultHeight: Single dispid 6;
  11065.     property DefaultWidth: Single dispid 7;
  11066.     property DefaultSize: WideString dispid 0;
  11067.     property DefaultOmitReturnAddress: WordBool dispid 9;
  11068.     property FeedSource: WdPaperTray dispid 12;
  11069.     property AddressFromLeft: Single dispid 13;
  11070.     property AddressFromTop: Single dispid 14;
  11071.     property ReturnAddressFromLeft: Single dispid 15;
  11072.     property ReturnAddressFromTop: Single dispid 16;
  11073.     property AddressStyle: Style readonly dispid 17;
  11074.     property ReturnAddressStyle: Style readonly dispid 18;
  11075.     property DefaultOrientation: WdEnvelopeOrientation dispid 19;
  11076.     property DefaultFaceUp: WordBool dispid 20;
  11077.     procedure Insert(var ExtractAddress: OleVariant; var Address: OleVariant; 
  11078.                      var AutoText: OleVariant; var OmitReturnAddress: OleVariant; 
  11079.                      var ReturnAddress: OleVariant; var ReturnAutoText: OleVariant; 
  11080.                      var PrintBarCode: OleVariant; var PrintFIMA: OleVariant; var Size: OleVariant; 
  11081.                      var Height: OleVariant; var Width: OleVariant; var FeedSource: OleVariant; 
  11082.                      var AddressFromLeft: OleVariant; var AddressFromTop: OleVariant; 
  11083.                      var ReturnAddressFromLeft: OleVariant; var ReturnAddressFromTop: OleVariant; 
  11084.                      var DefaultFaceUp: OleVariant; var DefaultOrientation: OleVariant); dispid 101;
  11085.     procedure PrintOut(var ExtractAddress: OleVariant; var Address: OleVariant; 
  11086.                        var AutoText: OleVariant; var OmitReturnAddress: OleVariant; 
  11087.                        var ReturnAddress: OleVariant; var ReturnAutoText: OleVariant; 
  11088.                        var PrintBarCode: OleVariant; var PrintFIMA: OleVariant; 
  11089.                        var Size: OleVariant; var Height: OleVariant; var Width: OleVariant; 
  11090.                        var FeedSource: OleVariant; var AddressFromLeft: OleVariant; 
  11091.                        var AddressFromTop: OleVariant; var ReturnAddressFromLeft: OleVariant; 
  11092.                        var ReturnAddressFromTop: OleVariant; var DefaultFaceUp: OleVariant; 
  11093.                        var DefaultOrientation: OleVariant); dispid 102;
  11094.     procedure UpdateDocument; dispid 103;
  11095.   end;
  11096.  
  11097. // *********************************************************************//
  11098. // Interface: MailingLabel
  11099. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11100. // GUID:      {00020917-0000-0000-C000-000000000046}
  11101. // *********************************************************************//
  11102.   MailingLabel = interface(IDispatch)
  11103.     ['{00020917-0000-0000-C000-000000000046}']
  11104.     function  Get_Application: WordApplication; safecall;
  11105.     function  Get_Creator: Integer; safecall;
  11106.     function  Get_Parent: IDispatch; safecall;
  11107.     function  Get_DefaultPrintBarCode: WordBool; safecall;
  11108.     procedure Set_DefaultPrintBarCode(prop: WordBool); safecall;
  11109.     function  Get_DefaultLaserTray: WdPaperTray; safecall;
  11110.     procedure Set_DefaultLaserTray(prop: WdPaperTray); safecall;
  11111.     function  Get_CustomLabels: CustomLabels; safecall;
  11112.     function  Get_DefaultLabelName: WideString; safecall;
  11113.     procedure Set_DefaultLabelName(const prop: WideString); safecall;
  11114.     function  CreateNewDocument(var Name: OleVariant; var Address: OleVariant; 
  11115.                                 var AutoText: OleVariant; var ExtractAddress: OleVariant; 
  11116.                                 var LaserTray: OleVariant): WordDocument; safecall;
  11117.     procedure PrintOut(var Name: OleVariant; var Address: OleVariant; 
  11118.                        var ExtractAddress: OleVariant; var LaserTray: OleVariant; 
  11119.                        var SingleLabel: OleVariant; var Row: OleVariant; var Column: OleVariant); safecall;
  11120.     property Application: WordApplication read Get_Application;
  11121.     property Creator: Integer read Get_Creator;
  11122.     property Parent: IDispatch read Get_Parent;
  11123.     property DefaultPrintBarCode: WordBool read Get_DefaultPrintBarCode write Set_DefaultPrintBarCode;
  11124.     property DefaultLaserTray: WdPaperTray read Get_DefaultLaserTray write Set_DefaultLaserTray;
  11125.     property CustomLabels: CustomLabels read Get_CustomLabels;
  11126.     property DefaultLabelName: WideString read Get_DefaultLabelName write Set_DefaultLabelName;
  11127.   end;
  11128.  
  11129. // *********************************************************************//
  11130. // DispIntf:  MailingLabelDisp
  11131. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11132. // GUID:      {00020917-0000-0000-C000-000000000046}
  11133. // *********************************************************************//
  11134.   MailingLabelDisp = dispinterface
  11135.     ['{00020917-0000-0000-C000-000000000046}']
  11136.     property Application: WordApplication readonly dispid 1000;
  11137.     property Creator: Integer readonly dispid 1001;
  11138.     property Parent: IDispatch readonly dispid 1002;
  11139.     property DefaultPrintBarCode: WordBool dispid 2;
  11140.     property DefaultLaserTray: WdPaperTray dispid 4;
  11141.     property CustomLabels: CustomLabels readonly dispid 8;
  11142.     property DefaultLabelName: WideString dispid 9;
  11143.     function  CreateNewDocument(var Name: OleVariant; var Address: OleVariant; 
  11144.                                 var AutoText: OleVariant; var ExtractAddress: OleVariant; 
  11145.                                 var LaserTray: OleVariant): WordDocument; dispid 101;
  11146.     procedure PrintOut(var Name: OleVariant; var Address: OleVariant; 
  11147.                        var ExtractAddress: OleVariant; var LaserTray: OleVariant; 
  11148.                        var SingleLabel: OleVariant; var Row: OleVariant; var Column: OleVariant); dispid 102;
  11149.   end;
  11150.  
  11151. // *********************************************************************//
  11152. // Interface: CustomLabels
  11153. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11154. // GUID:      {00020916-0000-0000-C000-000000000046}
  11155. // *********************************************************************//
  11156.   CustomLabels = interface(IDispatch)
  11157.     ['{00020916-0000-0000-C000-000000000046}']
  11158.     function  Get_Application: WordApplication; safecall;
  11159.     function  Get_Creator: Integer; safecall;
  11160.     function  Get_Parent: IDispatch; safecall;
  11161.     function  Get__NewEnum: IUnknown; safecall;
  11162.     function  Get_Count: Integer; safecall;
  11163.     function  Item(var Index: OleVariant): CustomLabel; safecall;
  11164.     function  Add(const Name: WideString; var DotMatrix: OleVariant): CustomLabel; safecall;
  11165.     property Application: WordApplication read Get_Application;
  11166.     property Creator: Integer read Get_Creator;
  11167.     property Parent: IDispatch read Get_Parent;
  11168.     property _NewEnum: IUnknown read Get__NewEnum;
  11169.     property Count: Integer read Get_Count;
  11170.   end;
  11171.  
  11172. // *********************************************************************//
  11173. // DispIntf:  CustomLabelsDisp
  11174. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11175. // GUID:      {00020916-0000-0000-C000-000000000046}
  11176. // *********************************************************************//
  11177.   CustomLabelsDisp = dispinterface
  11178.     ['{00020916-0000-0000-C000-000000000046}']
  11179.     property Application: WordApplication readonly dispid 1000;
  11180.     property Creator: Integer readonly dispid 1001;
  11181.     property Parent: IDispatch readonly dispid 1002;
  11182.     property _NewEnum: IUnknown readonly dispid -4;
  11183.     property Count: Integer readonly dispid 1;
  11184.     function  Item(var Index: OleVariant): CustomLabel; dispid 0;
  11185.     function  Add(const Name: WideString; var DotMatrix: OleVariant): CustomLabel; dispid 101;
  11186.   end;
  11187.  
  11188. // *********************************************************************//
  11189. // Interface: CustomLabel
  11190. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11191. // GUID:      {00020915-0000-0000-C000-000000000046}
  11192. // *********************************************************************//
  11193.   CustomLabel = interface(IDispatch)
  11194.     ['{00020915-0000-0000-C000-000000000046}']
  11195.     function  Get_Application: WordApplication; safecall;
  11196.     function  Get_Creator: Integer; safecall;
  11197.     function  Get_Parent: IDispatch; safecall;
  11198.     function  Get_Index: Integer; safecall;
  11199.     function  Get_Name: WideString; safecall;
  11200.     procedure Set_Name(const prop: WideString); safecall;
  11201.     function  Get_TopMargin: Single; safecall;
  11202.     procedure Set_TopMargin(prop: Single); safecall;
  11203.     function  Get_SideMargin: Single; safecall;
  11204.     procedure Set_SideMargin(prop: Single); safecall;
  11205.     function  Get_Height: Single; safecall;
  11206.     procedure Set_Height(prop: Single); safecall;
  11207.     function  Get_Width: Single; safecall;
  11208.     procedure Set_Width(prop: Single); safecall;
  11209.     function  Get_VerticalPitch: Single; safecall;
  11210.     procedure Set_VerticalPitch(prop: Single); safecall;
  11211.     function  Get_HorizontalPitch: Single; safecall;
  11212.     procedure Set_HorizontalPitch(prop: Single); safecall;
  11213.     function  Get_NumberAcross: Integer; safecall;
  11214.     procedure Set_NumberAcross(prop: Integer); safecall;
  11215.     function  Get_NumberDown: Integer; safecall;
  11216.     procedure Set_NumberDown(prop: Integer); safecall;
  11217.     function  Get_DotMatrix: WordBool; safecall;
  11218.     function  Get_PageSize: WdCustomLabelPageSize; safecall;
  11219.     procedure Set_PageSize(prop: WdCustomLabelPageSize); safecall;
  11220.     function  Get_Valid: WordBool; safecall;
  11221.     procedure Delete; safecall;
  11222.     property Application: WordApplication read Get_Application;
  11223.     property Creator: Integer read Get_Creator;
  11224.     property Parent: IDispatch read Get_Parent;
  11225.     property Index: Integer read Get_Index;
  11226.     property Name: WideString read Get_Name write Set_Name;
  11227.     property TopMargin: Single read Get_TopMargin write Set_TopMargin;
  11228.     property SideMargin: Single read Get_SideMargin write Set_SideMargin;
  11229.     property Height: Single read Get_Height write Set_Height;
  11230.     property Width: Single read Get_Width write Set_Width;
  11231.     property VerticalPitch: Single read Get_VerticalPitch write Set_VerticalPitch;
  11232.     property HorizontalPitch: Single read Get_HorizontalPitch write Set_HorizontalPitch;
  11233.     property NumberAcross: Integer read Get_NumberAcross write Set_NumberAcross;
  11234.     property NumberDown: Integer read Get_NumberDown write Set_NumberDown;
  11235.     property DotMatrix: WordBool read Get_DotMatrix;
  11236.     property PageSize: WdCustomLabelPageSize read Get_PageSize write Set_PageSize;
  11237.     property Valid: WordBool read Get_Valid;
  11238.   end;
  11239.  
  11240. // *********************************************************************//
  11241. // DispIntf:  CustomLabelDisp
  11242. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11243. // GUID:      {00020915-0000-0000-C000-000000000046}
  11244. // *********************************************************************//
  11245.   CustomLabelDisp = dispinterface
  11246.     ['{00020915-0000-0000-C000-000000000046}']
  11247.     property Application: WordApplication readonly dispid 1000;
  11248.     property Creator: Integer readonly dispid 1001;
  11249.     property Parent: IDispatch readonly dispid 1002;
  11250.     property Index: Integer readonly dispid 1;
  11251.     property Name: WideString dispid 2;
  11252.     property TopMargin: Single dispid 3;
  11253.     property SideMargin: Single dispid 4;
  11254.     property Height: Single dispid 5;
  11255.     property Width: Single dispid 6;
  11256.     property VerticalPitch: Single dispid 7;
  11257.     property HorizontalPitch: Single dispid 8;
  11258.     property NumberAcross: Integer dispid 9;
  11259.     property NumberDown: Integer dispid 10;
  11260.     property DotMatrix: WordBool readonly dispid 11;
  11261.     property PageSize: WdCustomLabelPageSize dispid 12;
  11262.     property Valid: WordBool readonly dispid 13;
  11263.     procedure Delete; dispid 101;
  11264.   end;
  11265.  
  11266. // *********************************************************************//
  11267. // Interface: TablesOfContents
  11268. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11269. // GUID:      {00020914-0000-0000-C000-000000000046}
  11270. // *********************************************************************//
  11271.   TablesOfContents = interface(IDispatch)
  11272.     ['{00020914-0000-0000-C000-000000000046}']
  11273.     function  Get_Application: WordApplication; safecall;
  11274.     function  Get_Creator: Integer; safecall;
  11275.     function  Get_Parent: IDispatch; safecall;
  11276.     function  Get__NewEnum: IUnknown; safecall;
  11277.     function  Get_Count: Integer; safecall;
  11278.     function  Get_Format: WdTocFormat; safecall;
  11279.     procedure Set_Format(prop: WdTocFormat); safecall;
  11280.     function  Item(Index: Integer): TableOfContents; safecall;
  11281.     function  Add(const Range: Range; var UseHeadingStyles: OleVariant; 
  11282.                   var UpperHeadingLevel: OleVariant; var LowerHeadingLevel: OleVariant; 
  11283.                   var UseFields: OleVariant; var TableID: OleVariant; 
  11284.                   var RightAlignPageNumbers: OleVariant; var IncludePageNumbers: OleVariant; 
  11285.                   var AddedStyles: OleVariant): TableOfContents; safecall;
  11286.     function  MarkEntry(const Range: Range; var Entry: OleVariant; var EntryAutoText: OleVariant; 
  11287.                         var TableID: OleVariant; var Level: OleVariant): Field; safecall;
  11288.     property Application: WordApplication read Get_Application;
  11289.     property Creator: Integer read Get_Creator;
  11290.     property Parent: IDispatch read Get_Parent;
  11291.     property _NewEnum: IUnknown read Get__NewEnum;
  11292.     property Count: Integer read Get_Count;
  11293.     property Format: WdTocFormat read Get_Format write Set_Format;
  11294.   end;
  11295.  
  11296. // *********************************************************************//
  11297. // DispIntf:  TablesOfContentsDisp
  11298. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11299. // GUID:      {00020914-0000-0000-C000-000000000046}
  11300. // *********************************************************************//
  11301.   TablesOfContentsDisp = dispinterface
  11302.     ['{00020914-0000-0000-C000-000000000046}']
  11303.     property Application: WordApplication readonly dispid 1000;
  11304.     property Creator: Integer readonly dispid 1001;
  11305.     property Parent: IDispatch readonly dispid 1002;
  11306.     property _NewEnum: IUnknown readonly dispid -4;
  11307.     property Count: Integer readonly dispid 1;
  11308.     property Format: WdTocFormat dispid 2;
  11309.     function  Item(Index: Integer): TableOfContents; dispid 0;
  11310.     function  Add(const Range: Range; var UseHeadingStyles: OleVariant; 
  11311.                   var UpperHeadingLevel: OleVariant; var LowerHeadingLevel: OleVariant; 
  11312.                   var UseFields: OleVariant; var TableID: OleVariant; 
  11313.                   var RightAlignPageNumbers: OleVariant; var IncludePageNumbers: OleVariant; 
  11314.                   var AddedStyles: OleVariant): TableOfContents; dispid 100;
  11315.     function  MarkEntry(const Range: Range; var Entry: OleVariant; var EntryAutoText: OleVariant; 
  11316.                         var TableID: OleVariant; var Level: OleVariant): Field; dispid 101;
  11317.   end;
  11318.  
  11319. // *********************************************************************//
  11320. // Interface: TableOfContents
  11321. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11322. // GUID:      {00020913-0000-0000-C000-000000000046}
  11323. // *********************************************************************//
  11324.   TableOfContents = interface(IDispatch)
  11325.     ['{00020913-0000-0000-C000-000000000046}']
  11326.     function  Get_Application: WordApplication; safecall;
  11327.     function  Get_Creator: Integer; safecall;
  11328.     function  Get_Parent: IDispatch; safecall;
  11329.     function  Get_UseHeadingStyles: WordBool; safecall;
  11330.     procedure Set_UseHeadingStyles(prop: WordBool); safecall;
  11331.     function  Get_UseFields: WordBool; safecall;
  11332.     procedure Set_UseFields(prop: WordBool); safecall;
  11333.     function  Get_UpperHeadingLevel: Integer; safecall;
  11334.     procedure Set_UpperHeadingLevel(prop: Integer); safecall;
  11335.     function  Get_LowerHeadingLevel: Integer; safecall;
  11336.     procedure Set_LowerHeadingLevel(prop: Integer); safecall;
  11337.     function  Get_TableID: WideString; safecall;
  11338.     procedure Set_TableID(const prop: WideString); safecall;
  11339.     function  Get_HeadingStyles: HeadingStyles; safecall;
  11340.     function  Get_RightAlignPageNumbers: WordBool; safecall;
  11341.     procedure Set_RightAlignPageNumbers(prop: WordBool); safecall;
  11342.     function  Get_IncludePageNumbers: WordBool; safecall;
  11343.     procedure Set_IncludePageNumbers(prop: WordBool); safecall;
  11344.     function  Get_Range: Range; safecall;
  11345.     function  Get_TabLeader: WdTabLeader; safecall;
  11346.     procedure Set_TabLeader(prop: WdTabLeader); safecall;
  11347.     procedure Delete; safecall;
  11348.     procedure UpdatePageNumbers; safecall;
  11349.     procedure Update; safecall;
  11350.     property Application: WordApplication read Get_Application;
  11351.     property Creator: Integer read Get_Creator;
  11352.     property Parent: IDispatch read Get_Parent;
  11353.     property UseHeadingStyles: WordBool read Get_UseHeadingStyles write Set_UseHeadingStyles;
  11354.     property UseFields: WordBool read Get_UseFields write Set_UseFields;
  11355.     property UpperHeadingLevel: Integer read Get_UpperHeadingLevel write Set_UpperHeadingLevel;
  11356.     property LowerHeadingLevel: Integer read Get_LowerHeadingLevel write Set_LowerHeadingLevel;
  11357.     property TableID: WideString read Get_TableID write Set_TableID;
  11358.     property HeadingStyles: HeadingStyles read Get_HeadingStyles;
  11359.     property RightAlignPageNumbers: WordBool read Get_RightAlignPageNumbers write Set_RightAlignPageNumbers;
  11360.     property IncludePageNumbers: WordBool read Get_IncludePageNumbers write Set_IncludePageNumbers;
  11361.     property Range: Range read Get_Range;
  11362.     property TabLeader: WdTabLeader read Get_TabLeader write Set_TabLeader;
  11363.   end;
  11364.  
  11365. // *********************************************************************//
  11366. // DispIntf:  TableOfContentsDisp
  11367. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11368. // GUID:      {00020913-0000-0000-C000-000000000046}
  11369. // *********************************************************************//
  11370.   TableOfContentsDisp = dispinterface
  11371.     ['{00020913-0000-0000-C000-000000000046}']
  11372.     property Application: WordApplication readonly dispid 1000;
  11373.     property Creator: Integer readonly dispid 1001;
  11374.     property Parent: IDispatch readonly dispid 1002;
  11375.     property UseHeadingStyles: WordBool dispid 1;
  11376.     property UseFields: WordBool dispid 2;
  11377.     property UpperHeadingLevel: Integer dispid 3;
  11378.     property LowerHeadingLevel: Integer dispid 4;
  11379.     property TableID: WideString dispid 5;
  11380.     property HeadingStyles: HeadingStyles readonly dispid 6;
  11381.     property RightAlignPageNumbers: WordBool dispid 7;
  11382.     property IncludePageNumbers: WordBool dispid 8;
  11383.     property Range: Range readonly dispid 9;
  11384.     property TabLeader: WdTabLeader dispid 10;
  11385.     procedure Delete; dispid 100;
  11386.     procedure UpdatePageNumbers; dispid 101;
  11387.     procedure Update; dispid 102;
  11388.   end;
  11389.  
  11390. // *********************************************************************//
  11391. // Interface: TablesOfAuthorities
  11392. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11393. // GUID:      {00020912-0000-0000-C000-000000000046}
  11394. // *********************************************************************//
  11395.   TablesOfAuthorities = interface(IDispatch)
  11396.     ['{00020912-0000-0000-C000-000000000046}']
  11397.     function  Get_Application: WordApplication; safecall;
  11398.     function  Get_Creator: Integer; safecall;
  11399.     function  Get_Parent: IDispatch; safecall;
  11400.     function  Get__NewEnum: IUnknown; safecall;
  11401.     function  Get_Count: Integer; safecall;
  11402.     function  Get_Format: WdToaFormat; safecall;
  11403.     procedure Set_Format(prop: WdToaFormat); safecall;
  11404.     function  Item(Index: Integer): TableOfAuthorities; safecall;
  11405.     function  Add(const Range: Range; var Category: OleVariant; var Bookmark: OleVariant; 
  11406.                   var Passim: OleVariant; var KeepEntryFormatting: OleVariant; 
  11407.                   var Separator: OleVariant; var IncludeSequenceName: OleVariant; 
  11408.                   var EntrySeparator: OleVariant; var PageRangeSeparator: OleVariant; 
  11409.                   var IncludeCategoryHeader: OleVariant; var PageNumberSeparator: OleVariant): TableOfAuthorities; safecall;
  11410.     procedure NextCitation(const ShortCitation: WideString); safecall;
  11411.     function  MarkCitation(const Range: Range; const ShortCitation: WideString; 
  11412.                            var LongCitation: OleVariant; var LongCitationAutoText: OleVariant; 
  11413.                            var Category: OleVariant): Field; safecall;
  11414.     procedure MarkAllCitations(const ShortCitation: WideString; var LongCitation: OleVariant; 
  11415.                                var LongCitationAutoText: OleVariant; var Category: OleVariant); safecall;
  11416.     property Application: WordApplication read Get_Application;
  11417.     property Creator: Integer read Get_Creator;
  11418.     property Parent: IDispatch read Get_Parent;
  11419.     property _NewEnum: IUnknown read Get__NewEnum;
  11420.     property Count: Integer read Get_Count;
  11421.     property Format: WdToaFormat read Get_Format write Set_Format;
  11422.   end;
  11423.  
  11424. // *********************************************************************//
  11425. // DispIntf:  TablesOfAuthoritiesDisp
  11426. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11427. // GUID:      {00020912-0000-0000-C000-000000000046}
  11428. // *********************************************************************//
  11429.   TablesOfAuthoritiesDisp = dispinterface
  11430.     ['{00020912-0000-0000-C000-000000000046}']
  11431.     property Application: WordApplication readonly dispid 1000;
  11432.     property Creator: Integer readonly dispid 1001;
  11433.     property Parent: IDispatch readonly dispid 1002;
  11434.     property _NewEnum: IUnknown readonly dispid -4;
  11435.     property Count: Integer readonly dispid 1;
  11436.     property Format: WdToaFormat dispid 2;
  11437.     function  Item(Index: Integer): TableOfAuthorities; dispid 0;
  11438.     function  Add(const Range: Range; var Category: OleVariant; var Bookmark: OleVariant; 
  11439.                   var Passim: OleVariant; var KeepEntryFormatting: OleVariant; 
  11440.                   var Separator: OleVariant; var IncludeSequenceName: OleVariant; 
  11441.                   var EntrySeparator: OleVariant; var PageRangeSeparator: OleVariant; 
  11442.                   var IncludeCategoryHeader: OleVariant; var PageNumberSeparator: OleVariant): TableOfAuthorities; dispid 100;
  11443.     procedure NextCitation(const ShortCitation: WideString); dispid 103;
  11444.     function  MarkCitation(const Range: Range; const ShortCitation: WideString; 
  11445.                            var LongCitation: OleVariant; var LongCitationAutoText: OleVariant; 
  11446.                            var Category: OleVariant): Field; dispid 101;
  11447.     procedure MarkAllCitations(const ShortCitation: WideString; var LongCitation: OleVariant; 
  11448.                                var LongCitationAutoText: OleVariant; var Category: OleVariant); dispid 102;
  11449.   end;
  11450.  
  11451. // *********************************************************************//
  11452. // Interface: TableOfAuthorities
  11453. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11454. // GUID:      {00020911-0000-0000-C000-000000000046}
  11455. // *********************************************************************//
  11456.   TableOfAuthorities = interface(IDispatch)
  11457.     ['{00020911-0000-0000-C000-000000000046}']
  11458.     function  Get_Application: WordApplication; safecall;
  11459.     function  Get_Creator: Integer; safecall;
  11460.     function  Get_Parent: IDispatch; safecall;
  11461.     function  Get_Passim: WordBool; safecall;
  11462.     procedure Set_Passim(prop: WordBool); safecall;
  11463.     function  Get_KeepEntryFormatting: WordBool; safecall;
  11464.     procedure Set_KeepEntryFormatting(prop: WordBool); safecall;
  11465.     function  Get_Category: Integer; safecall;
  11466.     procedure Set_Category(prop: Integer); safecall;
  11467.     function  Get_Bookmark: WideString; safecall;
  11468.     procedure Set_Bookmark(const prop: WideString); safecall;
  11469.     function  Get_Separator: WideString; safecall;
  11470.     procedure Set_Separator(const prop: WideString); safecall;
  11471.     function  Get_IncludeSequenceName: WideString; safecall;
  11472.     procedure Set_IncludeSequenceName(const prop: WideString); safecall;
  11473.     function  Get_EntrySeparator: WideString; safecall;
  11474.     procedure Set_EntrySeparator(const prop: WideString); safecall;
  11475.     function  Get_PageRangeSeparator: WideString; safecall;
  11476.     procedure Set_PageRangeSeparator(const prop: WideString); safecall;
  11477.     function  Get_IncludeCategoryHeader: WordBool; safecall;
  11478.     procedure Set_IncludeCategoryHeader(prop: WordBool); safecall;
  11479.     function  Get_PageNumberSeparator: WideString; safecall;
  11480.     procedure Set_PageNumberSeparator(const prop: WideString); safecall;
  11481.     function  Get_Range: Range; safecall;
  11482.     function  Get_TabLeader: WdTabLeader; safecall;
  11483.     procedure Set_TabLeader(prop: WdTabLeader); safecall;
  11484.     procedure Delete; safecall;
  11485.     procedure Update; safecall;
  11486.     property Application: WordApplication read Get_Application;
  11487.     property Creator: Integer read Get_Creator;
  11488.     property Parent: IDispatch read Get_Parent;
  11489.     property Passim: WordBool read Get_Passim write Set_Passim;
  11490.     property KeepEntryFormatting: WordBool read Get_KeepEntryFormatting write Set_KeepEntryFormatting;
  11491.     property Category: Integer read Get_Category write Set_Category;
  11492.     property Bookmark: WideString read Get_Bookmark write Set_Bookmark;
  11493.     property Separator: WideString read Get_Separator write Set_Separator;
  11494.     property IncludeSequenceName: WideString read Get_IncludeSequenceName write Set_IncludeSequenceName;
  11495.     property EntrySeparator: WideString read Get_EntrySeparator write Set_EntrySeparator;
  11496.     property PageRangeSeparator: WideString read Get_PageRangeSeparator write Set_PageRangeSeparator;
  11497.     property IncludeCategoryHeader: WordBool read Get_IncludeCategoryHeader write Set_IncludeCategoryHeader;
  11498.     property PageNumberSeparator: WideString read Get_PageNumberSeparator write Set_PageNumberSeparator;
  11499.     property Range: Range read Get_Range;
  11500.     property TabLeader: WdTabLeader read Get_TabLeader write Set_TabLeader;
  11501.   end;
  11502.  
  11503. // *********************************************************************//
  11504. // DispIntf:  TableOfAuthoritiesDisp
  11505. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11506. // GUID:      {00020911-0000-0000-C000-000000000046}
  11507. // *********************************************************************//
  11508.   TableOfAuthoritiesDisp = dispinterface
  11509.     ['{00020911-0000-0000-C000-000000000046}']
  11510.     property Application: WordApplication readonly dispid 1000;
  11511.     property Creator: Integer readonly dispid 1001;
  11512.     property Parent: IDispatch readonly dispid 1002;
  11513.     property Passim: WordBool dispid 1;
  11514.     property KeepEntryFormatting: WordBool dispid 2;
  11515.     property Category: Integer dispid 3;
  11516.     property Bookmark: WideString dispid 4;
  11517.     property Separator: WideString dispid 5;
  11518.     property IncludeSequenceName: WideString dispid 6;
  11519.     property EntrySeparator: WideString dispid 7;
  11520.     property PageRangeSeparator: WideString dispid 8;
  11521.     property IncludeCategoryHeader: WordBool dispid 9;
  11522.     property PageNumberSeparator: WideString dispid 10;
  11523.     property Range: Range readonly dispid 11;
  11524.     property TabLeader: WdTabLeader dispid 12;
  11525.     procedure Delete; dispid 100;
  11526.     procedure Update; dispid 101;
  11527.   end;
  11528.  
  11529. // *********************************************************************//
  11530. // Interface: Dialogs
  11531. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11532. // GUID:      {00020910-0000-0000-C000-000000000046}
  11533. // *********************************************************************//
  11534.   Dialogs = interface(IDispatch)
  11535.     ['{00020910-0000-0000-C000-000000000046}']
  11536.     function  Get_Application: WordApplication; safecall;
  11537.     function  Get_Creator: Integer; safecall;
  11538.     function  Get_Parent: IDispatch; safecall;
  11539.     function  Get__NewEnum: IUnknown; safecall;
  11540.     function  Get_Count: Integer; safecall;
  11541.     function  Item(Index: WdWordDialog): Dialog; safecall;
  11542.     property Application: WordApplication read Get_Application;
  11543.     property Creator: Integer read Get_Creator;
  11544.     property Parent: IDispatch read Get_Parent;
  11545.     property _NewEnum: IUnknown read Get__NewEnum;
  11546.     property Count: Integer read Get_Count;
  11547.   end;
  11548.  
  11549. // *********************************************************************//
  11550. // DispIntf:  DialogsDisp
  11551. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11552. // GUID:      {00020910-0000-0000-C000-000000000046}
  11553. // *********************************************************************//
  11554.   DialogsDisp = dispinterface
  11555.     ['{00020910-0000-0000-C000-000000000046}']
  11556.     property Application: WordApplication readonly dispid 1000;
  11557.     property Creator: Integer readonly dispid 1001;
  11558.     property Parent: IDispatch readonly dispid 1002;
  11559.     property _NewEnum: IUnknown readonly dispid -4;
  11560.     property Count: Integer readonly dispid 1;
  11561.     function  Item(Index: WdWordDialog): Dialog; dispid 0;
  11562.   end;
  11563.  
  11564. // *********************************************************************//
  11565. // Interface: Dialog
  11566. // Flags:     (4416) Dual OleAutomation Dispatchable
  11567. // GUID:      {000209B8-0000-0000-C000-000000000046}
  11568. // *********************************************************************//
  11569.   Dialog = interface(IDispatch)
  11570.     ['{000209B8-0000-0000-C000-000000000046}']
  11571.     function  Get_Application: WordApplication; safecall;
  11572.     function  Get_Creator: Integer; safecall;
  11573.     function  Get_Parent: IDispatch; safecall;
  11574.     function  Get_DefaultTab: WdWordDialogTab; safecall;
  11575.     procedure Set_DefaultTab(prop: WdWordDialogTab); safecall;
  11576.     function  Get_Type_: WdWordDialog; safecall;
  11577.     function  Show(var TimeOut: OleVariant): Integer; safecall;
  11578.     function  Display(var TimeOut: OleVariant): Integer; safecall;
  11579.     procedure Execute; safecall;
  11580.     procedure Update; safecall;
  11581.     property Application: WordApplication read Get_Application;
  11582.     property Creator: Integer read Get_Creator;
  11583.     property Parent: IDispatch read Get_Parent;
  11584.     property DefaultTab: WdWordDialogTab read Get_DefaultTab write Set_DefaultTab;
  11585.     property Type_: WdWordDialog read Get_Type_;
  11586.   end;
  11587.  
  11588. // *********************************************************************//
  11589. // DispIntf:  DialogDisp
  11590. // Flags:     (4416) Dual OleAutomation Dispatchable
  11591. // GUID:      {000209B8-0000-0000-C000-000000000046}
  11592. // *********************************************************************//
  11593.   DialogDisp = dispinterface
  11594.     ['{000209B8-0000-0000-C000-000000000046}']
  11595.     property Application: WordApplication readonly dispid 32003;
  11596.     property Creator: Integer readonly dispid 32004;
  11597.     property Parent: IDispatch readonly dispid 32005;
  11598.     property DefaultTab: WdWordDialogTab dispid 32002;
  11599.     property Type_: WdWordDialog readonly dispid 0;
  11600.     function  Show(var TimeOut: OleVariant): Integer; dispid 336;
  11601.     function  Display(var TimeOut: OleVariant): Integer; dispid 338;
  11602.     procedure Execute; dispid 32001;
  11603.     procedure Update; dispid 302;
  11604.   end;
  11605.  
  11606. // *********************************************************************//
  11607. // Interface: PageSetup
  11608. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11609. // GUID:      {00020971-0000-0000-C000-000000000046}
  11610. // *********************************************************************//
  11611.   PageSetup = interface(IDispatch)
  11612.     ['{00020971-0000-0000-C000-000000000046}']
  11613.     function  Get_Application: WordApplication; safecall;
  11614.     function  Get_Creator: Integer; safecall;
  11615.     function  Get_Parent: IDispatch; safecall;
  11616.     function  Get_TopMargin: Single; safecall;
  11617.     procedure Set_TopMargin(prop: Single); safecall;
  11618.     function  Get_BottomMargin: Single; safecall;
  11619.     procedure Set_BottomMargin(prop: Single); safecall;
  11620.     function  Get_LeftMargin: Single; safecall;
  11621.     procedure Set_LeftMargin(prop: Single); safecall;
  11622.     function  Get_RightMargin: Single; safecall;
  11623.     procedure Set_RightMargin(prop: Single); safecall;
  11624.     function  Get_Gutter: Single; safecall;
  11625.     procedure Set_Gutter(prop: Single); safecall;
  11626.     function  Get_PageWidth: Single; safecall;
  11627.     procedure Set_PageWidth(prop: Single); safecall;
  11628.     function  Get_PageHeight: Single; safecall;
  11629.     procedure Set_PageHeight(prop: Single); safecall;
  11630.     function  Get_Orientation: WdOrientation; safecall;
  11631.     procedure Set_Orientation(prop: WdOrientation); safecall;
  11632.     function  Get_FirstPageTray: WdPaperTray; safecall;
  11633.     procedure Set_FirstPageTray(prop: WdPaperTray); safecall;
  11634.     function  Get_OtherPagesTray: WdPaperTray; safecall;
  11635.     procedure Set_OtherPagesTray(prop: WdPaperTray); safecall;
  11636.     function  Get_VerticalAlignment: WdVerticalAlignment; safecall;
  11637.     procedure Set_VerticalAlignment(prop: WdVerticalAlignment); safecall;
  11638.     function  Get_MirrorMargins: Integer; safecall;
  11639.     procedure Set_MirrorMargins(prop: Integer); safecall;
  11640.     function  Get_HeaderDistance: Single; safecall;
  11641.     procedure Set_HeaderDistance(prop: Single); safecall;
  11642.     function  Get_FooterDistance: Single; safecall;
  11643.     procedure Set_FooterDistance(prop: Single); safecall;
  11644.     function  Get_SectionStart: WdSectionStart; safecall;
  11645.     procedure Set_SectionStart(prop: WdSectionStart); safecall;
  11646.     function  Get_OddAndEvenPagesHeaderFooter: Integer; safecall;
  11647.     procedure Set_OddAndEvenPagesHeaderFooter(prop: Integer); safecall;
  11648.     function  Get_DifferentFirstPageHeaderFooter: Integer; safecall;
  11649.     procedure Set_DifferentFirstPageHeaderFooter(prop: Integer); safecall;
  11650.     function  Get_SuppressEndnotes: Integer; safecall;
  11651.     procedure Set_SuppressEndnotes(prop: Integer); safecall;
  11652.     function  Get_LineNumbering: LineNumbering; safecall;
  11653.     procedure Set_LineNumbering(const prop: LineNumbering); safecall;
  11654.     function  Get_TextColumns: TextColumns; safecall;
  11655.     procedure Set_TextColumns(const prop: TextColumns); safecall;
  11656.     function  Get_PaperSize: WdPaperSize; safecall;
  11657.     procedure Set_PaperSize(prop: WdPaperSize); safecall;
  11658.     function  Get_TwoPagesOnOne: WordBool; safecall;
  11659.     procedure Set_TwoPagesOnOne(prop: WordBool); safecall;
  11660.     function  Get_GutterOnTop: WordBool; safecall;
  11661.     procedure Set_GutterOnTop(prop: WordBool); safecall;
  11662.     function  Get_CharsLine: Single; safecall;
  11663.     procedure Set_CharsLine(prop: Single); safecall;
  11664.     function  Get_LinesPage: Single; safecall;
  11665.     procedure Set_LinesPage(prop: Single); safecall;
  11666.     function  Get_ShowGrid: WordBool; safecall;
  11667.     procedure Set_ShowGrid(prop: WordBool); safecall;
  11668.     procedure TogglePortrait; safecall;
  11669.     procedure SetAsTemplateDefault; safecall;
  11670.     property Application: WordApplication read Get_Application;
  11671.     property Creator: Integer read Get_Creator;
  11672.     property Parent: IDispatch read Get_Parent;
  11673.     property TopMargin: Single read Get_TopMargin write Set_TopMargin;
  11674.     property BottomMargin: Single read Get_BottomMargin write Set_BottomMargin;
  11675.     property LeftMargin: Single read Get_LeftMargin write Set_LeftMargin;
  11676.     property RightMargin: Single read Get_RightMargin write Set_RightMargin;
  11677.     property Gutter: Single read Get_Gutter write Set_Gutter;
  11678.     property PageWidth: Single read Get_PageWidth write Set_PageWidth;
  11679.     property PageHeight: Single read Get_PageHeight write Set_PageHeight;
  11680.     property Orientation: WdOrientation read Get_Orientation write Set_Orientation;
  11681.     property FirstPageTray: WdPaperTray read Get_FirstPageTray write Set_FirstPageTray;
  11682.     property OtherPagesTray: WdPaperTray read Get_OtherPagesTray write Set_OtherPagesTray;
  11683.     property VerticalAlignment: WdVerticalAlignment read Get_VerticalAlignment write Set_VerticalAlignment;
  11684.     property MirrorMargins: Integer read Get_MirrorMargins write Set_MirrorMargins;
  11685.     property HeaderDistance: Single read Get_HeaderDistance write Set_HeaderDistance;
  11686.     property FooterDistance: Single read Get_FooterDistance write Set_FooterDistance;
  11687.     property SectionStart: WdSectionStart read Get_SectionStart write Set_SectionStart;
  11688.     property OddAndEvenPagesHeaderFooter: Integer read Get_OddAndEvenPagesHeaderFooter write Set_OddAndEvenPagesHeaderFooter;
  11689.     property DifferentFirstPageHeaderFooter: Integer read Get_DifferentFirstPageHeaderFooter write Set_DifferentFirstPageHeaderFooter;
  11690.     property SuppressEndnotes: Integer read Get_SuppressEndnotes write Set_SuppressEndnotes;
  11691.     property LineNumbering: LineNumbering read Get_LineNumbering write Set_LineNumbering;
  11692.     property TextColumns: TextColumns read Get_TextColumns write Set_TextColumns;
  11693.     property PaperSize: WdPaperSize read Get_PaperSize write Set_PaperSize;
  11694.     property TwoPagesOnOne: WordBool read Get_TwoPagesOnOne write Set_TwoPagesOnOne;
  11695.     property GutterOnTop: WordBool read Get_GutterOnTop write Set_GutterOnTop;
  11696.     property CharsLine: Single read Get_CharsLine write Set_CharsLine;
  11697.     property LinesPage: Single read Get_LinesPage write Set_LinesPage;
  11698.     property ShowGrid: WordBool read Get_ShowGrid write Set_ShowGrid;
  11699.   end;
  11700.  
  11701. // *********************************************************************//
  11702. // DispIntf:  PageSetupDisp
  11703. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11704. // GUID:      {00020971-0000-0000-C000-000000000046}
  11705. // *********************************************************************//
  11706.   PageSetupDisp = dispinterface
  11707.     ['{00020971-0000-0000-C000-000000000046}']
  11708.     property Application: WordApplication readonly dispid 1000;
  11709.     property Creator: Integer readonly dispid 1001;
  11710.     property Parent: IDispatch readonly dispid 1002;
  11711.     property TopMargin: Single dispid 100;
  11712.     property BottomMargin: Single dispid 101;
  11713.     property LeftMargin: Single dispid 102;
  11714.     property RightMargin: Single dispid 103;
  11715.     property Gutter: Single dispid 104;
  11716.     property PageWidth: Single dispid 105;
  11717.     property PageHeight: Single dispid 106;
  11718.     property Orientation: WdOrientation dispid 107;
  11719.     property FirstPageTray: WdPaperTray dispid 108;
  11720.     property OtherPagesTray: WdPaperTray dispid 109;
  11721.     property VerticalAlignment: WdVerticalAlignment dispid 110;
  11722.     property MirrorMargins: Integer dispid 111;
  11723.     property HeaderDistance: Single dispid 112;
  11724.     property FooterDistance: Single dispid 113;
  11725.     property SectionStart: WdSectionStart dispid 114;
  11726.     property OddAndEvenPagesHeaderFooter: Integer dispid 115;
  11727.     property DifferentFirstPageHeaderFooter: Integer dispid 116;
  11728.     property SuppressEndnotes: Integer dispid 117;
  11729.     property LineNumbering: LineNumbering dispid 118;
  11730.     property TextColumns: TextColumns dispid 119;
  11731.     property PaperSize: WdPaperSize dispid 120;
  11732.     property TwoPagesOnOne: WordBool dispid 121;
  11733.     property GutterOnTop: WordBool dispid 122;
  11734.     property CharsLine: Single dispid 123;
  11735.     property LinesPage: Single dispid 124;
  11736.     property ShowGrid: WordBool dispid 128;
  11737.     procedure TogglePortrait; dispid 201;
  11738.     procedure SetAsTemplateDefault; dispid 202;
  11739.   end;
  11740.  
  11741. // *********************************************************************//
  11742. // Interface: LineNumbering
  11743. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11744. // GUID:      {00020972-0000-0000-C000-000000000046}
  11745. // *********************************************************************//
  11746.   LineNumbering = interface(IDispatch)
  11747.     ['{00020972-0000-0000-C000-000000000046}']
  11748.     function  Get_Application: WordApplication; safecall;
  11749.     function  Get_Creator: Integer; safecall;
  11750.     function  Get_Parent: IDispatch; safecall;
  11751.     function  Get_RestartMode: WdNumberingRule; safecall;
  11752.     procedure Set_RestartMode(prop: WdNumberingRule); safecall;
  11753.     function  Get_StartingNumber: Integer; safecall;
  11754.     procedure Set_StartingNumber(prop: Integer); safecall;
  11755.     function  Get_DistanceFromText: Single; safecall;
  11756.     procedure Set_DistanceFromText(prop: Single); safecall;
  11757.     function  Get_CountBy: Integer; safecall;
  11758.     procedure Set_CountBy(prop: Integer); safecall;
  11759.     function  Get_Active: Integer; safecall;
  11760.     procedure Set_Active(prop: Integer); safecall;
  11761.     property Application: WordApplication read Get_Application;
  11762.     property Creator: Integer read Get_Creator;
  11763.     property Parent: IDispatch read Get_Parent;
  11764.     property RestartMode: WdNumberingRule read Get_RestartMode write Set_RestartMode;
  11765.     property StartingNumber: Integer read Get_StartingNumber write Set_StartingNumber;
  11766.     property DistanceFromText: Single read Get_DistanceFromText write Set_DistanceFromText;
  11767.     property CountBy: Integer read Get_CountBy write Set_CountBy;
  11768.     property Active: Integer read Get_Active write Set_Active;
  11769.   end;
  11770.  
  11771. // *********************************************************************//
  11772. // DispIntf:  LineNumberingDisp
  11773. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11774. // GUID:      {00020972-0000-0000-C000-000000000046}
  11775. // *********************************************************************//
  11776.   LineNumberingDisp = dispinterface
  11777.     ['{00020972-0000-0000-C000-000000000046}']
  11778.     property Application: WordApplication readonly dispid 1000;
  11779.     property Creator: Integer readonly dispid 1001;
  11780.     property Parent: IDispatch readonly dispid 1002;
  11781.     property RestartMode: WdNumberingRule dispid 100;
  11782.     property StartingNumber: Integer dispid 101;
  11783.     property DistanceFromText: Single dispid 102;
  11784.     property CountBy: Integer dispid 103;
  11785.     property Active: Integer dispid 104;
  11786.   end;
  11787.  
  11788. // *********************************************************************//
  11789. // Interface: TextColumns
  11790. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11791. // GUID:      {00020973-0000-0000-C000-000000000046}
  11792. // *********************************************************************//
  11793.   TextColumns = interface(IDispatch)
  11794.     ['{00020973-0000-0000-C000-000000000046}']
  11795.     function  Get__NewEnum: IUnknown; safecall;
  11796.     function  Get_Count: Integer; safecall;
  11797.     function  Get_Application: WordApplication; safecall;
  11798.     function  Get_Creator: Integer; safecall;
  11799.     function  Get_Parent: IDispatch; safecall;
  11800.     function  Get_EvenlySpaced: Integer; safecall;
  11801.     procedure Set_EvenlySpaced(prop: Integer); safecall;
  11802.     function  Get_LineBetween: Integer; safecall;
  11803.     procedure Set_LineBetween(prop: Integer); safecall;
  11804.     function  Get_Width: Single; safecall;
  11805.     procedure Set_Width(prop: Single); safecall;
  11806.     function  Get_Spacing: Single; safecall;
  11807.     procedure Set_Spacing(prop: Single); safecall;
  11808.     function  Item(Index: Integer): TextColumn; safecall;
  11809.     function  Add(var Width: OleVariant; var Spacing: OleVariant; var EvenlySpaced: OleVariant): TextColumn; safecall;
  11810.     procedure SetCount(NumColumns: Integer); safecall;
  11811.     property _NewEnum: IUnknown read Get__NewEnum;
  11812.     property Count: Integer read Get_Count;
  11813.     property Application: WordApplication read Get_Application;
  11814.     property Creator: Integer read Get_Creator;
  11815.     property Parent: IDispatch read Get_Parent;
  11816.     property EvenlySpaced: Integer read Get_EvenlySpaced write Set_EvenlySpaced;
  11817.     property LineBetween: Integer read Get_LineBetween write Set_LineBetween;
  11818.     property Width: Single read Get_Width write Set_Width;
  11819.     property Spacing: Single read Get_Spacing write Set_Spacing;
  11820.   end;
  11821.  
  11822. // *********************************************************************//
  11823. // DispIntf:  TextColumnsDisp
  11824. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11825. // GUID:      {00020973-0000-0000-C000-000000000046}
  11826. // *********************************************************************//
  11827.   TextColumnsDisp = dispinterface
  11828.     ['{00020973-0000-0000-C000-000000000046}']
  11829.     property _NewEnum: IUnknown readonly dispid -4;
  11830.     property Count: Integer readonly dispid 2;
  11831.     property Application: WordApplication readonly dispid 1000;
  11832.     property Creator: Integer readonly dispid 1001;
  11833.     property Parent: IDispatch readonly dispid 1002;
  11834.     property EvenlySpaced: Integer dispid 100;
  11835.     property LineBetween: Integer dispid 101;
  11836.     property Width: Single dispid 102;
  11837.     property Spacing: Single dispid 103;
  11838.     function  Item(Index: Integer): TextColumn; dispid 0;
  11839.     function  Add(var Width: OleVariant; var Spacing: OleVariant; var EvenlySpaced: OleVariant): TextColumn; dispid 201;
  11840.     procedure SetCount(NumColumns: Integer); dispid 202;
  11841.   end;
  11842.  
  11843. // *********************************************************************//
  11844. // Interface: TextColumn
  11845. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11846. // GUID:      {00020974-0000-0000-C000-000000000046}
  11847. // *********************************************************************//
  11848.   TextColumn = interface(IDispatch)
  11849.     ['{00020974-0000-0000-C000-000000000046}']
  11850.     function  Get_Application: WordApplication; safecall;
  11851.     function  Get_Creator: Integer; safecall;
  11852.     function  Get_Parent: IDispatch; safecall;
  11853.     function  Get_Width: Single; safecall;
  11854.     procedure Set_Width(prop: Single); safecall;
  11855.     function  Get_SpaceAfter: Single; safecall;
  11856.     procedure Set_SpaceAfter(prop: Single); safecall;
  11857.     property Application: WordApplication read Get_Application;
  11858.     property Creator: Integer read Get_Creator;
  11859.     property Parent: IDispatch read Get_Parent;
  11860.     property Width: Single read Get_Width write Set_Width;
  11861.     property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
  11862.   end;
  11863.  
  11864. // *********************************************************************//
  11865. // DispIntf:  TextColumnDisp
  11866. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11867. // GUID:      {00020974-0000-0000-C000-000000000046}
  11868. // *********************************************************************//
  11869.   TextColumnDisp = dispinterface
  11870.     ['{00020974-0000-0000-C000-000000000046}']
  11871.     property Application: WordApplication readonly dispid 1000;
  11872.     property Creator: Integer readonly dispid 1001;
  11873.     property Parent: IDispatch readonly dispid 1002;
  11874.     property Width: Single dispid 100;
  11875.     property SpaceAfter: Single dispid 101;
  11876.   end;
  11877.  
  11878. // *********************************************************************//
  11879. // Interface: Selection
  11880. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  11881. // GUID:      {00020975-0000-0000-C000-000000000046}
  11882. // *********************************************************************//
  11883.   Selection = interface(IDispatch)
  11884.     ['{00020975-0000-0000-C000-000000000046}']
  11885.     function  Get_Text: WideString; safecall;
  11886.     procedure Set_Text(const prop: WideString); safecall;
  11887.     function  Get_FormattedText: Range; safecall;
  11888.     procedure Set_FormattedText(const prop: Range); safecall;
  11889.     function  Get_Start: Integer; safecall;
  11890.     procedure Set_Start(prop: Integer); safecall;
  11891.     function  Get_End_: Integer; safecall;
  11892.     procedure Set_End_(prop: Integer); safecall;
  11893.     function  Get_Font: WordFont; safecall;
  11894.     procedure Set_Font(const prop: WordFont); safecall;
  11895.     function  Get_Type_: WdSelectionType; safecall;
  11896.     function  Get_StoryType: WdStoryType; safecall;
  11897.     function  Get_Style: OleVariant; safecall;
  11898.     procedure Set_Style(var prop: OleVariant); safecall;
  11899.     function  Get_Tables: Tables; safecall;
  11900.     function  Get_Words: Words; safecall;
  11901.     function  Get_Sentences: Sentences; safecall;
  11902.     function  Get_Characters: Characters; safecall;
  11903.     function  Get_Footnotes: Footnotes; safecall;
  11904.     function  Get_Endnotes: Endnotes; safecall;
  11905.     function  Get_Comments: Comments; safecall;
  11906.     function  Get_Cells: Cells; safecall;
  11907.     function  Get_Sections: Sections; safecall;
  11908.     function  Get_Paragraphs: Paragraphs; safecall;
  11909.     function  Get_Borders: Borders; safecall;
  11910.     procedure Set_Borders(const prop: Borders); safecall;
  11911.     function  Get_Shading: Shading; safecall;
  11912.     function  Get_Fields: Fields; safecall;
  11913.     function  Get_FormFields: FormFields; safecall;
  11914.     function  Get_Frames: Frames; safecall;
  11915.     function  Get_ParagraphFormat: WordParagraphFormat; safecall;
  11916.     procedure Set_ParagraphFormat(const prop: WordParagraphFormat); safecall;
  11917.     function  Get_PageSetup: PageSetup; safecall;
  11918.     procedure Set_PageSetup(const prop: PageSetup); safecall;
  11919.     function  Get_Bookmarks: Bookmarks; safecall;
  11920.     function  Get_StoryLength: Integer; safecall;
  11921.     function  Get_LanguageID: WdLanguageID; safecall;
  11922.     procedure Set_LanguageID(prop: WdLanguageID); safecall;
  11923.     function  Get_LanguageIDFarEast: WdLanguageID; safecall;
  11924.     procedure Set_LanguageIDFarEast(prop: WdLanguageID); safecall;
  11925.     function  Get_LanguageIDOther: WdLanguageID; safecall;
  11926.     procedure Set_LanguageIDOther(prop: WdLanguageID); safecall;
  11927.     function  Get_Hyperlinks: Hyperlinks; safecall;
  11928.     function  Get_Columns: Columns; safecall;
  11929.     function  Get_Rows: Rows; safecall;
  11930.     function  Get_HeaderFooter: HeaderFooter; safecall;
  11931.     function  Get_IsEndOfRowMark: WordBool; safecall;
  11932.     function  Get_BookmarkID: Integer; safecall;
  11933.     function  Get_PreviousBookmarkID: Integer; safecall;
  11934.     function  Get_Find: Find; safecall;
  11935.     function  Get_Range: Range; safecall;
  11936.     function  Get_Information(Type_: WdInformation): OleVariant; safecall;
  11937.     function  Get_Flags: WdSelectionFlags; safecall;
  11938.     procedure Set_Flags(prop: WdSelectionFlags); safecall;
  11939.     function  Get_Active: WordBool; safecall;
  11940.     function  Get_StartIsActive: WordBool; safecall;
  11941.     procedure Set_StartIsActive(prop: WordBool); safecall;
  11942.     function  Get_IPAtEndOfLine: WordBool; safecall;
  11943.     function  Get_ExtendMode: WordBool; safecall;
  11944.     procedure Set_ExtendMode(prop: WordBool); safecall;
  11945.     function  Get_ColumnSelectMode: WordBool; safecall;
  11946.     procedure Set_ColumnSelectMode(prop: WordBool); safecall;
  11947.     function  Get_Orientation: WdTextOrientation; safecall;
  11948.     procedure Set_Orientation(prop: WdTextOrientation); safecall;
  11949.     function  Get_InlineShapes: InlineShapes; safecall;
  11950.     function  Get_Application: WordApplication; safecall;
  11951.     function  Get_Creator: Integer; safecall;
  11952.     function  Get_Parent: IDispatch; safecall;
  11953.     function  Get_Document: WordDocument; safecall;
  11954.     function  Get_ShapeRange: ShapeRange; safecall;
  11955.     procedure Select; safecall;
  11956.     procedure SetRange(Start: Integer; End_: Integer); safecall;
  11957.     procedure Collapse(var Direction: OleVariant); safecall;
  11958.     procedure InsertBefore(const Text: WideString); safecall;
  11959.     procedure InsertAfter(const Text: WideString); safecall;
  11960.     function  Next(var Unit_: OleVariant; var Count: OleVariant): Range; safecall;
  11961.     function  Previous(var Unit_: OleVariant; var Count: OleVariant): Range; safecall;
  11962.     function  StartOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; safecall;
  11963.     function  EndOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; safecall;
  11964.     function  Move(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
  11965.     function  MoveStart(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
  11966.     function  MoveEnd(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
  11967.     function  MoveWhile(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
  11968.     function  MoveStartWhile(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
  11969.     function  MoveEndWhile(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
  11970.     function  MoveUntil(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
  11971.     function  MoveStartUntil(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
  11972.     function  MoveEndUntil(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
  11973.     procedure Cut; safecall;
  11974.     procedure Copy; safecall;
  11975.     procedure Paste; safecall;
  11976.     procedure InsertBreak(var Type_: OleVariant); safecall;
  11977.     procedure InsertFile(const FileName: WideString; var Range: OleVariant; 
  11978.                          var ConfirmConversions: OleVariant; var Link: OleVariant; 
  11979.                          var Attachment: OleVariant); safecall;
  11980.     function  InStory(const Range: Range): WordBool; safecall;
  11981.     function  InRange(const Range: Range): WordBool; safecall;
  11982.     function  Delete(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
  11983.     function  Expand(var Unit_: OleVariant): Integer; safecall;
  11984.     procedure InsertParagraph; safecall;
  11985.     procedure InsertParagraphAfter; safecall;
  11986.     function  ConvertToTable(var Separator: OleVariant; var NumRows: OleVariant; 
  11987.                              var NumColumns: OleVariant; var InitialColumnWidth: OleVariant; 
  11988.                              var Format: OleVariant; var ApplyBorders: OleVariant; 
  11989.                              var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
  11990.                              var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
  11991.                              var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
  11992.                              var ApplyLastColumn: OleVariant; var AutoFit: OleVariant): Table; safecall;
  11993.     procedure InsertDateTime(var DateTimeFormat: OleVariant; var InsertAsField: OleVariant; 
  11994.                              var InsertAsFullWidth: OleVariant); safecall;
  11995.     procedure InsertSymbol(CharacterNumber: Integer; var Font: OleVariant; var Unicode: OleVariant; 
  11996.                            var Bias: OleVariant); safecall;
  11997.     procedure InsertCrossReference(var ReferenceType: OleVariant; ReferenceKind: WdReferenceKind; 
  11998.                                    var ReferenceItem: OleVariant; 
  11999.                                    var InsertAsHyperlink: OleVariant; 
  12000.                                    var IncludePosition: OleVariant); safecall;
  12001.     procedure InsertCaption(var Label_: OleVariant; var Title: OleVariant; 
  12002.                             var TitleAutoText: OleVariant; var Position: OleVariant); safecall;
  12003.     procedure CopyAsPicture; safecall;
  12004.     procedure Sort(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
  12005.                    var SortFieldType: OleVariant; var SortOrder: OleVariant; 
  12006.                    var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
  12007.                    var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
  12008.                    var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
  12009.                    var SortColumn: OleVariant; var Separator: OleVariant; 
  12010.                    var CaseSensitive: OleVariant; var LanguageID: OleVariant); safecall;
  12011.     procedure SortAscending; safecall;
  12012.     procedure SortDescending; safecall;
  12013.     function  IsEqual(const Range: Range): WordBool; safecall;
  12014.     function  Calculate: Single; safecall;
  12015.     function  GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
  12016.                     var Name: OleVariant): Range; safecall;
  12017.     function  GoToNext(What: WdGoToItem): Range; safecall;
  12018.     function  GoToPrevious(What: WdGoToItem): Range; safecall;
  12019.     procedure PasteSpecial(var IconIndex: OleVariant; var Link: OleVariant; 
  12020.                            var Placement: OleVariant; var DisplayAsIcon: OleVariant; 
  12021.                            var DataType: OleVariant; var IconFileName: OleVariant; 
  12022.                            var IconLabel: OleVariant); safecall;
  12023.     function  PreviousField: Field; safecall;
  12024.     function  NextField: Field; safecall;
  12025.     procedure InsertParagraphBefore; safecall;
  12026.     procedure InsertCells(var ShiftCells: OleVariant); safecall;
  12027.     procedure Extend(var Character: OleVariant); safecall;
  12028.     procedure Shrink; safecall;
  12029.     function  MoveLeft(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; safecall;
  12030.     function  MoveRight(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; safecall;
  12031.     function  MoveUp(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; safecall;
  12032.     function  MoveDown(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; safecall;
  12033.     function  HomeKey(var Unit_: OleVariant; var Extend: OleVariant): Integer; safecall;
  12034.     function  EndKey(var Unit_: OleVariant; var Extend: OleVariant): Integer; safecall;
  12035.     procedure EscapeKey; safecall;
  12036.     procedure TypeText(const Text: WideString); safecall;
  12037.     procedure CopyFormat; safecall;
  12038.     procedure PasteFormat; safecall;
  12039.     procedure TypeParagraph; safecall;
  12040.     procedure TypeBackspace; safecall;
  12041.     procedure NextSubdocument; safecall;
  12042.     procedure PreviousSubdocument; safecall;
  12043.     procedure SelectColumn; safecall;
  12044.     procedure SelectCurrentFont; safecall;
  12045.     procedure SelectCurrentAlignment; safecall;
  12046.     procedure SelectCurrentSpacing; safecall;
  12047.     procedure SelectCurrentIndent; safecall;
  12048.     procedure SelectCurrentTabs; safecall;
  12049.     procedure SelectCurrentColor; safecall;
  12050.     procedure CreateTextbox; safecall;
  12051.     procedure WholeStory; safecall;
  12052.     procedure SelectRow; safecall;
  12053.     procedure SplitTable; safecall;
  12054.     procedure InsertRows(var NumRows: OleVariant); safecall;
  12055.     procedure InsertColumns; safecall;
  12056.     procedure InsertFormula(var Formula: OleVariant; var NumberFormat: OleVariant); safecall;
  12057.     function  NextRevision(var Wrap: OleVariant): Revision; safecall;
  12058.     function  PreviousRevision(var Wrap: OleVariant): Revision; safecall;
  12059.     property Text: WideString read Get_Text write Set_Text;
  12060.     property FormattedText: Range read Get_FormattedText write Set_FormattedText;
  12061.     property Start: Integer read Get_Start write Set_Start;
  12062.     property End_: Integer read Get_End_ write Set_End_;
  12063.     property Font: WordFont read Get_Font write Set_Font;
  12064.     property Type_: WdSelectionType read Get_Type_;
  12065.     property StoryType: WdStoryType read Get_StoryType;
  12066.     property Tables: Tables read Get_Tables;
  12067.     property Words: Words read Get_Words;
  12068.     property Sentences: Sentences read Get_Sentences;
  12069.     property Characters: Characters read Get_Characters;
  12070.     property Footnotes: Footnotes read Get_Footnotes;
  12071.     property Endnotes: Endnotes read Get_Endnotes;
  12072.     property Comments: Comments read Get_Comments;
  12073.     property Cells: Cells read Get_Cells;
  12074.     property Sections: Sections read Get_Sections;
  12075.     property Paragraphs: Paragraphs read Get_Paragraphs;
  12076.     property Borders: Borders read Get_Borders write Set_Borders;
  12077.     property Shading: Shading read Get_Shading;
  12078.     property Fields: Fields read Get_Fields;
  12079.     property FormFields: FormFields read Get_FormFields;
  12080.     property Frames: Frames read Get_Frames;
  12081.     property ParagraphFormat: WordParagraphFormat read Get_ParagraphFormat write Set_ParagraphFormat;
  12082.     property PageSetup: PageSetup read Get_PageSetup write Set_PageSetup;
  12083.     property Bookmarks: Bookmarks read Get_Bookmarks;
  12084.     property StoryLength: Integer read Get_StoryLength;
  12085.     property LanguageID: WdLanguageID read Get_LanguageID write Set_LanguageID;
  12086.     property LanguageIDFarEast: WdLanguageID read Get_LanguageIDFarEast write Set_LanguageIDFarEast;
  12087.     property LanguageIDOther: WdLanguageID read Get_LanguageIDOther write Set_LanguageIDOther;
  12088.     property Hyperlinks: Hyperlinks read Get_Hyperlinks;
  12089.     property Columns: Columns read Get_Columns;
  12090.     property Rows: Rows read Get_Rows;
  12091.     property HeaderFooter: HeaderFooter read Get_HeaderFooter;
  12092.     property IsEndOfRowMark: WordBool read Get_IsEndOfRowMark;
  12093.     property BookmarkID: Integer read Get_BookmarkID;
  12094.     property PreviousBookmarkID: Integer read Get_PreviousBookmarkID;
  12095.     property Find: Find read Get_Find;
  12096.     property Range: Range read Get_Range;
  12097.     property Information[Type_: WdInformation]: OleVariant read Get_Information;
  12098.     property Flags: WdSelectionFlags read Get_Flags write Set_Flags;
  12099.     property Active: WordBool read Get_Active;
  12100.     property StartIsActive: WordBool read Get_StartIsActive write Set_StartIsActive;
  12101.     property IPAtEndOfLine: WordBool read Get_IPAtEndOfLine;
  12102.     property ExtendMode: WordBool read Get_ExtendMode write Set_ExtendMode;
  12103.     property ColumnSelectMode: WordBool read Get_ColumnSelectMode write Set_ColumnSelectMode;
  12104.     property Orientation: WdTextOrientation read Get_Orientation write Set_Orientation;
  12105.     property InlineShapes: InlineShapes read Get_InlineShapes;
  12106.     property Application: WordApplication read Get_Application;
  12107.     property Creator: Integer read Get_Creator;
  12108.     property Parent: IDispatch read Get_Parent;
  12109.     property Document: WordDocument read Get_Document;
  12110.     property ShapeRange: ShapeRange read Get_ShapeRange;
  12111.   end;
  12112.  
  12113. // *********************************************************************//
  12114. // DispIntf:  SelectionDisp
  12115. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12116. // GUID:      {00020975-0000-0000-C000-000000000046}
  12117. // *********************************************************************//
  12118.   SelectionDisp = dispinterface
  12119.     ['{00020975-0000-0000-C000-000000000046}']
  12120.     property Text: WideString dispid 0;
  12121.     property FormattedText: Range dispid 2;
  12122.     property Start: Integer dispid 3;
  12123.     property End_: Integer dispid 4;
  12124.     property Font: WordFont dispid 5;
  12125.     property Type_: WdSelectionType readonly dispid 6;
  12126.     property StoryType: WdStoryType readonly dispid 7;
  12127.     function  Style: OleVariant; dispid 8;
  12128.     property Tables: Tables readonly dispid 50;
  12129.     property Words: Words readonly dispid 51;
  12130.     property Sentences: Sentences readonly dispid 52;
  12131.     property Characters: Characters readonly dispid 53;
  12132.     property Footnotes: Footnotes readonly dispid 54;
  12133.     property Endnotes: Endnotes readonly dispid 55;
  12134.     property Comments: Comments readonly dispid 56;
  12135.     property Cells: Cells readonly dispid 57;
  12136.     property Sections: Sections readonly dispid 58;
  12137.     property Paragraphs: Paragraphs readonly dispid 59;
  12138.     property Borders: Borders dispid 1100;
  12139.     property Shading: Shading readonly dispid 61;
  12140.     property Fields: Fields readonly dispid 64;
  12141.     property FormFields: FormFields readonly dispid 65;
  12142.     property Frames: Frames readonly dispid 66;
  12143.     property ParagraphFormat: WordParagraphFormat dispid 1102;
  12144.     property PageSetup: PageSetup dispid 1101;
  12145.     property Bookmarks: Bookmarks readonly dispid 75;
  12146.     property StoryLength: Integer readonly dispid 152;
  12147.     property LanguageID: WdLanguageID dispid 153;
  12148.     property LanguageIDFarEast: WdLanguageID dispid 154;
  12149.     property LanguageIDOther: WdLanguageID dispid 155;
  12150.     property Hyperlinks: Hyperlinks readonly dispid 156;
  12151.     property Columns: Columns readonly dispid 302;
  12152.     property Rows: Rows readonly dispid 303;
  12153.     property HeaderFooter: HeaderFooter readonly dispid 306;
  12154.     property IsEndOfRowMark: WordBool readonly dispid 307;
  12155.     property BookmarkID: Integer readonly dispid 308;
  12156.     property PreviousBookmarkID: Integer readonly dispid 309;
  12157.     property Find: Find readonly dispid 262;
  12158.     property Range: Range readonly dispid 400;
  12159.     property Information[Type_: WdInformation]: OleVariant readonly dispid 401;
  12160.     property Flags: WdSelectionFlags dispid 402;
  12161.     property Active: WordBool readonly dispid 403;
  12162.     property StartIsActive: WordBool dispid 404;
  12163.     property IPAtEndOfLine: WordBool readonly dispid 405;
  12164.     property ExtendMode: WordBool dispid 406;
  12165.     property ColumnSelectMode: WordBool dispid 407;
  12166.     property Orientation: WdTextOrientation dispid 410;
  12167.     property InlineShapes: InlineShapes readonly dispid 411;
  12168.     property Application: WordApplication readonly dispid 1000;
  12169.     property Creator: Integer readonly dispid 1001;
  12170.     property Parent: IDispatch readonly dispid 1002;
  12171.     property Document: WordDocument readonly dispid 1003;
  12172.     property ShapeRange: ShapeRange readonly dispid 1004;
  12173.     procedure Select; dispid 65535;
  12174.     procedure SetRange(Start: Integer; End_: Integer); dispid 100;
  12175.     procedure Collapse(var Direction: OleVariant); dispid 101;
  12176.     procedure InsertBefore(const Text: WideString); dispid 102;
  12177.     procedure InsertAfter(const Text: WideString); dispid 104;
  12178.     function  Next(var Unit_: OleVariant; var Count: OleVariant): Range; dispid 105;
  12179.     function  Previous(var Unit_: OleVariant; var Count: OleVariant): Range; dispid 106;
  12180.     function  StartOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; dispid 107;
  12181.     function  EndOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; dispid 108;
  12182.     function  Move(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 109;
  12183.     function  MoveStart(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 110;
  12184.     function  MoveEnd(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 111;
  12185.     function  MoveWhile(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 112;
  12186.     function  MoveStartWhile(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 113;
  12187.     function  MoveEndWhile(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 114;
  12188.     function  MoveUntil(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 115;
  12189.     function  MoveStartUntil(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 116;
  12190.     function  MoveEndUntil(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 117;
  12191.     procedure Cut; dispid 119;
  12192.     procedure Copy; dispid 120;
  12193.     procedure Paste; dispid 121;
  12194.     procedure InsertBreak(var Type_: OleVariant); dispid 122;
  12195.     procedure InsertFile(const FileName: WideString; var Range: OleVariant; 
  12196.                          var ConfirmConversions: OleVariant; var Link: OleVariant; 
  12197.                          var Attachment: OleVariant); dispid 123;
  12198.     function  InStory(const Range: Range): WordBool; dispid 125;
  12199.     function  InRange(const Range: Range): WordBool; dispid 126;
  12200.     function  Delete(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 127;
  12201.     function  Expand(var Unit_: OleVariant): Integer; dispid 129;
  12202.     procedure InsertParagraph; dispid 160;
  12203.     procedure InsertParagraphAfter; dispid 161;
  12204.     function  ConvertToTable(var Separator: OleVariant; var NumRows: OleVariant; 
  12205.                              var NumColumns: OleVariant; var InitialColumnWidth: OleVariant; 
  12206.                              var Format: OleVariant; var ApplyBorders: OleVariant; 
  12207.                              var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
  12208.                              var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
  12209.                              var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
  12210.                              var ApplyLastColumn: OleVariant; var AutoFit: OleVariant): Table; dispid 162;
  12211.     procedure InsertDateTime(var DateTimeFormat: OleVariant; var InsertAsField: OleVariant; 
  12212.                              var InsertAsFullWidth: OleVariant); dispid 163;
  12213.     procedure InsertSymbol(CharacterNumber: Integer; var Font: OleVariant; var Unicode: OleVariant; 
  12214.                            var Bias: OleVariant); dispid 164;
  12215.     procedure InsertCrossReference(var ReferenceType: OleVariant; ReferenceKind: WdReferenceKind; 
  12216.                                    var ReferenceItem: OleVariant; 
  12217.                                    var InsertAsHyperlink: OleVariant; 
  12218.                                    var IncludePosition: OleVariant); dispid 165;
  12219.     procedure InsertCaption(var Label_: OleVariant; var Title: OleVariant; 
  12220.                             var TitleAutoText: OleVariant; var Position: OleVariant); dispid 166;
  12221.     procedure CopyAsPicture; dispid 167;
  12222.     procedure Sort(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
  12223.                    var SortFieldType: OleVariant; var SortOrder: OleVariant; 
  12224.                    var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
  12225.                    var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
  12226.                    var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
  12227.                    var SortColumn: OleVariant; var Separator: OleVariant; 
  12228.                    var CaseSensitive: OleVariant; var LanguageID: OleVariant); dispid 168;
  12229.     procedure SortAscending; dispid 169;
  12230.     procedure SortDescending; dispid 170;
  12231.     function  IsEqual(const Range: Range): WordBool; dispid 171;
  12232.     function  Calculate: Single; dispid 172;
  12233.     function  GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
  12234.                     var Name: OleVariant): Range; dispid 173;
  12235.     function  GoToNext(What: WdGoToItem): Range; dispid 174;
  12236.     function  GoToPrevious(What: WdGoToItem): Range; dispid 175;
  12237.     procedure PasteSpecial(var IconIndex: OleVariant; var Link: OleVariant; 
  12238.                            var Placement: OleVariant; var DisplayAsIcon: OleVariant; 
  12239.                            var DataType: OleVariant; var IconFileName: OleVariant; 
  12240.                            var IconLabel: OleVariant); dispid 176;
  12241.     function  PreviousField: Field; dispid 177;
  12242.     function  NextField: Field; dispid 178;
  12243.     procedure InsertParagraphBefore; dispid 212;
  12244.     procedure InsertCells(var ShiftCells: OleVariant); dispid 214;
  12245.     procedure Extend(var Character: OleVariant); dispid 300;
  12246.     procedure Shrink; dispid 301;
  12247.     function  MoveLeft(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; dispid 500;
  12248.     function  MoveRight(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; dispid 501;
  12249.     function  MoveUp(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; dispid 502;
  12250.     function  MoveDown(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; dispid 503;
  12251.     function  HomeKey(var Unit_: OleVariant; var Extend: OleVariant): Integer; dispid 504;
  12252.     function  EndKey(var Unit_: OleVariant; var Extend: OleVariant): Integer; dispid 505;
  12253.     procedure EscapeKey; dispid 506;
  12254.     procedure TypeText(const Text: WideString); dispid 507;
  12255.     procedure CopyFormat; dispid 509;
  12256.     procedure PasteFormat; dispid 510;
  12257.     procedure TypeParagraph; dispid 512;
  12258.     procedure TypeBackspace; dispid 513;
  12259.     procedure NextSubdocument; dispid 514;
  12260.     procedure PreviousSubdocument; dispid 515;
  12261.     procedure SelectColumn; dispid 516;
  12262.     procedure SelectCurrentFont; dispid 517;
  12263.     procedure SelectCurrentAlignment; dispid 518;
  12264.     procedure SelectCurrentSpacing; dispid 519;
  12265.     procedure SelectCurrentIndent; dispid 520;
  12266.     procedure SelectCurrentTabs; dispid 521;
  12267.     procedure SelectCurrentColor; dispid 522;
  12268.     procedure CreateTextbox; dispid 523;
  12269.     procedure WholeStory; dispid 524;
  12270.     procedure SelectRow; dispid 525;
  12271.     procedure SplitTable; dispid 526;
  12272.     procedure InsertRows(var NumRows: OleVariant); dispid 528;
  12273.     procedure InsertColumns; dispid 529;
  12274.     procedure InsertFormula(var Formula: OleVariant; var NumberFormat: OleVariant); dispid 530;
  12275.     function  NextRevision(var Wrap: OleVariant): Revision; dispid 531;
  12276.     function  PreviousRevision(var Wrap: OleVariant): Revision; dispid 532;
  12277.   end;
  12278.  
  12279. // *********************************************************************//
  12280. // Interface: TablesOfAuthoritiesCategories
  12281. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12282. // GUID:      {00020976-0000-0000-C000-000000000046}
  12283. // *********************************************************************//
  12284.   TablesOfAuthoritiesCategories = interface(IDispatch)
  12285.     ['{00020976-0000-0000-C000-000000000046}']
  12286.     function  Get_Application: WordApplication; safecall;
  12287.     function  Get_Creator: Integer; safecall;
  12288.     function  Get_Parent: IDispatch; safecall;
  12289.     function  Get__NewEnum: IUnknown; safecall;
  12290.     function  Get_Count: Integer; safecall;
  12291.     function  Item(var Index: OleVariant): TableOfAuthoritiesCategory; safecall;
  12292.     property Application: WordApplication read Get_Application;
  12293.     property Creator: Integer read Get_Creator;
  12294.     property Parent: IDispatch read Get_Parent;
  12295.     property _NewEnum: IUnknown read Get__NewEnum;
  12296.     property Count: Integer read Get_Count;
  12297.   end;
  12298.  
  12299. // *********************************************************************//
  12300. // DispIntf:  TablesOfAuthoritiesCategoriesDisp
  12301. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12302. // GUID:      {00020976-0000-0000-C000-000000000046}
  12303. // *********************************************************************//
  12304.   TablesOfAuthoritiesCategoriesDisp = dispinterface
  12305.     ['{00020976-0000-0000-C000-000000000046}']
  12306.     property Application: WordApplication readonly dispid 1000;
  12307.     property Creator: Integer readonly dispid 1001;
  12308.     property Parent: IDispatch readonly dispid 1002;
  12309.     property _NewEnum: IUnknown readonly dispid -4;
  12310.     property Count: Integer readonly dispid 1;
  12311.     function  Item(var Index: OleVariant): TableOfAuthoritiesCategory; dispid 0;
  12312.   end;
  12313.  
  12314. // *********************************************************************//
  12315. // Interface: TableOfAuthoritiesCategory
  12316. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12317. // GUID:      {00020977-0000-0000-C000-000000000046}
  12318. // *********************************************************************//
  12319.   TableOfAuthoritiesCategory = interface(IDispatch)
  12320.     ['{00020977-0000-0000-C000-000000000046}']
  12321.     function  Get_Application: WordApplication; safecall;
  12322.     function  Get_Creator: Integer; safecall;
  12323.     function  Get_Parent: IDispatch; safecall;
  12324.     function  Get_Name: WideString; safecall;
  12325.     procedure Set_Name(const prop: WideString); safecall;
  12326.     function  Get_Index: Integer; safecall;
  12327.     property Application: WordApplication read Get_Application;
  12328.     property Creator: Integer read Get_Creator;
  12329.     property Parent: IDispatch read Get_Parent;
  12330.     property Name: WideString read Get_Name write Set_Name;
  12331.     property Index: Integer read Get_Index;
  12332.   end;
  12333.  
  12334. // *********************************************************************//
  12335. // DispIntf:  TableOfAuthoritiesCategoryDisp
  12336. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12337. // GUID:      {00020977-0000-0000-C000-000000000046}
  12338. // *********************************************************************//
  12339.   TableOfAuthoritiesCategoryDisp = dispinterface
  12340.     ['{00020977-0000-0000-C000-000000000046}']
  12341.     property Application: WordApplication readonly dispid 1000;
  12342.     property Creator: Integer readonly dispid 1001;
  12343.     property Parent: IDispatch readonly dispid 1002;
  12344.     property Name: WideString dispid 0;
  12345.     property Index: Integer readonly dispid 1;
  12346.   end;
  12347.  
  12348. // *********************************************************************//
  12349. // Interface: CaptionLabels
  12350. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12351. // GUID:      {00020978-0000-0000-C000-000000000046}
  12352. // *********************************************************************//
  12353.   CaptionLabels = interface(IDispatch)
  12354.     ['{00020978-0000-0000-C000-000000000046}']
  12355.     function  Get_Application: WordApplication; safecall;
  12356.     function  Get_Creator: Integer; safecall;
  12357.     function  Get_Parent: IDispatch; safecall;
  12358.     function  Get__NewEnum: IUnknown; safecall;
  12359.     function  Get_Count: Integer; safecall;
  12360.     function  Item(var Index: OleVariant): CaptionLabel; safecall;
  12361.     function  Add(const Name: WideString): CaptionLabel; safecall;
  12362.     property Application: WordApplication read Get_Application;
  12363.     property Creator: Integer read Get_Creator;
  12364.     property Parent: IDispatch read Get_Parent;
  12365.     property _NewEnum: IUnknown read Get__NewEnum;
  12366.     property Count: Integer read Get_Count;
  12367.   end;
  12368.  
  12369. // *********************************************************************//
  12370. // DispIntf:  CaptionLabelsDisp
  12371. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12372. // GUID:      {00020978-0000-0000-C000-000000000046}
  12373. // *********************************************************************//
  12374.   CaptionLabelsDisp = dispinterface
  12375.     ['{00020978-0000-0000-C000-000000000046}']
  12376.     property Application: WordApplication readonly dispid 1000;
  12377.     property Creator: Integer readonly dispid 1001;
  12378.     property Parent: IDispatch readonly dispid 1002;
  12379.     property _NewEnum: IUnknown readonly dispid -4;
  12380.     property Count: Integer readonly dispid 1;
  12381.     function  Item(var Index: OleVariant): CaptionLabel; dispid 0;
  12382.     function  Add(const Name: WideString): CaptionLabel; dispid 100;
  12383.   end;
  12384.  
  12385. // *********************************************************************//
  12386. // Interface: CaptionLabel
  12387. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12388. // GUID:      {00020979-0000-0000-C000-000000000046}
  12389. // *********************************************************************//
  12390.   CaptionLabel = interface(IDispatch)
  12391.     ['{00020979-0000-0000-C000-000000000046}']
  12392.     function  Get_Application: WordApplication; safecall;
  12393.     function  Get_Creator: Integer; safecall;
  12394.     function  Get_Parent: IDispatch; safecall;
  12395.     function  Get_Name: WideString; safecall;
  12396.     function  Get_BuiltIn: WordBool; safecall;
  12397.     function  Get_ID: WdCaptionLabelID; safecall;
  12398.     function  Get_IncludeChapterNumber: WordBool; safecall;
  12399.     procedure Set_IncludeChapterNumber(prop: WordBool); safecall;
  12400.     function  Get_NumberStyle: WdCaptionNumberStyle; safecall;
  12401.     procedure Set_NumberStyle(prop: WdCaptionNumberStyle); safecall;
  12402.     function  Get_ChapterStyleLevel: Integer; safecall;
  12403.     procedure Set_ChapterStyleLevel(prop: Integer); safecall;
  12404.     function  Get_Separator: WdSeparatorType; safecall;
  12405.     procedure Set_Separator(prop: WdSeparatorType); safecall;
  12406.     function  Get_Position: WdCaptionPosition; safecall;
  12407.     procedure Set_Position(prop: WdCaptionPosition); safecall;
  12408.     procedure Delete; safecall;
  12409.     property Application: WordApplication read Get_Application;
  12410.     property Creator: Integer read Get_Creator;
  12411.     property Parent: IDispatch read Get_Parent;
  12412.     property Name: WideString read Get_Name;
  12413.     property BuiltIn: WordBool read Get_BuiltIn;
  12414.     property ID: WdCaptionLabelID read Get_ID;
  12415.     property IncludeChapterNumber: WordBool read Get_IncludeChapterNumber write Set_IncludeChapterNumber;
  12416.     property NumberStyle: WdCaptionNumberStyle read Get_NumberStyle write Set_NumberStyle;
  12417.     property ChapterStyleLevel: Integer read Get_ChapterStyleLevel write Set_ChapterStyleLevel;
  12418.     property Separator: WdSeparatorType read Get_Separator write Set_Separator;
  12419.     property Position: WdCaptionPosition read Get_Position write Set_Position;
  12420.   end;
  12421.  
  12422. // *********************************************************************//
  12423. // DispIntf:  CaptionLabelDisp
  12424. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12425. // GUID:      {00020979-0000-0000-C000-000000000046}
  12426. // *********************************************************************//
  12427.   CaptionLabelDisp = dispinterface
  12428.     ['{00020979-0000-0000-C000-000000000046}']
  12429.     property Application: WordApplication readonly dispid 1000;
  12430.     property Creator: Integer readonly dispid 1001;
  12431.     property Parent: IDispatch readonly dispid 1002;
  12432.     property Name: WideString readonly dispid 0;
  12433.     property BuiltIn: WordBool readonly dispid 1;
  12434.     property ID: WdCaptionLabelID readonly dispid 2;
  12435.     property IncludeChapterNumber: WordBool dispid 3;
  12436.     property NumberStyle: WdCaptionNumberStyle dispid 4;
  12437.     property ChapterStyleLevel: Integer dispid 5;
  12438.     property Separator: WdSeparatorType dispid 6;
  12439.     property Position: WdCaptionPosition dispid 7;
  12440.     procedure Delete; dispid 100;
  12441.   end;
  12442.  
  12443. // *********************************************************************//
  12444. // Interface: AutoCaptions
  12445. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12446. // GUID:      {0002097A-0000-0000-C000-000000000046}
  12447. // *********************************************************************//
  12448.   AutoCaptions = interface(IDispatch)
  12449.     ['{0002097A-0000-0000-C000-000000000046}']
  12450.     function  Get_Application: WordApplication; safecall;
  12451.     function  Get_Creator: Integer; safecall;
  12452.     function  Get_Parent: IDispatch; safecall;
  12453.     function  Get__NewEnum: IUnknown; safecall;
  12454.     function  Get_Count: Integer; safecall;
  12455.     function  Item(var Index: OleVariant): AutoCaption; safecall;
  12456.     procedure CancelAutoInsert; safecall;
  12457.     property Application: WordApplication read Get_Application;
  12458.     property Creator: Integer read Get_Creator;
  12459.     property Parent: IDispatch read Get_Parent;
  12460.     property _NewEnum: IUnknown read Get__NewEnum;
  12461.     property Count: Integer read Get_Count;
  12462.   end;
  12463.  
  12464. // *********************************************************************//
  12465. // DispIntf:  AutoCaptionsDisp
  12466. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12467. // GUID:      {0002097A-0000-0000-C000-000000000046}
  12468. // *********************************************************************//
  12469.   AutoCaptionsDisp = dispinterface
  12470.     ['{0002097A-0000-0000-C000-000000000046}']
  12471.     property Application: WordApplication readonly dispid 1000;
  12472.     property Creator: Integer readonly dispid 1001;
  12473.     property Parent: IDispatch readonly dispid 1002;
  12474.     property _NewEnum: IUnknown readonly dispid -4;
  12475.     property Count: Integer readonly dispid 1;
  12476.     function  Item(var Index: OleVariant): AutoCaption; dispid 0;
  12477.     procedure CancelAutoInsert; dispid 100;
  12478.   end;
  12479.  
  12480. // *********************************************************************//
  12481. // Interface: AutoCaption
  12482. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12483. // GUID:      {0002097B-0000-0000-C000-000000000046}
  12484. // *********************************************************************//
  12485.   AutoCaption = interface(IDispatch)
  12486.     ['{0002097B-0000-0000-C000-000000000046}']
  12487.     function  Get_Application: WordApplication; safecall;
  12488.     function  Get_Creator: Integer; safecall;
  12489.     function  Get_Parent: IDispatch; safecall;
  12490.     function  Get_Name: WideString; safecall;
  12491.     function  Get_AutoInsert: WordBool; safecall;
  12492.     procedure Set_AutoInsert(prop: WordBool); safecall;
  12493.     function  Get_Index: Integer; safecall;
  12494.     function  Get_CaptionLabel: OleVariant; safecall;
  12495.     procedure Set_CaptionLabel(var prop: OleVariant); safecall;
  12496.     property Application: WordApplication read Get_Application;
  12497.     property Creator: Integer read Get_Creator;
  12498.     property Parent: IDispatch read Get_Parent;
  12499.     property Name: WideString read Get_Name;
  12500.     property AutoInsert: WordBool read Get_AutoInsert write Set_AutoInsert;
  12501.     property Index: Integer read Get_Index;
  12502.   end;
  12503.  
  12504. // *********************************************************************//
  12505. // DispIntf:  AutoCaptionDisp
  12506. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12507. // GUID:      {0002097B-0000-0000-C000-000000000046}
  12508. // *********************************************************************//
  12509.   AutoCaptionDisp = dispinterface
  12510.     ['{0002097B-0000-0000-C000-000000000046}']
  12511.     property Application: WordApplication readonly dispid 1000;
  12512.     property Creator: Integer readonly dispid 1001;
  12513.     property Parent: IDispatch readonly dispid 1002;
  12514.     property Name: WideString readonly dispid 0;
  12515.     property AutoInsert: WordBool dispid 1;
  12516.     property Index: Integer readonly dispid 2;
  12517.     function  CaptionLabel: OleVariant; dispid 3;
  12518.   end;
  12519.  
  12520. // *********************************************************************//
  12521. // Interface: Indexes
  12522. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12523. // GUID:      {0002097C-0000-0000-C000-000000000046}
  12524. // *********************************************************************//
  12525.   Indexes = interface(IDispatch)
  12526.     ['{0002097C-0000-0000-C000-000000000046}']
  12527.     function  Get_Application: WordApplication; safecall;
  12528.     function  Get_Creator: Integer; safecall;
  12529.     function  Get_Parent: IDispatch; safecall;
  12530.     function  Get__NewEnum: IUnknown; safecall;
  12531.     function  Get_Count: Integer; safecall;
  12532.     function  Get_Format: WdIndexFormat; safecall;
  12533.     procedure Set_Format(prop: WdIndexFormat); safecall;
  12534.     function  Item(Index: Integer): Index; safecall;
  12535.     function  Add(const Range: Range; var HeadingSeparator: OleVariant; 
  12536.                   var RightAlignPageNumbers: OleVariant; var Type_: OleVariant; 
  12537.                   var NumberOfColumns: OleVariant; var AccentedLetters: OleVariant): Index; safecall;
  12538.     function  MarkEntry(const Range: Range; var Entry: OleVariant; var EntryAutoText: OleVariant; 
  12539.                         var CrossReference: OleVariant; var CrossReferenceAutoText: OleVariant; 
  12540.                         var BookmarkName: OleVariant; var Bold: OleVariant; var Italic: OleVariant; 
  12541.                         var Reading: OleVariant): Field; safecall;
  12542.     procedure MarkAllEntries(const Range: Range; var Entry: OleVariant; 
  12543.                              var EntryAutoText: OleVariant; var CrossReference: OleVariant; 
  12544.                              var CrossReferenceAutoText: OleVariant; var BookmarkName: OleVariant; 
  12545.                              var Bold: OleVariant; var Italic: OleVariant); safecall;
  12546.     procedure AutoMarkEntries(const ConcordanceFileName: WideString); safecall;
  12547.     property Application: WordApplication read Get_Application;
  12548.     property Creator: Integer read Get_Creator;
  12549.     property Parent: IDispatch read Get_Parent;
  12550.     property _NewEnum: IUnknown read Get__NewEnum;
  12551.     property Count: Integer read Get_Count;
  12552.     property Format: WdIndexFormat read Get_Format write Set_Format;
  12553.   end;
  12554.  
  12555. // *********************************************************************//
  12556. // DispIntf:  IndexesDisp
  12557. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12558. // GUID:      {0002097C-0000-0000-C000-000000000046}
  12559. // *********************************************************************//
  12560.   IndexesDisp = dispinterface
  12561.     ['{0002097C-0000-0000-C000-000000000046}']
  12562.     property Application: WordApplication readonly dispid 1000;
  12563.     property Creator: Integer readonly dispid 1001;
  12564.     property Parent: IDispatch readonly dispid 1002;
  12565.     property _NewEnum: IUnknown readonly dispid -4;
  12566.     property Count: Integer readonly dispid 1;
  12567.     property Format: WdIndexFormat dispid 2;
  12568.     function  Item(Index: Integer): Index; dispid 0;
  12569.     function  Add(const Range: Range; var HeadingSeparator: OleVariant; 
  12570.                   var RightAlignPageNumbers: OleVariant; var Type_: OleVariant; 
  12571.                   var NumberOfColumns: OleVariant; var AccentedLetters: OleVariant): Index; dispid 100;
  12572.     function  MarkEntry(const Range: Range; var Entry: OleVariant; var EntryAutoText: OleVariant; 
  12573.                         var CrossReference: OleVariant; var CrossReferenceAutoText: OleVariant; 
  12574.                         var BookmarkName: OleVariant; var Bold: OleVariant; var Italic: OleVariant; 
  12575.                         var Reading: OleVariant): Field; dispid 101;
  12576.     procedure MarkAllEntries(const Range: Range; var Entry: OleVariant; 
  12577.                              var EntryAutoText: OleVariant; var CrossReference: OleVariant; 
  12578.                              var CrossReferenceAutoText: OleVariant; var BookmarkName: OleVariant; 
  12579.                              var Bold: OleVariant; var Italic: OleVariant); dispid 102;
  12580.     procedure AutoMarkEntries(const ConcordanceFileName: WideString); dispid 103;
  12581.   end;
  12582.  
  12583. // *********************************************************************//
  12584. // Interface: Index
  12585. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12586. // GUID:      {0002097D-0000-0000-C000-000000000046}
  12587. // *********************************************************************//
  12588.   Index = interface(IDispatch)
  12589.     ['{0002097D-0000-0000-C000-000000000046}']
  12590.     function  Get_Application: WordApplication; safecall;
  12591.     function  Get_Creator: Integer; safecall;
  12592.     function  Get_Parent: IDispatch; safecall;
  12593.     function  Get_HeadingSeparator: WdHeadingSeparator; safecall;
  12594.     procedure Set_HeadingSeparator(prop: WdHeadingSeparator); safecall;
  12595.     function  Get_RightAlignPageNumbers: WordBool; safecall;
  12596.     procedure Set_RightAlignPageNumbers(prop: WordBool); safecall;
  12597.     function  Get_Type_: WdIndexType; safecall;
  12598.     procedure Set_Type_(prop: WdIndexType); safecall;
  12599.     function  Get_NumberOfColumns: Integer; safecall;
  12600.     procedure Set_NumberOfColumns(prop: Integer); safecall;
  12601.     function  Get_Range: Range; safecall;
  12602.     function  Get_TabLeader: WdTabLeader; safecall;
  12603.     procedure Set_TabLeader(prop: WdTabLeader); safecall;
  12604.     function  Get_AccentedLetters: WordBool; safecall;
  12605.     procedure Set_AccentedLetters(prop: WordBool); safecall;
  12606.     function  Get_SortBy: WdIndexSortBy; safecall;
  12607.     procedure Set_SortBy(prop: WdIndexSortBy); safecall;
  12608.     function  Get_Filter: WdIndexFilter; safecall;
  12609.     procedure Set_Filter(prop: WdIndexFilter); safecall;
  12610.     procedure Delete; safecall;
  12611.     procedure Update; safecall;
  12612.     property Application: WordApplication read Get_Application;
  12613.     property Creator: Integer read Get_Creator;
  12614.     property Parent: IDispatch read Get_Parent;
  12615.     property HeadingSeparator: WdHeadingSeparator read Get_HeadingSeparator write Set_HeadingSeparator;
  12616.     property RightAlignPageNumbers: WordBool read Get_RightAlignPageNumbers write Set_RightAlignPageNumbers;
  12617.     property Type_: WdIndexType read Get_Type_ write Set_Type_;
  12618.     property NumberOfColumns: Integer read Get_NumberOfColumns write Set_NumberOfColumns;
  12619.     property Range: Range read Get_Range;
  12620.     property TabLeader: WdTabLeader read Get_TabLeader write Set_TabLeader;
  12621.     property AccentedLetters: WordBool read Get_AccentedLetters write Set_AccentedLetters;
  12622.     property SortBy: WdIndexSortBy read Get_SortBy write Set_SortBy;
  12623.     property Filter: WdIndexFilter read Get_Filter write Set_Filter;
  12624.   end;
  12625.  
  12626. // *********************************************************************//
  12627. // DispIntf:  IndexDisp
  12628. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12629. // GUID:      {0002097D-0000-0000-C000-000000000046}
  12630. // *********************************************************************//
  12631.   IndexDisp = dispinterface
  12632.     ['{0002097D-0000-0000-C000-000000000046}']
  12633.     property Application: WordApplication readonly dispid 1000;
  12634.     property Creator: Integer readonly dispid 1001;
  12635.     property Parent: IDispatch readonly dispid 1002;
  12636.     property HeadingSeparator: WdHeadingSeparator dispid 1;
  12637.     property RightAlignPageNumbers: WordBool dispid 2;
  12638.     property Type_: WdIndexType dispid 3;
  12639.     property NumberOfColumns: Integer dispid 4;
  12640.     property Range: Range readonly dispid 5;
  12641.     property TabLeader: WdTabLeader dispid 6;
  12642.     property AccentedLetters: WordBool dispid 7;
  12643.     property SortBy: WdIndexSortBy dispid 8;
  12644.     property Filter: WdIndexFilter dispid 9;
  12645.     procedure Delete; dispid 100;
  12646.     procedure Update; dispid 102;
  12647.   end;
  12648.  
  12649. // *********************************************************************//
  12650. // Interface: AddIn
  12651. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12652. // GUID:      {0002097E-0000-0000-C000-000000000046}
  12653. // *********************************************************************//
  12654.   AddIn = interface(IDispatch)
  12655.     ['{0002097E-0000-0000-C000-000000000046}']
  12656.     function  Get_Application: WordApplication; safecall;
  12657.     function  Get_Creator: Integer; safecall;
  12658.     function  Get_Parent: IDispatch; safecall;
  12659.     function  Get_Name: WideString; safecall;
  12660.     function  Get_Index: Integer; safecall;
  12661.     function  Get_Path: WideString; safecall;
  12662.     function  Get_Installed: WordBool; safecall;
  12663.     procedure Set_Installed(prop: WordBool); safecall;
  12664.     function  Get_Compiled: WordBool; safecall;
  12665.     function  Get_Autoload: WordBool; safecall;
  12666.     procedure Delete; safecall;
  12667.     property Application: WordApplication read Get_Application;
  12668.     property Creator: Integer read Get_Creator;
  12669.     property Parent: IDispatch read Get_Parent;
  12670.     property Name: WideString read Get_Name;
  12671.     property Index: Integer read Get_Index;
  12672.     property Path: WideString read Get_Path;
  12673.     property Installed: WordBool read Get_Installed write Set_Installed;
  12674.     property Compiled: WordBool read Get_Compiled;
  12675.     property Autoload: WordBool read Get_Autoload;
  12676.   end;
  12677.  
  12678. // *********************************************************************//
  12679. // DispIntf:  AddInDisp
  12680. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12681. // GUID:      {0002097E-0000-0000-C000-000000000046}
  12682. // *********************************************************************//
  12683.   AddInDisp = dispinterface
  12684.     ['{0002097E-0000-0000-C000-000000000046}']
  12685.     property Application: WordApplication readonly dispid 1000;
  12686.     property Creator: Integer readonly dispid 1001;
  12687.     property Parent: IDispatch readonly dispid 1002;
  12688.     property Name: WideString readonly dispid 0;
  12689.     property Index: Integer readonly dispid 1;
  12690.     property Path: WideString readonly dispid 3;
  12691.     property Installed: WordBool dispid 4;
  12692.     property Compiled: WordBool readonly dispid 5;
  12693.     property Autoload: WordBool readonly dispid 6;
  12694.     procedure Delete; dispid 101;
  12695.   end;
  12696.  
  12697. // *********************************************************************//
  12698. // Interface: AddIns
  12699. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12700. // GUID:      {0002097F-0000-0000-C000-000000000046}
  12701. // *********************************************************************//
  12702.   AddIns = interface(IDispatch)
  12703.     ['{0002097F-0000-0000-C000-000000000046}']
  12704.     function  Get_Application: WordApplication; safecall;
  12705.     function  Get_Creator: Integer; safecall;
  12706.     function  Get_Parent: IDispatch; safecall;
  12707.     function  Get__NewEnum: IUnknown; safecall;
  12708.     function  Get_Count: Integer; safecall;
  12709.     function  Item(var Index: OleVariant): AddIn; safecall;
  12710.     function  Add(const FileName: WideString; var Install: OleVariant): AddIn; safecall;
  12711.     procedure Unload(RemoveFromList: WordBool); safecall;
  12712.     property Application: WordApplication read Get_Application;
  12713.     property Creator: Integer read Get_Creator;
  12714.     property Parent: IDispatch read Get_Parent;
  12715.     property _NewEnum: IUnknown read Get__NewEnum;
  12716.     property Count: Integer read Get_Count;
  12717.   end;
  12718.  
  12719. // *********************************************************************//
  12720. // DispIntf:  AddInsDisp
  12721. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12722. // GUID:      {0002097F-0000-0000-C000-000000000046}
  12723. // *********************************************************************//
  12724.   AddInsDisp = dispinterface
  12725.     ['{0002097F-0000-0000-C000-000000000046}']
  12726.     property Application: WordApplication readonly dispid 1000;
  12727.     property Creator: Integer readonly dispid 1001;
  12728.     property Parent: IDispatch readonly dispid 1002;
  12729.     property _NewEnum: IUnknown readonly dispid -4;
  12730.     property Count: Integer readonly dispid 1;
  12731.     function  Item(var Index: OleVariant): AddIn; dispid 0;
  12732.     function  Add(const FileName: WideString; var Install: OleVariant): AddIn; dispid 2;
  12733.     procedure Unload(RemoveFromList: WordBool); dispid 3;
  12734.   end;
  12735.  
  12736. // *********************************************************************//
  12737. // Interface: Revisions
  12738. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12739. // GUID:      {00020980-0000-0000-C000-000000000046}
  12740. // *********************************************************************//
  12741.   Revisions = interface(IDispatch)
  12742.     ['{00020980-0000-0000-C000-000000000046}']
  12743.     function  Get_Application: WordApplication; safecall;
  12744.     function  Get_Creator: Integer; safecall;
  12745.     function  Get_Parent: IDispatch; safecall;
  12746.     function  Get__NewEnum: IUnknown; safecall;
  12747.     function  Get_Count: Integer; safecall;
  12748.     function  Item(Index: Integer): Revision; safecall;
  12749.     procedure AcceptAll; safecall;
  12750.     procedure RejectAll; safecall;
  12751.     property Application: WordApplication read Get_Application;
  12752.     property Creator: Integer read Get_Creator;
  12753.     property Parent: IDispatch read Get_Parent;
  12754.     property _NewEnum: IUnknown read Get__NewEnum;
  12755.     property Count: Integer read Get_Count;
  12756.   end;
  12757.  
  12758. // *********************************************************************//
  12759. // DispIntf:  RevisionsDisp
  12760. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12761. // GUID:      {00020980-0000-0000-C000-000000000046}
  12762. // *********************************************************************//
  12763.   RevisionsDisp = dispinterface
  12764.     ['{00020980-0000-0000-C000-000000000046}']
  12765.     property Application: WordApplication readonly dispid 1000;
  12766.     property Creator: Integer readonly dispid 1001;
  12767.     property Parent: IDispatch readonly dispid 1002;
  12768.     property _NewEnum: IUnknown readonly dispid -4;
  12769.     property Count: Integer readonly dispid 5;
  12770.     function  Item(Index: Integer): Revision; dispid 0;
  12771.     procedure AcceptAll; dispid 101;
  12772.     procedure RejectAll; dispid 102;
  12773.   end;
  12774.  
  12775. // *********************************************************************//
  12776. // Interface: Revision
  12777. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12778. // GUID:      {00020981-0000-0000-C000-000000000046}
  12779. // *********************************************************************//
  12780.   Revision = interface(IDispatch)
  12781.     ['{00020981-0000-0000-C000-000000000046}']
  12782.     function  Get_Application: WordApplication; safecall;
  12783.     function  Get_Creator: Integer; safecall;
  12784.     function  Get_Parent: IDispatch; safecall;
  12785.     function  Get_Author: WideString; safecall;
  12786.     function  Get_Date: TDateTime; safecall;
  12787.     function  Get_Range: Range; safecall;
  12788.     function  Get_Type_: WdRevisionType; safecall;
  12789.     function  Get_Index: Integer; safecall;
  12790.     procedure Accept; safecall;
  12791.     procedure Reject; safecall;
  12792.     property Application: WordApplication read Get_Application;
  12793.     property Creator: Integer read Get_Creator;
  12794.     property Parent: IDispatch read Get_Parent;
  12795.     property Author: WideString read Get_Author;
  12796.     property Date: TDateTime read Get_Date;
  12797.     property Range: Range read Get_Range;
  12798.     property Type_: WdRevisionType read Get_Type_;
  12799.     property Index: Integer read Get_Index;
  12800.   end;
  12801.  
  12802. // *********************************************************************//
  12803. // DispIntf:  RevisionDisp
  12804. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12805. // GUID:      {00020981-0000-0000-C000-000000000046}
  12806. // *********************************************************************//
  12807.   RevisionDisp = dispinterface
  12808.     ['{00020981-0000-0000-C000-000000000046}']
  12809.     property Application: WordApplication readonly dispid 1000;
  12810.     property Creator: Integer readonly dispid 1001;
  12811.     property Parent: IDispatch readonly dispid 1002;
  12812.     property Author: WideString readonly dispid 1;
  12813.     property Date: TDateTime readonly dispid 2;
  12814.     property Range: Range readonly dispid 3;
  12815.     property Type_: WdRevisionType readonly dispid 4;
  12816.     property Index: Integer readonly dispid 5;
  12817.     procedure Accept; dispid 101;
  12818.     procedure Reject; dispid 102;
  12819.   end;
  12820.  
  12821. // *********************************************************************//
  12822. // Interface: Task
  12823. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12824. // GUID:      {00020982-0000-0000-C000-000000000046}
  12825. // *********************************************************************//
  12826.   Task = interface(IDispatch)
  12827.     ['{00020982-0000-0000-C000-000000000046}']
  12828.     function  Get_Application: WordApplication; safecall;
  12829.     function  Get_Creator: Integer; safecall;
  12830.     function  Get_Parent: IDispatch; safecall;
  12831.     function  Get_Name: WideString; safecall;
  12832.     function  Get_Left: Integer; safecall;
  12833.     procedure Set_Left(prop: Integer); safecall;
  12834.     function  Get_Top: Integer; safecall;
  12835.     procedure Set_Top(prop: Integer); safecall;
  12836.     function  Get_Width: Integer; safecall;
  12837.     procedure Set_Width(prop: Integer); safecall;
  12838.     function  Get_Height: Integer; safecall;
  12839.     procedure Set_Height(prop: Integer); safecall;
  12840.     function  Get_WindowState: WdWindowState; safecall;
  12841.     procedure Set_WindowState(prop: WdWindowState); safecall;
  12842.     function  Get_Visible: WordBool; safecall;
  12843.     procedure Set_Visible(prop: WordBool); safecall;
  12844.     procedure Activate(var Wait: OleVariant); safecall;
  12845.     procedure Close; safecall;
  12846.     procedure Move(Left: Integer; Top: Integer); safecall;
  12847.     procedure Resize(Width: Integer; Height: Integer); safecall;
  12848.     procedure SendWindowMessage(Message: Integer; wParam: Integer; lParam: Integer); safecall;
  12849.     property Application: WordApplication read Get_Application;
  12850.     property Creator: Integer read Get_Creator;
  12851.     property Parent: IDispatch read Get_Parent;
  12852.     property Name: WideString read Get_Name;
  12853.     property Left: Integer read Get_Left write Set_Left;
  12854.     property Top: Integer read Get_Top write Set_Top;
  12855.     property Width: Integer read Get_Width write Set_Width;
  12856.     property Height: Integer read Get_Height write Set_Height;
  12857.     property WindowState: WdWindowState read Get_WindowState write Set_WindowState;
  12858.     property Visible: WordBool read Get_Visible write Set_Visible;
  12859.   end;
  12860.  
  12861. // *********************************************************************//
  12862. // DispIntf:  TaskDisp
  12863. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12864. // GUID:      {00020982-0000-0000-C000-000000000046}
  12865. // *********************************************************************//
  12866.   TaskDisp = dispinterface
  12867.     ['{00020982-0000-0000-C000-000000000046}']
  12868.     property Application: WordApplication readonly dispid 1000;
  12869.     property Creator: Integer readonly dispid 1001;
  12870.     property Parent: IDispatch readonly dispid 1002;
  12871.     property Name: WideString readonly dispid 0;
  12872.     property Left: Integer dispid 1;
  12873.     property Top: Integer dispid 2;
  12874.     property Width: Integer dispid 3;
  12875.     property Height: Integer dispid 4;
  12876.     property WindowState: WdWindowState dispid 5;
  12877.     property Visible: WordBool dispid 6;
  12878.     procedure Activate(var Wait: OleVariant); dispid 10;
  12879.     procedure Close; dispid 11;
  12880.     procedure Move(Left: Integer; Top: Integer); dispid 12;
  12881.     procedure Resize(Width: Integer; Height: Integer); dispid 13;
  12882.     procedure SendWindowMessage(Message: Integer; wParam: Integer; lParam: Integer); dispid 14;
  12883.   end;
  12884.  
  12885. // *********************************************************************//
  12886. // Interface: Tasks
  12887. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12888. // GUID:      {00020983-0000-0000-C000-000000000046}
  12889. // *********************************************************************//
  12890.   Tasks = interface(IDispatch)
  12891.     ['{00020983-0000-0000-C000-000000000046}']
  12892.     function  Get_Application: WordApplication; safecall;
  12893.     function  Get_Creator: Integer; safecall;
  12894.     function  Get_Parent: IDispatch; safecall;
  12895.     function  Get__NewEnum: IUnknown; safecall;
  12896.     function  Get_Count: Integer; safecall;
  12897.     function  Item(var Index: OleVariant): Task; safecall;
  12898.     function  Exists(const Name: WideString): WordBool; safecall;
  12899.     procedure ExitWindows; safecall;
  12900.     property Application: WordApplication read Get_Application;
  12901.     property Creator: Integer read Get_Creator;
  12902.     property Parent: IDispatch read Get_Parent;
  12903.     property _NewEnum: IUnknown read Get__NewEnum;
  12904.     property Count: Integer read Get_Count;
  12905.   end;
  12906.  
  12907. // *********************************************************************//
  12908. // DispIntf:  TasksDisp
  12909. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12910. // GUID:      {00020983-0000-0000-C000-000000000046}
  12911. // *********************************************************************//
  12912.   TasksDisp = dispinterface
  12913.     ['{00020983-0000-0000-C000-000000000046}']
  12914.     property Application: WordApplication readonly dispid 1000;
  12915.     property Creator: Integer readonly dispid 1001;
  12916.     property Parent: IDispatch readonly dispid 1002;
  12917.     property _NewEnum: IUnknown readonly dispid -4;
  12918.     property Count: Integer readonly dispid 1;
  12919.     function  Item(var Index: OleVariant): Task; dispid 0;
  12920.     function  Exists(const Name: WideString): WordBool; dispid 2;
  12921.     procedure ExitWindows; dispid 3;
  12922.   end;
  12923.  
  12924. // *********************************************************************//
  12925. // Interface: HeadersFooters
  12926. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12927. // GUID:      {00020984-0000-0000-C000-000000000046}
  12928. // *********************************************************************//
  12929.   HeadersFooters = interface(IDispatch)
  12930.     ['{00020984-0000-0000-C000-000000000046}']
  12931.     function  Get_Application: WordApplication; safecall;
  12932.     function  Get_Creator: Integer; safecall;
  12933.     function  Get_Parent: IDispatch; safecall;
  12934.     function  Get__NewEnum: IUnknown; safecall;
  12935.     function  Get_Count: Integer; safecall;
  12936.     function  Item(Index: WdHeaderFooterIndex): HeaderFooter; safecall;
  12937.     property Application: WordApplication read Get_Application;
  12938.     property Creator: Integer read Get_Creator;
  12939.     property Parent: IDispatch read Get_Parent;
  12940.     property _NewEnum: IUnknown read Get__NewEnum;
  12941.     property Count: Integer read Get_Count;
  12942.   end;
  12943.  
  12944. // *********************************************************************//
  12945. // DispIntf:  HeadersFootersDisp
  12946. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12947. // GUID:      {00020984-0000-0000-C000-000000000046}
  12948. // *********************************************************************//
  12949.   HeadersFootersDisp = dispinterface
  12950.     ['{00020984-0000-0000-C000-000000000046}']
  12951.     property Application: WordApplication readonly dispid 1000;
  12952.     property Creator: Integer readonly dispid 1001;
  12953.     property Parent: IDispatch readonly dispid 1002;
  12954.     property _NewEnum: IUnknown readonly dispid -4;
  12955.     property Count: Integer readonly dispid 1;
  12956.     function  Item(Index: WdHeaderFooterIndex): HeaderFooter; dispid 0;
  12957.   end;
  12958.  
  12959. // *********************************************************************//
  12960. // Interface: HeaderFooter
  12961. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12962. // GUID:      {00020985-0000-0000-C000-000000000046}
  12963. // *********************************************************************//
  12964.   HeaderFooter = interface(IDispatch)
  12965.     ['{00020985-0000-0000-C000-000000000046}']
  12966.     function  Get_Application: WordApplication; safecall;
  12967.     function  Get_Creator: Integer; safecall;
  12968.     function  Get_Parent: IDispatch; safecall;
  12969.     function  Get_Range: Range; safecall;
  12970.     function  Get_Index: WdHeaderFooterIndex; safecall;
  12971.     function  Get_IsHeader: WordBool; safecall;
  12972.     function  Get_Exists: WordBool; safecall;
  12973.     procedure Set_Exists(prop: WordBool); safecall;
  12974.     function  Get_PageNumbers: PageNumbers; safecall;
  12975.     function  Get_LinkToPrevious: WordBool; safecall;
  12976.     procedure Set_LinkToPrevious(prop: WordBool); safecall;
  12977.     function  Get_Shapes: Shapes; safecall;
  12978.     property Application: WordApplication read Get_Application;
  12979.     property Creator: Integer read Get_Creator;
  12980.     property Parent: IDispatch read Get_Parent;
  12981.     property Range: Range read Get_Range;
  12982.     property Index: WdHeaderFooterIndex read Get_Index;
  12983.     property IsHeader: WordBool read Get_IsHeader;
  12984.     property Exists: WordBool read Get_Exists write Set_Exists;
  12985.     property PageNumbers: PageNumbers read Get_PageNumbers;
  12986.     property LinkToPrevious: WordBool read Get_LinkToPrevious write Set_LinkToPrevious;
  12987.     property Shapes: Shapes read Get_Shapes;
  12988.   end;
  12989.  
  12990. // *********************************************************************//
  12991. // DispIntf:  HeaderFooterDisp
  12992. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  12993. // GUID:      {00020985-0000-0000-C000-000000000046}
  12994. // *********************************************************************//
  12995.   HeaderFooterDisp = dispinterface
  12996.     ['{00020985-0000-0000-C000-000000000046}']
  12997.     property Application: WordApplication readonly dispid 1000;
  12998.     property Creator: Integer readonly dispid 1001;
  12999.     property Parent: IDispatch readonly dispid 1002;
  13000.     property Range: Range readonly dispid 0;
  13001.     property Index: WdHeaderFooterIndex readonly dispid 2;
  13002.     property IsHeader: WordBool readonly dispid 3;
  13003.     property Exists: WordBool dispid 4;
  13004.     property PageNumbers: PageNumbers readonly dispid 5;
  13005.     property LinkToPrevious: WordBool dispid 6;
  13006.     property Shapes: Shapes readonly dispid 7;
  13007.   end;
  13008.  
  13009. // *********************************************************************//
  13010. // Interface: PageNumbers
  13011. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13012. // GUID:      {00020986-0000-0000-C000-000000000046}
  13013. // *********************************************************************//
  13014.   PageNumbers = interface(IDispatch)
  13015.     ['{00020986-0000-0000-C000-000000000046}']
  13016.     function  Get_Application: WordApplication; safecall;
  13017.     function  Get_Creator: Integer; safecall;
  13018.     function  Get_Parent: IDispatch; safecall;
  13019.     function  Get__NewEnum: IUnknown; safecall;
  13020.     function  Get_Count: Integer; safecall;
  13021.     function  Get_NumberStyle: WdPageNumberStyle; safecall;
  13022.     procedure Set_NumberStyle(prop: WdPageNumberStyle); safecall;
  13023.     function  Get_IncludeChapterNumber: WordBool; safecall;
  13024.     procedure Set_IncludeChapterNumber(prop: WordBool); safecall;
  13025.     function  Get_HeadingLevelForChapter: Integer; safecall;
  13026.     procedure Set_HeadingLevelForChapter(prop: Integer); safecall;
  13027.     function  Get_ChapterPageSeparator: WdSeparatorType; safecall;
  13028.     procedure Set_ChapterPageSeparator(prop: WdSeparatorType); safecall;
  13029.     function  Get_RestartNumberingAtSection: WordBool; safecall;
  13030.     procedure Set_RestartNumberingAtSection(prop: WordBool); safecall;
  13031.     function  Get_StartingNumber: Integer; safecall;
  13032.     procedure Set_StartingNumber(prop: Integer); safecall;
  13033.     function  Get_ShowFirstPageNumber: WordBool; safecall;
  13034.     procedure Set_ShowFirstPageNumber(prop: WordBool); safecall;
  13035.     function  Item(Index: Integer): PageNumber; safecall;
  13036.     function  Add(var PageNumberAlignment: OleVariant; var FirstPage: OleVariant): PageNumber; safecall;
  13037.     property Application: WordApplication read Get_Application;
  13038.     property Creator: Integer read Get_Creator;
  13039.     property Parent: IDispatch read Get_Parent;
  13040.     property _NewEnum: IUnknown read Get__NewEnum;
  13041.     property Count: Integer read Get_Count;
  13042.     property NumberStyle: WdPageNumberStyle read Get_NumberStyle write Set_NumberStyle;
  13043.     property IncludeChapterNumber: WordBool read Get_IncludeChapterNumber write Set_IncludeChapterNumber;
  13044.     property HeadingLevelForChapter: Integer read Get_HeadingLevelForChapter write Set_HeadingLevelForChapter;
  13045.     property ChapterPageSeparator: WdSeparatorType read Get_ChapterPageSeparator write Set_ChapterPageSeparator;
  13046.     property RestartNumberingAtSection: WordBool read Get_RestartNumberingAtSection write Set_RestartNumberingAtSection;
  13047.     property StartingNumber: Integer read Get_StartingNumber write Set_StartingNumber;
  13048.     property ShowFirstPageNumber: WordBool read Get_ShowFirstPageNumber write Set_ShowFirstPageNumber;
  13049.   end;
  13050.  
  13051. // *********************************************************************//
  13052. // DispIntf:  PageNumbersDisp
  13053. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13054. // GUID:      {00020986-0000-0000-C000-000000000046}
  13055. // *********************************************************************//
  13056.   PageNumbersDisp = dispinterface
  13057.     ['{00020986-0000-0000-C000-000000000046}']
  13058.     property Application: WordApplication readonly dispid 1000;
  13059.     property Creator: Integer readonly dispid 1001;
  13060.     property Parent: IDispatch readonly dispid 1002;
  13061.     property _NewEnum: IUnknown readonly dispid -4;
  13062.     property Count: Integer readonly dispid 1;
  13063.     property NumberStyle: WdPageNumberStyle dispid 2;
  13064.     property IncludeChapterNumber: WordBool dispid 3;
  13065.     property HeadingLevelForChapter: Integer dispid 4;
  13066.     property ChapterPageSeparator: WdSeparatorType dispid 5;
  13067.     property RestartNumberingAtSection: WordBool dispid 6;
  13068.     property StartingNumber: Integer dispid 7;
  13069.     property ShowFirstPageNumber: WordBool dispid 8;
  13070.     function  Item(Index: Integer): PageNumber; dispid 0;
  13071.     function  Add(var PageNumberAlignment: OleVariant; var FirstPage: OleVariant): PageNumber; dispid 101;
  13072.   end;
  13073.  
  13074. // *********************************************************************//
  13075. // Interface: PageNumber
  13076. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13077. // GUID:      {00020987-0000-0000-C000-000000000046}
  13078. // *********************************************************************//
  13079.   PageNumber = interface(IDispatch)
  13080.     ['{00020987-0000-0000-C000-000000000046}']
  13081.     function  Get_Application: WordApplication; safecall;
  13082.     function  Get_Creator: Integer; safecall;
  13083.     function  Get_Parent: IDispatch; safecall;
  13084.     function  Get_Index: Integer; safecall;
  13085.     function  Get_Alignment: WdPageNumberAlignment; safecall;
  13086.     procedure Set_Alignment(prop: WdPageNumberAlignment); safecall;
  13087.     procedure Select; safecall;
  13088.     procedure Copy; safecall;
  13089.     procedure Cut; safecall;
  13090.     procedure Delete; safecall;
  13091.     property Application: WordApplication read Get_Application;
  13092.     property Creator: Integer read Get_Creator;
  13093.     property Parent: IDispatch read Get_Parent;
  13094.     property Index: Integer read Get_Index;
  13095.     property Alignment: WdPageNumberAlignment read Get_Alignment write Set_Alignment;
  13096.   end;
  13097.  
  13098. // *********************************************************************//
  13099. // DispIntf:  PageNumberDisp
  13100. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13101. // GUID:      {00020987-0000-0000-C000-000000000046}
  13102. // *********************************************************************//
  13103.   PageNumberDisp = dispinterface
  13104.     ['{00020987-0000-0000-C000-000000000046}']
  13105.     property Application: WordApplication readonly dispid 1000;
  13106.     property Creator: Integer readonly dispid 1001;
  13107.     property Parent: IDispatch readonly dispid 1002;
  13108.     property Index: Integer readonly dispid 1;
  13109.     property Alignment: WdPageNumberAlignment dispid 3;
  13110.     procedure Select; dispid 65535;
  13111.     procedure Copy; dispid 101;
  13112.     procedure Cut; dispid 102;
  13113.     procedure Delete; dispid 103;
  13114.   end;
  13115.  
  13116. // *********************************************************************//
  13117. // Interface: Subdocuments
  13118. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13119. // GUID:      {00020988-0000-0000-C000-000000000046}
  13120. // *********************************************************************//
  13121.   Subdocuments = interface(IDispatch)
  13122.     ['{00020988-0000-0000-C000-000000000046}']
  13123.     function  Get_Application: WordApplication; safecall;
  13124.     function  Get_Creator: Integer; safecall;
  13125.     function  Get_Parent: IDispatch; safecall;
  13126.     function  Get_Count: Integer; safecall;
  13127.     function  Get__NewEnum: IUnknown; safecall;
  13128.     function  Get_Expanded: WordBool; safecall;
  13129.     procedure Set_Expanded(prop: WordBool); safecall;
  13130.     function  Item(Index: Integer): Subdocument; safecall;
  13131.     function  AddFromFile(var Name: OleVariant; var ConfirmConversions: OleVariant; 
  13132.                           var ReadOnly: OleVariant; var PasswordDocument: OleVariant; 
  13133.                           var PasswordTemplate: OleVariant; var Revert: OleVariant; 
  13134.                           var WritePasswordDocument: OleVariant; 
  13135.                           var WritePasswordTemplate: OleVariant): Subdocument; safecall;
  13136.     function  AddFromRange(const Range: Range): Subdocument; safecall;
  13137.     procedure Merge(var FirstSubdocument: OleVariant; var LastSubdocument: OleVariant); safecall;
  13138.     procedure Delete; safecall;
  13139.     procedure Select; safecall;
  13140.     property Application: WordApplication read Get_Application;
  13141.     property Creator: Integer read Get_Creator;
  13142.     property Parent: IDispatch read Get_Parent;
  13143.     property Count: Integer read Get_Count;
  13144.     property _NewEnum: IUnknown read Get__NewEnum;
  13145.     property Expanded: WordBool read Get_Expanded write Set_Expanded;
  13146.   end;
  13147.  
  13148. // *********************************************************************//
  13149. // DispIntf:  SubdocumentsDisp
  13150. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13151. // GUID:      {00020988-0000-0000-C000-000000000046}
  13152. // *********************************************************************//
  13153.   SubdocumentsDisp = dispinterface
  13154.     ['{00020988-0000-0000-C000-000000000046}']
  13155.     property Application: WordApplication readonly dispid 1000;
  13156.     property Creator: Integer readonly dispid 1001;
  13157.     property Parent: IDispatch readonly dispid 1002;
  13158.     property Count: Integer readonly dispid 1;
  13159.     property _NewEnum: IUnknown readonly dispid -4;
  13160.     property Expanded: WordBool dispid 2;
  13161.     function  Item(Index: Integer): Subdocument; dispid 0;
  13162.     function  AddFromFile(var Name: OleVariant; var ConfirmConversions: OleVariant; 
  13163.                           var ReadOnly: OleVariant; var PasswordDocument: OleVariant; 
  13164.                           var PasswordTemplate: OleVariant; var Revert: OleVariant; 
  13165.                           var WritePasswordDocument: OleVariant; 
  13166.                           var WritePasswordTemplate: OleVariant): Subdocument; dispid 100;
  13167.     function  AddFromRange(const Range: Range): Subdocument; dispid 101;
  13168.     procedure Merge(var FirstSubdocument: OleVariant; var LastSubdocument: OleVariant); dispid 102;
  13169.     procedure Delete; dispid 103;
  13170.     procedure Select; dispid 104;
  13171.   end;
  13172.  
  13173. // *********************************************************************//
  13174. // Interface: Subdocument
  13175. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13176. // GUID:      {00020989-0000-0000-C000-000000000046}
  13177. // *********************************************************************//
  13178.   Subdocument = interface(IDispatch)
  13179.     ['{00020989-0000-0000-C000-000000000046}']
  13180.     function  Get_Application: WordApplication; safecall;
  13181.     function  Get_Creator: Integer; safecall;
  13182.     function  Get_Parent: IDispatch; safecall;
  13183.     function  Get_Locked: WordBool; safecall;
  13184.     procedure Set_Locked(prop: WordBool); safecall;
  13185.     function  Get_Range: Range; safecall;
  13186.     function  Get_Name: WideString; safecall;
  13187.     function  Get_Path: WideString; safecall;
  13188.     function  Get_HasFile: WordBool; safecall;
  13189.     function  Get_Level: Integer; safecall;
  13190.     procedure Delete; safecall;
  13191.     procedure Split(const Range: Range); safecall;
  13192.     function  Open: WordDocument; safecall;
  13193.     property Application: WordApplication read Get_Application;
  13194.     property Creator: Integer read Get_Creator;
  13195.     property Parent: IDispatch read Get_Parent;
  13196.     property Locked: WordBool read Get_Locked write Set_Locked;
  13197.     property Range: Range read Get_Range;
  13198.     property Name: WideString read Get_Name;
  13199.     property Path: WideString read Get_Path;
  13200.     property HasFile: WordBool read Get_HasFile;
  13201.     property Level: Integer read Get_Level;
  13202.   end;
  13203.  
  13204. // *********************************************************************//
  13205. // DispIntf:  SubdocumentDisp
  13206. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13207. // GUID:      {00020989-0000-0000-C000-000000000046}
  13208. // *********************************************************************//
  13209.   SubdocumentDisp = dispinterface
  13210.     ['{00020989-0000-0000-C000-000000000046}']
  13211.     property Application: WordApplication readonly dispid 1000;
  13212.     property Creator: Integer readonly dispid 1001;
  13213.     property Parent: IDispatch readonly dispid 1002;
  13214.     property Locked: WordBool dispid 1;
  13215.     property Range: Range readonly dispid 2;
  13216.     property Name: WideString readonly dispid 3;
  13217.     property Path: WideString readonly dispid 4;
  13218.     property HasFile: WordBool readonly dispid 5;
  13219.     property Level: Integer readonly dispid 6;
  13220.     procedure Delete; dispid 100;
  13221.     procedure Split(const Range: Range); dispid 101;
  13222.     function  Open: WordDocument; dispid 102;
  13223.   end;
  13224.  
  13225. // *********************************************************************//
  13226. // Interface: HeadingStyles
  13227. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13228. // GUID:      {0002098A-0000-0000-C000-000000000046}
  13229. // *********************************************************************//
  13230.   HeadingStyles = interface(IDispatch)
  13231.     ['{0002098A-0000-0000-C000-000000000046}']
  13232.     function  Get_Application: WordApplication; safecall;
  13233.     function  Get_Creator: Integer; safecall;
  13234.     function  Get_Parent: IDispatch; safecall;
  13235.     function  Get__NewEnum: IUnknown; safecall;
  13236.     function  Get_Count: Integer; safecall;
  13237.     function  Item(Index: Integer): HeadingStyle; safecall;
  13238.     function  Add(var Style: OleVariant; Level: Smallint): HeadingStyle; safecall;
  13239.     property Application: WordApplication read Get_Application;
  13240.     property Creator: Integer read Get_Creator;
  13241.     property Parent: IDispatch read Get_Parent;
  13242.     property _NewEnum: IUnknown read Get__NewEnum;
  13243.     property Count: Integer read Get_Count;
  13244.   end;
  13245.  
  13246. // *********************************************************************//
  13247. // DispIntf:  HeadingStylesDisp
  13248. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13249. // GUID:      {0002098A-0000-0000-C000-000000000046}
  13250. // *********************************************************************//
  13251.   HeadingStylesDisp = dispinterface
  13252.     ['{0002098A-0000-0000-C000-000000000046}']
  13253.     property Application: WordApplication readonly dispid 1000;
  13254.     property Creator: Integer readonly dispid 1001;
  13255.     property Parent: IDispatch readonly dispid 1002;
  13256.     property _NewEnum: IUnknown readonly dispid -4;
  13257.     property Count: Integer readonly dispid 1;
  13258.     function  Item(Index: Integer): HeadingStyle; dispid 0;
  13259.     function  Add(var Style: OleVariant; Level: Smallint): HeadingStyle; dispid 100;
  13260.   end;
  13261.  
  13262. // *********************************************************************//
  13263. // Interface: HeadingStyle
  13264. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13265. // GUID:      {0002098B-0000-0000-C000-000000000046}
  13266. // *********************************************************************//
  13267.   HeadingStyle = interface(IDispatch)
  13268.     ['{0002098B-0000-0000-C000-000000000046}']
  13269.     function  Get_Application: WordApplication; safecall;
  13270.     function  Get_Creator: Integer; safecall;
  13271.     function  Get_Parent: IDispatch; safecall;
  13272.     function  Get_Style: OleVariant; safecall;
  13273.     procedure Set_Style(var prop: OleVariant); safecall;
  13274.     function  Get_Level: Smallint; safecall;
  13275.     procedure Set_Level(prop: Smallint); safecall;
  13276.     procedure Delete; safecall;
  13277.     property Application: WordApplication read Get_Application;
  13278.     property Creator: Integer read Get_Creator;
  13279.     property Parent: IDispatch read Get_Parent;
  13280.     property Level: Smallint read Get_Level write Set_Level;
  13281.   end;
  13282.  
  13283. // *********************************************************************//
  13284. // DispIntf:  HeadingStyleDisp
  13285. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13286. // GUID:      {0002098B-0000-0000-C000-000000000046}
  13287. // *********************************************************************//
  13288.   HeadingStyleDisp = dispinterface
  13289.     ['{0002098B-0000-0000-C000-000000000046}']
  13290.     property Application: WordApplication readonly dispid 1000;
  13291.     property Creator: Integer readonly dispid 1001;
  13292.     property Parent: IDispatch readonly dispid 1002;
  13293.     function  Style: OleVariant; dispid 0;
  13294.     property Level: Smallint dispid 2;
  13295.     procedure Delete; dispid 100;
  13296.   end;
  13297.  
  13298. // *********************************************************************//
  13299. // Interface: StoryRanges
  13300. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13301. // GUID:      {0002098C-0000-0000-C000-000000000046}
  13302. // *********************************************************************//
  13303.   StoryRanges = interface(IDispatch)
  13304.     ['{0002098C-0000-0000-C000-000000000046}']
  13305.     function  Get__NewEnum: IUnknown; safecall;
  13306.     function  Get_Count: Integer; safecall;
  13307.     function  Get_Application: WordApplication; safecall;
  13308.     function  Get_Creator: Integer; safecall;
  13309.     function  Get_Parent: IDispatch; safecall;
  13310.     function  Item(Index: WdStoryType): Range; safecall;
  13311.     property _NewEnum: IUnknown read Get__NewEnum;
  13312.     property Count: Integer read Get_Count;
  13313.     property Application: WordApplication read Get_Application;
  13314.     property Creator: Integer read Get_Creator;
  13315.     property Parent: IDispatch read Get_Parent;
  13316.   end;
  13317.  
  13318. // *********************************************************************//
  13319. // DispIntf:  StoryRangesDisp
  13320. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13321. // GUID:      {0002098C-0000-0000-C000-000000000046}
  13322. // *********************************************************************//
  13323.   StoryRangesDisp = dispinterface
  13324.     ['{0002098C-0000-0000-C000-000000000046}']
  13325.     property _NewEnum: IUnknown readonly dispid -4;
  13326.     property Count: Integer readonly dispid 2;
  13327.     property Application: WordApplication readonly dispid 1000;
  13328.     property Creator: Integer readonly dispid 1001;
  13329.     property Parent: IDispatch readonly dispid 1002;
  13330.     function  Item(Index: WdStoryType): Range; dispid 0;
  13331.   end;
  13332.  
  13333. // *********************************************************************//
  13334. // Interface: ListLevel
  13335. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13336. // GUID:      {0002098D-0000-0000-C000-000000000046}
  13337. // *********************************************************************//
  13338.   ListLevel = interface(IDispatch)
  13339.     ['{0002098D-0000-0000-C000-000000000046}']
  13340.     function  Get_Index: Integer; safecall;
  13341.     function  Get_NumberFormat: WideString; safecall;
  13342.     procedure Set_NumberFormat(const prop: WideString); safecall;
  13343.     function  Get_TrailingCharacter: WdTrailingCharacter; safecall;
  13344.     procedure Set_TrailingCharacter(prop: WdTrailingCharacter); safecall;
  13345.     function  Get_NumberStyle: WdListNumberStyle; safecall;
  13346.     procedure Set_NumberStyle(prop: WdListNumberStyle); safecall;
  13347.     function  Get_NumberPosition: Single; safecall;
  13348.     procedure Set_NumberPosition(prop: Single); safecall;
  13349.     function  Get_Alignment: WdListLevelAlignment; safecall;
  13350.     procedure Set_Alignment(prop: WdListLevelAlignment); safecall;
  13351.     function  Get_TextPosition: Single; safecall;
  13352.     procedure Set_TextPosition(prop: Single); safecall;
  13353.     function  Get_TabPosition: Single; safecall;
  13354.     procedure Set_TabPosition(prop: Single); safecall;
  13355.     function  Get_ResetOnHigher: WordBool; safecall;
  13356.     procedure Set_ResetOnHigher(prop: WordBool); safecall;
  13357.     function  Get_StartAt: Integer; safecall;
  13358.     procedure Set_StartAt(prop: Integer); safecall;
  13359.     function  Get_LinkedStyle: WideString; safecall;
  13360.     procedure Set_LinkedStyle(const prop: WideString); safecall;
  13361.     function  Get_Font: WordFont; safecall;
  13362.     procedure Set_Font(const prop: WordFont); safecall;
  13363.     function  Get_Application: WordApplication; safecall;
  13364.     function  Get_Creator: Integer; safecall;
  13365.     function  Get_Parent: IDispatch; safecall;
  13366.     property Index: Integer read Get_Index;
  13367.     property NumberFormat: WideString read Get_NumberFormat write Set_NumberFormat;
  13368.     property TrailingCharacter: WdTrailingCharacter read Get_TrailingCharacter write Set_TrailingCharacter;
  13369.     property NumberStyle: WdListNumberStyle read Get_NumberStyle write Set_NumberStyle;
  13370.     property NumberPosition: Single read Get_NumberPosition write Set_NumberPosition;
  13371.     property Alignment: WdListLevelAlignment read Get_Alignment write Set_Alignment;
  13372.     property TextPosition: Single read Get_TextPosition write Set_TextPosition;
  13373.     property TabPosition: Single read Get_TabPosition write Set_TabPosition;
  13374.     property ResetOnHigher: WordBool read Get_ResetOnHigher write Set_ResetOnHigher;
  13375.     property StartAt: Integer read Get_StartAt write Set_StartAt;
  13376.     property LinkedStyle: WideString read Get_LinkedStyle write Set_LinkedStyle;
  13377.     property Font: WordFont read Get_Font write Set_Font;
  13378.     property Application: WordApplication read Get_Application;
  13379.     property Creator: Integer read Get_Creator;
  13380.     property Parent: IDispatch read Get_Parent;
  13381.   end;
  13382.  
  13383. // *********************************************************************//
  13384. // DispIntf:  ListLevelDisp
  13385. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13386. // GUID:      {0002098D-0000-0000-C000-000000000046}
  13387. // *********************************************************************//
  13388.   ListLevelDisp = dispinterface
  13389.     ['{0002098D-0000-0000-C000-000000000046}']
  13390.     property Index: Integer readonly dispid 1;
  13391.     property NumberFormat: WideString dispid 2;
  13392.     property TrailingCharacter: WdTrailingCharacter dispid 3;
  13393.     property NumberStyle: WdListNumberStyle dispid 4;
  13394.     property NumberPosition: Single dispid 5;
  13395.     property Alignment: WdListLevelAlignment dispid 6;
  13396.     property TextPosition: Single dispid 7;
  13397.     property TabPosition: Single dispid 8;
  13398.     property ResetOnHigher: WordBool dispid 9;
  13399.     property StartAt: Integer dispid 10;
  13400.     property LinkedStyle: WideString dispid 11;
  13401.     property Font: WordFont dispid 12;
  13402.     property Application: WordApplication readonly dispid 1000;
  13403.     property Creator: Integer readonly dispid 1001;
  13404.     property Parent: IDispatch readonly dispid 1002;
  13405.   end;
  13406.  
  13407. // *********************************************************************//
  13408. // Interface: ListLevels
  13409. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13410. // GUID:      {0002098E-0000-0000-C000-000000000046}
  13411. // *********************************************************************//
  13412.   ListLevels = interface(IDispatch)
  13413.     ['{0002098E-0000-0000-C000-000000000046}']
  13414.     function  Get__NewEnum: IUnknown; safecall;
  13415.     function  Get_Count: Integer; safecall;
  13416.     function  Get_Application: WordApplication; safecall;
  13417.     function  Get_Creator: Integer; safecall;
  13418.     function  Get_Parent: IDispatch; safecall;
  13419.     function  Item(Index: Integer): ListLevel; safecall;
  13420.     property _NewEnum: IUnknown read Get__NewEnum;
  13421.     property Count: Integer read Get_Count;
  13422.     property Application: WordApplication read Get_Application;
  13423.     property Creator: Integer read Get_Creator;
  13424.     property Parent: IDispatch read Get_Parent;
  13425.   end;
  13426.  
  13427. // *********************************************************************//
  13428. // DispIntf:  ListLevelsDisp
  13429. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13430. // GUID:      {0002098E-0000-0000-C000-000000000046}
  13431. // *********************************************************************//
  13432.   ListLevelsDisp = dispinterface
  13433.     ['{0002098E-0000-0000-C000-000000000046}']
  13434.     property _NewEnum: IUnknown readonly dispid -4;
  13435.     property Count: Integer readonly dispid 2;
  13436.     property Application: WordApplication readonly dispid 1000;
  13437.     property Creator: Integer readonly dispid 1001;
  13438.     property Parent: IDispatch readonly dispid 1002;
  13439.     function  Item(Index: Integer): ListLevel; dispid 0;
  13440.   end;
  13441.  
  13442. // *********************************************************************//
  13443. // Interface: ListTemplate
  13444. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13445. // GUID:      {0002098F-0000-0000-C000-000000000046}
  13446. // *********************************************************************//
  13447.   ListTemplate = interface(IDispatch)
  13448.     ['{0002098F-0000-0000-C000-000000000046}']
  13449.     function  Get_Application: WordApplication; safecall;
  13450.     function  Get_Creator: Integer; safecall;
  13451.     function  Get_Parent: IDispatch; safecall;
  13452.     function  Get_OutlineNumbered: WordBool; safecall;
  13453.     procedure Set_OutlineNumbered(prop: WordBool); safecall;
  13454.     function  Get_Name: WideString; safecall;
  13455.     procedure Set_Name(const prop: WideString); safecall;
  13456.     function  Get_ListLevels: ListLevels; safecall;
  13457.     function  Convert(var Level: OleVariant): ListTemplate; safecall;
  13458.     property Application: WordApplication read Get_Application;
  13459.     property Creator: Integer read Get_Creator;
  13460.     property Parent: IDispatch read Get_Parent;
  13461.     property OutlineNumbered: WordBool read Get_OutlineNumbered write Set_OutlineNumbered;
  13462.     property Name: WideString read Get_Name write Set_Name;
  13463.     property ListLevels: ListLevels read Get_ListLevels;
  13464.   end;
  13465.  
  13466. // *********************************************************************//
  13467. // DispIntf:  ListTemplateDisp
  13468. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13469. // GUID:      {0002098F-0000-0000-C000-000000000046}
  13470. // *********************************************************************//
  13471.   ListTemplateDisp = dispinterface
  13472.     ['{0002098F-0000-0000-C000-000000000046}']
  13473.     property Application: WordApplication readonly dispid 1000;
  13474.     property Creator: Integer readonly dispid 1001;
  13475.     property Parent: IDispatch readonly dispid 1002;
  13476.     property OutlineNumbered: WordBool dispid 1;
  13477.     property Name: WideString dispid 3;
  13478.     property ListLevels: ListLevels readonly dispid 2;
  13479.     function  Convert(var Level: OleVariant): ListTemplate; dispid 101;
  13480.   end;
  13481.  
  13482. // *********************************************************************//
  13483. // Interface: ListTemplates
  13484. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13485. // GUID:      {00020990-0000-0000-C000-000000000046}
  13486. // *********************************************************************//
  13487.   ListTemplates = interface(IDispatch)
  13488.     ['{00020990-0000-0000-C000-000000000046}']
  13489.     function  Get__NewEnum: IUnknown; safecall;
  13490.     function  Get_Count: Integer; safecall;
  13491.     function  Get_Application: WordApplication; safecall;
  13492.     function  Get_Creator: Integer; safecall;
  13493.     function  Get_Parent: IDispatch; safecall;
  13494.     function  Item(var Index: OleVariant): ListTemplate; safecall;
  13495.     function  Add(var OutlineNumbered: OleVariant; var Name: OleVariant): ListTemplate; safecall;
  13496.     property _NewEnum: IUnknown read Get__NewEnum;
  13497.     property Count: Integer read Get_Count;
  13498.     property Application: WordApplication read Get_Application;
  13499.     property Creator: Integer read Get_Creator;
  13500.     property Parent: IDispatch read Get_Parent;
  13501.   end;
  13502.  
  13503. // *********************************************************************//
  13504. // DispIntf:  ListTemplatesDisp
  13505. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13506. // GUID:      {00020990-0000-0000-C000-000000000046}
  13507. // *********************************************************************//
  13508.   ListTemplatesDisp = dispinterface
  13509.     ['{00020990-0000-0000-C000-000000000046}']
  13510.     property _NewEnum: IUnknown readonly dispid -4;
  13511.     property Count: Integer readonly dispid 2;
  13512.     property Application: WordApplication readonly dispid 1000;
  13513.     property Creator: Integer readonly dispid 1001;
  13514.     property Parent: IDispatch readonly dispid 1002;
  13515.     function  Item(var Index: OleVariant): ListTemplate; dispid 0;
  13516.     function  Add(var OutlineNumbered: OleVariant; var Name: OleVariant): ListTemplate; dispid 100;
  13517.   end;
  13518.  
  13519. // *********************************************************************//
  13520. // Interface: ListParagraphs
  13521. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13522. // GUID:      {00020991-0000-0000-C000-000000000046}
  13523. // *********************************************************************//
  13524.   ListParagraphs = interface(IDispatch)
  13525.     ['{00020991-0000-0000-C000-000000000046}']
  13526.     function  Get__NewEnum: IUnknown; safecall;
  13527.     function  Get_Count: Integer; safecall;
  13528.     function  Get_Application: WordApplication; safecall;
  13529.     function  Get_Creator: Integer; safecall;
  13530.     function  Get_Parent: IDispatch; safecall;
  13531.     function  Item(Index: Integer): Paragraph; safecall;
  13532.     property _NewEnum: IUnknown read Get__NewEnum;
  13533.     property Count: Integer read Get_Count;
  13534.     property Application: WordApplication read Get_Application;
  13535.     property Creator: Integer read Get_Creator;
  13536.     property Parent: IDispatch read Get_Parent;
  13537.   end;
  13538.  
  13539. // *********************************************************************//
  13540. // DispIntf:  ListParagraphsDisp
  13541. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13542. // GUID:      {00020991-0000-0000-C000-000000000046}
  13543. // *********************************************************************//
  13544.   ListParagraphsDisp = dispinterface
  13545.     ['{00020991-0000-0000-C000-000000000046}']
  13546.     property _NewEnum: IUnknown readonly dispid -4;
  13547.     property Count: Integer readonly dispid 2;
  13548.     property Application: WordApplication readonly dispid 1000;
  13549.     property Creator: Integer readonly dispid 1001;
  13550.     property Parent: IDispatch readonly dispid 1002;
  13551.     function  Item(Index: Integer): Paragraph; dispid 0;
  13552.   end;
  13553.  
  13554. // *********************************************************************//
  13555. // Interface: List
  13556. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13557. // GUID:      {00020992-0000-0000-C000-000000000046}
  13558. // *********************************************************************//
  13559.   List = interface(IDispatch)
  13560.     ['{00020992-0000-0000-C000-000000000046}']
  13561.     function  Get_Range: Range; safecall;
  13562.     function  Get_ListParagraphs: ListParagraphs; safecall;
  13563.     function  Get_SingleListTemplate: WordBool; safecall;
  13564.     function  Get_Application: WordApplication; safecall;
  13565.     function  Get_Creator: Integer; safecall;
  13566.     function  Get_Parent: IDispatch; safecall;
  13567.     procedure ConvertNumbersToText(var NumberType: OleVariant); safecall;
  13568.     procedure RemoveNumbers(var NumberType: OleVariant); safecall;
  13569.     function  CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer; safecall;
  13570.     procedure ApplyListTemplate(const ListTemplate: ListTemplate; 
  13571.                                 var ContinuePreviousList: OleVariant); safecall;
  13572.     function  CanContinuePreviousList(const ListTemplate: ListTemplate): WdContinue; safecall;
  13573.     property Range: Range read Get_Range;
  13574.     property ListParagraphs: ListParagraphs read Get_ListParagraphs;
  13575.     property SingleListTemplate: WordBool read Get_SingleListTemplate;
  13576.     property Application: WordApplication read Get_Application;
  13577.     property Creator: Integer read Get_Creator;
  13578.     property Parent: IDispatch read Get_Parent;
  13579.   end;
  13580.  
  13581. // *********************************************************************//
  13582. // DispIntf:  ListDisp
  13583. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13584. // GUID:      {00020992-0000-0000-C000-000000000046}
  13585. // *********************************************************************//
  13586.   ListDisp = dispinterface
  13587.     ['{00020992-0000-0000-C000-000000000046}']
  13588.     property Range: Range readonly dispid 1;
  13589.     property ListParagraphs: ListParagraphs readonly dispid 2;
  13590.     property SingleListTemplate: WordBool readonly dispid 3;
  13591.     property Application: WordApplication readonly dispid 1000;
  13592.     property Creator: Integer readonly dispid 1001;
  13593.     property Parent: IDispatch readonly dispid 1002;
  13594.     procedure ConvertNumbersToText(var NumberType: OleVariant); dispid 101;
  13595.     procedure RemoveNumbers(var NumberType: OleVariant); dispid 102;
  13596.     function  CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer; dispid 103;
  13597.     procedure ApplyListTemplate(const ListTemplate: ListTemplate; 
  13598.                                 var ContinuePreviousList: OleVariant); dispid 104;
  13599.     function  CanContinuePreviousList(const ListTemplate: ListTemplate): WdContinue; dispid 105;
  13600.   end;
  13601.  
  13602. // *********************************************************************//
  13603. // Interface: Lists
  13604. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13605. // GUID:      {00020993-0000-0000-C000-000000000046}
  13606. // *********************************************************************//
  13607.   Lists = interface(IDispatch)
  13608.     ['{00020993-0000-0000-C000-000000000046}']
  13609.     function  Get__NewEnum: IUnknown; safecall;
  13610.     function  Get_Count: Integer; safecall;
  13611.     function  Get_Application: WordApplication; safecall;
  13612.     function  Get_Creator: Integer; safecall;
  13613.     function  Get_Parent: IDispatch; safecall;
  13614.     function  Item(Index: Integer): List; safecall;
  13615.     property _NewEnum: IUnknown read Get__NewEnum;
  13616.     property Count: Integer read Get_Count;
  13617.     property Application: WordApplication read Get_Application;
  13618.     property Creator: Integer read Get_Creator;
  13619.     property Parent: IDispatch read Get_Parent;
  13620.   end;
  13621.  
  13622. // *********************************************************************//
  13623. // DispIntf:  ListsDisp
  13624. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13625. // GUID:      {00020993-0000-0000-C000-000000000046}
  13626. // *********************************************************************//
  13627.   ListsDisp = dispinterface
  13628.     ['{00020993-0000-0000-C000-000000000046}']
  13629.     property _NewEnum: IUnknown readonly dispid -4;
  13630.     property Count: Integer readonly dispid 2;
  13631.     property Application: WordApplication readonly dispid 1000;
  13632.     property Creator: Integer readonly dispid 1001;
  13633.     property Parent: IDispatch readonly dispid 1002;
  13634.     function  Item(Index: Integer): List; dispid 0;
  13635.   end;
  13636.  
  13637. // *********************************************************************//
  13638. // Interface: ListGallery
  13639. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13640. // GUID:      {00020994-0000-0000-C000-000000000046}
  13641. // *********************************************************************//
  13642.   ListGallery = interface(IDispatch)
  13643.     ['{00020994-0000-0000-C000-000000000046}']
  13644.     function  Get_ListTemplates: ListTemplates; safecall;
  13645.     function  Get_Application: WordApplication; safecall;
  13646.     function  Get_Creator: Integer; safecall;
  13647.     function  Get_Parent: IDispatch; safecall;
  13648.     function  Get_Modified(Index: Integer): WordBool; safecall;
  13649.     procedure Reset(Index: Integer); safecall;
  13650.     property ListTemplates: ListTemplates read Get_ListTemplates;
  13651.     property Application: WordApplication read Get_Application;
  13652.     property Creator: Integer read Get_Creator;
  13653.     property Parent: IDispatch read Get_Parent;
  13654.     property Modified[Index: Integer]: WordBool read Get_Modified;
  13655.   end;
  13656.  
  13657. // *********************************************************************//
  13658. // DispIntf:  ListGalleryDisp
  13659. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13660. // GUID:      {00020994-0000-0000-C000-000000000046}
  13661. // *********************************************************************//
  13662.   ListGalleryDisp = dispinterface
  13663.     ['{00020994-0000-0000-C000-000000000046}']
  13664.     property ListTemplates: ListTemplates readonly dispid 1;
  13665.     property Application: WordApplication readonly dispid 1000;
  13666.     property Creator: Integer readonly dispid 1001;
  13667.     property Parent: IDispatch readonly dispid 1002;
  13668.     property Modified[Index: Integer]: WordBool readonly dispid 101;
  13669.     procedure Reset(Index: Integer); dispid 100;
  13670.   end;
  13671.  
  13672. // *********************************************************************//
  13673. // Interface: ListGalleries
  13674. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13675. // GUID:      {00020995-0000-0000-C000-000000000046}
  13676. // *********************************************************************//
  13677.   ListGalleries = interface(IDispatch)
  13678.     ['{00020995-0000-0000-C000-000000000046}']
  13679.     function  Get__NewEnum: IUnknown; safecall;
  13680.     function  Get_Count: Integer; safecall;
  13681.     function  Get_Application: WordApplication; safecall;
  13682.     function  Get_Creator: Integer; safecall;
  13683.     function  Get_Parent: IDispatch; safecall;
  13684.     function  Item(Index: WdListGalleryType): ListGallery; safecall;
  13685.     property _NewEnum: IUnknown read Get__NewEnum;
  13686.     property Count: Integer read Get_Count;
  13687.     property Application: WordApplication read Get_Application;
  13688.     property Creator: Integer read Get_Creator;
  13689.     property Parent: IDispatch read Get_Parent;
  13690.   end;
  13691.  
  13692. // *********************************************************************//
  13693. // DispIntf:  ListGalleriesDisp
  13694. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13695. // GUID:      {00020995-0000-0000-C000-000000000046}
  13696. // *********************************************************************//
  13697.   ListGalleriesDisp = dispinterface
  13698.     ['{00020995-0000-0000-C000-000000000046}']
  13699.     property _NewEnum: IUnknown readonly dispid -4;
  13700.     property Count: Integer readonly dispid 2;
  13701.     property Application: WordApplication readonly dispid 1000;
  13702.     property Creator: Integer readonly dispid 1001;
  13703.     property Parent: IDispatch readonly dispid 1002;
  13704.     function  Item(Index: WdListGalleryType): ListGallery; dispid 0;
  13705.   end;
  13706.  
  13707. // *********************************************************************//
  13708. // Interface: KeyBindings
  13709. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13710. // GUID:      {00020996-0000-0000-C000-000000000046}
  13711. // *********************************************************************//
  13712.   KeyBindings = interface(IDispatch)
  13713.     ['{00020996-0000-0000-C000-000000000046}']
  13714.     function  Get_Application: WordApplication; safecall;
  13715.     function  Get_Creator: Integer; safecall;
  13716.     function  Get_Parent: IDispatch; safecall;
  13717.     function  Get__NewEnum: IUnknown; safecall;
  13718.     function  Get_Count: Integer; safecall;
  13719.     function  Get_Context: IDispatch; safecall;
  13720.     function  Item(Index: Integer): KeyBinding; safecall;
  13721.     function  Add(KeyCategory: WdKeyCategory; const Command: WideString; KeyCode: Integer; 
  13722.                   var KeyCode2: OleVariant; var CommandParameter: OleVariant): KeyBinding; safecall;
  13723.     procedure ClearAll; safecall;
  13724.     function  Key(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding; safecall;
  13725.     property Application: WordApplication read Get_Application;
  13726.     property Creator: Integer read Get_Creator;
  13727.     property Parent: IDispatch read Get_Parent;
  13728.     property _NewEnum: IUnknown read Get__NewEnum;
  13729.     property Count: Integer read Get_Count;
  13730.     property Context: IDispatch read Get_Context;
  13731.   end;
  13732.  
  13733. // *********************************************************************//
  13734. // DispIntf:  KeyBindingsDisp
  13735. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13736. // GUID:      {00020996-0000-0000-C000-000000000046}
  13737. // *********************************************************************//
  13738.   KeyBindingsDisp = dispinterface
  13739.     ['{00020996-0000-0000-C000-000000000046}']
  13740.     property Application: WordApplication readonly dispid 1000;
  13741.     property Creator: Integer readonly dispid 1001;
  13742.     property Parent: IDispatch readonly dispid 1002;
  13743.     property _NewEnum: IUnknown readonly dispid -4;
  13744.     property Count: Integer readonly dispid 2;
  13745.     property Context: IDispatch readonly dispid 10;
  13746.     function  Item(Index: Integer): KeyBinding; dispid 0;
  13747.     function  Add(KeyCategory: WdKeyCategory; const Command: WideString; KeyCode: Integer; 
  13748.                   var KeyCode2: OleVariant; var CommandParameter: OleVariant): KeyBinding; dispid 101;
  13749.     procedure ClearAll; dispid 102;
  13750.     function  Key(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding; dispid 110;
  13751.   end;
  13752.  
  13753. // *********************************************************************//
  13754. // Interface: KeysBoundTo
  13755. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13756. // GUID:      {00020997-0000-0000-C000-000000000046}
  13757. // *********************************************************************//
  13758.   KeysBoundTo = interface(IDispatch)
  13759.     ['{00020997-0000-0000-C000-000000000046}']
  13760.     function  Get_Application: WordApplication; safecall;
  13761.     function  Get_Creator: Integer; safecall;
  13762.     function  Get_Parent: IDispatch; safecall;
  13763.     function  Get__NewEnum: IUnknown; safecall;
  13764.     function  Get_Count: Integer; safecall;
  13765.     function  Get_KeyCategory: WdKeyCategory; safecall;
  13766.     function  Get_Command: WideString; safecall;
  13767.     function  Get_CommandParameter: WideString; safecall;
  13768.     function  Get_Context: IDispatch; safecall;
  13769.     function  Item(Index: Integer): KeyBinding; safecall;
  13770.     function  Key(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding; safecall;
  13771.     property Application: WordApplication read Get_Application;
  13772.     property Creator: Integer read Get_Creator;
  13773.     property Parent: IDispatch read Get_Parent;
  13774.     property _NewEnum: IUnknown read Get__NewEnum;
  13775.     property Count: Integer read Get_Count;
  13776.     property KeyCategory: WdKeyCategory read Get_KeyCategory;
  13777.     property Command: WideString read Get_Command;
  13778.     property CommandParameter: WideString read Get_CommandParameter;
  13779.     property Context: IDispatch read Get_Context;
  13780.   end;
  13781.  
  13782. // *********************************************************************//
  13783. // DispIntf:  KeysBoundToDisp
  13784. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13785. // GUID:      {00020997-0000-0000-C000-000000000046}
  13786. // *********************************************************************//
  13787.   KeysBoundToDisp = dispinterface
  13788.     ['{00020997-0000-0000-C000-000000000046}']
  13789.     property Application: WordApplication readonly dispid 1000;
  13790.     property Creator: Integer readonly dispid 1001;
  13791.     property Parent: IDispatch readonly dispid 1002;
  13792.     property _NewEnum: IUnknown readonly dispid -4;
  13793.     property Count: Integer readonly dispid 2;
  13794.     property KeyCategory: WdKeyCategory readonly dispid 3;
  13795.     property Command: WideString readonly dispid 4;
  13796.     property CommandParameter: WideString readonly dispid 5;
  13797.     property Context: IDispatch readonly dispid 10;
  13798.     function  Item(Index: Integer): KeyBinding; dispid 0;
  13799.     function  Key(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding; dispid 1;
  13800.   end;
  13801.  
  13802. // *********************************************************************//
  13803. // Interface: KeyBinding
  13804. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13805. // GUID:      {00020998-0000-0000-C000-000000000046}
  13806. // *********************************************************************//
  13807.   KeyBinding = interface(IDispatch)
  13808.     ['{00020998-0000-0000-C000-000000000046}']
  13809.     function  Get_Application: WordApplication; safecall;
  13810.     function  Get_Creator: Integer; safecall;
  13811.     function  Get_Parent: IDispatch; safecall;
  13812.     function  Get_Command: WideString; safecall;
  13813.     function  Get_KeyString: WideString; safecall;
  13814.     function  Get_Protected_: WordBool; safecall;
  13815.     function  Get_KeyCategory: WdKeyCategory; safecall;
  13816.     function  Get_KeyCode: Integer; safecall;
  13817.     function  Get_KeyCode2: Integer; safecall;
  13818.     function  Get_CommandParameter: WideString; safecall;
  13819.     function  Get_Context: IDispatch; safecall;
  13820.     procedure Clear; safecall;
  13821.     procedure Disable; safecall;
  13822.     procedure Execute; safecall;
  13823.     procedure Rebind(KeyCategory: WdKeyCategory; const Command: WideString; 
  13824.                      var CommandParameter: OleVariant); safecall;
  13825.     property Application: WordApplication read Get_Application;
  13826.     property Creator: Integer read Get_Creator;
  13827.     property Parent: IDispatch read Get_Parent;
  13828.     property Command: WideString read Get_Command;
  13829.     property KeyString: WideString read Get_KeyString;
  13830.     property Protected_: WordBool read Get_Protected_;
  13831.     property KeyCategory: WdKeyCategory read Get_KeyCategory;
  13832.     property KeyCode: Integer read Get_KeyCode;
  13833.     property KeyCode2: Integer read Get_KeyCode2;
  13834.     property CommandParameter: WideString read Get_CommandParameter;
  13835.     property Context: IDispatch read Get_Context;
  13836.   end;
  13837.  
  13838. // *********************************************************************//
  13839. // DispIntf:  KeyBindingDisp
  13840. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13841. // GUID:      {00020998-0000-0000-C000-000000000046}
  13842. // *********************************************************************//
  13843.   KeyBindingDisp = dispinterface
  13844.     ['{00020998-0000-0000-C000-000000000046}']
  13845.     property Application: WordApplication readonly dispid 1000;
  13846.     property Creator: Integer readonly dispid 1001;
  13847.     property Parent: IDispatch readonly dispid 1002;
  13848.     property Command: WideString readonly dispid 1;
  13849.     property KeyString: WideString readonly dispid 2;
  13850.     property Protected_: WordBool readonly dispid 3;
  13851.     property KeyCategory: WdKeyCategory readonly dispid 4;
  13852.     property KeyCode: Integer readonly dispid 6;
  13853.     property KeyCode2: Integer readonly dispid 7;
  13854.     property CommandParameter: WideString readonly dispid 8;
  13855.     property Context: IDispatch readonly dispid 10;
  13856.     procedure Clear; dispid 101;
  13857.     procedure Disable; dispid 102;
  13858.     procedure Execute; dispid 103;
  13859.     procedure Rebind(KeyCategory: WdKeyCategory; const Command: WideString; 
  13860.                      var CommandParameter: OleVariant); dispid 104;
  13861.   end;
  13862.  
  13863. // *********************************************************************//
  13864. // Interface: FileConverter
  13865. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13866. // GUID:      {00020999-0000-0000-C000-000000000046}
  13867. // *********************************************************************//
  13868.   FileConverter = interface(IDispatch)
  13869.     ['{00020999-0000-0000-C000-000000000046}']
  13870.     function  Get_Application: WordApplication; safecall;
  13871.     function  Get_Creator: Integer; safecall;
  13872.     function  Get_Parent: IDispatch; safecall;
  13873.     function  Get_FormatName: WideString; safecall;
  13874.     function  Get_ClassName: WideString; safecall;
  13875.     function  Get_SaveFormat: Integer; safecall;
  13876.     function  Get_OpenFormat: Integer; safecall;
  13877.     function  Get_CanSave: WordBool; safecall;
  13878.     function  Get_CanOpen: WordBool; safecall;
  13879.     function  Get_Path: WideString; safecall;
  13880.     function  Get_Name: WideString; safecall;
  13881.     function  Get_Extensions: WideString; safecall;
  13882.     property Application: WordApplication read Get_Application;
  13883.     property Creator: Integer read Get_Creator;
  13884.     property Parent: IDispatch read Get_Parent;
  13885.     property FormatName: WideString read Get_FormatName;
  13886.     property ClassName: WideString read Get_ClassName;
  13887.     property SaveFormat: Integer read Get_SaveFormat;
  13888.     property OpenFormat: Integer read Get_OpenFormat;
  13889.     property CanSave: WordBool read Get_CanSave;
  13890.     property CanOpen: WordBool read Get_CanOpen;
  13891.     property Path: WideString read Get_Path;
  13892.     property Name: WideString read Get_Name;
  13893.     property Extensions: WideString read Get_Extensions;
  13894.   end;
  13895.  
  13896. // *********************************************************************//
  13897. // DispIntf:  FileConverterDisp
  13898. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13899. // GUID:      {00020999-0000-0000-C000-000000000046}
  13900. // *********************************************************************//
  13901.   FileConverterDisp = dispinterface
  13902.     ['{00020999-0000-0000-C000-000000000046}']
  13903.     property Application: WordApplication readonly dispid 1000;
  13904.     property Creator: Integer readonly dispid 1001;
  13905.     property Parent: IDispatch readonly dispid 1002;
  13906.     property FormatName: WideString readonly dispid 0;
  13907.     property ClassName: WideString readonly dispid 1;
  13908.     property SaveFormat: Integer readonly dispid 2;
  13909.     property OpenFormat: Integer readonly dispid 3;
  13910.     property CanSave: WordBool readonly dispid 4;
  13911.     property CanOpen: WordBool readonly dispid 5;
  13912.     property Path: WideString readonly dispid 6;
  13913.     property Name: WideString readonly dispid 7;
  13914.     property Extensions: WideString readonly dispid 8;
  13915.   end;
  13916.  
  13917. // *********************************************************************//
  13918. // Interface: FileConverters
  13919. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13920. // GUID:      {0002099A-0000-0000-C000-000000000046}
  13921. // *********************************************************************//
  13922.   FileConverters = interface(IDispatch)
  13923.     ['{0002099A-0000-0000-C000-000000000046}']
  13924.     function  Get_Application: WordApplication; safecall;
  13925.     function  Get_Creator: Integer; safecall;
  13926.     function  Get_Parent: IDispatch; safecall;
  13927.     function  Get_Count: Integer; safecall;
  13928.     function  Get__NewEnum: IUnknown; safecall;
  13929.     function  Get_ConvertMacWordChevrons: WdChevronConvertRule; safecall;
  13930.     procedure Set_ConvertMacWordChevrons(prop: WdChevronConvertRule); safecall;
  13931.     function  Item(var Index: OleVariant): FileConverter; safecall;
  13932.     property Application: WordApplication read Get_Application;
  13933.     property Creator: Integer read Get_Creator;
  13934.     property Parent: IDispatch read Get_Parent;
  13935.     property Count: Integer read Get_Count;
  13936.     property _NewEnum: IUnknown read Get__NewEnum;
  13937.     property ConvertMacWordChevrons: WdChevronConvertRule read Get_ConvertMacWordChevrons write Set_ConvertMacWordChevrons;
  13938.   end;
  13939.  
  13940. // *********************************************************************//
  13941. // DispIntf:  FileConvertersDisp
  13942. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13943. // GUID:      {0002099A-0000-0000-C000-000000000046}
  13944. // *********************************************************************//
  13945.   FileConvertersDisp = dispinterface
  13946.     ['{0002099A-0000-0000-C000-000000000046}']
  13947.     property Application: WordApplication readonly dispid 1000;
  13948.     property Creator: Integer readonly dispid 1001;
  13949.     property Parent: IDispatch readonly dispid 1002;
  13950.     property Count: Integer readonly dispid 1;
  13951.     property _NewEnum: IUnknown readonly dispid -4;
  13952.     property ConvertMacWordChevrons: WdChevronConvertRule dispid 2;
  13953.     function  Item(var Index: OleVariant): FileConverter; dispid 0;
  13954.   end;
  13955.  
  13956. // *********************************************************************//
  13957. // Interface: SynonymInfo
  13958. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13959. // GUID:      {0002099B-0000-0000-C000-000000000046}
  13960. // *********************************************************************//
  13961.   SynonymInfo = interface(IDispatch)
  13962.     ['{0002099B-0000-0000-C000-000000000046}']
  13963.     function  Get_Application: WordApplication; safecall;
  13964.     function  Get_Creator: Integer; safecall;
  13965.     function  Get_Parent: IDispatch; safecall;
  13966.     function  Get_Word: WideString; safecall;
  13967.     function  Get_Found: WordBool; safecall;
  13968.     function  Get_MeaningCount: Integer; safecall;
  13969.     function  Get_MeaningList: OleVariant; safecall;
  13970.     function  Get_PartOfSpeechList: OleVariant; safecall;
  13971.     function  Get_SynonymList(var Meaning: OleVariant): OleVariant; safecall;
  13972.     function  Get_AntonymList: OleVariant; safecall;
  13973.     function  Get_RelatedExpressionList: OleVariant; safecall;
  13974.     function  Get_RelatedWordList: OleVariant; safecall;
  13975.     property Application: WordApplication read Get_Application;
  13976.     property Creator: Integer read Get_Creator;
  13977.     property Parent: IDispatch read Get_Parent;
  13978.     property Word: WideString read Get_Word;
  13979.     property Found: WordBool read Get_Found;
  13980.     property MeaningCount: Integer read Get_MeaningCount;
  13981.     property MeaningList: OleVariant read Get_MeaningList;
  13982.     property PartOfSpeechList: OleVariant read Get_PartOfSpeechList;
  13983.     property SynonymList[var Meaning: OleVariant]: OleVariant read Get_SynonymList;
  13984.     property AntonymList: OleVariant read Get_AntonymList;
  13985.     property RelatedExpressionList: OleVariant read Get_RelatedExpressionList;
  13986.     property RelatedWordList: OleVariant read Get_RelatedWordList;
  13987.   end;
  13988.  
  13989. // *********************************************************************//
  13990. // DispIntf:  SynonymInfoDisp
  13991. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  13992. // GUID:      {0002099B-0000-0000-C000-000000000046}
  13993. // *********************************************************************//
  13994.   SynonymInfoDisp = dispinterface
  13995.     ['{0002099B-0000-0000-C000-000000000046}']
  13996.     property Application: WordApplication readonly dispid 1000;
  13997.     property Creator: Integer readonly dispid 1001;
  13998.     property Parent: IDispatch readonly dispid 1002;
  13999.     property Word: WideString readonly dispid 1;
  14000.     property Found: WordBool readonly dispid 2;
  14001.     property MeaningCount: Integer readonly dispid 3;
  14002.     property MeaningList: OleVariant readonly dispid 4;
  14003.     property PartOfSpeechList: OleVariant readonly dispid 5;
  14004.     property SynonymList[var Meaning: OleVariant]: OleVariant readonly dispid 7;
  14005.     property AntonymList: OleVariant readonly dispid 8;
  14006.     property RelatedExpressionList: OleVariant readonly dispid 9;
  14007.     property RelatedWordList: OleVariant readonly dispid 10;
  14008.   end;
  14009.  
  14010. // *********************************************************************//
  14011. // Interface: Hyperlinks
  14012. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14013. // GUID:      {0002099C-0000-0000-C000-000000000046}
  14014. // *********************************************************************//
  14015.   Hyperlinks = interface(IDispatch)
  14016.     ['{0002099C-0000-0000-C000-000000000046}']
  14017.     function  Get_Application: WordApplication; safecall;
  14018.     function  Get_Creator: Integer; safecall;
  14019.     function  Get_Parent: IDispatch; safecall;
  14020.     function  Get_Count: Integer; safecall;
  14021.     function  Get__NewEnum: IUnknown; safecall;
  14022.     function  Item(var Index: OleVariant): Hyperlink; safecall;
  14023.     function  Add(const Anchor: IDispatch; var Address: OleVariant; var SubAddress: OleVariant): Hyperlink; safecall;
  14024.     property Application: WordApplication read Get_Application;
  14025.     property Creator: Integer read Get_Creator;
  14026.     property Parent: IDispatch read Get_Parent;
  14027.     property Count: Integer read Get_Count;
  14028.     property _NewEnum: IUnknown read Get__NewEnum;
  14029.   end;
  14030.  
  14031. // *********************************************************************//
  14032. // DispIntf:  HyperlinksDisp
  14033. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14034. // GUID:      {0002099C-0000-0000-C000-000000000046}
  14035. // *********************************************************************//
  14036.   HyperlinksDisp = dispinterface
  14037.     ['{0002099C-0000-0000-C000-000000000046}']
  14038.     property Application: WordApplication readonly dispid 1000;
  14039.     property Creator: Integer readonly dispid 1001;
  14040.     property Parent: IDispatch readonly dispid 1002;
  14041.     property Count: Integer readonly dispid 1;
  14042.     property _NewEnum: IUnknown readonly dispid -4;
  14043.     function  Item(var Index: OleVariant): Hyperlink; dispid 0;
  14044.     function  Add(const Anchor: IDispatch; var Address: OleVariant; var SubAddress: OleVariant): Hyperlink; dispid 100;
  14045.   end;
  14046.  
  14047. // *********************************************************************//
  14048. // Interface: Hyperlink
  14049. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14050. // GUID:      {0002099D-0000-0000-C000-000000000046}
  14051. // *********************************************************************//
  14052.   Hyperlink = interface(IDispatch)
  14053.     ['{0002099D-0000-0000-C000-000000000046}']
  14054.     function  Get_Application: WordApplication; safecall;
  14055.     function  Get_Creator: Integer; safecall;
  14056.     function  Get_Parent: IDispatch; safecall;
  14057.     function  Get_Name: WideString; safecall;
  14058.     function  Get_Address: WideString; safecall;
  14059.     function  Get_Type_: MsoHyperlinkType; safecall;
  14060.     function  Get_Range: Range; safecall;
  14061.     function  Get_Shape: Shape; safecall;
  14062.     function  Get_SubAddress: WideString; safecall;
  14063.     function  Get_ExtraInfoRequired: WordBool; safecall;
  14064.     procedure Delete; safecall;
  14065.     procedure Follow(var NewWindow: OleVariant; var AddHistory: OleVariant; 
  14066.                      var ExtraInfo: OleVariant; var Method: OleVariant; var HeaderInfo: OleVariant); safecall;
  14067.     procedure AddToFavorites; safecall;
  14068.     property Application: WordApplication read Get_Application;
  14069.     property Creator: Integer read Get_Creator;
  14070.     property Parent: IDispatch read Get_Parent;
  14071.     property Name: WideString read Get_Name;
  14072.     property Address: WideString read Get_Address;
  14073.     property Type_: MsoHyperlinkType read Get_Type_;
  14074.     property Range: Range read Get_Range;
  14075.     property Shape: Shape read Get_Shape;
  14076.     property SubAddress: WideString read Get_SubAddress;
  14077.     property ExtraInfoRequired: WordBool read Get_ExtraInfoRequired;
  14078.   end;
  14079.  
  14080. // *********************************************************************//
  14081. // DispIntf:  HyperlinkDisp
  14082. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14083. // GUID:      {0002099D-0000-0000-C000-000000000046}
  14084. // *********************************************************************//
  14085.   HyperlinkDisp = dispinterface
  14086.     ['{0002099D-0000-0000-C000-000000000046}']
  14087.     property Application: WordApplication readonly dispid 1000;
  14088.     property Creator: Integer readonly dispid 1001;
  14089.     property Parent: IDispatch readonly dispid 1002;
  14090.     property Name: WideString readonly dispid 1003;
  14091.     property Address: WideString readonly dispid 1004;
  14092.     property Type_: MsoHyperlinkType readonly dispid 1005;
  14093.     property Range: Range readonly dispid 1006;
  14094.     property Shape: Shape readonly dispid 1007;
  14095.     property SubAddress: WideString readonly dispid 1008;
  14096.     property ExtraInfoRequired: WordBool readonly dispid 1009;
  14097.     procedure Delete; dispid 103;
  14098.     procedure Follow(var NewWindow: OleVariant; var AddHistory: OleVariant; 
  14099.                      var ExtraInfo: OleVariant; var Method: OleVariant; var HeaderInfo: OleVariant); dispid 104;
  14100.     procedure AddToFavorites; dispid 105;
  14101.   end;
  14102.  
  14103. // *********************************************************************//
  14104. // Interface: Shapes
  14105. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14106. // GUID:      {0002099F-0000-0000-C000-000000000046}
  14107. // *********************************************************************//
  14108.   Shapes = interface(IDispatch)
  14109.     ['{0002099F-0000-0000-C000-000000000046}']
  14110.     function  Get_Application: WordApplication; safecall;
  14111.     function  Get_Creator: Integer; safecall;
  14112.     function  Get_Parent: IDispatch; safecall;
  14113.     function  Get_Count: Integer; safecall;
  14114.     function  Get__NewEnum: IUnknown; safecall;
  14115.     function  Item(var Index: OleVariant): Shape; safecall;
  14116.     function  AddCallout(Type_: MsoCalloutType; Left: Single; Top: Single; Width: Single; 
  14117.                          Height: Single; var Anchor: OleVariant): Shape; safecall;
  14118.     function  AddConnector(Type_: MsoConnectorType; BeginX: Single; BeginY: Single; EndX: Single; 
  14119.                            EndY: Single): Shape; safecall;
  14120.     function  AddCurve(var SafeArrayOfPoints: OleVariant; var Anchor: OleVariant): Shape; safecall;
  14121.     function  AddLabel(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  14122.                        Height: Single; var Anchor: OleVariant): Shape; safecall;
  14123.     function  AddLine(BeginX: Single; BeginY: Single; EndX: Single; EndY: Single; 
  14124.                       var Anchor: OleVariant): Shape; safecall;
  14125.     function  AddPicture(const FileName: WideString; var LinkToFile: OleVariant; 
  14126.                          var SaveWithDocument: OleVariant; var Left: OleVariant; 
  14127.                          var Top: OleVariant; var Width: OleVariant; var Height: OleVariant; 
  14128.                          var Anchor: OleVariant): Shape; safecall;
  14129.     function  AddPolyline(var SafeArrayOfPoints: OleVariant; var Anchor: OleVariant): Shape; safecall;
  14130.     function  AddShape(Type_: Integer; Left: Single; Top: Single; Width: Single; Height: Single; 
  14131.                        var Anchor: OleVariant): Shape; safecall;
  14132.     function  AddTextEffect(PresetTextEffect: MsoPresetTextEffect; const Text: WideString; 
  14133.                             const FontName: WideString; FontSize: Single; FontBold: MsoTriState; 
  14134.                             FontItalic: MsoTriState; Left: Single; Top: Single; 
  14135.                             var Anchor: OleVariant): Shape; safecall;
  14136.     function  AddTextbox(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  14137.                          Height: Single; var Anchor: OleVariant): Shape; safecall;
  14138.     function  BuildFreeform(EditingType: MsoEditingType; X1: Single; Y1: Single): FreeformBuilder; safecall;
  14139.     function  Range(var Index: OleVariant): ShapeRange; safecall;
  14140.     procedure SelectAll; safecall;
  14141.     function  AddOLEObject(var ClassType: OleVariant; var FileName: OleVariant; 
  14142.                            var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
  14143.                            var IconFileName: OleVariant; var IconIndex: OleVariant; 
  14144.                            var IconLabel: OleVariant; var Left: OleVariant; var Top: OleVariant; 
  14145.                            var Width: OleVariant; var Height: OleVariant; var Anchor: OleVariant): Shape; safecall;
  14146.     function  AddOLEControl(var ClassType: OleVariant; var Left: OleVariant; var Top: OleVariant; 
  14147.                             var Width: OleVariant; var Height: OleVariant; var Anchor: OleVariant): Shape; safecall;
  14148.     property Application: WordApplication read Get_Application;
  14149.     property Creator: Integer read Get_Creator;
  14150.     property Parent: IDispatch read Get_Parent;
  14151.     property Count: Integer read Get_Count;
  14152.     property _NewEnum: IUnknown read Get__NewEnum;
  14153.   end;
  14154.  
  14155. // *********************************************************************//
  14156. // DispIntf:  ShapesDisp
  14157. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14158. // GUID:      {0002099F-0000-0000-C000-000000000046}
  14159. // *********************************************************************//
  14160.   ShapesDisp = dispinterface
  14161.     ['{0002099F-0000-0000-C000-000000000046}']
  14162.     property Application: WordApplication readonly dispid 8000;
  14163.     property Creator: Integer readonly dispid 8001;
  14164.     property Parent: IDispatch readonly dispid 1;
  14165.     property Count: Integer readonly dispid 2;
  14166.     property _NewEnum: IUnknown readonly dispid -4;
  14167.     function  Item(var Index: OleVariant): Shape; dispid 0;
  14168.     function  AddCallout(Type_: MsoCalloutType; Left: Single; Top: Single; Width: Single; 
  14169.                          Height: Single; var Anchor: OleVariant): Shape; dispid 10;
  14170.     function  AddConnector(Type_: MsoConnectorType; BeginX: Single; BeginY: Single; EndX: Single; 
  14171.                            EndY: Single): Shape; dispid 11;
  14172.     function  AddCurve(var SafeArrayOfPoints: OleVariant; var Anchor: OleVariant): Shape; dispid 12;
  14173.     function  AddLabel(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  14174.                        Height: Single; var Anchor: OleVariant): Shape; dispid 13;
  14175.     function  AddLine(BeginX: Single; BeginY: Single; EndX: Single; EndY: Single; 
  14176.                       var Anchor: OleVariant): Shape; dispid 14;
  14177.     function  AddPicture(const FileName: WideString; var LinkToFile: OleVariant; 
  14178.                          var SaveWithDocument: OleVariant; var Left: OleVariant; 
  14179.                          var Top: OleVariant; var Width: OleVariant; var Height: OleVariant; 
  14180.                          var Anchor: OleVariant): Shape; dispid 15;
  14181.     function  AddPolyline(var SafeArrayOfPoints: OleVariant; var Anchor: OleVariant): Shape; dispid 16;
  14182.     function  AddShape(Type_: Integer; Left: Single; Top: Single; Width: Single; Height: Single; 
  14183.                        var Anchor: OleVariant): Shape; dispid 17;
  14184.     function  AddTextEffect(PresetTextEffect: MsoPresetTextEffect; const Text: WideString; 
  14185.                             const FontName: WideString; FontSize: Single; FontBold: MsoTriState; 
  14186.                             FontItalic: MsoTriState; Left: Single; Top: Single; 
  14187.                             var Anchor: OleVariant): Shape; dispid 18;
  14188.     function  AddTextbox(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
  14189.                          Height: Single; var Anchor: OleVariant): Shape; dispid 19;
  14190.     function  BuildFreeform(EditingType: MsoEditingType; X1: Single; Y1: Single): FreeformBuilder; dispid 20;
  14191.     function  Range(var Index: OleVariant): ShapeRange; dispid 21;
  14192.     procedure SelectAll; dispid 22;
  14193.     function  AddOLEObject(var ClassType: OleVariant; var FileName: OleVariant; 
  14194.                            var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
  14195.                            var IconFileName: OleVariant; var IconIndex: OleVariant; 
  14196.                            var IconLabel: OleVariant; var Left: OleVariant; var Top: OleVariant; 
  14197.                            var Width: OleVariant; var Height: OleVariant; var Anchor: OleVariant): Shape; dispid 24;
  14198.     function  AddOLEControl(var ClassType: OleVariant; var Left: OleVariant; var Top: OleVariant; 
  14199.                             var Width: OleVariant; var Height: OleVariant; var Anchor: OleVariant): Shape; dispid 102;
  14200.   end;
  14201.  
  14202. // *********************************************************************//
  14203. // Interface: ShapeRange
  14204. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14205. // GUID:      {000209B5-0000-0000-C000-000000000046}
  14206. // *********************************************************************//
  14207.   ShapeRange = interface(IDispatch)
  14208.     ['{000209B5-0000-0000-C000-000000000046}']
  14209.     function  Get_Application: WordApplication; safecall;
  14210.     function  Get_Creator: Integer; safecall;
  14211.     function  Get_Parent: IDispatch; safecall;
  14212.     function  Get_Count: Integer; safecall;
  14213.     function  Get__NewEnum: IUnknown; safecall;
  14214.     function  Get_Adjustments: Adjustments; safecall;
  14215.     function  Get_AutoShapeType: MsoAutoShapeType; safecall;
  14216.     procedure Set_AutoShapeType(prop: MsoAutoShapeType); safecall;
  14217.     function  Get_Callout: CalloutFormat; safecall;
  14218.     function  Get_ConnectionSiteCount: Integer; safecall;
  14219.     function  Get_Connector: MsoTriState; safecall;
  14220.     function  Get_ConnectorFormat: ConnectorFormat; safecall;
  14221.     function  Get_Fill: FillFormat; safecall;
  14222.     function  Get_GroupItems: GroupShapes; safecall;
  14223.     function  Get_Height: Single; safecall;
  14224.     procedure Set_Height(prop: Single); safecall;
  14225.     function  Get_HorizontalFlip: MsoTriState; safecall;
  14226.     function  Get_Left: Single; safecall;
  14227.     procedure Set_Left(prop: Single); safecall;
  14228.     function  Get_Line: LineFormat; safecall;
  14229.     function  Get_LockAspectRatio: MsoTriState; safecall;
  14230.     procedure Set_LockAspectRatio(prop: MsoTriState); safecall;
  14231.     function  Get_Name: WideString; safecall;
  14232.     procedure Set_Name(const prop: WideString); safecall;
  14233.     function  Get_Nodes: ShapeNodes; safecall;
  14234.     function  Get_Rotation: Single; safecall;
  14235.     procedure Set_Rotation(prop: Single); safecall;
  14236.     function  Get_PictureFormat: PictureFormat; safecall;
  14237.     function  Get_Shadow: ShadowFormat; safecall;
  14238.     function  Get_TextEffect: TextEffectFormat; safecall;
  14239.     function  Get_TextFrame: TextFrame; safecall;
  14240.     function  Get_ThreeD: ThreeDFormat; safecall;
  14241.     function  Get_Top: Single; safecall;
  14242.     procedure Set_Top(prop: Single); safecall;
  14243.     function  Get_Type_: MsoShapeType; safecall;
  14244.     function  Get_VerticalFlip: MsoTriState; safecall;
  14245.     function  Get_Vertices: OleVariant; safecall;
  14246.     function  Get_Visible: MsoTriState; safecall;
  14247.     procedure Set_Visible(prop: MsoTriState); safecall;
  14248.     function  Get_Width: Single; safecall;
  14249.     procedure Set_Width(prop: Single); safecall;
  14250.     function  Get_ZOrderPosition: Integer; safecall;
  14251.     function  Get_Hyperlink: Hyperlink; safecall;
  14252.     function  Get_RelativeHorizontalPosition: WdRelativeHorizontalPosition; safecall;
  14253.     procedure Set_RelativeHorizontalPosition(prop: WdRelativeHorizontalPosition); safecall;
  14254.     function  Get_RelativeVerticalPosition: WdRelativeVerticalPosition; safecall;
  14255.     procedure Set_RelativeVerticalPosition(prop: WdRelativeVerticalPosition); safecall;
  14256.     function  Get_LockAnchor: Integer; safecall;
  14257.     procedure Set_LockAnchor(prop: Integer); safecall;
  14258.     function  Get_WrapFormat: WrapFormat; safecall;
  14259.     function  Get_Anchor: Range; safecall;
  14260.     function  Item(var Index: OleVariant): Shape; safecall;
  14261.     procedure Align(Align: MsoAlignCmd; RelativeTo: Integer); safecall;
  14262.     procedure Apply; safecall;
  14263.     procedure Delete; safecall;
  14264.     procedure Distribute(Distribute: MsoDistributeCmd; RelativeTo: Integer); safecall;
  14265.     function  Duplicate: ShapeRange; safecall;
  14266.     procedure Flip(FlipCmd: MsoFlipCmd); safecall;
  14267.     procedure IncrementLeft(Increment: Single); safecall;
  14268.     procedure IncrementRotation(Increment: Single); safecall;
  14269.     procedure IncrementTop(Increment: Single); safecall;
  14270.     function  Group: Shape; safecall;
  14271.     procedure PickUp; safecall;
  14272.     function  Regroup: Shape; safecall;
  14273.     procedure RerouteConnections; safecall;
  14274.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); safecall;
  14275.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); safecall;
  14276.     procedure Select(var Replace: OleVariant); safecall;
  14277.     procedure SetShapesDefaultProperties; safecall;
  14278.     function  Ungroup: ShapeRange; safecall;
  14279.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); safecall;
  14280.     function  ConvertToFrame: Frame; safecall;
  14281.     function  ConvertToInlineShape: InlineShape; safecall;
  14282.     procedure Activate; safecall;
  14283.     property Application: WordApplication read Get_Application;
  14284.     property Creator: Integer read Get_Creator;
  14285.     property Parent: IDispatch read Get_Parent;
  14286.     property Count: Integer read Get_Count;
  14287.     property _NewEnum: IUnknown read Get__NewEnum;
  14288.     property Adjustments: Adjustments read Get_Adjustments;
  14289.     property AutoShapeType: MsoAutoShapeType read Get_AutoShapeType write Set_AutoShapeType;
  14290.     property Callout: CalloutFormat read Get_Callout;
  14291.     property ConnectionSiteCount: Integer read Get_ConnectionSiteCount;
  14292.     property Connector: MsoTriState read Get_Connector;
  14293.     property ConnectorFormat: ConnectorFormat read Get_ConnectorFormat;
  14294.     property Fill: FillFormat read Get_Fill;
  14295.     property GroupItems: GroupShapes read Get_GroupItems;
  14296.     property Height: Single read Get_Height write Set_Height;
  14297.     property HorizontalFlip: MsoTriState read Get_HorizontalFlip;
  14298.     property Left: Single read Get_Left write Set_Left;
  14299.     property Line: LineFormat read Get_Line;
  14300.     property LockAspectRatio: MsoTriState read Get_LockAspectRatio write Set_LockAspectRatio;
  14301.     property Name: WideString read Get_Name write Set_Name;
  14302.     property Nodes: ShapeNodes read Get_Nodes;
  14303.     property Rotation: Single read Get_Rotation write Set_Rotation;
  14304.     property PictureFormat: PictureFormat read Get_PictureFormat;
  14305.     property Shadow: ShadowFormat read Get_Shadow;
  14306.     property TextEffect: TextEffectFormat read Get_TextEffect;
  14307.     property TextFrame: TextFrame read Get_TextFrame;
  14308.     property ThreeD: ThreeDFormat read Get_ThreeD;
  14309.     property Top: Single read Get_Top write Set_Top;
  14310.     property Type_: MsoShapeType read Get_Type_;
  14311.     property VerticalFlip: MsoTriState read Get_VerticalFlip;
  14312.     property Vertices: OleVariant read Get_Vertices;
  14313.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  14314.     property Width: Single read Get_Width write Set_Width;
  14315.     property ZOrderPosition: Integer read Get_ZOrderPosition;
  14316.     property Hyperlink: Hyperlink read Get_Hyperlink;
  14317.     property RelativeHorizontalPosition: WdRelativeHorizontalPosition read Get_RelativeHorizontalPosition write Set_RelativeHorizontalPosition;
  14318.     property RelativeVerticalPosition: WdRelativeVerticalPosition read Get_RelativeVerticalPosition write Set_RelativeVerticalPosition;
  14319.     property LockAnchor: Integer read Get_LockAnchor write Set_LockAnchor;
  14320.     property WrapFormat: WrapFormat read Get_WrapFormat;
  14321.     property Anchor: Range read Get_Anchor;
  14322.   end;
  14323.  
  14324. // *********************************************************************//
  14325. // DispIntf:  ShapeRangeDisp
  14326. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14327. // GUID:      {000209B5-0000-0000-C000-000000000046}
  14328. // *********************************************************************//
  14329.   ShapeRangeDisp = dispinterface
  14330.     ['{000209B5-0000-0000-C000-000000000046}']
  14331.     property Application: WordApplication readonly dispid 8000;
  14332.     property Creator: Integer readonly dispid 8001;
  14333.     property Parent: IDispatch readonly dispid 1;
  14334.     property Count: Integer readonly dispid 2;
  14335.     property _NewEnum: IUnknown readonly dispid -4;
  14336.     property Adjustments: Adjustments readonly dispid 100;
  14337.     property AutoShapeType: MsoAutoShapeType dispid 101;
  14338.     property Callout: CalloutFormat readonly dispid 103;
  14339.     property ConnectionSiteCount: Integer readonly dispid 104;
  14340.     property Connector: MsoTriState readonly dispid 105;
  14341.     property ConnectorFormat: ConnectorFormat readonly dispid 106;
  14342.     property Fill: FillFormat readonly dispid 107;
  14343.     property GroupItems: GroupShapes readonly dispid 108;
  14344.     property Height: Single dispid 109;
  14345.     property HorizontalFlip: MsoTriState readonly dispid 110;
  14346.     property Left: Single dispid 111;
  14347.     property Line: LineFormat readonly dispid 112;
  14348.     property LockAspectRatio: MsoTriState dispid 113;
  14349.     property Name: WideString dispid 115;
  14350.     property Nodes: ShapeNodes readonly dispid 116;
  14351.     property Rotation: Single dispid 117;
  14352.     property PictureFormat: PictureFormat readonly dispid 118;
  14353.     property Shadow: ShadowFormat readonly dispid 119;
  14354.     property TextEffect: TextEffectFormat readonly dispid 120;
  14355.     property TextFrame: TextFrame readonly dispid 121;
  14356.     property ThreeD: ThreeDFormat readonly dispid 122;
  14357.     property Top: Single dispid 123;
  14358.     property Type_: MsoShapeType readonly dispid 124;
  14359.     property VerticalFlip: MsoTriState readonly dispid 125;
  14360.     property Vertices: OleVariant readonly dispid 126;
  14361.     property Visible: MsoTriState dispid 127;
  14362.     property Width: Single dispid 128;
  14363.     property ZOrderPosition: Integer readonly dispid 129;
  14364.     property Hyperlink: Hyperlink readonly dispid 1001;
  14365.     property RelativeHorizontalPosition: WdRelativeHorizontalPosition dispid 300;
  14366.     property RelativeVerticalPosition: WdRelativeVerticalPosition dispid 301;
  14367.     property LockAnchor: Integer dispid 302;
  14368.     property WrapFormat: WrapFormat readonly dispid 303;
  14369.     property Anchor: Range readonly dispid 304;
  14370.     function  Item(var Index: OleVariant): Shape; dispid 0;
  14371.     procedure Align(Align: MsoAlignCmd; RelativeTo: Integer); dispid 10;
  14372.     procedure Apply; dispid 11;
  14373.     procedure Delete; dispid 12;
  14374.     procedure Distribute(Distribute: MsoDistributeCmd; RelativeTo: Integer); dispid 13;
  14375.     function  Duplicate: ShapeRange; dispid 14;
  14376.     procedure Flip(FlipCmd: MsoFlipCmd); dispid 15;
  14377.     procedure IncrementLeft(Increment: Single); dispid 16;
  14378.     procedure IncrementRotation(Increment: Single); dispid 17;
  14379.     procedure IncrementTop(Increment: Single); dispid 18;
  14380.     function  Group: Shape; dispid 19;
  14381.     procedure PickUp; dispid 20;
  14382.     function  Regroup: Shape; dispid 21;
  14383.     procedure RerouteConnections; dispid 22;
  14384.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); dispid 23;
  14385.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); dispid 24;
  14386.     procedure Select(var Replace: OleVariant); dispid 25;
  14387.     procedure SetShapesDefaultProperties; dispid 26;
  14388.     function  Ungroup: ShapeRange; dispid 27;
  14389.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); dispid 28;
  14390.     function  ConvertToFrame: Frame; dispid 29;
  14391.     function  ConvertToInlineShape: InlineShape; dispid 30;
  14392.     procedure Activate; dispid 50;
  14393.   end;
  14394.  
  14395. // *********************************************************************//
  14396. // Interface: GroupShapes
  14397. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14398. // GUID:      {000209B6-0000-0000-C000-000000000046}
  14399. // *********************************************************************//
  14400.   GroupShapes = interface(IDispatch)
  14401.     ['{000209B6-0000-0000-C000-000000000046}']
  14402.     function  Get_Application: WordApplication; safecall;
  14403.     function  Get_Creator: Integer; safecall;
  14404.     function  Get_Parent: IDispatch; safecall;
  14405.     function  Get_Count: Integer; safecall;
  14406.     function  Get__NewEnum: IUnknown; safecall;
  14407.     function  Item(var Index: OleVariant): Shape; safecall;
  14408.     property Application: WordApplication read Get_Application;
  14409.     property Creator: Integer read Get_Creator;
  14410.     property Parent: IDispatch read Get_Parent;
  14411.     property Count: Integer read Get_Count;
  14412.     property _NewEnum: IUnknown read Get__NewEnum;
  14413.   end;
  14414.  
  14415. // *********************************************************************//
  14416. // DispIntf:  GroupShapesDisp
  14417. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14418. // GUID:      {000209B6-0000-0000-C000-000000000046}
  14419. // *********************************************************************//
  14420.   GroupShapesDisp = dispinterface
  14421.     ['{000209B6-0000-0000-C000-000000000046}']
  14422.     property Application: WordApplication readonly dispid 8000;
  14423.     property Creator: Integer readonly dispid 8001;
  14424.     property Parent: IDispatch readonly dispid 1;
  14425.     property Count: Integer readonly dispid 2;
  14426.     property _NewEnum: IUnknown readonly dispid -4;
  14427.     function  Item(var Index: OleVariant): Shape; dispid 0;
  14428.   end;
  14429.  
  14430. // *********************************************************************//
  14431. // Interface: Shape
  14432. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14433. // GUID:      {000209A0-0000-0000-C000-000000000046}
  14434. // *********************************************************************//
  14435.   Shape = interface(IDispatch)
  14436.     ['{000209A0-0000-0000-C000-000000000046}']
  14437.     function  Get_Application: WordApplication; safecall;
  14438.     function  Get_Creator: Integer; safecall;
  14439.     function  Get_Parent: IDispatch; safecall;
  14440.     function  Get_Adjustments: Adjustments; safecall;
  14441.     function  Get_AutoShapeType: MsoAutoShapeType; safecall;
  14442.     procedure Set_AutoShapeType(prop: MsoAutoShapeType); safecall;
  14443.     function  Get_Callout: CalloutFormat; safecall;
  14444.     function  Get_ConnectionSiteCount: Integer; safecall;
  14445.     function  Get_Connector: MsoTriState; safecall;
  14446.     function  Get_ConnectorFormat: ConnectorFormat; safecall;
  14447.     function  Get_Fill: FillFormat; safecall;
  14448.     function  Get_GroupItems: GroupShapes; safecall;
  14449.     function  Get_Height: Single; safecall;
  14450.     procedure Set_Height(prop: Single); safecall;
  14451.     function  Get_HorizontalFlip: MsoTriState; safecall;
  14452.     function  Get_Left: Single; safecall;
  14453.     procedure Set_Left(prop: Single); safecall;
  14454.     function  Get_Line: LineFormat; safecall;
  14455.     function  Get_LockAspectRatio: MsoTriState; safecall;
  14456.     procedure Set_LockAspectRatio(prop: MsoTriState); safecall;
  14457.     function  Get_Name: WideString; safecall;
  14458.     procedure Set_Name(const prop: WideString); safecall;
  14459.     function  Get_Nodes: ShapeNodes; safecall;
  14460.     function  Get_Rotation: Single; safecall;
  14461.     procedure Set_Rotation(prop: Single); safecall;
  14462.     function  Get_PictureFormat: PictureFormat; safecall;
  14463.     function  Get_Shadow: ShadowFormat; safecall;
  14464.     function  Get_TextEffect: TextEffectFormat; safecall;
  14465.     function  Get_TextFrame: TextFrame; safecall;
  14466.     function  Get_ThreeD: ThreeDFormat; safecall;
  14467.     function  Get_Top: Single; safecall;
  14468.     procedure Set_Top(prop: Single); safecall;
  14469.     function  Get_Type_: MsoShapeType; safecall;
  14470.     function  Get_VerticalFlip: MsoTriState; safecall;
  14471.     function  Get_Vertices: OleVariant; safecall;
  14472.     function  Get_Visible: MsoTriState; safecall;
  14473.     procedure Set_Visible(prop: MsoTriState); safecall;
  14474.     function  Get_Width: Single; safecall;
  14475.     procedure Set_Width(prop: Single); safecall;
  14476.     function  Get_ZOrderPosition: Integer; safecall;
  14477.     function  Get_Hyperlink: Hyperlink; safecall;
  14478.     function  Get_RelativeHorizontalPosition: WdRelativeHorizontalPosition; safecall;
  14479.     procedure Set_RelativeHorizontalPosition(prop: WdRelativeHorizontalPosition); safecall;
  14480.     function  Get_RelativeVerticalPosition: WdRelativeVerticalPosition; safecall;
  14481.     procedure Set_RelativeVerticalPosition(prop: WdRelativeVerticalPosition); safecall;
  14482.     function  Get_LockAnchor: Integer; safecall;
  14483.     procedure Set_LockAnchor(prop: Integer); safecall;
  14484.     function  Get_WrapFormat: WrapFormat; safecall;
  14485.     function  Get_OLEFormat: OLEFormat; safecall;
  14486.     function  Get_Anchor: Range; safecall;
  14487.     function  Get_LinkFormat: LinkFormat; safecall;
  14488.     procedure Apply; safecall;
  14489.     procedure Delete; safecall;
  14490.     function  Duplicate: Shape; safecall;
  14491.     procedure Flip(FlipCmd: MsoFlipCmd); safecall;
  14492.     procedure IncrementLeft(Increment: Single); safecall;
  14493.     procedure IncrementRotation(Increment: Single); safecall;
  14494.     procedure IncrementTop(Increment: Single); safecall;
  14495.     procedure PickUp; safecall;
  14496.     procedure RerouteConnections; safecall;
  14497.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); safecall;
  14498.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); safecall;
  14499.     procedure Select(var Replace: OleVariant); safecall;
  14500.     procedure SetShapesDefaultProperties; safecall;
  14501.     function  Ungroup: ShapeRange; safecall;
  14502.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); safecall;
  14503.     function  ConvertToInlineShape: InlineShape; safecall;
  14504.     function  ConvertToFrame: Frame; safecall;
  14505.     procedure Activate; safecall;
  14506.     property Application: WordApplication read Get_Application;
  14507.     property Creator: Integer read Get_Creator;
  14508.     property Parent: IDispatch read Get_Parent;
  14509.     property Adjustments: Adjustments read Get_Adjustments;
  14510.     property AutoShapeType: MsoAutoShapeType read Get_AutoShapeType write Set_AutoShapeType;
  14511.     property Callout: CalloutFormat read Get_Callout;
  14512.     property ConnectionSiteCount: Integer read Get_ConnectionSiteCount;
  14513.     property Connector: MsoTriState read Get_Connector;
  14514.     property ConnectorFormat: ConnectorFormat read Get_ConnectorFormat;
  14515.     property Fill: FillFormat read Get_Fill;
  14516.     property GroupItems: GroupShapes read Get_GroupItems;
  14517.     property Height: Single read Get_Height write Set_Height;
  14518.     property HorizontalFlip: MsoTriState read Get_HorizontalFlip;
  14519.     property Left: Single read Get_Left write Set_Left;
  14520.     property Line: LineFormat read Get_Line;
  14521.     property LockAspectRatio: MsoTriState read Get_LockAspectRatio write Set_LockAspectRatio;
  14522.     property Name: WideString read Get_Name write Set_Name;
  14523.     property Nodes: ShapeNodes read Get_Nodes;
  14524.     property Rotation: Single read Get_Rotation write Set_Rotation;
  14525.     property PictureFormat: PictureFormat read Get_PictureFormat;
  14526.     property Shadow: ShadowFormat read Get_Shadow;
  14527.     property TextEffect: TextEffectFormat read Get_TextEffect;
  14528.     property TextFrame: TextFrame read Get_TextFrame;
  14529.     property ThreeD: ThreeDFormat read Get_ThreeD;
  14530.     property Top: Single read Get_Top write Set_Top;
  14531.     property Type_: MsoShapeType read Get_Type_;
  14532.     property VerticalFlip: MsoTriState read Get_VerticalFlip;
  14533.     property Vertices: OleVariant read Get_Vertices;
  14534.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  14535.     property Width: Single read Get_Width write Set_Width;
  14536.     property ZOrderPosition: Integer read Get_ZOrderPosition;
  14537.     property Hyperlink: Hyperlink read Get_Hyperlink;
  14538.     property RelativeHorizontalPosition: WdRelativeHorizontalPosition read Get_RelativeHorizontalPosition write Set_RelativeHorizontalPosition;
  14539.     property RelativeVerticalPosition: WdRelativeVerticalPosition read Get_RelativeVerticalPosition write Set_RelativeVerticalPosition;
  14540.     property LockAnchor: Integer read Get_LockAnchor write Set_LockAnchor;
  14541.     property WrapFormat: WrapFormat read Get_WrapFormat;
  14542.     property OLEFormat: OLEFormat read Get_OLEFormat;
  14543.     property Anchor: Range read Get_Anchor;
  14544.     property LinkFormat: LinkFormat read Get_LinkFormat;
  14545.   end;
  14546.  
  14547. // *********************************************************************//
  14548. // DispIntf:  ShapeDisp
  14549. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14550. // GUID:      {000209A0-0000-0000-C000-000000000046}
  14551. // *********************************************************************//
  14552.   ShapeDisp = dispinterface
  14553.     ['{000209A0-0000-0000-C000-000000000046}']
  14554.     property Application: WordApplication readonly dispid 8000;
  14555.     property Creator: Integer readonly dispid 8001;
  14556.     property Parent: IDispatch readonly dispid 1;
  14557.     property Adjustments: Adjustments readonly dispid 100;
  14558.     property AutoShapeType: MsoAutoShapeType dispid 101;
  14559.     property Callout: CalloutFormat readonly dispid 103;
  14560.     property ConnectionSiteCount: Integer readonly dispid 104;
  14561.     property Connector: MsoTriState readonly dispid 105;
  14562.     property ConnectorFormat: ConnectorFormat readonly dispid 106;
  14563.     property Fill: FillFormat readonly dispid 107;
  14564.     property GroupItems: GroupShapes readonly dispid 108;
  14565.     property Height: Single dispid 109;
  14566.     property HorizontalFlip: MsoTriState readonly dispid 110;
  14567.     property Left: Single dispid 111;
  14568.     property Line: LineFormat readonly dispid 112;
  14569.     property LockAspectRatio: MsoTriState dispid 113;
  14570.     property Name: WideString dispid 115;
  14571.     property Nodes: ShapeNodes readonly dispid 116;
  14572.     property Rotation: Single dispid 117;
  14573.     property PictureFormat: PictureFormat readonly dispid 118;
  14574.     property Shadow: ShadowFormat readonly dispid 119;
  14575.     property TextEffect: TextEffectFormat readonly dispid 120;
  14576.     property TextFrame: TextFrame readonly dispid 121;
  14577.     property ThreeD: ThreeDFormat readonly dispid 122;
  14578.     property Top: Single dispid 123;
  14579.     property Type_: MsoShapeType readonly dispid 124;
  14580.     property VerticalFlip: MsoTriState readonly dispid 125;
  14581.     property Vertices: OleVariant readonly dispid 126;
  14582.     property Visible: MsoTriState dispid 127;
  14583.     property Width: Single dispid 128;
  14584.     property ZOrderPosition: Integer readonly dispid 129;
  14585.     property Hyperlink: Hyperlink readonly dispid 1001;
  14586.     property RelativeHorizontalPosition: WdRelativeHorizontalPosition dispid 300;
  14587.     property RelativeVerticalPosition: WdRelativeVerticalPosition dispid 301;
  14588.     property LockAnchor: Integer dispid 302;
  14589.     property WrapFormat: WrapFormat readonly dispid 303;
  14590.     property OLEFormat: OLEFormat readonly dispid 500;
  14591.     property Anchor: Range readonly dispid 501;
  14592.     property LinkFormat: LinkFormat readonly dispid 502;
  14593.     procedure Apply; dispid 10;
  14594.     procedure Delete; dispid 11;
  14595.     function  Duplicate: Shape; dispid 12;
  14596.     procedure Flip(FlipCmd: MsoFlipCmd); dispid 13;
  14597.     procedure IncrementLeft(Increment: Single); dispid 14;
  14598.     procedure IncrementRotation(Increment: Single); dispid 15;
  14599.     procedure IncrementTop(Increment: Single); dispid 16;
  14600.     procedure PickUp; dispid 17;
  14601.     procedure RerouteConnections; dispid 18;
  14602.     procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); dispid 19;
  14603.     procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); dispid 20;
  14604.     procedure Select(var Replace: OleVariant); dispid 21;
  14605.     procedure SetShapesDefaultProperties; dispid 22;
  14606.     function  Ungroup: ShapeRange; dispid 23;
  14607.     procedure ZOrder(ZOrderCmd: MsoZOrderCmd); dispid 24;
  14608.     function  ConvertToInlineShape: InlineShape; dispid 25;
  14609.     function  ConvertToFrame: Frame; dispid 29;
  14610.     procedure Activate; dispid 50;
  14611.   end;
  14612.  
  14613. // *********************************************************************//
  14614. // Interface: TextFrame
  14615. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14616. // GUID:      {000209B2-0000-0000-C000-000000000046}
  14617. // *********************************************************************//
  14618.   TextFrame = interface(IDispatch)
  14619.     ['{000209B2-0000-0000-C000-000000000046}']
  14620.     function  Get_Application: WordApplication; safecall;
  14621.     function  Get_Creator: Integer; safecall;
  14622.     function  Get_Parent: Shape; safecall;
  14623.     function  Get_MarginBottom: Single; safecall;
  14624.     procedure Set_MarginBottom(prop: Single); safecall;
  14625.     function  Get_MarginLeft: Single; safecall;
  14626.     procedure Set_MarginLeft(prop: Single); safecall;
  14627.     function  Get_MarginRight: Single; safecall;
  14628.     procedure Set_MarginRight(prop: Single); safecall;
  14629.     function  Get_MarginTop: Single; safecall;
  14630.     procedure Set_MarginTop(prop: Single); safecall;
  14631.     function  Get_Orientation: MsoTextOrientation; safecall;
  14632.     procedure Set_Orientation(prop: MsoTextOrientation); safecall;
  14633.     function  Get_TextRange: Range; safecall;
  14634.     function  Get_ContainingRange: Range; safecall;
  14635.     function  Get_Next: TextFrame; safecall;
  14636.     procedure Set_Next(const prop: TextFrame); safecall;
  14637.     function  Get_Previous: TextFrame; safecall;
  14638.     procedure Set_Previous(const prop: TextFrame); safecall;
  14639.     function  Get_Overflowing: WordBool; safecall;
  14640.     function  Get_HasText: Integer; safecall;
  14641.     procedure BreakForwardLink; safecall;
  14642.     function  ValidLinkTarget(const TargetTextFrame: TextFrame): WordBool; safecall;
  14643.     property Application: WordApplication read Get_Application;
  14644.     property Creator: Integer read Get_Creator;
  14645.     property Parent: Shape read Get_Parent;
  14646.     property MarginBottom: Single read Get_MarginBottom write Set_MarginBottom;
  14647.     property MarginLeft: Single read Get_MarginLeft write Set_MarginLeft;
  14648.     property MarginRight: Single read Get_MarginRight write Set_MarginRight;
  14649.     property MarginTop: Single read Get_MarginTop write Set_MarginTop;
  14650.     property Orientation: MsoTextOrientation read Get_Orientation write Set_Orientation;
  14651.     property TextRange: Range read Get_TextRange;
  14652.     property ContainingRange: Range read Get_ContainingRange;
  14653.     property Next: TextFrame read Get_Next write Set_Next;
  14654.     property Previous: TextFrame read Get_Previous write Set_Previous;
  14655.     property Overflowing: WordBool read Get_Overflowing;
  14656.     property HasText: Integer read Get_HasText;
  14657.   end;
  14658.  
  14659. // *********************************************************************//
  14660. // DispIntf:  TextFrameDisp
  14661. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14662. // GUID:      {000209B2-0000-0000-C000-000000000046}
  14663. // *********************************************************************//
  14664.   TextFrameDisp = dispinterface
  14665.     ['{000209B2-0000-0000-C000-000000000046}']
  14666.     property Application: WordApplication readonly dispid 8000;
  14667.     property Creator: Integer readonly dispid 8001;
  14668.     property Parent: Shape readonly dispid 1;
  14669.     property MarginBottom: Single dispid 100;
  14670.     property MarginLeft: Single dispid 101;
  14671.     property MarginRight: Single dispid 102;
  14672.     property MarginTop: Single dispid 103;
  14673.     property Orientation: MsoTextOrientation dispid 104;
  14674.     property TextRange: Range readonly dispid 1001;
  14675.     property ContainingRange: Range readonly dispid 1002;
  14676.     property Next: TextFrame dispid 5001;
  14677.     property Previous: TextFrame dispid 5002;
  14678.     property Overflowing: WordBool readonly dispid 5003;
  14679.     property HasText: Integer readonly dispid 5008;
  14680.     procedure BreakForwardLink; dispid 5004;
  14681.     function  ValidLinkTarget(const TargetTextFrame: TextFrame): WordBool; dispid 5006;
  14682.   end;
  14683.  
  14684. // *********************************************************************//
  14685. // Interface: _LetterContent
  14686. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  14687. // GUID:      {000209A1-0000-0000-C000-000000000046}
  14688. // *********************************************************************//
  14689.   _LetterContent = interface(IDispatch)
  14690.     ['{000209A1-0000-0000-C000-000000000046}']
  14691.     function  Get_Application: WordApplication; safecall;
  14692.     function  Get_Creator: Integer; safecall;
  14693.     function  Get_Parent: IDispatch; safecall;
  14694.     function  Get_Duplicate: WordLetterContent; safecall;
  14695.     function  Get_DateFormat: WideString; safecall;
  14696.     procedure Set_DateFormat(const prop: WideString); safecall;
  14697.     function  Get_IncludeHeaderFooter: WordBool; safecall;
  14698.     procedure Set_IncludeHeaderFooter(prop: WordBool); safecall;
  14699.     function  Get_PageDesign: WideString; safecall;
  14700.     procedure Set_PageDesign(const prop: WideString); safecall;
  14701.     function  Get_LetterStyle: WdLetterStyle; safecall;
  14702.     procedure Set_LetterStyle(prop: WdLetterStyle); safecall;
  14703.     function  Get_Letterhead: WordBool; safecall;
  14704.     procedure Set_Letterhead(prop: WordBool); safecall;
  14705.     function  Get_LetterheadLocation: WdLetterheadLocation; safecall;
  14706.     procedure Set_LetterheadLocation(prop: WdLetterheadLocation); safecall;
  14707.     function  Get_LetterheadSize: Single; safecall;
  14708.     procedure Set_LetterheadSize(prop: Single); safecall;
  14709.     function  Get_RecipientName: WideString; safecall;
  14710.     procedure Set_RecipientName(const prop: WideString); safecall;
  14711.     function  Get_RecipientAddress: WideString; safecall;
  14712.     procedure Set_RecipientAddress(const prop: WideString); safecall;
  14713.     function  Get_Salutation: WideString; safecall;
  14714.     procedure Set_Salutation(const prop: WideString); safecall;
  14715.     function  Get_SalutationType: WdSalutationType; safecall;
  14716.     procedure Set_SalutationType(prop: WdSalutationType); safecall;
  14717.     function  Get_RecipientReference: WideString; safecall;
  14718.     procedure Set_RecipientReference(const prop: WideString); safecall;
  14719.     function  Get_MailingInstructions: WideString; safecall;
  14720.     procedure Set_MailingInstructions(const prop: WideString); safecall;
  14721.     function  Get_AttentionLine: WideString; safecall;
  14722.     procedure Set_AttentionLine(const prop: WideString); safecall;
  14723.     function  Get_Subject: WideString; safecall;
  14724.     procedure Set_Subject(const prop: WideString); safecall;
  14725.     function  Get_EnclosureNumber: Integer; safecall;
  14726.     procedure Set_EnclosureNumber(prop: Integer); safecall;
  14727.     function  Get_CCList: WideString; safecall;
  14728.     procedure Set_CCList(const prop: WideString); safecall;
  14729.     function  Get_ReturnAddress: WideString; safecall;
  14730.     procedure Set_ReturnAddress(const prop: WideString); safecall;
  14731.     function  Get_SenderName: WideString; safecall;
  14732.     procedure Set_SenderName(const prop: WideString); safecall;
  14733.     function  Get_Closing: WideString; safecall;
  14734.     procedure Set_Closing(const prop: WideString); safecall;
  14735.     function  Get_SenderCompany: WideString; safecall;
  14736.     procedure Set_SenderCompany(const prop: WideString); safecall;
  14737.     function  Get_SenderJobTitle: WideString; safecall;
  14738.     procedure Set_SenderJobTitle(const prop: WideString); safecall;
  14739.     function  Get_SenderInitials: WideString; safecall;
  14740.     procedure Set_SenderInitials(const prop: WideString); safecall;
  14741.     function  Get_InfoBlock: WordBool; safecall;
  14742.     procedure Set_InfoBlock(prop: WordBool); safecall;
  14743.     function  Get_RecipientCode: WideString; safecall;
  14744.     procedure Set_RecipientCode(const prop: WideString); safecall;
  14745.     function  Get_RecipientGender: WdSalutationGender; safecall;
  14746.     procedure Set_RecipientGender(prop: WdSalutationGender); safecall;
  14747.     function  Get_ReturnAddressShortForm: WideString; safecall;
  14748.     procedure Set_ReturnAddressShortForm(const prop: WideString); safecall;
  14749.     function  Get_SenderCity: WideString; safecall;
  14750.     procedure Set_SenderCity(const prop: WideString); safecall;
  14751.     function  Get_SenderCode: WideString; safecall;
  14752.     procedure Set_SenderCode(const prop: WideString); safecall;
  14753.     function  Get_SenderGender: WdSalutationGender; safecall;
  14754.     procedure Set_SenderGender(prop: WdSalutationGender); safecall;
  14755.     function  Get_SenderReference: WideString; safecall;
  14756.     procedure Set_SenderReference(const prop: WideString); safecall;
  14757.     property Application: WordApplication read Get_Application;
  14758.     property Creator: Integer read Get_Creator;
  14759.     property Parent: IDispatch read Get_Parent;
  14760.     property Duplicate: WordLetterContent read Get_Duplicate;
  14761.     property DateFormat: WideString read Get_DateFormat write Set_DateFormat;
  14762.     property IncludeHeaderFooter: WordBool read Get_IncludeHeaderFooter write Set_IncludeHeaderFooter;
  14763.     property PageDesign: WideString read Get_PageDesign write Set_PageDesign;
  14764.     property LetterStyle: WdLetterStyle read Get_LetterStyle write Set_LetterStyle;
  14765.     property Letterhead: WordBool read Get_Letterhead write Set_Letterhead;
  14766.     property LetterheadLocation: WdLetterheadLocation read Get_LetterheadLocation write Set_LetterheadLocation;
  14767.     property LetterheadSize: Single read Get_LetterheadSize write Set_LetterheadSize;
  14768.     property RecipientName: WideString read Get_RecipientName write Set_RecipientName;
  14769.     property RecipientAddress: WideString read Get_RecipientAddress write Set_RecipientAddress;
  14770.     property Salutation: WideString read Get_Salutation write Set_Salutation;
  14771.     property SalutationType: WdSalutationType read Get_SalutationType write Set_SalutationType;
  14772.     property RecipientReference: WideString read Get_RecipientReference write Set_RecipientReference;
  14773.     property MailingInstructions: WideString read Get_MailingInstructions write Set_MailingInstructions;
  14774.     property AttentionLine: WideString read Get_AttentionLine write Set_AttentionLine;
  14775.     property Subject: WideString read Get_Subject write Set_Subject;
  14776.     property EnclosureNumber: Integer read Get_EnclosureNumber write Set_EnclosureNumber;
  14777.     property CCList: WideString read Get_CCList write Set_CCList;
  14778.     property ReturnAddress: WideString read Get_ReturnAddress write Set_ReturnAddress;
  14779.     property SenderName: WideString read Get_SenderName write Set_SenderName;
  14780.     property Closing: WideString read Get_Closing write Set_Closing;
  14781.     property SenderCompany: WideString read Get_SenderCompany write Set_SenderCompany;
  14782.     property SenderJobTitle: WideString read Get_SenderJobTitle write Set_SenderJobTitle;
  14783.     property SenderInitials: WideString read Get_SenderInitials write Set_SenderInitials;
  14784.     property InfoBlock: WordBool read Get_InfoBlock write Set_InfoBlock;
  14785.     property RecipientCode: WideString read Get_RecipientCode write Set_RecipientCode;
  14786.     property RecipientGender: WdSalutationGender read Get_RecipientGender write Set_RecipientGender;
  14787.     property ReturnAddressShortForm: WideString read Get_ReturnAddressShortForm write Set_ReturnAddressShortForm;
  14788.     property SenderCity: WideString read Get_SenderCity write Set_SenderCity;
  14789.     property SenderCode: WideString read Get_SenderCode write Set_SenderCode;
  14790.     property SenderGender: WdSalutationGender read Get_SenderGender write Set_SenderGender;
  14791.     property SenderReference: WideString read Get_SenderReference write Set_SenderReference;
  14792.   end;
  14793.  
  14794. // *********************************************************************//
  14795. // DispIntf:  _LetterContentDisp
  14796. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  14797. // GUID:      {000209A1-0000-0000-C000-000000000046}
  14798. // *********************************************************************//
  14799.   _LetterContentDisp = dispinterface
  14800.     ['{000209A1-0000-0000-C000-000000000046}']
  14801.     property Application: WordApplication readonly dispid 1000;
  14802.     property Creator: Integer readonly dispid 1001;
  14803.     property Parent: IDispatch readonly dispid 1002;
  14804.     property Duplicate: WordLetterContent readonly dispid 10;
  14805.     property DateFormat: WideString dispid 101;
  14806.     property IncludeHeaderFooter: WordBool dispid 102;
  14807.     property PageDesign: WideString dispid 103;
  14808.     property LetterStyle: WdLetterStyle dispid 104;
  14809.     property Letterhead: WordBool dispid 105;
  14810.     property LetterheadLocation: WdLetterheadLocation dispid 106;
  14811.     property LetterheadSize: Single dispid 107;
  14812.     property RecipientName: WideString dispid 108;
  14813.     property RecipientAddress: WideString dispid 109;
  14814.     property Salutation: WideString dispid 110;
  14815.     property SalutationType: WdSalutationType dispid 111;
  14816.     property RecipientReference: WideString dispid 112;
  14817.     property MailingInstructions: WideString dispid 114;
  14818.     property AttentionLine: WideString dispid 115;
  14819.     property Subject: WideString dispid 116;
  14820.     property EnclosureNumber: Integer dispid 117;
  14821.     property CCList: WideString dispid 118;
  14822.     property ReturnAddress: WideString dispid 119;
  14823.     property SenderName: WideString dispid 120;
  14824.     property Closing: WideString dispid 121;
  14825.     property SenderCompany: WideString dispid 122;
  14826.     property SenderJobTitle: WideString dispid 123;
  14827.     property SenderInitials: WideString dispid 124;
  14828.     property InfoBlock: WordBool dispid 125;
  14829.     property RecipientCode: WideString dispid 126;
  14830.     property RecipientGender: WdSalutationGender dispid 127;
  14831.     property ReturnAddressShortForm: WideString dispid 128;
  14832.     property SenderCity: WideString dispid 129;
  14833.     property SenderCode: WideString dispid 130;
  14834.     property SenderGender: WdSalutationGender dispid 131;
  14835.     property SenderReference: WideString dispid 132;
  14836.   end;
  14837.  
  14838. // *********************************************************************//
  14839. // Interface: View
  14840. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14841. // GUID:      {000209A5-0000-0000-C000-000000000046}
  14842. // *********************************************************************//
  14843.   View = interface(IDispatch)
  14844.     ['{000209A5-0000-0000-C000-000000000046}']
  14845.     function  Get_Application: WordApplication; safecall;
  14846.     function  Get_Creator: Integer; safecall;
  14847.     function  Get_Parent: IDispatch; safecall;
  14848.     function  Get_Type_: WdViewType; safecall;
  14849.     procedure Set_Type_(prop: WdViewType); safecall;
  14850.     function  Get_FullScreen: WordBool; safecall;
  14851.     procedure Set_FullScreen(prop: WordBool); safecall;
  14852.     function  Get_Draft: WordBool; safecall;
  14853.     procedure Set_Draft(prop: WordBool); safecall;
  14854.     function  Get_ShowAll: WordBool; safecall;
  14855.     procedure Set_ShowAll(prop: WordBool); safecall;
  14856.     function  Get_ShowFieldCodes: WordBool; safecall;
  14857.     procedure Set_ShowFieldCodes(prop: WordBool); safecall;
  14858.     function  Get_MailMergeDataView: WordBool; safecall;
  14859.     procedure Set_MailMergeDataView(prop: WordBool); safecall;
  14860.     function  Get_Magnifier: WordBool; safecall;
  14861.     procedure Set_Magnifier(prop: WordBool); safecall;
  14862.     function  Get_ShowFirstLineOnly: WordBool; safecall;
  14863.     procedure Set_ShowFirstLineOnly(prop: WordBool); safecall;
  14864.     function  Get_ShowFormat: WordBool; safecall;
  14865.     procedure Set_ShowFormat(prop: WordBool); safecall;
  14866.     function  Get_Zoom: Zoom; safecall;
  14867.     function  Get_ShowObjectAnchors: WordBool; safecall;
  14868.     procedure Set_ShowObjectAnchors(prop: WordBool); safecall;
  14869.     function  Get_ShowTextBoundaries: WordBool; safecall;
  14870.     procedure Set_ShowTextBoundaries(prop: WordBool); safecall;
  14871.     function  Get_ShowHighlight: WordBool; safecall;
  14872.     procedure Set_ShowHighlight(prop: WordBool); safecall;
  14873.     function  Get_ShowDrawings: WordBool; safecall;
  14874.     procedure Set_ShowDrawings(prop: WordBool); safecall;
  14875.     function  Get_ShowTabs: WordBool; safecall;
  14876.     procedure Set_ShowTabs(prop: WordBool); safecall;
  14877.     function  Get_ShowSpaces: WordBool; safecall;
  14878.     procedure Set_ShowSpaces(prop: WordBool); safecall;
  14879.     function  Get_ShowParagraphs: WordBool; safecall;
  14880.     procedure Set_ShowParagraphs(prop: WordBool); safecall;
  14881.     function  Get_ShowHyphens: WordBool; safecall;
  14882.     procedure Set_ShowHyphens(prop: WordBool); safecall;
  14883.     function  Get_ShowHiddenText: WordBool; safecall;
  14884.     procedure Set_ShowHiddenText(prop: WordBool); safecall;
  14885.     function  Get_WrapToWindow: WordBool; safecall;
  14886.     procedure Set_WrapToWindow(prop: WordBool); safecall;
  14887.     function  Get_ShowPicturePlaceHolders: WordBool; safecall;
  14888.     procedure Set_ShowPicturePlaceHolders(prop: WordBool); safecall;
  14889.     function  Get_ShowBookmarks: WordBool; safecall;
  14890.     procedure Set_ShowBookmarks(prop: WordBool); safecall;
  14891.     function  Get_FieldShading: WdFieldShading; safecall;
  14892.     procedure Set_FieldShading(prop: WdFieldShading); safecall;
  14893.     function  Get_ShowAnimation: WordBool; safecall;
  14894.     procedure Set_ShowAnimation(prop: WordBool); safecall;
  14895.     function  Get_TableGridlines: WordBool; safecall;
  14896.     procedure Set_TableGridlines(prop: WordBool); safecall;
  14897.     function  Get_EnlargeFontsLessThan: Integer; safecall;
  14898.     procedure Set_EnlargeFontsLessThan(prop: Integer); safecall;
  14899.     function  Get_ShowMainTextLayer: WordBool; safecall;
  14900.     procedure Set_ShowMainTextLayer(prop: WordBool); safecall;
  14901.     function  Get_SeekView: WdSeekView; safecall;
  14902.     procedure Set_SeekView(prop: WdSeekView); safecall;
  14903.     function  Get_SplitSpecial: WdSpecialPane; safecall;
  14904.     procedure Set_SplitSpecial(prop: WdSpecialPane); safecall;
  14905.     function  Get_BrowseToWindow: Integer; safecall;
  14906.     procedure Set_BrowseToWindow(prop: Integer); safecall;
  14907.     function  Get_ShowOptionalBreaks: WordBool; safecall;
  14908.     procedure Set_ShowOptionalBreaks(prop: WordBool); safecall;
  14909.     procedure CollapseOutline(var Range: OleVariant); safecall;
  14910.     procedure ExpandOutline(var Range: OleVariant); safecall;
  14911.     procedure ShowAllHeadings; safecall;
  14912.     procedure ShowHeading(Level: Integer); safecall;
  14913.     procedure PreviousHeaderFooter; safecall;
  14914.     procedure NextHeaderFooter; safecall;
  14915.     property Application: WordApplication read Get_Application;
  14916.     property Creator: Integer read Get_Creator;
  14917.     property Parent: IDispatch read Get_Parent;
  14918.     property Type_: WdViewType read Get_Type_ write Set_Type_;
  14919.     property FullScreen: WordBool read Get_FullScreen write Set_FullScreen;
  14920.     property Draft: WordBool read Get_Draft write Set_Draft;
  14921.     property ShowAll: WordBool read Get_ShowAll write Set_ShowAll;
  14922.     property ShowFieldCodes: WordBool read Get_ShowFieldCodes write Set_ShowFieldCodes;
  14923.     property MailMergeDataView: WordBool read Get_MailMergeDataView write Set_MailMergeDataView;
  14924.     property Magnifier: WordBool read Get_Magnifier write Set_Magnifier;
  14925.     property ShowFirstLineOnly: WordBool read Get_ShowFirstLineOnly write Set_ShowFirstLineOnly;
  14926.     property ShowFormat: WordBool read Get_ShowFormat write Set_ShowFormat;
  14927.     property Zoom: Zoom read Get_Zoom;
  14928.     property ShowObjectAnchors: WordBool read Get_ShowObjectAnchors write Set_ShowObjectAnchors;
  14929.     property ShowTextBoundaries: WordBool read Get_ShowTextBoundaries write Set_ShowTextBoundaries;
  14930.     property ShowHighlight: WordBool read Get_ShowHighlight write Set_ShowHighlight;
  14931.     property ShowDrawings: WordBool read Get_ShowDrawings write Set_ShowDrawings;
  14932.     property ShowTabs: WordBool read Get_ShowTabs write Set_ShowTabs;
  14933.     property ShowSpaces: WordBool read Get_ShowSpaces write Set_ShowSpaces;
  14934.     property ShowParagraphs: WordBool read Get_ShowParagraphs write Set_ShowParagraphs;
  14935.     property ShowHyphens: WordBool read Get_ShowHyphens write Set_ShowHyphens;
  14936.     property ShowHiddenText: WordBool read Get_ShowHiddenText write Set_ShowHiddenText;
  14937.     property WrapToWindow: WordBool read Get_WrapToWindow write Set_WrapToWindow;
  14938.     property ShowPicturePlaceHolders: WordBool read Get_ShowPicturePlaceHolders write Set_ShowPicturePlaceHolders;
  14939.     property ShowBookmarks: WordBool read Get_ShowBookmarks write Set_ShowBookmarks;
  14940.     property FieldShading: WdFieldShading read Get_FieldShading write Set_FieldShading;
  14941.     property ShowAnimation: WordBool read Get_ShowAnimation write Set_ShowAnimation;
  14942.     property TableGridlines: WordBool read Get_TableGridlines write Set_TableGridlines;
  14943.     property EnlargeFontsLessThan: Integer read Get_EnlargeFontsLessThan write Set_EnlargeFontsLessThan;
  14944.     property ShowMainTextLayer: WordBool read Get_ShowMainTextLayer write Set_ShowMainTextLayer;
  14945.     property SeekView: WdSeekView read Get_SeekView write Set_SeekView;
  14946.     property SplitSpecial: WdSpecialPane read Get_SplitSpecial write Set_SplitSpecial;
  14947.     property BrowseToWindow: Integer read Get_BrowseToWindow write Set_BrowseToWindow;
  14948.     property ShowOptionalBreaks: WordBool read Get_ShowOptionalBreaks write Set_ShowOptionalBreaks;
  14949.   end;
  14950.  
  14951. // *********************************************************************//
  14952. // DispIntf:  ViewDisp
  14953. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  14954. // GUID:      {000209A5-0000-0000-C000-000000000046}
  14955. // *********************************************************************//
  14956.   ViewDisp = dispinterface
  14957.     ['{000209A5-0000-0000-C000-000000000046}']
  14958.     property Application: WordApplication readonly dispid 1000;
  14959.     property Creator: Integer readonly dispid 1001;
  14960.     property Parent: IDispatch readonly dispid 1002;
  14961.     property Type_: WdViewType dispid 0;
  14962.     property FullScreen: WordBool dispid 1;
  14963.     property Draft: WordBool dispid 2;
  14964.     property ShowAll: WordBool dispid 3;
  14965.     property ShowFieldCodes: WordBool dispid 4;
  14966.     property MailMergeDataView: WordBool dispid 5;
  14967.     property Magnifier: WordBool dispid 7;
  14968.     property ShowFirstLineOnly: WordBool dispid 8;
  14969.     property ShowFormat: WordBool dispid 9;
  14970.     property Zoom: Zoom readonly dispid 10;
  14971.     property ShowObjectAnchors: WordBool dispid 11;
  14972.     property ShowTextBoundaries: WordBool dispid 12;
  14973.     property ShowHighlight: WordBool dispid 13;
  14974.     property ShowDrawings: WordBool dispid 14;
  14975.     property ShowTabs: WordBool dispid 15;
  14976.     property ShowSpaces: WordBool dispid 16;
  14977.     property ShowParagraphs: WordBool dispid 17;
  14978.     property ShowHyphens: WordBool dispid 18;
  14979.     property ShowHiddenText: WordBool dispid 19;
  14980.     property WrapToWindow: WordBool dispid 20;
  14981.     property ShowPicturePlaceHolders: WordBool dispid 21;
  14982.     property ShowBookmarks: WordBool dispid 22;
  14983.     property FieldShading: WdFieldShading dispid 23;
  14984.     property ShowAnimation: WordBool dispid 24;
  14985.     property TableGridlines: WordBool dispid 25;
  14986.     property EnlargeFontsLessThan: Integer dispid 26;
  14987.     property ShowMainTextLayer: WordBool dispid 27;
  14988.     property SeekView: WdSeekView dispid 28;
  14989.     property SplitSpecial: WdSpecialPane dispid 29;
  14990.     property BrowseToWindow: Integer dispid 30;
  14991.     property ShowOptionalBreaks: WordBool dispid 31;
  14992.     procedure CollapseOutline(var Range: OleVariant); dispid 101;
  14993.     procedure ExpandOutline(var Range: OleVariant); dispid 102;
  14994.     procedure ShowAllHeadings; dispid 103;
  14995.     procedure ShowHeading(Level: Integer); dispid 104;
  14996.     procedure PreviousHeaderFooter; dispid 105;
  14997.     procedure NextHeaderFooter; dispid 106;
  14998.   end;
  14999.  
  15000. // *********************************************************************//
  15001. // Interface: Zoom
  15002. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15003. // GUID:      {000209A6-0000-0000-C000-000000000046}
  15004. // *********************************************************************//
  15005.   Zoom = interface(IDispatch)
  15006.     ['{000209A6-0000-0000-C000-000000000046}']
  15007.     function  Get_Application: WordApplication; safecall;
  15008.     function  Get_Creator: Integer; safecall;
  15009.     function  Get_Parent: IDispatch; safecall;
  15010.     function  Get_Percentage: Integer; safecall;
  15011.     procedure Set_Percentage(prop: Integer); safecall;
  15012.     function  Get_PageFit: WdPageFit; safecall;
  15013.     procedure Set_PageFit(prop: WdPageFit); safecall;
  15014.     function  Get_PageRows: Integer; safecall;
  15015.     procedure Set_PageRows(prop: Integer); safecall;
  15016.     function  Get_PageColumns: Integer; safecall;
  15017.     procedure Set_PageColumns(prop: Integer); safecall;
  15018.     property Application: WordApplication read Get_Application;
  15019.     property Creator: Integer read Get_Creator;
  15020.     property Parent: IDispatch read Get_Parent;
  15021.     property Percentage: Integer read Get_Percentage write Set_Percentage;
  15022.     property PageFit: WdPageFit read Get_PageFit write Set_PageFit;
  15023.     property PageRows: Integer read Get_PageRows write Set_PageRows;
  15024.     property PageColumns: Integer read Get_PageColumns write Set_PageColumns;
  15025.   end;
  15026.  
  15027. // *********************************************************************//
  15028. // DispIntf:  ZoomDisp
  15029. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15030. // GUID:      {000209A6-0000-0000-C000-000000000046}
  15031. // *********************************************************************//
  15032.   ZoomDisp = dispinterface
  15033.     ['{000209A6-0000-0000-C000-000000000046}']
  15034.     property Application: WordApplication readonly dispid 1000;
  15035.     property Creator: Integer readonly dispid 1001;
  15036.     property Parent: IDispatch readonly dispid 1002;
  15037.     property Percentage: Integer dispid 0;
  15038.     property PageFit: WdPageFit dispid 1;
  15039.     property PageRows: Integer dispid 2;
  15040.     property PageColumns: Integer dispid 3;
  15041.   end;
  15042.  
  15043. // *********************************************************************//
  15044. // Interface: Zooms
  15045. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15046. // GUID:      {000209A7-0000-0000-C000-000000000046}
  15047. // *********************************************************************//
  15048.   Zooms = interface(IDispatch)
  15049.     ['{000209A7-0000-0000-C000-000000000046}']
  15050.     function  Get_Application: WordApplication; safecall;
  15051.     function  Get_Creator: Integer; safecall;
  15052.     function  Get_Parent: IDispatch; safecall;
  15053.     function  Item(Index: WdViewType): Zoom; safecall;
  15054.     property Application: WordApplication read Get_Application;
  15055.     property Creator: Integer read Get_Creator;
  15056.     property Parent: IDispatch read Get_Parent;
  15057.   end;
  15058.  
  15059. // *********************************************************************//
  15060. // DispIntf:  ZoomsDisp
  15061. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15062. // GUID:      {000209A7-0000-0000-C000-000000000046}
  15063. // *********************************************************************//
  15064.   ZoomsDisp = dispinterface
  15065.     ['{000209A7-0000-0000-C000-000000000046}']
  15066.     property Application: WordApplication readonly dispid 1000;
  15067.     property Creator: Integer readonly dispid 1001;
  15068.     property Parent: IDispatch readonly dispid 1002;
  15069.     function  Item(Index: WdViewType): Zoom; dispid 0;
  15070.   end;
  15071.  
  15072. // *********************************************************************//
  15073. // Interface: InlineShape
  15074. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15075. // GUID:      {000209A8-0000-0000-C000-000000000046}
  15076. // *********************************************************************//
  15077.   InlineShape = interface(IDispatch)
  15078.     ['{000209A8-0000-0000-C000-000000000046}']
  15079.     function  Get_Application: WordApplication; safecall;
  15080.     function  Get_Creator: Integer; safecall;
  15081.     function  Get_Parent: IDispatch; safecall;
  15082.     function  Get_Borders: Borders; safecall;
  15083.     procedure Set_Borders(const prop: Borders); safecall;
  15084.     function  Get_Range: Range; safecall;
  15085.     function  Get_LinkFormat: LinkFormat; safecall;
  15086.     function  Get_Field: Field; safecall;
  15087.     function  Get_OLEFormat: OLEFormat; safecall;
  15088.     function  Get_Type_: WdInlineShapeType; safecall;
  15089.     function  Get_Hyperlink: Hyperlink; safecall;
  15090.     function  Get_Height: Single; safecall;
  15091.     procedure Set_Height(prop: Single); safecall;
  15092.     function  Get_Width: Single; safecall;
  15093.     procedure Set_Width(prop: Single); safecall;
  15094.     function  Get_ScaleHeight: Single; safecall;
  15095.     procedure Set_ScaleHeight(prop: Single); safecall;
  15096.     function  Get_ScaleWidth: Single; safecall;
  15097.     procedure Set_ScaleWidth(prop: Single); safecall;
  15098.     function  Get_LockAspectRatio: MsoTriState; safecall;
  15099.     procedure Set_LockAspectRatio(prop: MsoTriState); safecall;
  15100.     function  Get_Line: LineFormat; safecall;
  15101.     function  Get_Fill: FillFormat; safecall;
  15102.     function  Get_PictureFormat: PictureFormat; safecall;
  15103.     procedure Set_PictureFormat(const prop: PictureFormat); safecall;
  15104.     procedure Activate; safecall;
  15105.     procedure Reset; safecall;
  15106.     procedure Delete; safecall;
  15107.     procedure Select; safecall;
  15108.     function  ConvertToShape: Shape; safecall;
  15109.     property Application: WordApplication read Get_Application;
  15110.     property Creator: Integer read Get_Creator;
  15111.     property Parent: IDispatch read Get_Parent;
  15112.     property Borders: Borders read Get_Borders write Set_Borders;
  15113.     property Range: Range read Get_Range;
  15114.     property LinkFormat: LinkFormat read Get_LinkFormat;
  15115.     property Field: Field read Get_Field;
  15116.     property OLEFormat: OLEFormat read Get_OLEFormat;
  15117.     property Type_: WdInlineShapeType read Get_Type_;
  15118.     property Hyperlink: Hyperlink read Get_Hyperlink;
  15119.     property Height: Single read Get_Height write Set_Height;
  15120.     property Width: Single read Get_Width write Set_Width;
  15121.     property ScaleHeight: Single read Get_ScaleHeight write Set_ScaleHeight;
  15122.     property ScaleWidth: Single read Get_ScaleWidth write Set_ScaleWidth;
  15123.     property LockAspectRatio: MsoTriState read Get_LockAspectRatio write Set_LockAspectRatio;
  15124.     property Line: LineFormat read Get_Line;
  15125.     property Fill: FillFormat read Get_Fill;
  15126.     property PictureFormat: PictureFormat read Get_PictureFormat write Set_PictureFormat;
  15127.   end;
  15128.  
  15129. // *********************************************************************//
  15130. // DispIntf:  InlineShapeDisp
  15131. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15132. // GUID:      {000209A8-0000-0000-C000-000000000046}
  15133. // *********************************************************************//
  15134.   InlineShapeDisp = dispinterface
  15135.     ['{000209A8-0000-0000-C000-000000000046}']
  15136.     property Application: WordApplication readonly dispid 1000;
  15137.     property Creator: Integer readonly dispid 1001;
  15138.     property Parent: IDispatch readonly dispid 1002;
  15139.     property Borders: Borders dispid 1100;
  15140.     property Range: Range readonly dispid 2;
  15141.     property LinkFormat: LinkFormat readonly dispid 3;
  15142.     property Field: Field readonly dispid 4;
  15143.     property OLEFormat: OLEFormat readonly dispid 5;
  15144.     property Type_: WdInlineShapeType readonly dispid 6;
  15145.     property Hyperlink: Hyperlink readonly dispid 7;
  15146.     property Height: Single dispid 8;
  15147.     property Width: Single dispid 9;
  15148.     property ScaleHeight: Single dispid 10;
  15149.     property ScaleWidth: Single dispid 11;
  15150.     property LockAspectRatio: MsoTriState dispid 12;
  15151.     property Line: LineFormat readonly dispid 112;
  15152.     property Fill: FillFormat readonly dispid 107;
  15153.     property PictureFormat: PictureFormat dispid 118;
  15154.     procedure Activate; dispid 100;
  15155.     procedure Reset; dispid 101;
  15156.     procedure Delete; dispid 102;
  15157.     procedure Select; dispid 65535;
  15158.     function  ConvertToShape: Shape; dispid 104;
  15159.   end;
  15160.  
  15161. // *********************************************************************//
  15162. // Interface: InlineShapes
  15163. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15164. // GUID:      {000209A9-0000-0000-C000-000000000046}
  15165. // *********************************************************************//
  15166.   InlineShapes = interface(IDispatch)
  15167.     ['{000209A9-0000-0000-C000-000000000046}']
  15168.     function  Get_Application: WordApplication; safecall;
  15169.     function  Get_Creator: Integer; safecall;
  15170.     function  Get_Parent: IDispatch; safecall;
  15171.     function  Get_Count: Integer; safecall;
  15172.     function  Get__NewEnum: IUnknown; safecall;
  15173.     function  Item(Index: Integer): InlineShape; safecall;
  15174.     function  AddPicture(const FileName: WideString; var LinkToFile: OleVariant; 
  15175.                          var SaveWithDocument: OleVariant; var Range: OleVariant): InlineShape; safecall;
  15176.     function  AddOLEObject(var ClassType: OleVariant; var FileName: OleVariant; 
  15177.                            var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
  15178.                            var IconFileName: OleVariant; var IconIndex: OleVariant; 
  15179.                            var IconLabel: OleVariant; var Range: OleVariant): InlineShape; safecall;
  15180.     function  AddOLEControl(var ClassType: OleVariant; var Range: OleVariant): InlineShape; safecall;
  15181.     function  New(const Range: Range): InlineShape; safecall;
  15182.     property Application: WordApplication read Get_Application;
  15183.     property Creator: Integer read Get_Creator;
  15184.     property Parent: IDispatch read Get_Parent;
  15185.     property Count: Integer read Get_Count;
  15186.     property _NewEnum: IUnknown read Get__NewEnum;
  15187.   end;
  15188.  
  15189. // *********************************************************************//
  15190. // DispIntf:  InlineShapesDisp
  15191. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15192. // GUID:      {000209A9-0000-0000-C000-000000000046}
  15193. // *********************************************************************//
  15194.   InlineShapesDisp = dispinterface
  15195.     ['{000209A9-0000-0000-C000-000000000046}']
  15196.     property Application: WordApplication readonly dispid 1000;
  15197.     property Creator: Integer readonly dispid 1001;
  15198.     property Parent: IDispatch readonly dispid 1002;
  15199.     property Count: Integer readonly dispid 1;
  15200.     property _NewEnum: IUnknown readonly dispid -4;
  15201.     function  Item(Index: Integer): InlineShape; dispid 0;
  15202.     function  AddPicture(const FileName: WideString; var LinkToFile: OleVariant; 
  15203.                          var SaveWithDocument: OleVariant; var Range: OleVariant): InlineShape; dispid 100;
  15204.     function  AddOLEObject(var ClassType: OleVariant; var FileName: OleVariant; 
  15205.                            var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
  15206.                            var IconFileName: OleVariant; var IconIndex: OleVariant; 
  15207.                            var IconLabel: OleVariant; var Range: OleVariant): InlineShape; dispid 24;
  15208.     function  AddOLEControl(var ClassType: OleVariant; var Range: OleVariant): InlineShape; dispid 102;
  15209.     function  New(const Range: Range): InlineShape; dispid 200;
  15210.   end;
  15211.  
  15212. // *********************************************************************//
  15213. // Interface: SpellingSuggestions
  15214. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15215. // GUID:      {000209AA-0000-0000-C000-000000000046}
  15216. // *********************************************************************//
  15217.   SpellingSuggestions = interface(IDispatch)
  15218.     ['{000209AA-0000-0000-C000-000000000046}']
  15219.     function  Get_Application: WordApplication; safecall;
  15220.     function  Get_Creator: Integer; safecall;
  15221.     function  Get_Parent: IDispatch; safecall;
  15222.     function  Get__NewEnum: IUnknown; safecall;
  15223.     function  Get_Count: Integer; safecall;
  15224.     function  Get_SpellingErrorType: WdSpellingErrorType; safecall;
  15225.     function  Item(Index: Integer): SpellingSuggestion; safecall;
  15226.     property Application: WordApplication read Get_Application;
  15227.     property Creator: Integer read Get_Creator;
  15228.     property Parent: IDispatch read Get_Parent;
  15229.     property _NewEnum: IUnknown read Get__NewEnum;
  15230.     property Count: Integer read Get_Count;
  15231.     property SpellingErrorType: WdSpellingErrorType read Get_SpellingErrorType;
  15232.   end;
  15233.  
  15234. // *********************************************************************//
  15235. // DispIntf:  SpellingSuggestionsDisp
  15236. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15237. // GUID:      {000209AA-0000-0000-C000-000000000046}
  15238. // *********************************************************************//
  15239.   SpellingSuggestionsDisp = dispinterface
  15240.     ['{000209AA-0000-0000-C000-000000000046}']
  15241.     property Application: WordApplication readonly dispid 1000;
  15242.     property Creator: Integer readonly dispid 1001;
  15243.     property Parent: IDispatch readonly dispid 1002;
  15244.     property _NewEnum: IUnknown readonly dispid -4;
  15245.     property Count: Integer readonly dispid 1;
  15246.     property SpellingErrorType: WdSpellingErrorType readonly dispid 2;
  15247.     function  Item(Index: Integer): SpellingSuggestion; dispid 0;
  15248.   end;
  15249.  
  15250. // *********************************************************************//
  15251. // Interface: SpellingSuggestion
  15252. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15253. // GUID:      {000209AB-0000-0000-C000-000000000046}
  15254. // *********************************************************************//
  15255.   SpellingSuggestion = interface(IDispatch)
  15256.     ['{000209AB-0000-0000-C000-000000000046}']
  15257.     function  Get_Application: WordApplication; safecall;
  15258.     function  Get_Creator: Integer; safecall;
  15259.     function  Get_Parent: IDispatch; safecall;
  15260.     function  Get_Name: WideString; safecall;
  15261.     property Application: WordApplication read Get_Application;
  15262.     property Creator: Integer read Get_Creator;
  15263.     property Parent: IDispatch read Get_Parent;
  15264.     property Name: WideString read Get_Name;
  15265.   end;
  15266.  
  15267. // *********************************************************************//
  15268. // DispIntf:  SpellingSuggestionDisp
  15269. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15270. // GUID:      {000209AB-0000-0000-C000-000000000046}
  15271. // *********************************************************************//
  15272.   SpellingSuggestionDisp = dispinterface
  15273.     ['{000209AB-0000-0000-C000-000000000046}']
  15274.     property Application: WordApplication readonly dispid 1000;
  15275.     property Creator: Integer readonly dispid 1001;
  15276.     property Parent: IDispatch readonly dispid 1002;
  15277.     property Name: WideString readonly dispid 0;
  15278.   end;
  15279.  
  15280. // *********************************************************************//
  15281. // Interface: Dictionaries
  15282. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15283. // GUID:      {000209AC-0000-0000-C000-000000000046}
  15284. // *********************************************************************//
  15285.   Dictionaries = interface(IDispatch)
  15286.     ['{000209AC-0000-0000-C000-000000000046}']
  15287.     function  Get_Application: WordApplication; safecall;
  15288.     function  Get_Creator: Integer; safecall;
  15289.     function  Get_Parent: IDispatch; safecall;
  15290.     function  Get__NewEnum: IUnknown; safecall;
  15291.     function  Get_Count: Integer; safecall;
  15292.     function  Get_Maximum: Integer; safecall;
  15293.     function  Get_ActiveCustomDictionary: Dictionary; safecall;
  15294.     procedure Set_ActiveCustomDictionary(const prop: Dictionary); safecall;
  15295.     function  Item(var Index: OleVariant): Dictionary; safecall;
  15296.     function  Add(const FileName: WideString): Dictionary; safecall;
  15297.     procedure ClearAll; safecall;
  15298.     property Application: WordApplication read Get_Application;
  15299.     property Creator: Integer read Get_Creator;
  15300.     property Parent: IDispatch read Get_Parent;
  15301.     property _NewEnum: IUnknown read Get__NewEnum;
  15302.     property Count: Integer read Get_Count;
  15303.     property Maximum: Integer read Get_Maximum;
  15304.     property ActiveCustomDictionary: Dictionary read Get_ActiveCustomDictionary write Set_ActiveCustomDictionary;
  15305.   end;
  15306.  
  15307. // *********************************************************************//
  15308. // DispIntf:  DictionariesDisp
  15309. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15310. // GUID:      {000209AC-0000-0000-C000-000000000046}
  15311. // *********************************************************************//
  15312.   DictionariesDisp = dispinterface
  15313.     ['{000209AC-0000-0000-C000-000000000046}']
  15314.     property Application: WordApplication readonly dispid 1000;
  15315.     property Creator: Integer readonly dispid 1001;
  15316.     property Parent: IDispatch readonly dispid 1002;
  15317.     property _NewEnum: IUnknown readonly dispid -4;
  15318.     property Count: Integer readonly dispid 1;
  15319.     property Maximum: Integer readonly dispid 2;
  15320.     property ActiveCustomDictionary: Dictionary dispid 3;
  15321.     function  Item(var Index: OleVariant): Dictionary; dispid 0;
  15322.     function  Add(const FileName: WideString): Dictionary; dispid 101;
  15323.     procedure ClearAll; dispid 102;
  15324.   end;
  15325.  
  15326. // *********************************************************************//
  15327. // Interface: HangulHanjaConversionDictionaries
  15328. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  15329. // GUID:      {000209E0-0000-0000-C000-000000000046}
  15330. // *********************************************************************//
  15331.   HangulHanjaConversionDictionaries = interface(IDispatch)
  15332.     ['{000209E0-0000-0000-C000-000000000046}']
  15333.     function  Get_Application: WordApplication; safecall;
  15334.     function  Get_Creator: Integer; safecall;
  15335.     function  Get_Parent: IDispatch; safecall;
  15336.     function  Get__NewEnum: IUnknown; safecall;
  15337.     function  Get_Count: Integer; safecall;
  15338.     function  Get_Maximum: Integer; safecall;
  15339.     function  Get_ActiveCustomDictionary: Dictionary; safecall;
  15340.     procedure Set_ActiveCustomDictionary(const prop: Dictionary); safecall;
  15341.     function  Get_BuiltinDictionary: Dictionary; safecall;
  15342.     function  Item(var Index: OleVariant): Dictionary; safecall;
  15343.     function  Add(const FileName: WideString): Dictionary; safecall;
  15344.     procedure ClearAll; safecall;
  15345.     property Application: WordApplication read Get_Application;
  15346.     property Creator: Integer read Get_Creator;
  15347.     property Parent: IDispatch read Get_Parent;
  15348.     property _NewEnum: IUnknown read Get__NewEnum;
  15349.     property Count: Integer read Get_Count;
  15350.     property Maximum: Integer read Get_Maximum;
  15351.     property ActiveCustomDictionary: Dictionary read Get_ActiveCustomDictionary write Set_ActiveCustomDictionary;
  15352.     property BuiltinDictionary: Dictionary read Get_BuiltinDictionary;
  15353.   end;
  15354.  
  15355. // *********************************************************************//
  15356. // DispIntf:  HangulHanjaConversionDictionariesDisp
  15357. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  15358. // GUID:      {000209E0-0000-0000-C000-000000000046}
  15359. // *********************************************************************//
  15360.   HangulHanjaConversionDictionariesDisp = dispinterface
  15361.     ['{000209E0-0000-0000-C000-000000000046}']
  15362.     property Application: WordApplication readonly dispid 1000;
  15363.     property Creator: Integer readonly dispid 1001;
  15364.     property Parent: IDispatch readonly dispid 1002;
  15365.     property _NewEnum: IUnknown readonly dispid -4;
  15366.     property Count: Integer readonly dispid 1;
  15367.     property Maximum: Integer readonly dispid 2;
  15368.     property ActiveCustomDictionary: Dictionary dispid 3;
  15369.     property BuiltinDictionary: Dictionary readonly dispid 4;
  15370.     function  Item(var Index: OleVariant): Dictionary; dispid 0;
  15371.     function  Add(const FileName: WideString): Dictionary; dispid 101;
  15372.     procedure ClearAll; dispid 102;
  15373.   end;
  15374.  
  15375. // *********************************************************************//
  15376. // Interface: Dictionary
  15377. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15378. // GUID:      {000209AD-0000-0000-C000-000000000046}
  15379. // *********************************************************************//
  15380.   Dictionary = interface(IDispatch)
  15381.     ['{000209AD-0000-0000-C000-000000000046}']
  15382.     function  Get_Application: WordApplication; safecall;
  15383.     function  Get_Creator: Integer; safecall;
  15384.     function  Get_Parent: IDispatch; safecall;
  15385.     function  Get_Name: WideString; safecall;
  15386.     function  Get_Path: WideString; safecall;
  15387.     function  Get_LanguageID: WdLanguageID; safecall;
  15388.     procedure Set_LanguageID(prop: WdLanguageID); safecall;
  15389.     function  Get_ReadOnly: WordBool; safecall;
  15390.     function  Get_Type_: WdDictionaryType; safecall;
  15391.     function  Get_LanguageSpecific: WordBool; safecall;
  15392.     procedure Set_LanguageSpecific(prop: WordBool); safecall;
  15393.     procedure Delete; safecall;
  15394.     property Application: WordApplication read Get_Application;
  15395.     property Creator: Integer read Get_Creator;
  15396.     property Parent: IDispatch read Get_Parent;
  15397.     property Name: WideString read Get_Name;
  15398.     property Path: WideString read Get_Path;
  15399.     property LanguageID: WdLanguageID read Get_LanguageID write Set_LanguageID;
  15400.     property ReadOnly: WordBool read Get_ReadOnly;
  15401.     property Type_: WdDictionaryType read Get_Type_;
  15402.     property LanguageSpecific: WordBool read Get_LanguageSpecific write Set_LanguageSpecific;
  15403.   end;
  15404.  
  15405. // *********************************************************************//
  15406. // DispIntf:  DictionaryDisp
  15407. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15408. // GUID:      {000209AD-0000-0000-C000-000000000046}
  15409. // *********************************************************************//
  15410.   DictionaryDisp = dispinterface
  15411.     ['{000209AD-0000-0000-C000-000000000046}']
  15412.     property Application: WordApplication readonly dispid 1000;
  15413.     property Creator: Integer readonly dispid 1001;
  15414.     property Parent: IDispatch readonly dispid 1002;
  15415.     property Name: WideString readonly dispid 0;
  15416.     property Path: WideString readonly dispid 1;
  15417.     property LanguageID: WdLanguageID dispid 2;
  15418.     property ReadOnly: WordBool readonly dispid 3;
  15419.     property Type_: WdDictionaryType readonly dispid 4;
  15420.     property LanguageSpecific: WordBool dispid 5;
  15421.     procedure Delete; dispid 101;
  15422.   end;
  15423.  
  15424. // *********************************************************************//
  15425. // Interface: ReadabilityStatistics
  15426. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15427. // GUID:      {000209AE-0000-0000-C000-000000000046}
  15428. // *********************************************************************//
  15429.   ReadabilityStatistics = interface(IDispatch)
  15430.     ['{000209AE-0000-0000-C000-000000000046}']
  15431.     function  Get_Application: WordApplication; safecall;
  15432.     function  Get_Creator: Integer; safecall;
  15433.     function  Get_Parent: IDispatch; safecall;
  15434.     function  Get__NewEnum: IUnknown; safecall;
  15435.     function  Get_Count: Integer; safecall;
  15436.     function  Item(var Index: OleVariant): ReadabilityStatistic; safecall;
  15437.     property Application: WordApplication read Get_Application;
  15438.     property Creator: Integer read Get_Creator;
  15439.     property Parent: IDispatch read Get_Parent;
  15440.     property _NewEnum: IUnknown read Get__NewEnum;
  15441.     property Count: Integer read Get_Count;
  15442.   end;
  15443.  
  15444. // *********************************************************************//
  15445. // DispIntf:  ReadabilityStatisticsDisp
  15446. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15447. // GUID:      {000209AE-0000-0000-C000-000000000046}
  15448. // *********************************************************************//
  15449.   ReadabilityStatisticsDisp = dispinterface
  15450.     ['{000209AE-0000-0000-C000-000000000046}']
  15451.     property Application: WordApplication readonly dispid 1000;
  15452.     property Creator: Integer readonly dispid 1001;
  15453.     property Parent: IDispatch readonly dispid 1002;
  15454.     property _NewEnum: IUnknown readonly dispid -4;
  15455.     property Count: Integer readonly dispid 1;
  15456.     function  Item(var Index: OleVariant): ReadabilityStatistic; dispid 0;
  15457.   end;
  15458.  
  15459. // *********************************************************************//
  15460. // Interface: ReadabilityStatistic
  15461. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15462. // GUID:      {000209AF-0000-0000-C000-000000000046}
  15463. // *********************************************************************//
  15464.   ReadabilityStatistic = interface(IDispatch)
  15465.     ['{000209AF-0000-0000-C000-000000000046}']
  15466.     function  Get_Application: WordApplication; safecall;
  15467.     function  Get_Creator: Integer; safecall;
  15468.     function  Get_Parent: IDispatch; safecall;
  15469.     function  Get_Name: WideString; safecall;
  15470.     function  Get_Value: Single; safecall;
  15471.     property Application: WordApplication read Get_Application;
  15472.     property Creator: Integer read Get_Creator;
  15473.     property Parent: IDispatch read Get_Parent;
  15474.     property Name: WideString read Get_Name;
  15475.     property Value: Single read Get_Value;
  15476.   end;
  15477.  
  15478. // *********************************************************************//
  15479. // DispIntf:  ReadabilityStatisticDisp
  15480. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15481. // GUID:      {000209AF-0000-0000-C000-000000000046}
  15482. // *********************************************************************//
  15483.   ReadabilityStatisticDisp = dispinterface
  15484.     ['{000209AF-0000-0000-C000-000000000046}']
  15485.     property Application: WordApplication readonly dispid 1000;
  15486.     property Creator: Integer readonly dispid 1001;
  15487.     property Parent: IDispatch readonly dispid 1002;
  15488.     property Name: WideString readonly dispid 0;
  15489.     property Value: Single readonly dispid 1;
  15490.   end;
  15491.  
  15492. // *********************************************************************//
  15493. // Interface: Versions
  15494. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15495. // GUID:      {000209B3-0000-0000-C000-000000000046}
  15496. // *********************************************************************//
  15497.   Versions = interface(IDispatch)
  15498.     ['{000209B3-0000-0000-C000-000000000046}']
  15499.     function  Get_Application: WordApplication; safecall;
  15500.     function  Get_Creator: Integer; safecall;
  15501.     function  Get_Parent: IDispatch; safecall;
  15502.     function  Get__NewEnum: IUnknown; safecall;
  15503.     function  Get_Count: Integer; safecall;
  15504.     function  Get_AutoVersion: WdAutoVersions; safecall;
  15505.     procedure Set_AutoVersion(prop: WdAutoVersions); safecall;
  15506.     function  Item(Index: Integer): Version; safecall;
  15507.     procedure Save(var Comment: OleVariant); safecall;
  15508.     property Application: WordApplication read Get_Application;
  15509.     property Creator: Integer read Get_Creator;
  15510.     property Parent: IDispatch read Get_Parent;
  15511.     property _NewEnum: IUnknown read Get__NewEnum;
  15512.     property Count: Integer read Get_Count;
  15513.     property AutoVersion: WdAutoVersions read Get_AutoVersion write Set_AutoVersion;
  15514.   end;
  15515.  
  15516. // *********************************************************************//
  15517. // DispIntf:  VersionsDisp
  15518. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15519. // GUID:      {000209B3-0000-0000-C000-000000000046}
  15520. // *********************************************************************//
  15521.   VersionsDisp = dispinterface
  15522.     ['{000209B3-0000-0000-C000-000000000046}']
  15523.     property Application: WordApplication readonly dispid 1000;
  15524.     property Creator: Integer readonly dispid 1001;
  15525.     property Parent: IDispatch readonly dispid 1002;
  15526.     property _NewEnum: IUnknown readonly dispid -4;
  15527.     property Count: Integer readonly dispid 2;
  15528.     property AutoVersion: WdAutoVersions dispid 3;
  15529.     function  Item(Index: Integer): Version; dispid 0;
  15530.     procedure Save(var Comment: OleVariant); dispid 11;
  15531.   end;
  15532.  
  15533. // *********************************************************************//
  15534. // Interface: Version
  15535. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15536. // GUID:      {000209B4-0000-0000-C000-000000000046}
  15537. // *********************************************************************//
  15538.   Version = interface(IDispatch)
  15539.     ['{000209B4-0000-0000-C000-000000000046}']
  15540.     function  Get_Application: WordApplication; safecall;
  15541.     function  Get_Creator: Integer; safecall;
  15542.     function  Get_Parent: IDispatch; safecall;
  15543.     function  Get_SavedBy: WideString; safecall;
  15544.     function  Get_Comment: WideString; safecall;
  15545.     function  Get_Date: TDateTime; safecall;
  15546.     function  Get_Index: Integer; safecall;
  15547.     procedure Open; safecall;
  15548.     procedure Delete; safecall;
  15549.     property Application: WordApplication read Get_Application;
  15550.     property Creator: Integer read Get_Creator;
  15551.     property Parent: IDispatch read Get_Parent;
  15552.     property SavedBy: WideString read Get_SavedBy;
  15553.     property Comment: WideString read Get_Comment;
  15554.     property Date: TDateTime read Get_Date;
  15555.     property Index: Integer read Get_Index;
  15556.   end;
  15557.  
  15558. // *********************************************************************//
  15559. // DispIntf:  VersionDisp
  15560. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15561. // GUID:      {000209B4-0000-0000-C000-000000000046}
  15562. // *********************************************************************//
  15563.   VersionDisp = dispinterface
  15564.     ['{000209B4-0000-0000-C000-000000000046}']
  15565.     property Application: WordApplication readonly dispid 1000;
  15566.     property Creator: Integer readonly dispid 1001;
  15567.     property Parent: IDispatch readonly dispid 1002;
  15568.     property SavedBy: WideString readonly dispid 1003;
  15569.     property Comment: WideString readonly dispid 1004;
  15570.     property Date: TDateTime readonly dispid 1005;
  15571.     property Index: Integer readonly dispid 2;
  15572.     procedure Open; dispid 101;
  15573.     procedure Delete; dispid 102;
  15574.   end;
  15575.  
  15576. // *********************************************************************//
  15577. // Interface: Options
  15578. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  15579. // GUID:      {000209B7-0000-0000-C000-000000000046}
  15580. // *********************************************************************//
  15581.   Options = interface(IDispatch)
  15582.     ['{000209B7-0000-0000-C000-000000000046}']
  15583.     function  Get_Application: WordApplication; safecall;
  15584.     function  Get_Creator: Integer; safecall;
  15585.     function  Get_Parent: IDispatch; safecall;
  15586.     function  Get_AllowAccentedUppercase: WordBool; safecall;
  15587.     procedure Set_AllowAccentedUppercase(prop: WordBool); safecall;
  15588.     function  Get_WPHelp: WordBool; safecall;
  15589.     procedure Set_WPHelp(prop: WordBool); safecall;
  15590.     function  Get_WPDocNavKeys: WordBool; safecall;
  15591.     procedure Set_WPDocNavKeys(prop: WordBool); safecall;
  15592.     function  Get_Pagination: WordBool; safecall;
  15593.     procedure Set_Pagination(prop: WordBool); safecall;
  15594.     function  Get_BlueScreen: WordBool; safecall;
  15595.     procedure Set_BlueScreen(prop: WordBool); safecall;
  15596.     function  Get_EnableSound: WordBool; safecall;
  15597.     procedure Set_EnableSound(prop: WordBool); safecall;
  15598.     function  Get_ConfirmConversions: WordBool; safecall;
  15599.     procedure Set_ConfirmConversions(prop: WordBool); safecall;
  15600.     function  Get_UpdateLinksAtOpen: WordBool; safecall;
  15601.     procedure Set_UpdateLinksAtOpen(prop: WordBool); safecall;
  15602.     function  Get_SendMailAttach: WordBool; safecall;
  15603.     procedure Set_SendMailAttach(prop: WordBool); safecall;
  15604.     function  Get_MeasurementUnit: WdMeasurementUnits; safecall;
  15605.     procedure Set_MeasurementUnit(prop: WdMeasurementUnits); safecall;
  15606.     function  Get_ButtonFieldClicks: Integer; safecall;
  15607.     procedure Set_ButtonFieldClicks(prop: Integer); safecall;
  15608.     function  Get_ShortMenuNames: WordBool; safecall;
  15609.     procedure Set_ShortMenuNames(prop: WordBool); safecall;
  15610.     function  Get_RTFInClipboard: WordBool; safecall;
  15611.     procedure Set_RTFInClipboard(prop: WordBool); safecall;
  15612.     function  Get_UpdateFieldsAtPrint: WordBool; safecall;
  15613.     procedure Set_UpdateFieldsAtPrint(prop: WordBool); safecall;
  15614.     function  Get_PrintProperties: WordBool; safecall;
  15615.     procedure Set_PrintProperties(prop: WordBool); safecall;
  15616.     function  Get_PrintFieldCodes: WordBool; safecall;
  15617.     procedure Set_PrintFieldCodes(prop: WordBool); safecall;
  15618.     function  Get_PrintComments: WordBool; safecall;
  15619.     procedure Set_PrintComments(prop: WordBool); safecall;
  15620.     function  Get_PrintHiddenText: WordBool; safecall;
  15621.     procedure Set_PrintHiddenText(prop: WordBool); safecall;
  15622.     function  Get_EnvelopeFeederInstalled: WordBool; safecall;
  15623.     function  Get_UpdateLinksAtPrint: WordBool; safecall;
  15624.     procedure Set_UpdateLinksAtPrint(prop: WordBool); safecall;
  15625.     function  Get_PrintBackground: WordBool; safecall;
  15626.     procedure Set_PrintBackground(prop: WordBool); safecall;
  15627.     function  Get_PrintDrawingObjects: WordBool; safecall;
  15628.     procedure Set_PrintDrawingObjects(prop: WordBool); safecall;
  15629.     function  Get_DefaultTray: WideString; safecall;
  15630.     procedure Set_DefaultTray(const prop: WideString); safecall;
  15631.     function  Get_DefaultTrayID: Integer; safecall;
  15632.     procedure Set_DefaultTrayID(prop: Integer); safecall;
  15633.     function  Get_CreateBackup: WordBool; safecall;
  15634.     procedure Set_CreateBackup(prop: WordBool); safecall;
  15635.     function  Get_AllowFastSave: WordBool; safecall;
  15636.     procedure Set_AllowFastSave(prop: WordBool); safecall;
  15637.     function  Get_SavePropertiesPrompt: WordBool; safecall;
  15638.     procedure Set_SavePropertiesPrompt(prop: WordBool); safecall;
  15639.     function  Get_SaveNormalPrompt: WordBool; safecall;
  15640.     procedure Set_SaveNormalPrompt(prop: WordBool); safecall;
  15641.     function  Get_SaveInterval: Integer; safecall;
  15642.     procedure Set_SaveInterval(prop: Integer); safecall;
  15643.     function  Get_BackgroundSave: WordBool; safecall;
  15644.     procedure Set_BackgroundSave(prop: WordBool); safecall;
  15645.     function  Get_InsertedTextMark: WdInsertedTextMark; safecall;
  15646.     procedure Set_InsertedTextMark(prop: WdInsertedTextMark); safecall;
  15647.     function  Get_DeletedTextMark: WdDeletedTextMark; safecall;
  15648.     procedure Set_DeletedTextMark(prop: WdDeletedTextMark); safecall;
  15649.     function  Get_RevisedLinesMark: WdRevisedLinesMark; safecall;
  15650.     procedure Set_RevisedLinesMark(prop: WdRevisedLinesMark); safecall;
  15651.     function  Get_InsertedTextColor: WdColorIndex; safecall;
  15652.     procedure Set_InsertedTextColor(prop: WdColorIndex); safecall;
  15653.     function  Get_DeletedTextColor: WdColorIndex; safecall;
  15654.     procedure Set_DeletedTextColor(prop: WdColorIndex); safecall;
  15655.     function  Get_RevisedLinesColor: WdColorIndex; safecall;
  15656.     procedure Set_RevisedLinesColor(prop: WdColorIndex); safecall;
  15657.     function  Get_DefaultFilePath(Path: WdDefaultFilePath): WideString; safecall;
  15658.     procedure Set_DefaultFilePath(Path: WdDefaultFilePath; const prop: WideString); safecall;
  15659.     function  Get_Overtype: WordBool; safecall;
  15660.     procedure Set_Overtype(prop: WordBool); safecall;
  15661.     function  Get_ReplaceSelection: WordBool; safecall;
  15662.     procedure Set_ReplaceSelection(prop: WordBool); safecall;
  15663.     function  Get_AllowDragAndDrop: WordBool; safecall;
  15664.     procedure Set_AllowDragAndDrop(prop: WordBool); safecall;
  15665.     function  Get_AutoWordSelection: WordBool; safecall;
  15666.     procedure Set_AutoWordSelection(prop: WordBool); safecall;
  15667.     function  Get_INSKeyForPaste: WordBool; safecall;
  15668.     procedure Set_INSKeyForPaste(prop: WordBool); safecall;
  15669.     function  Get_SmartCutPaste: WordBool; safecall;
  15670.     procedure Set_SmartCutPaste(prop: WordBool); safecall;
  15671.     function  Get_TabIndentKey: WordBool; safecall;
  15672.     procedure Set_TabIndentKey(prop: WordBool); safecall;
  15673.     function  Get_PictureEditor: WideString; safecall;
  15674.     procedure Set_PictureEditor(const prop: WideString); safecall;
  15675.     function  Get_AnimateScreenMovements: WordBool; safecall;
  15676.     procedure Set_AnimateScreenMovements(prop: WordBool); safecall;
  15677.     function  Get_VirusProtection: WordBool; safecall;
  15678.     procedure Set_VirusProtection(prop: WordBool); safecall;
  15679.     function  Get_RevisedPropertiesMark: WdRevisedPropertiesMark; safecall;
  15680.     procedure Set_RevisedPropertiesMark(prop: WdRevisedPropertiesMark); safecall;
  15681.     function  Get_RevisedPropertiesColor: WdColorIndex; safecall;
  15682.     procedure Set_RevisedPropertiesColor(prop: WdColorIndex); safecall;
  15683.     function  Get_SnapToGrid: WordBool; safecall;
  15684.     procedure Set_SnapToGrid(prop: WordBool); safecall;
  15685.     function  Get_SnapToShapes: WordBool; safecall;
  15686.     procedure Set_SnapToShapes(prop: WordBool); safecall;
  15687.     function  Get_GridDistanceHorizontal: Single; safecall;
  15688.     procedure Set_GridDistanceHorizontal(prop: Single); safecall;
  15689.     function  Get_GridDistanceVertical: Single; safecall;
  15690.     procedure Set_GridDistanceVertical(prop: Single); safecall;
  15691.     function  Get_GridOriginHorizontal: Single; safecall;
  15692.     procedure Set_GridOriginHorizontal(prop: Single); safecall;
  15693.     function  Get_GridOriginVertical: Single; safecall;
  15694.     procedure Set_GridOriginVertical(prop: Single); safecall;
  15695.     function  Get_InlineConversion: WordBool; safecall;
  15696.     procedure Set_InlineConversion(prop: WordBool); safecall;
  15697.     function  Get_IMEAutomaticControl: WordBool; safecall;
  15698.     procedure Set_IMEAutomaticControl(prop: WordBool); safecall;
  15699.     function  Get_AutoFormatApplyHeadings: WordBool; safecall;
  15700.     procedure Set_AutoFormatApplyHeadings(prop: WordBool); safecall;
  15701.     function  Get_AutoFormatApplyLists: WordBool; safecall;
  15702.     procedure Set_AutoFormatApplyLists(prop: WordBool); safecall;
  15703.     function  Get_AutoFormatApplyBulletedLists: WordBool; safecall;
  15704.     procedure Set_AutoFormatApplyBulletedLists(prop: WordBool); safecall;
  15705.     function  Get_AutoFormatApplyOtherParas: WordBool; safecall;
  15706.     procedure Set_AutoFormatApplyOtherParas(prop: WordBool); safecall;
  15707.     function  Get_AutoFormatReplaceQuotes: WordBool; safecall;
  15708.     procedure Set_AutoFormatReplaceQuotes(prop: WordBool); safecall;
  15709.     function  Get_AutoFormatReplaceSymbols: WordBool; safecall;
  15710.     procedure Set_AutoFormatReplaceSymbols(prop: WordBool); safecall;
  15711.     function  Get_AutoFormatReplaceOrdinals: WordBool; safecall;
  15712.     procedure Set_AutoFormatReplaceOrdinals(prop: WordBool); safecall;
  15713.     function  Get_AutoFormatReplaceFractions: WordBool; safecall;
  15714.     procedure Set_AutoFormatReplaceFractions(prop: WordBool); safecall;
  15715.     function  Get_AutoFormatReplacePlainTextEmphasis: WordBool; safecall;
  15716.     procedure Set_AutoFormatReplacePlainTextEmphasis(prop: WordBool); safecall;
  15717.     function  Get_AutoFormatPreserveStyles: WordBool; safecall;
  15718.     procedure Set_AutoFormatPreserveStyles(prop: WordBool); safecall;
  15719.     function  Get_AutoFormatAsYouTypeApplyHeadings: WordBool; safecall;
  15720.     procedure Set_AutoFormatAsYouTypeApplyHeadings(prop: WordBool); safecall;
  15721.     function  Get_AutoFormatAsYouTypeApplyBorders: WordBool; safecall;
  15722.     procedure Set_AutoFormatAsYouTypeApplyBorders(prop: WordBool); safecall;
  15723.     function  Get_AutoFormatAsYouTypeApplyBulletedLists: WordBool; safecall;
  15724.     procedure Set_AutoFormatAsYouTypeApplyBulletedLists(prop: WordBool); safecall;
  15725.     function  Get_AutoFormatAsYouTypeApplyNumberedLists: WordBool; safecall;
  15726.     procedure Set_AutoFormatAsYouTypeApplyNumberedLists(prop: WordBool); safecall;
  15727.     function  Get_AutoFormatAsYouTypeReplaceQuotes: WordBool; safecall;
  15728.     procedure Set_AutoFormatAsYouTypeReplaceQuotes(prop: WordBool); safecall;
  15729.     function  Get_AutoFormatAsYouTypeReplaceSymbols: WordBool; safecall;
  15730.     procedure Set_AutoFormatAsYouTypeReplaceSymbols(prop: WordBool); safecall;
  15731.     function  Get_AutoFormatAsYouTypeReplaceOrdinals: WordBool; safecall;
  15732.     procedure Set_AutoFormatAsYouTypeReplaceOrdinals(prop: WordBool); safecall;
  15733.     function  Get_AutoFormatAsYouTypeReplaceFractions: WordBool; safecall;
  15734.     procedure Set_AutoFormatAsYouTypeReplaceFractions(prop: WordBool); safecall;
  15735.     function  Get_AutoFormatAsYouTypeReplacePlainTextEmphasis: WordBool; safecall;
  15736.     procedure Set_AutoFormatAsYouTypeReplacePlainTextEmphasis(prop: WordBool); safecall;
  15737.     function  Get_AutoFormatAsYouTypeFormatListItemBeginning: WordBool; safecall;
  15738.     procedure Set_AutoFormatAsYouTypeFormatListItemBeginning(prop: WordBool); safecall;
  15739.     function  Get_AutoFormatAsYouTypeDefineStyles: WordBool; safecall;
  15740.     procedure Set_AutoFormatAsYouTypeDefineStyles(prop: WordBool); safecall;
  15741.     function  Get_AutoFormatPlainTextWordMail: WordBool; safecall;
  15742.     procedure Set_AutoFormatPlainTextWordMail(prop: WordBool); safecall;
  15743.     function  Get_AutoFormatAsYouTypeReplaceHyperlinks: WordBool; safecall;
  15744.     procedure Set_AutoFormatAsYouTypeReplaceHyperlinks(prop: WordBool); safecall;
  15745.     function  Get_AutoFormatReplaceHyperlinks: WordBool; safecall;
  15746.     procedure Set_AutoFormatReplaceHyperlinks(prop: WordBool); safecall;
  15747.     function  Get_DefaultHighlightColorIndex: WdColorIndex; safecall;
  15748.     procedure Set_DefaultHighlightColorIndex(prop: WdColorIndex); safecall;
  15749.     function  Get_DefaultBorderLineStyle: WdLineStyle; safecall;
  15750.     procedure Set_DefaultBorderLineStyle(prop: WdLineStyle); safecall;
  15751.     function  Get_CheckSpellingAsYouType: WordBool; safecall;
  15752.     procedure Set_CheckSpellingAsYouType(prop: WordBool); safecall;
  15753.     function  Get_CheckGrammarAsYouType: WordBool; safecall;
  15754.     procedure Set_CheckGrammarAsYouType(prop: WordBool); safecall;
  15755.     function  Get_IgnoreInternetAndFileAddresses: WordBool; safecall;
  15756.     procedure Set_IgnoreInternetAndFileAddresses(prop: WordBool); safecall;
  15757.     function  Get_ShowReadabilityStatistics: WordBool; safecall;
  15758.     procedure Set_ShowReadabilityStatistics(prop: WordBool); safecall;
  15759.     function  Get_IgnoreUppercase: WordBool; safecall;
  15760.     procedure Set_IgnoreUppercase(prop: WordBool); safecall;
  15761.     function  Get_IgnoreMixedDigits: WordBool; safecall;
  15762.     procedure Set_IgnoreMixedDigits(prop: WordBool); safecall;
  15763.     function  Get_SuggestFromMainDictionaryOnly: WordBool; safecall;
  15764.     procedure Set_SuggestFromMainDictionaryOnly(prop: WordBool); safecall;
  15765.     function  Get_SuggestSpellingCorrections: WordBool; safecall;
  15766.     procedure Set_SuggestSpellingCorrections(prop: WordBool); safecall;
  15767.     function  Get_DefaultBorderLineWidth: WdLineWidth; safecall;
  15768.     procedure Set_DefaultBorderLineWidth(prop: WdLineWidth); safecall;
  15769.     function  Get_CheckGrammarWithSpelling: WordBool; safecall;
  15770.     procedure Set_CheckGrammarWithSpelling(prop: WordBool); safecall;
  15771.     function  Get_DefaultOpenFormat: WdOpenFormat; safecall;
  15772.     procedure Set_DefaultOpenFormat(prop: WdOpenFormat); safecall;
  15773.     function  Get_PrintDraft: WordBool; safecall;
  15774.     procedure Set_PrintDraft(prop: WordBool); safecall;
  15775.     function  Get_PrintReverse: WordBool; safecall;
  15776.     procedure Set_PrintReverse(prop: WordBool); safecall;
  15777.     function  Get_MapPaperSize: WordBool; safecall;
  15778.     procedure Set_MapPaperSize(prop: WordBool); safecall;
  15779.     function  Get_AutoFormatAsYouTypeApplyTables: WordBool; safecall;
  15780.     procedure Set_AutoFormatAsYouTypeApplyTables(prop: WordBool); safecall;
  15781.     function  Get_AutoFormatApplyFirstIndents: WordBool; safecall;
  15782.     procedure Set_AutoFormatApplyFirstIndents(prop: WordBool); safecall;
  15783.     function  Get_AutoFormatMatchParentheses: WordBool; safecall;
  15784.     procedure Set_AutoFormatMatchParentheses(prop: WordBool); safecall;
  15785.     function  Get_AutoFormatReplaceFarEastDashes: WordBool; safecall;
  15786.     procedure Set_AutoFormatReplaceFarEastDashes(prop: WordBool); safecall;
  15787.     function  Get_AutoFormatDeleteAutoSpaces: WordBool; safecall;
  15788.     procedure Set_AutoFormatDeleteAutoSpaces(prop: WordBool); safecall;
  15789.     function  Get_AutoFormatAsYouTypeApplyFirstIndents: WordBool; safecall;
  15790.     procedure Set_AutoFormatAsYouTypeApplyFirstIndents(prop: WordBool); safecall;
  15791.     function  Get_AutoFormatAsYouTypeApplyDates: WordBool; safecall;
  15792.     procedure Set_AutoFormatAsYouTypeApplyDates(prop: WordBool); safecall;
  15793.     function  Get_AutoFormatAsYouTypeApplyClosings: WordBool; safecall;
  15794.     procedure Set_AutoFormatAsYouTypeApplyClosings(prop: WordBool); safecall;
  15795.     function  Get_AutoFormatAsYouTypeMatchParentheses: WordBool; safecall;
  15796.     procedure Set_AutoFormatAsYouTypeMatchParentheses(prop: WordBool); safecall;
  15797.     function  Get_AutoFormatAsYouTypeReplaceFarEastDashes: WordBool; safecall;
  15798.     procedure Set_AutoFormatAsYouTypeReplaceFarEastDashes(prop: WordBool); safecall;
  15799.     function  Get_AutoFormatAsYouTypeDeleteAutoSpaces: WordBool; safecall;
  15800.     procedure Set_AutoFormatAsYouTypeDeleteAutoSpaces(prop: WordBool); safecall;
  15801.     function  Get_AutoFormatAsYouTypeInsertClosings: WordBool; safecall;
  15802.     procedure Set_AutoFormatAsYouTypeInsertClosings(prop: WordBool); safecall;
  15803.     function  Get_AutoFormatAsYouTypeAutoLetterWizard: WordBool; safecall;
  15804.     procedure Set_AutoFormatAsYouTypeAutoLetterWizard(prop: WordBool); safecall;
  15805.     function  Get_AutoFormatAsYouTypeInsertOvers: WordBool; safecall;
  15806.     procedure Set_AutoFormatAsYouTypeInsertOvers(prop: WordBool); safecall;
  15807.     function  Get_DisplayGridLines: WordBool; safecall;
  15808.     procedure Set_DisplayGridLines(prop: WordBool); safecall;
  15809.     function  Get_MatchFuzzyCase: WordBool; safecall;
  15810.     procedure Set_MatchFuzzyCase(prop: WordBool); safecall;
  15811.     function  Get_MatchFuzzyByte: WordBool; safecall;
  15812.     procedure Set_MatchFuzzyByte(prop: WordBool); safecall;
  15813.     function  Get_MatchFuzzyHiragana: WordBool; safecall;
  15814.     procedure Set_MatchFuzzyHiragana(prop: WordBool); safecall;
  15815.     function  Get_MatchFuzzySmallKana: WordBool; safecall;
  15816.     procedure Set_MatchFuzzySmallKana(prop: WordBool); safecall;
  15817.     function  Get_MatchFuzzyDash: WordBool; safecall;
  15818.     procedure Set_MatchFuzzyDash(prop: WordBool); safecall;
  15819.     function  Get_MatchFuzzyIterationMark: WordBool; safecall;
  15820.     procedure Set_MatchFuzzyIterationMark(prop: WordBool); safecall;
  15821.     function  Get_MatchFuzzyKanji: WordBool; safecall;
  15822.     procedure Set_MatchFuzzyKanji(prop: WordBool); safecall;
  15823.     function  Get_MatchFuzzyOldKana: WordBool; safecall;
  15824.     procedure Set_MatchFuzzyOldKana(prop: WordBool); safecall;
  15825.     function  Get_MatchFuzzyProlongedSoundMark: WordBool; safecall;
  15826.     procedure Set_MatchFuzzyProlongedSoundMark(prop: WordBool); safecall;
  15827.     function  Get_MatchFuzzyDZ: WordBool; safecall;
  15828.     procedure Set_MatchFuzzyDZ(prop: WordBool); safecall;
  15829.     function  Get_MatchFuzzyBV: WordBool; safecall;
  15830.     procedure Set_MatchFuzzyBV(prop: WordBool); safecall;
  15831.     function  Get_MatchFuzzyTC: WordBool; safecall;
  15832.     procedure Set_MatchFuzzyTC(prop: WordBool); safecall;
  15833.     function  Get_MatchFuzzyHF: WordBool; safecall;
  15834.     procedure Set_MatchFuzzyHF(prop: WordBool); safecall;
  15835.     function  Get_MatchFuzzyZJ: WordBool; safecall;
  15836.     procedure Set_MatchFuzzyZJ(prop: WordBool); safecall;
  15837.     function  Get_MatchFuzzyAY: WordBool; safecall;
  15838.     procedure Set_MatchFuzzyAY(prop: WordBool); safecall;
  15839.     function  Get_MatchFuzzyKiKu: WordBool; safecall;
  15840.     procedure Set_MatchFuzzyKiKu(prop: WordBool); safecall;
  15841.     function  Get_MatchFuzzyPunctuation: WordBool; safecall;
  15842.     procedure Set_MatchFuzzyPunctuation(prop: WordBool); safecall;
  15843.     function  Get_MatchFuzzySpace: WordBool; safecall;
  15844.     procedure Set_MatchFuzzySpace(prop: WordBool); safecall;
  15845.     function  Get_ApplyFarEastFontsToAscii: WordBool; safecall;
  15846.     procedure Set_ApplyFarEastFontsToAscii(prop: WordBool); safecall;
  15847.     function  Get_ConvertHighAnsiToFarEast: WordBool; safecall;
  15848.     procedure Set_ConvertHighAnsiToFarEast(prop: WordBool); safecall;
  15849.     function  Get_PrintOddPagesInAscendingOrder: WordBool; safecall;
  15850.     procedure Set_PrintOddPagesInAscendingOrder(prop: WordBool); safecall;
  15851.     function  Get_PrintEvenPagesInAscendingOrder: WordBool; safecall;
  15852.     procedure Set_PrintEvenPagesInAscendingOrder(prop: WordBool); safecall;
  15853.     function  Get_DefaultBorderColorIndex: WdColorIndex; safecall;
  15854.     procedure Set_DefaultBorderColorIndex(prop: WdColorIndex); safecall;
  15855.     function  Get_EnableMisusedWordsDictionary: WordBool; safecall;
  15856.     procedure Set_EnableMisusedWordsDictionary(prop: WordBool); safecall;
  15857.     function  Get_AllowCombinedAuxiliaryForms: WordBool; safecall;
  15858.     procedure Set_AllowCombinedAuxiliaryForms(prop: WordBool); safecall;
  15859.     function  Get_HangulHanjaFastConversion: WordBool; safecall;
  15860.     procedure Set_HangulHanjaFastConversion(prop: WordBool); safecall;
  15861.     function  Get_CheckHangulEndings: WordBool; safecall;
  15862.     procedure Set_CheckHangulEndings(prop: WordBool); safecall;
  15863.     function  Get_EnableHangulHanjaRecentOrdering: WordBool; safecall;
  15864.     procedure Set_EnableHangulHanjaRecentOrdering(prop: WordBool); safecall;
  15865.     function  Get_MultipleWordConversionsMode: WdMultipleWordConversionsMode; safecall;
  15866.     procedure Set_MultipleWordConversionsMode(prop: WdMultipleWordConversionsMode); safecall;
  15867.     procedure SetWPHelpOptions(var CommandKeyHelp: OleVariant; var DocNavigationKeys: OleVariant; 
  15868.                                var MouseSimulation: OleVariant; var DemoGuidance: OleVariant; 
  15869.                                var DemoSpeed: OleVariant; var HelpType: OleVariant); safecall;
  15870.     property Application: WordApplication read Get_Application;
  15871.     property Creator: Integer read Get_Creator;
  15872.     property Parent: IDispatch read Get_Parent;
  15873.     property AllowAccentedUppercase: WordBool read Get_AllowAccentedUppercase write Set_AllowAccentedUppercase;
  15874.     property WPHelp: WordBool read Get_WPHelp write Set_WPHelp;
  15875.     property WPDocNavKeys: WordBool read Get_WPDocNavKeys write Set_WPDocNavKeys;
  15876.     property Pagination: WordBool read Get_Pagination write Set_Pagination;
  15877.     property BlueScreen: WordBool read Get_BlueScreen write Set_BlueScreen;
  15878.     property EnableSound: WordBool read Get_EnableSound write Set_EnableSound;
  15879.     property ConfirmConversions: WordBool read Get_ConfirmConversions write Set_ConfirmConversions;
  15880.     property UpdateLinksAtOpen: WordBool read Get_UpdateLinksAtOpen write Set_UpdateLinksAtOpen;
  15881.     property SendMailAttach: WordBool read Get_SendMailAttach write Set_SendMailAttach;
  15882.     property MeasurementUnit: WdMeasurementUnits read Get_MeasurementUnit write Set_MeasurementUnit;
  15883.     property ButtonFieldClicks: Integer read Get_ButtonFieldClicks write Set_ButtonFieldClicks;
  15884.     property ShortMenuNames: WordBool read Get_ShortMenuNames write Set_ShortMenuNames;
  15885.     property RTFInClipboard: WordBool read Get_RTFInClipboard write Set_RTFInClipboard;
  15886.     property UpdateFieldsAtPrint: WordBool read Get_UpdateFieldsAtPrint write Set_UpdateFieldsAtPrint;
  15887.     property PrintProperties: WordBool read Get_PrintProperties write Set_PrintProperties;
  15888.     property PrintFieldCodes: WordBool read Get_PrintFieldCodes write Set_PrintFieldCodes;
  15889.     property PrintComments: WordBool read Get_PrintComments write Set_PrintComments;
  15890.     property PrintHiddenText: WordBool read Get_PrintHiddenText write Set_PrintHiddenText;
  15891.     property EnvelopeFeederInstalled: WordBool read Get_EnvelopeFeederInstalled;
  15892.     property UpdateLinksAtPrint: WordBool read Get_UpdateLinksAtPrint write Set_UpdateLinksAtPrint;
  15893.     property PrintBackground: WordBool read Get_PrintBackground write Set_PrintBackground;
  15894.     property PrintDrawingObjects: WordBool read Get_PrintDrawingObjects write Set_PrintDrawingObjects;
  15895.     property DefaultTray: WideString read Get_DefaultTray write Set_DefaultTray;
  15896.     property DefaultTrayID: Integer read Get_DefaultTrayID write Set_DefaultTrayID;
  15897.     property CreateBackup: WordBool read Get_CreateBackup write Set_CreateBackup;
  15898.     property AllowFastSave: WordBool read Get_AllowFastSave write Set_AllowFastSave;
  15899.     property SavePropertiesPrompt: WordBool read Get_SavePropertiesPrompt write Set_SavePropertiesPrompt;
  15900.     property SaveNormalPrompt: WordBool read Get_SaveNormalPrompt write Set_SaveNormalPrompt;
  15901.     property SaveInterval: Integer read Get_SaveInterval write Set_SaveInterval;
  15902.     property BackgroundSave: WordBool read Get_BackgroundSave write Set_BackgroundSave;
  15903.     property InsertedTextMark: WdInsertedTextMark read Get_InsertedTextMark write Set_InsertedTextMark;
  15904.     property DeletedTextMark: WdDeletedTextMark read Get_DeletedTextMark write Set_DeletedTextMark;
  15905.     property RevisedLinesMark: WdRevisedLinesMark read Get_RevisedLinesMark write Set_RevisedLinesMark;
  15906.     property InsertedTextColor: WdColorIndex read Get_InsertedTextColor write Set_InsertedTextColor;
  15907.     property DeletedTextColor: WdColorIndex read Get_DeletedTextColor write Set_DeletedTextColor;
  15908.     property RevisedLinesColor: WdColorIndex read Get_RevisedLinesColor write Set_RevisedLinesColor;
  15909.     property DefaultFilePath[Path: WdDefaultFilePath]: WideString read Get_DefaultFilePath write Set_DefaultFilePath;
  15910.     property Overtype: WordBool read Get_Overtype write Set_Overtype;
  15911.     property ReplaceSelection: WordBool read Get_ReplaceSelection write Set_ReplaceSelection;
  15912.     property AllowDragAndDrop: WordBool read Get_AllowDragAndDrop write Set_AllowDragAndDrop;
  15913.     property AutoWordSelection: WordBool read Get_AutoWordSelection write Set_AutoWordSelection;
  15914.     property INSKeyForPaste: WordBool read Get_INSKeyForPaste write Set_INSKeyForPaste;
  15915.     property SmartCutPaste: WordBool read Get_SmartCutPaste write Set_SmartCutPaste;
  15916.     property TabIndentKey: WordBool read Get_TabIndentKey write Set_TabIndentKey;
  15917.     property PictureEditor: WideString read Get_PictureEditor write Set_PictureEditor;
  15918.     property AnimateScreenMovements: WordBool read Get_AnimateScreenMovements write Set_AnimateScreenMovements;
  15919.     property VirusProtection: WordBool read Get_VirusProtection write Set_VirusProtection;
  15920.     property RevisedPropertiesMark: WdRevisedPropertiesMark read Get_RevisedPropertiesMark write Set_RevisedPropertiesMark;
  15921.     property RevisedPropertiesColor: WdColorIndex read Get_RevisedPropertiesColor write Set_RevisedPropertiesColor;
  15922.     property SnapToGrid: WordBool read Get_SnapToGrid write Set_SnapToGrid;
  15923.     property SnapToShapes: WordBool read Get_SnapToShapes write Set_SnapToShapes;
  15924.     property GridDistanceHorizontal: Single read Get_GridDistanceHorizontal write Set_GridDistanceHorizontal;
  15925.     property GridDistanceVertical: Single read Get_GridDistanceVertical write Set_GridDistanceVertical;
  15926.     property GridOriginHorizontal: Single read Get_GridOriginHorizontal write Set_GridOriginHorizontal;
  15927.     property GridOriginVertical: Single read Get_GridOriginVertical write Set_GridOriginVertical;
  15928.     property InlineConversion: WordBool read Get_InlineConversion write Set_InlineConversion;
  15929.     property IMEAutomaticControl: WordBool read Get_IMEAutomaticControl write Set_IMEAutomaticControl;
  15930.     property AutoFormatApplyHeadings: WordBool read Get_AutoFormatApplyHeadings write Set_AutoFormatApplyHeadings;
  15931.     property AutoFormatApplyLists: WordBool read Get_AutoFormatApplyLists write Set_AutoFormatApplyLists;
  15932.     property AutoFormatApplyBulletedLists: WordBool read Get_AutoFormatApplyBulletedLists write Set_AutoFormatApplyBulletedLists;
  15933.     property AutoFormatApplyOtherParas: WordBool read Get_AutoFormatApplyOtherParas write Set_AutoFormatApplyOtherParas;
  15934.     property AutoFormatReplaceQuotes: WordBool read Get_AutoFormatReplaceQuotes write Set_AutoFormatReplaceQuotes;
  15935.     property AutoFormatReplaceSymbols: WordBool read Get_AutoFormatReplaceSymbols write Set_AutoFormatReplaceSymbols;
  15936.     property AutoFormatReplaceOrdinals: WordBool read Get_AutoFormatReplaceOrdinals write Set_AutoFormatReplaceOrdinals;
  15937.     property AutoFormatReplaceFractions: WordBool read Get_AutoFormatReplaceFractions write Set_AutoFormatReplaceFractions;
  15938.     property AutoFormatReplacePlainTextEmphasis: WordBool read Get_AutoFormatReplacePlainTextEmphasis write Set_AutoFormatReplacePlainTextEmphasis;
  15939.     property AutoFormatPreserveStyles: WordBool read Get_AutoFormatPreserveStyles write Set_AutoFormatPreserveStyles;
  15940.     property AutoFormatAsYouTypeApplyHeadings: WordBool read Get_AutoFormatAsYouTypeApplyHeadings write Set_AutoFormatAsYouTypeApplyHeadings;
  15941.     property AutoFormatAsYouTypeApplyBorders: WordBool read Get_AutoFormatAsYouTypeApplyBorders write Set_AutoFormatAsYouTypeApplyBorders;
  15942.     property AutoFormatAsYouTypeApplyBulletedLists: WordBool read Get_AutoFormatAsYouTypeApplyBulletedLists write Set_AutoFormatAsYouTypeApplyBulletedLists;
  15943.     property AutoFormatAsYouTypeApplyNumberedLists: WordBool read Get_AutoFormatAsYouTypeApplyNumberedLists write Set_AutoFormatAsYouTypeApplyNumberedLists;
  15944.     property AutoFormatAsYouTypeReplaceQuotes: WordBool read Get_AutoFormatAsYouTypeReplaceQuotes write Set_AutoFormatAsYouTypeReplaceQuotes;
  15945.     property AutoFormatAsYouTypeReplaceSymbols: WordBool read Get_AutoFormatAsYouTypeReplaceSymbols write Set_AutoFormatAsYouTypeReplaceSymbols;
  15946.     property AutoFormatAsYouTypeReplaceOrdinals: WordBool read Get_AutoFormatAsYouTypeReplaceOrdinals write Set_AutoFormatAsYouTypeReplaceOrdinals;
  15947.     property AutoFormatAsYouTypeReplaceFractions: WordBool read Get_AutoFormatAsYouTypeReplaceFractions write Set_AutoFormatAsYouTypeReplaceFractions;
  15948.     property AutoFormatAsYouTypeReplacePlainTextEmphasis: WordBool read Get_AutoFormatAsYouTypeReplacePlainTextEmphasis write Set_AutoFormatAsYouTypeReplacePlainTextEmphasis;
  15949.     property AutoFormatAsYouTypeFormatListItemBeginning: WordBool read Get_AutoFormatAsYouTypeFormatListItemBeginning write Set_AutoFormatAsYouTypeFormatListItemBeginning;
  15950.     property AutoFormatAsYouTypeDefineStyles: WordBool read Get_AutoFormatAsYouTypeDefineStyles write Set_AutoFormatAsYouTypeDefineStyles;
  15951.     property AutoFormatPlainTextWordMail: WordBool read Get_AutoFormatPlainTextWordMail write Set_AutoFormatPlainTextWordMail;
  15952.     property AutoFormatAsYouTypeReplaceHyperlinks: WordBool read Get_AutoFormatAsYouTypeReplaceHyperlinks write Set_AutoFormatAsYouTypeReplaceHyperlinks;
  15953.     property AutoFormatReplaceHyperlinks: WordBool read Get_AutoFormatReplaceHyperlinks write Set_AutoFormatReplaceHyperlinks;
  15954.     property DefaultHighlightColorIndex: WdColorIndex read Get_DefaultHighlightColorIndex write Set_DefaultHighlightColorIndex;
  15955.     property DefaultBorderLineStyle: WdLineStyle read Get_DefaultBorderLineStyle write Set_DefaultBorderLineStyle;
  15956.     property CheckSpellingAsYouType: WordBool read Get_CheckSpellingAsYouType write Set_CheckSpellingAsYouType;
  15957.     property CheckGrammarAsYouType: WordBool read Get_CheckGrammarAsYouType write Set_CheckGrammarAsYouType;
  15958.     property IgnoreInternetAndFileAddresses: WordBool read Get_IgnoreInternetAndFileAddresses write Set_IgnoreInternetAndFileAddresses;
  15959.     property ShowReadabilityStatistics: WordBool read Get_ShowReadabilityStatistics write Set_ShowReadabilityStatistics;
  15960.     property IgnoreUppercase: WordBool read Get_IgnoreUppercase write Set_IgnoreUppercase;
  15961.     property IgnoreMixedDigits: WordBool read Get_IgnoreMixedDigits write Set_IgnoreMixedDigits;
  15962.     property SuggestFromMainDictionaryOnly: WordBool read Get_SuggestFromMainDictionaryOnly write Set_SuggestFromMainDictionaryOnly;
  15963.     property SuggestSpellingCorrections: WordBool read Get_SuggestSpellingCorrections write Set_SuggestSpellingCorrections;
  15964.     property DefaultBorderLineWidth: WdLineWidth read Get_DefaultBorderLineWidth write Set_DefaultBorderLineWidth;
  15965.     property CheckGrammarWithSpelling: WordBool read Get_CheckGrammarWithSpelling write Set_CheckGrammarWithSpelling;
  15966.     property DefaultOpenFormat: WdOpenFormat read Get_DefaultOpenFormat write Set_DefaultOpenFormat;
  15967.     property PrintDraft: WordBool read Get_PrintDraft write Set_PrintDraft;
  15968.     property PrintReverse: WordBool read Get_PrintReverse write Set_PrintReverse;
  15969.     property MapPaperSize: WordBool read Get_MapPaperSize write Set_MapPaperSize;
  15970.     property AutoFormatAsYouTypeApplyTables: WordBool read Get_AutoFormatAsYouTypeApplyTables write Set_AutoFormatAsYouTypeApplyTables;
  15971.     property AutoFormatApplyFirstIndents: WordBool read Get_AutoFormatApplyFirstIndents write Set_AutoFormatApplyFirstIndents;
  15972.     property AutoFormatMatchParentheses: WordBool read Get_AutoFormatMatchParentheses write Set_AutoFormatMatchParentheses;
  15973.     property AutoFormatReplaceFarEastDashes: WordBool read Get_AutoFormatReplaceFarEastDashes write Set_AutoFormatReplaceFarEastDashes;
  15974.     property AutoFormatDeleteAutoSpaces: WordBool read Get_AutoFormatDeleteAutoSpaces write Set_AutoFormatDeleteAutoSpaces;
  15975.     property AutoFormatAsYouTypeApplyFirstIndents: WordBool read Get_AutoFormatAsYouTypeApplyFirstIndents write Set_AutoFormatAsYouTypeApplyFirstIndents;
  15976.     property AutoFormatAsYouTypeApplyDates: WordBool read Get_AutoFormatAsYouTypeApplyDates write Set_AutoFormatAsYouTypeApplyDates;
  15977.     property AutoFormatAsYouTypeApplyClosings: WordBool read Get_AutoFormatAsYouTypeApplyClosings write Set_AutoFormatAsYouTypeApplyClosings;
  15978.     property AutoFormatAsYouTypeMatchParentheses: WordBool read Get_AutoFormatAsYouTypeMatchParentheses write Set_AutoFormatAsYouTypeMatchParentheses;
  15979.     property AutoFormatAsYouTypeReplaceFarEastDashes: WordBool read Get_AutoFormatAsYouTypeReplaceFarEastDashes write Set_AutoFormatAsYouTypeReplaceFarEastDashes;
  15980.     property AutoFormatAsYouTypeDeleteAutoSpaces: WordBool read Get_AutoFormatAsYouTypeDeleteAutoSpaces write Set_AutoFormatAsYouTypeDeleteAutoSpaces;
  15981.     property AutoFormatAsYouTypeInsertClosings: WordBool read Get_AutoFormatAsYouTypeInsertClosings write Set_AutoFormatAsYouTypeInsertClosings;
  15982.     property AutoFormatAsYouTypeAutoLetterWizard: WordBool read Get_AutoFormatAsYouTypeAutoLetterWizard write Set_AutoFormatAsYouTypeAutoLetterWizard;
  15983.     property AutoFormatAsYouTypeInsertOvers: WordBool read Get_AutoFormatAsYouTypeInsertOvers write Set_AutoFormatAsYouTypeInsertOvers;
  15984.     property DisplayGridLines: WordBool read Get_DisplayGridLines write Set_DisplayGridLines;
  15985.     property MatchFuzzyCase: WordBool read Get_MatchFuzzyCase write Set_MatchFuzzyCase;
  15986.     property MatchFuzzyByte: WordBool read Get_MatchFuzzyByte write Set_MatchFuzzyByte;
  15987.     property MatchFuzzyHiragana: WordBool read Get_MatchFuzzyHiragana write Set_MatchFuzzyHiragana;
  15988.     property MatchFuzzySmallKana: WordBool read Get_MatchFuzzySmallKana write Set_MatchFuzzySmallKana;
  15989.     property MatchFuzzyDash: WordBool read Get_MatchFuzzyDash write Set_MatchFuzzyDash;
  15990.     property MatchFuzzyIterationMark: WordBool read Get_MatchFuzzyIterationMark write Set_MatchFuzzyIterationMark;
  15991.     property MatchFuzzyKanji: WordBool read Get_MatchFuzzyKanji write Set_MatchFuzzyKanji;
  15992.     property MatchFuzzyOldKana: WordBool read Get_MatchFuzzyOldKana write Set_MatchFuzzyOldKana;
  15993.     property MatchFuzzyProlongedSoundMark: WordBool read Get_MatchFuzzyProlongedSoundMark write Set_MatchFuzzyProlongedSoundMark;
  15994.     property MatchFuzzyDZ: WordBool read Get_MatchFuzzyDZ write Set_MatchFuzzyDZ;
  15995.     property MatchFuzzyBV: WordBool read Get_MatchFuzzyBV write Set_MatchFuzzyBV;
  15996.     property MatchFuzzyTC: WordBool read Get_MatchFuzzyTC write Set_MatchFuzzyTC;
  15997.     property MatchFuzzyHF: WordBool read Get_MatchFuzzyHF write Set_MatchFuzzyHF;
  15998.     property MatchFuzzyZJ: WordBool read Get_MatchFuzzyZJ write Set_MatchFuzzyZJ;
  15999.     property MatchFuzzyAY: WordBool read Get_MatchFuzzyAY write Set_MatchFuzzyAY;
  16000.     property MatchFuzzyKiKu: WordBool read Get_MatchFuzzyKiKu write Set_MatchFuzzyKiKu;
  16001.     property MatchFuzzyPunctuation: WordBool read Get_MatchFuzzyPunctuation write Set_MatchFuzzyPunctuation;
  16002.     property MatchFuzzySpace: WordBool read Get_MatchFuzzySpace write Set_MatchFuzzySpace;
  16003.     property ApplyFarEastFontsToAscii: WordBool read Get_ApplyFarEastFontsToAscii write Set_ApplyFarEastFontsToAscii;
  16004.     property ConvertHighAnsiToFarEast: WordBool read Get_ConvertHighAnsiToFarEast write Set_ConvertHighAnsiToFarEast;
  16005.     property PrintOddPagesInAscendingOrder: WordBool read Get_PrintOddPagesInAscendingOrder write Set_PrintOddPagesInAscendingOrder;
  16006.     property PrintEvenPagesInAscendingOrder: WordBool read Get_PrintEvenPagesInAscendingOrder write Set_PrintEvenPagesInAscendingOrder;
  16007.     property DefaultBorderColorIndex: WdColorIndex read Get_DefaultBorderColorIndex write Set_DefaultBorderColorIndex;
  16008.     property EnableMisusedWordsDictionary: WordBool read Get_EnableMisusedWordsDictionary write Set_EnableMisusedWordsDictionary;
  16009.     property AllowCombinedAuxiliaryForms: WordBool read Get_AllowCombinedAuxiliaryForms write Set_AllowCombinedAuxiliaryForms;
  16010.     property HangulHanjaFastConversion: WordBool read Get_HangulHanjaFastConversion write Set_HangulHanjaFastConversion;
  16011.     property CheckHangulEndings: WordBool read Get_CheckHangulEndings write Set_CheckHangulEndings;
  16012.     property EnableHangulHanjaRecentOrdering: WordBool read Get_EnableHangulHanjaRecentOrdering write Set_EnableHangulHanjaRecentOrdering;
  16013.     property MultipleWordConversionsMode: WdMultipleWordConversionsMode read Get_MultipleWordConversionsMode write Set_MultipleWordConversionsMode;
  16014.   end;
  16015.  
  16016. // *********************************************************************//
  16017. // DispIntf:  OptionsDisp
  16018. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16019. // GUID:      {000209B7-0000-0000-C000-000000000046}
  16020. // *********************************************************************//
  16021.   OptionsDisp = dispinterface
  16022.     ['{000209B7-0000-0000-C000-000000000046}']
  16023.     property Application: WordApplication readonly dispid 1000;
  16024.     property Creator: Integer readonly dispid 1001;
  16025.     property Parent: IDispatch readonly dispid 1002;
  16026.     property AllowAccentedUppercase: WordBool dispid 1;
  16027.     property WPHelp: WordBool dispid 17;
  16028.     property WPDocNavKeys: WordBool dispid 18;
  16029.     property Pagination: WordBool dispid 19;
  16030.     property BlueScreen: WordBool dispid 20;
  16031.     property EnableSound: WordBool dispid 21;
  16032.     property ConfirmConversions: WordBool dispid 22;
  16033.     property UpdateLinksAtOpen: WordBool dispid 23;
  16034.     property SendMailAttach: WordBool dispid 24;
  16035.     property MeasurementUnit: WdMeasurementUnits dispid 26;
  16036.     property ButtonFieldClicks: Integer dispid 27;
  16037.     property ShortMenuNames: WordBool dispid 28;
  16038.     property RTFInClipboard: WordBool dispid 29;
  16039.     property UpdateFieldsAtPrint: WordBool dispid 30;
  16040.     property PrintProperties: WordBool dispid 31;
  16041.     property PrintFieldCodes: WordBool dispid 32;
  16042.     property PrintComments: WordBool dispid 33;
  16043.     property PrintHiddenText: WordBool dispid 34;
  16044.     property EnvelopeFeederInstalled: WordBool readonly dispid 35;
  16045.     property UpdateLinksAtPrint: WordBool dispid 36;
  16046.     property PrintBackground: WordBool dispid 37;
  16047.     property PrintDrawingObjects: WordBool dispid 38;
  16048.     property DefaultTray: WideString dispid 39;
  16049.     property DefaultTrayID: Integer dispid 40;
  16050.     property CreateBackup: WordBool dispid 41;
  16051.     property AllowFastSave: WordBool dispid 42;
  16052.     property SavePropertiesPrompt: WordBool dispid 43;
  16053.     property SaveNormalPrompt: WordBool dispid 44;
  16054.     property SaveInterval: Integer dispid 45;
  16055.     property BackgroundSave: WordBool dispid 46;
  16056.     property InsertedTextMark: WdInsertedTextMark dispid 57;
  16057.     property DeletedTextMark: WdDeletedTextMark dispid 58;
  16058.     property RevisedLinesMark: WdRevisedLinesMark dispid 59;
  16059.     property InsertedTextColor: WdColorIndex dispid 60;
  16060.     property DeletedTextColor: WdColorIndex dispid 61;
  16061.     property RevisedLinesColor: WdColorIndex dispid 62;
  16062.     property DefaultFilePath[Path: WdDefaultFilePath]: WideString dispid 65;
  16063.     property Overtype: WordBool dispid 66;
  16064.     property ReplaceSelection: WordBool dispid 67;
  16065.     property AllowDragAndDrop: WordBool dispid 68;
  16066.     property AutoWordSelection: WordBool dispid 69;
  16067.     property INSKeyForPaste: WordBool dispid 70;
  16068.     property SmartCutPaste: WordBool dispid 71;
  16069.     property TabIndentKey: WordBool dispid 72;
  16070.     property PictureEditor: WideString dispid 73;
  16071.     property AnimateScreenMovements: WordBool dispid 74;
  16072.     property VirusProtection: WordBool dispid 75;
  16073.     property RevisedPropertiesMark: WdRevisedPropertiesMark dispid 76;
  16074.     property RevisedPropertiesColor: WdColorIndex dispid 77;
  16075.     property SnapToGrid: WordBool dispid 79;
  16076.     property SnapToShapes: WordBool dispid 80;
  16077.     property GridDistanceHorizontal: Single dispid 81;
  16078.     property GridDistanceVertical: Single dispid 82;
  16079.     property GridOriginHorizontal: Single dispid 83;
  16080.     property GridOriginVertical: Single dispid 84;
  16081.     property InlineConversion: WordBool dispid 86;
  16082.     property IMEAutomaticControl: WordBool dispid 87;
  16083.     property AutoFormatApplyHeadings: WordBool dispid 250;
  16084.     property AutoFormatApplyLists: WordBool dispid 251;
  16085.     property AutoFormatApplyBulletedLists: WordBool dispid 252;
  16086.     property AutoFormatApplyOtherParas: WordBool dispid 253;
  16087.     property AutoFormatReplaceQuotes: WordBool dispid 254;
  16088.     property AutoFormatReplaceSymbols: WordBool dispid 255;
  16089.     property AutoFormatReplaceOrdinals: WordBool dispid 256;
  16090.     property AutoFormatReplaceFractions: WordBool dispid 257;
  16091.     property AutoFormatReplacePlainTextEmphasis: WordBool dispid 258;
  16092.     property AutoFormatPreserveStyles: WordBool dispid 259;
  16093.     property AutoFormatAsYouTypeApplyHeadings: WordBool dispid 260;
  16094.     property AutoFormatAsYouTypeApplyBorders: WordBool dispid 261;
  16095.     property AutoFormatAsYouTypeApplyBulletedLists: WordBool dispid 262;
  16096.     property AutoFormatAsYouTypeApplyNumberedLists: WordBool dispid 263;
  16097.     property AutoFormatAsYouTypeReplaceQuotes: WordBool dispid 264;
  16098.     property AutoFormatAsYouTypeReplaceSymbols: WordBool dispid 265;
  16099.     property AutoFormatAsYouTypeReplaceOrdinals: WordBool dispid 266;
  16100.     property AutoFormatAsYouTypeReplaceFractions: WordBool dispid 267;
  16101.     property AutoFormatAsYouTypeReplacePlainTextEmphasis: WordBool dispid 268;
  16102.     property AutoFormatAsYouTypeFormatListItemBeginning: WordBool dispid 269;
  16103.     property AutoFormatAsYouTypeDefineStyles: WordBool dispid 270;
  16104.     property AutoFormatPlainTextWordMail: WordBool dispid 271;
  16105.     property AutoFormatAsYouTypeReplaceHyperlinks: WordBool dispid 272;
  16106.     property AutoFormatReplaceHyperlinks: WordBool dispid 273;
  16107.     property DefaultHighlightColorIndex: WdColorIndex dispid 274;
  16108.     property DefaultBorderLineStyle: WdLineStyle dispid 275;
  16109.     property CheckSpellingAsYouType: WordBool dispid 276;
  16110.     property CheckGrammarAsYouType: WordBool dispid 277;
  16111.     property IgnoreInternetAndFileAddresses: WordBool dispid 278;
  16112.     property ShowReadabilityStatistics: WordBool dispid 279;
  16113.     property IgnoreUppercase: WordBool dispid 280;
  16114.     property IgnoreMixedDigits: WordBool dispid 281;
  16115.     property SuggestFromMainDictionaryOnly: WordBool dispid 282;
  16116.     property SuggestSpellingCorrections: WordBool dispid 283;
  16117.     property DefaultBorderLineWidth: WdLineWidth dispid 284;
  16118.     property CheckGrammarWithSpelling: WordBool dispid 285;
  16119.     property DefaultOpenFormat: WdOpenFormat dispid 286;
  16120.     property PrintDraft: WordBool dispid 287;
  16121.     property PrintReverse: WordBool dispid 288;
  16122.     property MapPaperSize: WordBool dispid 289;
  16123.     property AutoFormatAsYouTypeApplyTables: WordBool dispid 290;
  16124.     property AutoFormatApplyFirstIndents: WordBool dispid 291;
  16125.     property AutoFormatMatchParentheses: WordBool dispid 294;
  16126.     property AutoFormatReplaceFarEastDashes: WordBool dispid 295;
  16127.     property AutoFormatDeleteAutoSpaces: WordBool dispid 296;
  16128.     property AutoFormatAsYouTypeApplyFirstIndents: WordBool dispid 297;
  16129.     property AutoFormatAsYouTypeApplyDates: WordBool dispid 298;
  16130.     property AutoFormatAsYouTypeApplyClosings: WordBool dispid 299;
  16131.     property AutoFormatAsYouTypeMatchParentheses: WordBool dispid 300;
  16132.     property AutoFormatAsYouTypeReplaceFarEastDashes: WordBool dispid 301;
  16133.     property AutoFormatAsYouTypeDeleteAutoSpaces: WordBool dispid 302;
  16134.     property AutoFormatAsYouTypeInsertClosings: WordBool dispid 303;
  16135.     property AutoFormatAsYouTypeAutoLetterWizard: WordBool dispid 304;
  16136.     property AutoFormatAsYouTypeInsertOvers: WordBool dispid 305;
  16137.     property DisplayGridLines: WordBool dispid 306;
  16138.     property MatchFuzzyCase: WordBool dispid 309;
  16139.     property MatchFuzzyByte: WordBool dispid 310;
  16140.     property MatchFuzzyHiragana: WordBool dispid 311;
  16141.     property MatchFuzzySmallKana: WordBool dispid 312;
  16142.     property MatchFuzzyDash: WordBool dispid 313;
  16143.     property MatchFuzzyIterationMark: WordBool dispid 314;
  16144.     property MatchFuzzyKanji: WordBool dispid 315;
  16145.     property MatchFuzzyOldKana: WordBool dispid 316;
  16146.     property MatchFuzzyProlongedSoundMark: WordBool dispid 317;
  16147.     property MatchFuzzyDZ: WordBool dispid 318;
  16148.     property MatchFuzzyBV: WordBool dispid 319;
  16149.     property MatchFuzzyTC: WordBool dispid 320;
  16150.     property MatchFuzzyHF: WordBool dispid 321;
  16151.     property MatchFuzzyZJ: WordBool dispid 322;
  16152.     property MatchFuzzyAY: WordBool dispid 323;
  16153.     property MatchFuzzyKiKu: WordBool dispid 324;
  16154.     property MatchFuzzyPunctuation: WordBool dispid 325;
  16155.     property MatchFuzzySpace: WordBool dispid 326;
  16156.     property ApplyFarEastFontsToAscii: WordBool dispid 327;
  16157.     property ConvertHighAnsiToFarEast: WordBool dispid 328;
  16158.     property PrintOddPagesInAscendingOrder: WordBool dispid 330;
  16159.     property PrintEvenPagesInAscendingOrder: WordBool dispid 331;
  16160.     property DefaultBorderColorIndex: WdColorIndex dispid 337;
  16161.     property EnableMisusedWordsDictionary: WordBool dispid 338;
  16162.     property AllowCombinedAuxiliaryForms: WordBool dispid 339;
  16163.     property HangulHanjaFastConversion: WordBool dispid 340;
  16164.     property CheckHangulEndings: WordBool dispid 341;
  16165.     property EnableHangulHanjaRecentOrdering: WordBool dispid 342;
  16166.     property MultipleWordConversionsMode: WdMultipleWordConversionsMode dispid 343;
  16167.     procedure SetWPHelpOptions(var CommandKeyHelp: OleVariant; var DocNavigationKeys: OleVariant; 
  16168.                                var MouseSimulation: OleVariant; var DemoGuidance: OleVariant; 
  16169.                                var DemoSpeed: OleVariant; var HelpType: OleVariant); dispid 333;
  16170.   end;
  16171.  
  16172. // *********************************************************************//
  16173. // Interface: MailMessage
  16174. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16175. // GUID:      {000209BA-0000-0000-C000-000000000046}
  16176. // *********************************************************************//
  16177.   MailMessage = interface(IDispatch)
  16178.     ['{000209BA-0000-0000-C000-000000000046}']
  16179.     function  Get_Application: WordApplication; safecall;
  16180.     function  Get_Creator: Integer; safecall;
  16181.     function  Get_Parent: IDispatch; safecall;
  16182.     procedure CheckName; safecall;
  16183.     procedure Delete; safecall;
  16184.     procedure DisplayMoveDialog; safecall;
  16185.     procedure DisplayProperties; safecall;
  16186.     procedure DisplaySelectNamesDialog; safecall;
  16187.     procedure Forward; safecall;
  16188.     procedure GoToNext; safecall;
  16189.     procedure GoToPrevious; safecall;
  16190.     procedure Reply; safecall;
  16191.     procedure ReplyAll; safecall;
  16192.     procedure ToggleHeader; safecall;
  16193.     property Application: WordApplication read Get_Application;
  16194.     property Creator: Integer read Get_Creator;
  16195.     property Parent: IDispatch read Get_Parent;
  16196.   end;
  16197.  
  16198. // *********************************************************************//
  16199. // DispIntf:  MailMessageDisp
  16200. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16201. // GUID:      {000209BA-0000-0000-C000-000000000046}
  16202. // *********************************************************************//
  16203.   MailMessageDisp = dispinterface
  16204.     ['{000209BA-0000-0000-C000-000000000046}']
  16205.     property Application: WordApplication readonly dispid 1000;
  16206.     property Creator: Integer readonly dispid 1001;
  16207.     property Parent: IDispatch readonly dispid 1002;
  16208.     procedure CheckName; dispid 334;
  16209.     procedure Delete; dispid 335;
  16210.     procedure DisplayMoveDialog; dispid 336;
  16211.     procedure DisplayProperties; dispid 337;
  16212.     procedure DisplaySelectNamesDialog; dispid 338;
  16213.     procedure Forward; dispid 339;
  16214.     procedure GoToNext; dispid 340;
  16215.     procedure GoToPrevious; dispid 341;
  16216.     procedure Reply; dispid 342;
  16217.     procedure ReplyAll; dispid 343;
  16218.     procedure ToggleHeader; dispid 344;
  16219.   end;
  16220.  
  16221. // *********************************************************************//
  16222. // Interface: ProofreadingErrors
  16223. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16224. // GUID:      {000209BB-0000-0000-C000-000000000046}
  16225. // *********************************************************************//
  16226.   ProofreadingErrors = interface(IDispatch)
  16227.     ['{000209BB-0000-0000-C000-000000000046}']
  16228.     function  Get_Application: WordApplication; safecall;
  16229.     function  Get_Creator: Integer; safecall;
  16230.     function  Get_Parent: IDispatch; safecall;
  16231.     function  Get__NewEnum: IUnknown; safecall;
  16232.     function  Get_Count: Integer; safecall;
  16233.     function  Get_Type_: WdProofreadingErrorType; safecall;
  16234.     function  Item(Index: Integer): Range; safecall;
  16235.     property Application: WordApplication read Get_Application;
  16236.     property Creator: Integer read Get_Creator;
  16237.     property Parent: IDispatch read Get_Parent;
  16238.     property _NewEnum: IUnknown read Get__NewEnum;
  16239.     property Count: Integer read Get_Count;
  16240.     property Type_: WdProofreadingErrorType read Get_Type_;
  16241.   end;
  16242.  
  16243. // *********************************************************************//
  16244. // DispIntf:  ProofreadingErrorsDisp
  16245. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16246. // GUID:      {000209BB-0000-0000-C000-000000000046}
  16247. // *********************************************************************//
  16248.   ProofreadingErrorsDisp = dispinterface
  16249.     ['{000209BB-0000-0000-C000-000000000046}']
  16250.     property Application: WordApplication readonly dispid 1000;
  16251.     property Creator: Integer readonly dispid 1001;
  16252.     property Parent: IDispatch readonly dispid 1002;
  16253.     property _NewEnum: IUnknown readonly dispid -4;
  16254.     property Count: Integer readonly dispid 1;
  16255.     property Type_: WdProofreadingErrorType readonly dispid 2;
  16256.     function  Item(Index: Integer): Range; dispid 0;
  16257.   end;
  16258.  
  16259. // *********************************************************************//
  16260. // Interface: Mailer
  16261. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16262. // GUID:      {000209BD-0000-0000-C000-000000000046}
  16263. // *********************************************************************//
  16264.   Mailer = interface(IDispatch)
  16265.     ['{000209BD-0000-0000-C000-000000000046}']
  16266.     function  Get_Application: WordApplication; safecall;
  16267.     function  Get_Creator: Integer; safecall;
  16268.     function  Get_Parent: IDispatch; safecall;
  16269.     function  Get_BCCRecipients: OleVariant; safecall;
  16270.     procedure Set_BCCRecipients(var prop: OleVariant); safecall;
  16271.     function  Get_CCRecipients: OleVariant; safecall;
  16272.     procedure Set_CCRecipients(var prop: OleVariant); safecall;
  16273.     function  Get_Recipients: OleVariant; safecall;
  16274.     procedure Set_Recipients(var prop: OleVariant); safecall;
  16275.     function  Get_Enclosures: OleVariant; safecall;
  16276.     procedure Set_Enclosures(var prop: OleVariant); safecall;
  16277.     function  Get_Sender: WideString; safecall;
  16278.     function  Get_SendDateTime: TDateTime; safecall;
  16279.     function  Get_Received: WordBool; safecall;
  16280.     function  Get_Subject: WideString; safecall;
  16281.     procedure Set_Subject(const prop: WideString); safecall;
  16282.     property Application: WordApplication read Get_Application;
  16283.     property Creator: Integer read Get_Creator;
  16284.     property Parent: IDispatch read Get_Parent;
  16285.     property Sender: WideString read Get_Sender;
  16286.     property SendDateTime: TDateTime read Get_SendDateTime;
  16287.     property Received: WordBool read Get_Received;
  16288.     property Subject: WideString read Get_Subject write Set_Subject;
  16289.   end;
  16290.  
  16291. // *********************************************************************//
  16292. // DispIntf:  MailerDisp
  16293. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16294. // GUID:      {000209BD-0000-0000-C000-000000000046}
  16295. // *********************************************************************//
  16296.   MailerDisp = dispinterface
  16297.     ['{000209BD-0000-0000-C000-000000000046}']
  16298.     property Application: WordApplication readonly dispid 1000;
  16299.     property Creator: Integer readonly dispid 1001;
  16300.     property Parent: IDispatch readonly dispid 1002;
  16301.     function  BCCRecipients: OleVariant; dispid 100;
  16302.     function  CCRecipients: OleVariant; dispid 101;
  16303.     function  Recipients: OleVariant; dispid 102;
  16304.     function  Enclosures: OleVariant; dispid 103;
  16305.     property Sender: WideString readonly dispid 104;
  16306.     property SendDateTime: TDateTime readonly dispid 105;
  16307.     property Received: WordBool readonly dispid 106;
  16308.     property Subject: WideString dispid 107;
  16309.   end;
  16310.  
  16311. // *********************************************************************//
  16312. // Interface: WrapFormat
  16313. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16314. // GUID:      {000209C3-0000-0000-C000-000000000046}
  16315. // *********************************************************************//
  16316.   WrapFormat = interface(IDispatch)
  16317.     ['{000209C3-0000-0000-C000-000000000046}']
  16318.     function  Get_Application: WordApplication; safecall;
  16319.     function  Get_Creator: Integer; safecall;
  16320.     function  Get_Parent: IDispatch; safecall;
  16321.     function  Get_Type_: WdWrapType; safecall;
  16322.     procedure Set_Type_(prop: WdWrapType); safecall;
  16323.     function  Get_Side: WdWrapSideType; safecall;
  16324.     procedure Set_Side(prop: WdWrapSideType); safecall;
  16325.     function  Get_DistanceTop: Single; safecall;
  16326.     procedure Set_DistanceTop(prop: Single); safecall;
  16327.     function  Get_DistanceBottom: Single; safecall;
  16328.     procedure Set_DistanceBottom(prop: Single); safecall;
  16329.     function  Get_DistanceLeft: Single; safecall;
  16330.     procedure Set_DistanceLeft(prop: Single); safecall;
  16331.     function  Get_DistanceRight: Single; safecall;
  16332.     procedure Set_DistanceRight(prop: Single); safecall;
  16333.     property Application: WordApplication read Get_Application;
  16334.     property Creator: Integer read Get_Creator;
  16335.     property Parent: IDispatch read Get_Parent;
  16336.     property Type_: WdWrapType read Get_Type_ write Set_Type_;
  16337.     property Side: WdWrapSideType read Get_Side write Set_Side;
  16338.     property DistanceTop: Single read Get_DistanceTop write Set_DistanceTop;
  16339.     property DistanceBottom: Single read Get_DistanceBottom write Set_DistanceBottom;
  16340.     property DistanceLeft: Single read Get_DistanceLeft write Set_DistanceLeft;
  16341.     property DistanceRight: Single read Get_DistanceRight write Set_DistanceRight;
  16342.   end;
  16343.  
  16344. // *********************************************************************//
  16345. // DispIntf:  WrapFormatDisp
  16346. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16347. // GUID:      {000209C3-0000-0000-C000-000000000046}
  16348. // *********************************************************************//
  16349.   WrapFormatDisp = dispinterface
  16350.     ['{000209C3-0000-0000-C000-000000000046}']
  16351.     property Application: WordApplication readonly dispid 1000;
  16352.     property Creator: Integer readonly dispid 1001;
  16353.     property Parent: IDispatch readonly dispid 1002;
  16354.     property Type_: WdWrapType dispid 100;
  16355.     property Side: WdWrapSideType dispid 101;
  16356.     property DistanceTop: Single dispid 102;
  16357.     property DistanceBottom: Single dispid 103;
  16358.     property DistanceLeft: Single dispid 104;
  16359.     property DistanceRight: Single dispid 105;
  16360.   end;
  16361.  
  16362. // *********************************************************************//
  16363. // Interface: HangulAndAlphabetExceptions
  16364. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  16365. // GUID:      {000209D1-0000-0000-C000-000000000046}
  16366. // *********************************************************************//
  16367.   HangulAndAlphabetExceptions = interface(IDispatch)
  16368.     ['{000209D1-0000-0000-C000-000000000046}']
  16369.     function  Get_Application: WordApplication; safecall;
  16370.     function  Get_Creator: Integer; safecall;
  16371.     function  Get_Parent: IDispatch; safecall;
  16372.     function  Get__NewEnum: IUnknown; safecall;
  16373.     function  Get_Count: Integer; safecall;
  16374.     function  Item(var Index: OleVariant): HangulAndAlphabetException; safecall;
  16375.     function  Add(const Name: WideString): HangulAndAlphabetException; safecall;
  16376.     property Application: WordApplication read Get_Application;
  16377.     property Creator: Integer read Get_Creator;
  16378.     property Parent: IDispatch read Get_Parent;
  16379.     property _NewEnum: IUnknown read Get__NewEnum;
  16380.     property Count: Integer read Get_Count;
  16381.   end;
  16382.  
  16383. // *********************************************************************//
  16384. // DispIntf:  HangulAndAlphabetExceptionsDisp
  16385. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  16386. // GUID:      {000209D1-0000-0000-C000-000000000046}
  16387. // *********************************************************************//
  16388.   HangulAndAlphabetExceptionsDisp = dispinterface
  16389.     ['{000209D1-0000-0000-C000-000000000046}']
  16390.     property Application: WordApplication readonly dispid 1000;
  16391.     property Creator: Integer readonly dispid 1001;
  16392.     property Parent: IDispatch readonly dispid 1002;
  16393.     property _NewEnum: IUnknown readonly dispid -4;
  16394.     property Count: Integer readonly dispid 1;
  16395.     function  Item(var Index: OleVariant): HangulAndAlphabetException; dispid 0;
  16396.     function  Add(const Name: WideString): HangulAndAlphabetException; dispid 101;
  16397.   end;
  16398.  
  16399. // *********************************************************************//
  16400. // Interface: HangulAndAlphabetException
  16401. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  16402. // GUID:      {000209D2-0000-0000-C000-000000000046}
  16403. // *********************************************************************//
  16404.   HangulAndAlphabetException = interface(IDispatch)
  16405.     ['{000209D2-0000-0000-C000-000000000046}']
  16406.     function  Get_Application: WordApplication; safecall;
  16407.     function  Get_Creator: Integer; safecall;
  16408.     function  Get_Parent: IDispatch; safecall;
  16409.     function  Get_Index: Integer; safecall;
  16410.     function  Get_Name: WideString; safecall;
  16411.     procedure Delete; safecall;
  16412.     property Application: WordApplication read Get_Application;
  16413.     property Creator: Integer read Get_Creator;
  16414.     property Parent: IDispatch read Get_Parent;
  16415.     property Index: Integer read Get_Index;
  16416.     property Name: WideString read Get_Name;
  16417.   end;
  16418.  
  16419. // *********************************************************************//
  16420. // DispIntf:  HangulAndAlphabetExceptionDisp
  16421. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  16422. // GUID:      {000209D2-0000-0000-C000-000000000046}
  16423. // *********************************************************************//
  16424.   HangulAndAlphabetExceptionDisp = dispinterface
  16425.     ['{000209D2-0000-0000-C000-000000000046}']
  16426.     property Application: WordApplication readonly dispid 1000;
  16427.     property Creator: Integer readonly dispid 1001;
  16428.     property Parent: IDispatch readonly dispid 1002;
  16429.     property Index: Integer readonly dispid 1;
  16430.     property Name: WideString readonly dispid 2;
  16431.     procedure Delete; dispid 101;
  16432.   end;
  16433.  
  16434. // *********************************************************************//
  16435. // Interface: Adjustments
  16436. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16437. // GUID:      {000209C4-0000-0000-C000-000000000046}
  16438. // *********************************************************************//
  16439.   Adjustments = interface(IDispatch)
  16440.     ['{000209C4-0000-0000-C000-000000000046}']
  16441.     function  Get_Application: WordApplication; safecall;
  16442.     function  Get_Creator: Integer; safecall;
  16443.     function  Get_Parent: IDispatch; safecall;
  16444.     function  Get_Count: Integer; safecall;
  16445.     function  Get_Item(Index: Integer): Single; safecall;
  16446.     procedure Set_Item(Index: Integer; prop: Single); safecall;
  16447.     property Application: WordApplication read Get_Application;
  16448.     property Creator: Integer read Get_Creator;
  16449.     property Parent: IDispatch read Get_Parent;
  16450.     property Count: Integer read Get_Count;
  16451.     property Item[Index: Integer]: Single read Get_Item write Set_Item; default;
  16452.   end;
  16453.  
  16454. // *********************************************************************//
  16455. // DispIntf:  AdjustmentsDisp
  16456. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16457. // GUID:      {000209C4-0000-0000-C000-000000000046}
  16458. // *********************************************************************//
  16459.   AdjustmentsDisp = dispinterface
  16460.     ['{000209C4-0000-0000-C000-000000000046}']
  16461.     property Application: WordApplication readonly dispid 1000;
  16462.     property Creator: Integer readonly dispid 1001;
  16463.     property Parent: IDispatch readonly dispid 1;
  16464.     property Count: Integer readonly dispid 2;
  16465.     property Item[Index: Integer]: Single dispid 0; default;
  16466.   end;
  16467.  
  16468. // *********************************************************************//
  16469. // Interface: CalloutFormat
  16470. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16471. // GUID:      {000209C5-0000-0000-C000-000000000046}
  16472. // *********************************************************************//
  16473.   CalloutFormat = interface(IDispatch)
  16474.     ['{000209C5-0000-0000-C000-000000000046}']
  16475.     function  Get_Application: WordApplication; safecall;
  16476.     function  Get_Creator: Integer; safecall;
  16477.     function  Get_Parent: IDispatch; safecall;
  16478.     function  Get_Accent: MsoTriState; safecall;
  16479.     procedure Set_Accent(prop: MsoTriState); safecall;
  16480.     function  Get_Angle: MsoCalloutAngleType; safecall;
  16481.     procedure Set_Angle(prop: MsoCalloutAngleType); safecall;
  16482.     function  Get_AutoAttach: MsoTriState; safecall;
  16483.     procedure Set_AutoAttach(prop: MsoTriState); safecall;
  16484.     function  Get_AutoLength: MsoTriState; safecall;
  16485.     function  Get_Border: MsoTriState; safecall;
  16486.     procedure Set_Border(prop: MsoTriState); safecall;
  16487.     function  Get_Drop: Single; safecall;
  16488.     function  Get_DropType: MsoCalloutDropType; safecall;
  16489.     function  Get_Gap: Single; safecall;
  16490.     procedure Set_Gap(prop: Single); safecall;
  16491.     function  Get_Length: Single; safecall;
  16492.     function  Get_Type_: MsoCalloutType; safecall;
  16493.     procedure Set_Type_(prop: MsoCalloutType); safecall;
  16494.     procedure AutomaticLength; safecall;
  16495.     procedure CustomDrop(Drop: Single); safecall;
  16496.     procedure CustomLength(Length: Single); safecall;
  16497.     procedure PresetDrop(DropType: MsoCalloutDropType); safecall;
  16498.     property Application: WordApplication read Get_Application;
  16499.     property Creator: Integer read Get_Creator;
  16500.     property Parent: IDispatch read Get_Parent;
  16501.     property Accent: MsoTriState read Get_Accent write Set_Accent;
  16502.     property Angle: MsoCalloutAngleType read Get_Angle write Set_Angle;
  16503.     property AutoAttach: MsoTriState read Get_AutoAttach write Set_AutoAttach;
  16504.     property AutoLength: MsoTriState read Get_AutoLength;
  16505.     property Border: MsoTriState read Get_Border write Set_Border;
  16506.     property Drop: Single read Get_Drop;
  16507.     property DropType: MsoCalloutDropType read Get_DropType;
  16508.     property Gap: Single read Get_Gap write Set_Gap;
  16509.     property Length: Single read Get_Length;
  16510.     property Type_: MsoCalloutType read Get_Type_ write Set_Type_;
  16511.   end;
  16512.  
  16513. // *********************************************************************//
  16514. // DispIntf:  CalloutFormatDisp
  16515. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16516. // GUID:      {000209C5-0000-0000-C000-000000000046}
  16517. // *********************************************************************//
  16518.   CalloutFormatDisp = dispinterface
  16519.     ['{000209C5-0000-0000-C000-000000000046}']
  16520.     property Application: WordApplication readonly dispid 1000;
  16521.     property Creator: Integer readonly dispid 1001;
  16522.     property Parent: IDispatch readonly dispid 1;
  16523.     property Accent: MsoTriState dispid 100;
  16524.     property Angle: MsoCalloutAngleType dispid 101;
  16525.     property AutoAttach: MsoTriState dispid 102;
  16526.     property AutoLength: MsoTriState readonly dispid 103;
  16527.     property Border: MsoTriState dispid 104;
  16528.     property Drop: Single readonly dispid 105;
  16529.     property DropType: MsoCalloutDropType readonly dispid 106;
  16530.     property Gap: Single dispid 107;
  16531.     property Length: Single readonly dispid 108;
  16532.     property Type_: MsoCalloutType dispid 109;
  16533.     procedure AutomaticLength; dispid 10;
  16534.     procedure CustomDrop(Drop: Single); dispid 11;
  16535.     procedure CustomLength(Length: Single); dispid 12;
  16536.     procedure PresetDrop(DropType: MsoCalloutDropType); dispid 13;
  16537.   end;
  16538.  
  16539. // *********************************************************************//
  16540. // Interface: ColorFormat
  16541. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16542. // GUID:      {000209C6-0000-0000-C000-000000000046}
  16543. // *********************************************************************//
  16544.   ColorFormat = interface(IDispatch)
  16545.     ['{000209C6-0000-0000-C000-000000000046}']
  16546.     function  Get_Application: WordApplication; safecall;
  16547.     function  Get_Creator: Integer; safecall;
  16548.     function  Get_Parent: IDispatch; safecall;
  16549.     function  Get_RGB: Integer; safecall;
  16550.     procedure Set_RGB(prop: Integer); safecall;
  16551.     function  Get_SchemeColor: Integer; safecall;
  16552.     procedure Set_SchemeColor(prop: Integer); safecall;
  16553.     function  Get_Type_: MsoColorType; safecall;
  16554.     property Application: WordApplication read Get_Application;
  16555.     property Creator: Integer read Get_Creator;
  16556.     property Parent: IDispatch read Get_Parent;
  16557.     property RGB: Integer read Get_RGB write Set_RGB;
  16558.     property SchemeColor: Integer read Get_SchemeColor write Set_SchemeColor;
  16559.     property Type_: MsoColorType read Get_Type_;
  16560.   end;
  16561.  
  16562. // *********************************************************************//
  16563. // DispIntf:  ColorFormatDisp
  16564. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16565. // GUID:      {000209C6-0000-0000-C000-000000000046}
  16566. // *********************************************************************//
  16567.   ColorFormatDisp = dispinterface
  16568.     ['{000209C6-0000-0000-C000-000000000046}']
  16569.     property Application: WordApplication readonly dispid 1000;
  16570.     property Creator: Integer readonly dispid 1001;
  16571.     property Parent: IDispatch readonly dispid 1;
  16572.     property RGB: Integer dispid 0;
  16573.     property SchemeColor: Integer dispid 100;
  16574.     property Type_: MsoColorType readonly dispid 101;
  16575.   end;
  16576.  
  16577. // *********************************************************************//
  16578. // Interface: ConnectorFormat
  16579. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  16580. // GUID:      {000209C7-0000-0000-C000-000000000046}
  16581. // *********************************************************************//
  16582.   ConnectorFormat = interface(IDispatch)
  16583.     ['{000209C7-0000-0000-C000-000000000046}']
  16584.     function  Get_Application: WordApplication; safecall;
  16585.     function  Get_Creator: Integer; safecall;
  16586.     function  Get_BeginConnected: MsoTriState; safecall;
  16587.     function  Get_BeginConnectedShape: Shape; safecall;
  16588.     function  Get_BeginConnectionSite: Integer; safecall;
  16589.     function  Get_EndConnected: MsoTriState; safecall;
  16590.     function  Get_EndConnectedShape: Shape; safecall;
  16591.     function  Get_EndConnectionSite: Integer; safecall;
  16592.     function  Get_Parent: IDispatch; safecall;
  16593.     function  Get_Type_: MsoConnectorType; safecall;
  16594.     procedure Set_Type_(prop: MsoConnectorType); safecall;
  16595.     procedure BeginConnect(var ConnectedShape: Shape; ConnectionSite: Integer); safecall;
  16596.     procedure BeginDisconnect; safecall;
  16597.     procedure EndConnect(var ConnectedShape: Shape; ConnectionSite: Integer); safecall;
  16598.     procedure EndDisconnect; safecall;
  16599.     property Application: WordApplication read Get_Application;
  16600.     property Creator: Integer read Get_Creator;
  16601.     property BeginConnected: MsoTriState read Get_BeginConnected;
  16602.     property BeginConnectedShape: Shape read Get_BeginConnectedShape;
  16603.     property BeginConnectionSite: Integer read Get_BeginConnectionSite;
  16604.     property EndConnected: MsoTriState read Get_EndConnected;
  16605.     property EndConnectedShape: Shape read Get_EndConnectedShape;
  16606.     property EndConnectionSite: Integer read Get_EndConnectionSite;
  16607.     property Parent: IDispatch read Get_Parent;
  16608.     property Type_: MsoConnectorType read Get_Type_ write Set_Type_;
  16609.   end;
  16610.  
  16611. // *********************************************************************//
  16612. // DispIntf:  ConnectorFormatDisp
  16613. // Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
  16614. // GUID:      {000209C7-0000-0000-C000-000000000046}
  16615. // *********************************************************************//
  16616.   ConnectorFormatDisp = dispinterface
  16617.     ['{000209C7-0000-0000-C000-000000000046}']
  16618.     property Application: WordApplication readonly dispid 1000;
  16619.     property Creator: Integer readonly dispid 1001;
  16620.     property BeginConnected: MsoTriState readonly dispid 100;
  16621.     property BeginConnectedShape: Shape readonly dispid 101;
  16622.     property BeginConnectionSite: Integer readonly dispid 102;
  16623.     property EndConnected: MsoTriState readonly dispid 103;
  16624.     property EndConnectedShape: Shape readonly dispid 104;
  16625.     property EndConnectionSite: Integer readonly dispid 105;
  16626.     property Parent: IDispatch readonly dispid 1;
  16627.     property Type_: MsoConnectorType dispid 106;
  16628.     procedure BeginConnect(var ConnectedShape: Shape; ConnectionSite: Integer); dispid 10;
  16629.     procedure BeginDisconnect; dispid 11;
  16630.     procedure EndConnect(var ConnectedShape: Shape; ConnectionSite: Integer); dispid 12;
  16631.     procedure EndDisconnect; dispid 13;
  16632.   end;
  16633.  
  16634. // *********************************************************************//
  16635. // Interface: FillFormat
  16636. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16637. // GUID:      {000209C8-0000-0000-C000-000000000046}
  16638. // *********************************************************************//
  16639.   FillFormat = interface(IDispatch)
  16640.     ['{000209C8-0000-0000-C000-000000000046}']
  16641.     function  Get_Application: WordApplication; safecall;
  16642.     function  Get_Creator: Integer; safecall;
  16643.     function  Get_Parent: IDispatch; safecall;
  16644.     function  Get_BackColor: ColorFormat; safecall;
  16645.     function  Get_ForeColor: ColorFormat; safecall;
  16646.     function  Get_GradientColorType: MsoGradientColorType; safecall;
  16647.     function  Get_GradientDegree: Single; safecall;
  16648.     function  Get_GradientStyle: MsoGradientStyle; safecall;
  16649.     function  Get_GradientVariant: Integer; safecall;
  16650.     function  Get_Pattern: MsoPatternType; safecall;
  16651.     function  Get_PresetGradientType: MsoPresetGradientType; safecall;
  16652.     function  Get_PresetTexture: MsoPresetTexture; safecall;
  16653.     function  Get_TextureName: WideString; safecall;
  16654.     function  Get_TextureType: MsoTextureType; safecall;
  16655.     function  Get_Transparency: Single; safecall;
  16656.     procedure Set_Transparency(prop: Single); safecall;
  16657.     function  Get_Type_: MsoFillType; safecall;
  16658.     function  Get_Visible: MsoTriState; safecall;
  16659.     procedure Set_Visible(prop: MsoTriState); safecall;
  16660.     procedure Background; safecall;
  16661.     procedure OneColorGradient(Style: MsoGradientStyle; Variant: Integer; Degree: Single); safecall;
  16662.     procedure Patterned(Pattern: MsoPatternType); safecall;
  16663.     procedure PresetGradient(Style: MsoGradientStyle; Variant: Integer; 
  16664.                              PresetGradientType: MsoPresetGradientType); safecall;
  16665.     procedure PresetTextured(PresetTexture: MsoPresetTexture); safecall;
  16666.     procedure Solid; safecall;
  16667.     procedure TwoColorGradient(Style: MsoGradientStyle; Variant: Integer); safecall;
  16668.     procedure UserPicture(const PictureFile: WideString); safecall;
  16669.     procedure UserTextured(const TextureFile: WideString); safecall;
  16670.     property Application: WordApplication read Get_Application;
  16671.     property Creator: Integer read Get_Creator;
  16672.     property Parent: IDispatch read Get_Parent;
  16673.     property BackColor: ColorFormat read Get_BackColor;
  16674.     property ForeColor: ColorFormat read Get_ForeColor;
  16675.     property GradientColorType: MsoGradientColorType read Get_GradientColorType;
  16676.     property GradientDegree: Single read Get_GradientDegree;
  16677.     property GradientStyle: MsoGradientStyle read Get_GradientStyle;
  16678.     property GradientVariant: Integer read Get_GradientVariant;
  16679.     property Pattern: MsoPatternType read Get_Pattern;
  16680.     property PresetGradientType: MsoPresetGradientType read Get_PresetGradientType;
  16681.     property PresetTexture: MsoPresetTexture read Get_PresetTexture;
  16682.     property TextureName: WideString read Get_TextureName;
  16683.     property TextureType: MsoTextureType read Get_TextureType;
  16684.     property Transparency: Single read Get_Transparency write Set_Transparency;
  16685.     property Type_: MsoFillType read Get_Type_;
  16686.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  16687.   end;
  16688.  
  16689. // *********************************************************************//
  16690. // DispIntf:  FillFormatDisp
  16691. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16692. // GUID:      {000209C8-0000-0000-C000-000000000046}
  16693. // *********************************************************************//
  16694.   FillFormatDisp = dispinterface
  16695.     ['{000209C8-0000-0000-C000-000000000046}']
  16696.     property Application: WordApplication readonly dispid 1000;
  16697.     property Creator: Integer readonly dispid 1001;
  16698.     property Parent: IDispatch readonly dispid 1;
  16699.     property BackColor: ColorFormat readonly dispid 100;
  16700.     property ForeColor: ColorFormat readonly dispid 101;
  16701.     property GradientColorType: MsoGradientColorType readonly dispid 102;
  16702.     property GradientDegree: Single readonly dispid 103;
  16703.     property GradientStyle: MsoGradientStyle readonly dispid 104;
  16704.     property GradientVariant: Integer readonly dispid 105;
  16705.     property Pattern: MsoPatternType readonly dispid 106;
  16706.     property PresetGradientType: MsoPresetGradientType readonly dispid 107;
  16707.     property PresetTexture: MsoPresetTexture readonly dispid 108;
  16708.     property TextureName: WideString readonly dispid 109;
  16709.     property TextureType: MsoTextureType readonly dispid 110;
  16710.     property Transparency: Single dispid 111;
  16711.     property Type_: MsoFillType readonly dispid 112;
  16712.     property Visible: MsoTriState dispid 113;
  16713.     procedure Background; dispid 10;
  16714.     procedure OneColorGradient(Style: MsoGradientStyle; Variant: Integer; Degree: Single); dispid 11;
  16715.     procedure Patterned(Pattern: MsoPatternType); dispid 12;
  16716.     procedure PresetGradient(Style: MsoGradientStyle; Variant: Integer; 
  16717.                              PresetGradientType: MsoPresetGradientType); dispid 13;
  16718.     procedure PresetTextured(PresetTexture: MsoPresetTexture); dispid 14;
  16719.     procedure Solid; dispid 15;
  16720.     procedure TwoColorGradient(Style: MsoGradientStyle; Variant: Integer); dispid 16;
  16721.     procedure UserPicture(const PictureFile: WideString); dispid 17;
  16722.     procedure UserTextured(const TextureFile: WideString); dispid 18;
  16723.   end;
  16724.  
  16725. // *********************************************************************//
  16726. // Interface: FreeformBuilder
  16727. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16728. // GUID:      {000209C9-0000-0000-C000-000000000046}
  16729. // *********************************************************************//
  16730.   FreeformBuilder = interface(IDispatch)
  16731.     ['{000209C9-0000-0000-C000-000000000046}']
  16732.     function  Get_Application: WordApplication; safecall;
  16733.     function  Get_Creator: Integer; safecall;
  16734.     function  Get_Parent: IDispatch; safecall;
  16735.     procedure AddNodes(SegmentType: MsoSegmentType; EditingType: MsoEditingType; X1: Single; 
  16736.                        Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); safecall;
  16737.     function  ConvertToShape(var Anchor: OleVariant): Shape; safecall;
  16738.     property Application: WordApplication read Get_Application;
  16739.     property Creator: Integer read Get_Creator;
  16740.     property Parent: IDispatch read Get_Parent;
  16741.   end;
  16742.  
  16743. // *********************************************************************//
  16744. // DispIntf:  FreeformBuilderDisp
  16745. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16746. // GUID:      {000209C9-0000-0000-C000-000000000046}
  16747. // *********************************************************************//
  16748.   FreeformBuilderDisp = dispinterface
  16749.     ['{000209C9-0000-0000-C000-000000000046}']
  16750.     property Application: WordApplication readonly dispid 1000;
  16751.     property Creator: Integer readonly dispid 1001;
  16752.     property Parent: IDispatch readonly dispid 1;
  16753.     procedure AddNodes(SegmentType: MsoSegmentType; EditingType: MsoEditingType; X1: Single; 
  16754.                        Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); dispid 10;
  16755.     function  ConvertToShape(var Anchor: OleVariant): Shape; dispid 11;
  16756.   end;
  16757.  
  16758. // *********************************************************************//
  16759. // Interface: LineFormat
  16760. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16761. // GUID:      {000209CA-0000-0000-C000-000000000046}
  16762. // *********************************************************************//
  16763.   LineFormat = interface(IDispatch)
  16764.     ['{000209CA-0000-0000-C000-000000000046}']
  16765.     function  Get_Application: WordApplication; safecall;
  16766.     function  Get_Creator: Integer; safecall;
  16767.     function  Get_Parent: IDispatch; safecall;
  16768.     function  Get_BackColor: ColorFormat; safecall;
  16769.     function  Get_BeginArrowheadLength: MsoArrowheadLength; safecall;
  16770.     procedure Set_BeginArrowheadLength(prop: MsoArrowheadLength); safecall;
  16771.     function  Get_BeginArrowheadStyle: MsoArrowheadStyle; safecall;
  16772.     procedure Set_BeginArrowheadStyle(prop: MsoArrowheadStyle); safecall;
  16773.     function  Get_BeginArrowheadWidth: MsoArrowheadWidth; safecall;
  16774.     procedure Set_BeginArrowheadWidth(prop: MsoArrowheadWidth); safecall;
  16775.     function  Get_DashStyle: MsoLineDashStyle; safecall;
  16776.     procedure Set_DashStyle(prop: MsoLineDashStyle); safecall;
  16777.     function  Get_EndArrowheadLength: MsoArrowheadLength; safecall;
  16778.     procedure Set_EndArrowheadLength(prop: MsoArrowheadLength); safecall;
  16779.     function  Get_EndArrowheadStyle: MsoArrowheadStyle; safecall;
  16780.     procedure Set_EndArrowheadStyle(prop: MsoArrowheadStyle); safecall;
  16781.     function  Get_EndArrowheadWidth: MsoArrowheadWidth; safecall;
  16782.     procedure Set_EndArrowheadWidth(prop: MsoArrowheadWidth); safecall;
  16783.     function  Get_ForeColor: ColorFormat; safecall;
  16784.     function  Get_Pattern: MsoPatternType; safecall;
  16785.     procedure Set_Pattern(prop: MsoPatternType); safecall;
  16786.     function  Get_Style: MsoLineStyle; safecall;
  16787.     procedure Set_Style(prop: MsoLineStyle); safecall;
  16788.     function  Get_Transparency: Single; safecall;
  16789.     procedure Set_Transparency(prop: Single); safecall;
  16790.     function  Get_Visible: MsoTriState; safecall;
  16791.     procedure Set_Visible(prop: MsoTriState); safecall;
  16792.     function  Get_Weight: Single; safecall;
  16793.     procedure Set_Weight(prop: Single); safecall;
  16794.     property Application: WordApplication read Get_Application;
  16795.     property Creator: Integer read Get_Creator;
  16796.     property Parent: IDispatch read Get_Parent;
  16797.     property BackColor: ColorFormat read Get_BackColor;
  16798.     property BeginArrowheadLength: MsoArrowheadLength read Get_BeginArrowheadLength write Set_BeginArrowheadLength;
  16799.     property BeginArrowheadStyle: MsoArrowheadStyle read Get_BeginArrowheadStyle write Set_BeginArrowheadStyle;
  16800.     property BeginArrowheadWidth: MsoArrowheadWidth read Get_BeginArrowheadWidth write Set_BeginArrowheadWidth;
  16801.     property DashStyle: MsoLineDashStyle read Get_DashStyle write Set_DashStyle;
  16802.     property EndArrowheadLength: MsoArrowheadLength read Get_EndArrowheadLength write Set_EndArrowheadLength;
  16803.     property EndArrowheadStyle: MsoArrowheadStyle read Get_EndArrowheadStyle write Set_EndArrowheadStyle;
  16804.     property EndArrowheadWidth: MsoArrowheadWidth read Get_EndArrowheadWidth write Set_EndArrowheadWidth;
  16805.     property ForeColor: ColorFormat read Get_ForeColor;
  16806.     property Pattern: MsoPatternType read Get_Pattern write Set_Pattern;
  16807.     property Style: MsoLineStyle read Get_Style write Set_Style;
  16808.     property Transparency: Single read Get_Transparency write Set_Transparency;
  16809.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  16810.     property Weight: Single read Get_Weight write Set_Weight;
  16811.   end;
  16812.  
  16813. // *********************************************************************//
  16814. // DispIntf:  LineFormatDisp
  16815. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16816. // GUID:      {000209CA-0000-0000-C000-000000000046}
  16817. // *********************************************************************//
  16818.   LineFormatDisp = dispinterface
  16819.     ['{000209CA-0000-0000-C000-000000000046}']
  16820.     property Application: WordApplication readonly dispid 1000;
  16821.     property Creator: Integer readonly dispid 1001;
  16822.     property Parent: IDispatch readonly dispid 1;
  16823.     property BackColor: ColorFormat readonly dispid 100;
  16824.     property BeginArrowheadLength: MsoArrowheadLength dispid 101;
  16825.     property BeginArrowheadStyle: MsoArrowheadStyle dispid 102;
  16826.     property BeginArrowheadWidth: MsoArrowheadWidth dispid 103;
  16827.     property DashStyle: MsoLineDashStyle dispid 104;
  16828.     property EndArrowheadLength: MsoArrowheadLength dispid 105;
  16829.     property EndArrowheadStyle: MsoArrowheadStyle dispid 106;
  16830.     property EndArrowheadWidth: MsoArrowheadWidth dispid 107;
  16831.     property ForeColor: ColorFormat readonly dispid 108;
  16832.     property Pattern: MsoPatternType dispid 109;
  16833.     property Style: MsoLineStyle dispid 110;
  16834.     property Transparency: Single dispid 111;
  16835.     property Visible: MsoTriState dispid 112;
  16836.     property Weight: Single dispid 113;
  16837.   end;
  16838.  
  16839. // *********************************************************************//
  16840. // Interface: PictureFormat
  16841. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16842. // GUID:      {000209CB-0000-0000-C000-000000000046}
  16843. // *********************************************************************//
  16844.   PictureFormat = interface(IDispatch)
  16845.     ['{000209CB-0000-0000-C000-000000000046}']
  16846.     function  Get_Application: WordApplication; safecall;
  16847.     function  Get_Creator: Integer; safecall;
  16848.     function  Get_Parent: IDispatch; safecall;
  16849.     function  Get_Brightness: Single; safecall;
  16850.     procedure Set_Brightness(prop: Single); safecall;
  16851.     function  Get_ColorType: MsoPictureColorType; safecall;
  16852.     procedure Set_ColorType(prop: MsoPictureColorType); safecall;
  16853.     function  Get_Contrast: Single; safecall;
  16854.     procedure Set_Contrast(prop: Single); safecall;
  16855.     function  Get_CropBottom: Single; safecall;
  16856.     procedure Set_CropBottom(prop: Single); safecall;
  16857.     function  Get_CropLeft: Single; safecall;
  16858.     procedure Set_CropLeft(prop: Single); safecall;
  16859.     function  Get_CropRight: Single; safecall;
  16860.     procedure Set_CropRight(prop: Single); safecall;
  16861.     function  Get_CropTop: Single; safecall;
  16862.     procedure Set_CropTop(prop: Single); safecall;
  16863.     function  Get_TransparencyColor: Integer; safecall;
  16864.     procedure Set_TransparencyColor(prop: Integer); safecall;
  16865.     function  Get_TransparentBackground: MsoTriState; safecall;
  16866.     procedure Set_TransparentBackground(prop: MsoTriState); safecall;
  16867.     procedure IncrementBrightness(Increment: Single); safecall;
  16868.     procedure IncrementContrast(Increment: Single); safecall;
  16869.     property Application: WordApplication read Get_Application;
  16870.     property Creator: Integer read Get_Creator;
  16871.     property Parent: IDispatch read Get_Parent;
  16872.     property Brightness: Single read Get_Brightness write Set_Brightness;
  16873.     property ColorType: MsoPictureColorType read Get_ColorType write Set_ColorType;
  16874.     property Contrast: Single read Get_Contrast write Set_Contrast;
  16875.     property CropBottom: Single read Get_CropBottom write Set_CropBottom;
  16876.     property CropLeft: Single read Get_CropLeft write Set_CropLeft;
  16877.     property CropRight: Single read Get_CropRight write Set_CropRight;
  16878.     property CropTop: Single read Get_CropTop write Set_CropTop;
  16879.     property TransparencyColor: Integer read Get_TransparencyColor write Set_TransparencyColor;
  16880.     property TransparentBackground: MsoTriState read Get_TransparentBackground write Set_TransparentBackground;
  16881.   end;
  16882.  
  16883. // *********************************************************************//
  16884. // DispIntf:  PictureFormatDisp
  16885. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16886. // GUID:      {000209CB-0000-0000-C000-000000000046}
  16887. // *********************************************************************//
  16888.   PictureFormatDisp = dispinterface
  16889.     ['{000209CB-0000-0000-C000-000000000046}']
  16890.     property Application: WordApplication readonly dispid 1000;
  16891.     property Creator: Integer readonly dispid 1001;
  16892.     property Parent: IDispatch readonly dispid 1;
  16893.     property Brightness: Single dispid 100;
  16894.     property ColorType: MsoPictureColorType dispid 101;
  16895.     property Contrast: Single dispid 102;
  16896.     property CropBottom: Single dispid 103;
  16897.     property CropLeft: Single dispid 104;
  16898.     property CropRight: Single dispid 105;
  16899.     property CropTop: Single dispid 106;
  16900.     property TransparencyColor: Integer dispid 107;
  16901.     property TransparentBackground: MsoTriState dispid 108;
  16902.     procedure IncrementBrightness(Increment: Single); dispid 10;
  16903.     procedure IncrementContrast(Increment: Single); dispid 11;
  16904.   end;
  16905.  
  16906. // *********************************************************************//
  16907. // Interface: ShadowFormat
  16908. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16909. // GUID:      {000209CC-0000-0000-C000-000000000046}
  16910. // *********************************************************************//
  16911.   ShadowFormat = interface(IDispatch)
  16912.     ['{000209CC-0000-0000-C000-000000000046}']
  16913.     function  Get_Application: WordApplication; safecall;
  16914.     function  Get_Creator: Integer; safecall;
  16915.     function  Get_Parent: IDispatch; safecall;
  16916.     function  Get_ForeColor: ColorFormat; safecall;
  16917.     function  Get_Obscured: MsoTriState; safecall;
  16918.     procedure Set_Obscured(prop: MsoTriState); safecall;
  16919.     function  Get_OffsetX: Single; safecall;
  16920.     procedure Set_OffsetX(prop: Single); safecall;
  16921.     function  Get_OffsetY: Single; safecall;
  16922.     procedure Set_OffsetY(prop: Single); safecall;
  16923.     function  Get_Transparency: Single; safecall;
  16924.     procedure Set_Transparency(prop: Single); safecall;
  16925.     function  Get_Type_: MsoShadowType; safecall;
  16926.     procedure Set_Type_(prop: MsoShadowType); safecall;
  16927.     function  Get_Visible: MsoTriState; safecall;
  16928.     procedure Set_Visible(prop: MsoTriState); safecall;
  16929.     procedure IncrementOffsetX(Increment: Single); safecall;
  16930.     procedure IncrementOffsetY(Increment: Single); safecall;
  16931.     property Application: WordApplication read Get_Application;
  16932.     property Creator: Integer read Get_Creator;
  16933.     property Parent: IDispatch read Get_Parent;
  16934.     property ForeColor: ColorFormat read Get_ForeColor;
  16935.     property Obscured: MsoTriState read Get_Obscured write Set_Obscured;
  16936.     property OffsetX: Single read Get_OffsetX write Set_OffsetX;
  16937.     property OffsetY: Single read Get_OffsetY write Set_OffsetY;
  16938.     property Transparency: Single read Get_Transparency write Set_Transparency;
  16939.     property Type_: MsoShadowType read Get_Type_ write Set_Type_;
  16940.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  16941.   end;
  16942.  
  16943. // *********************************************************************//
  16944. // DispIntf:  ShadowFormatDisp
  16945. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16946. // GUID:      {000209CC-0000-0000-C000-000000000046}
  16947. // *********************************************************************//
  16948.   ShadowFormatDisp = dispinterface
  16949.     ['{000209CC-0000-0000-C000-000000000046}']
  16950.     property Application: WordApplication readonly dispid 1000;
  16951.     property Creator: Integer readonly dispid 1001;
  16952.     property Parent: IDispatch readonly dispid 1;
  16953.     property ForeColor: ColorFormat readonly dispid 100;
  16954.     property Obscured: MsoTriState dispid 101;
  16955.     property OffsetX: Single dispid 102;
  16956.     property OffsetY: Single dispid 103;
  16957.     property Transparency: Single dispid 104;
  16958.     property Type_: MsoShadowType dispid 105;
  16959.     property Visible: MsoTriState dispid 106;
  16960.     procedure IncrementOffsetX(Increment: Single); dispid 10;
  16961.     procedure IncrementOffsetY(Increment: Single); dispid 11;
  16962.   end;
  16963.  
  16964. // *********************************************************************//
  16965. // Interface: ShapeNode
  16966. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16967. // GUID:      {000209CD-0000-0000-C000-000000000046}
  16968. // *********************************************************************//
  16969.   ShapeNode = interface(IDispatch)
  16970.     ['{000209CD-0000-0000-C000-000000000046}']
  16971.     function  Get_Application: WordApplication; safecall;
  16972.     function  Get_Creator: Integer; safecall;
  16973.     function  Get_Parent: IDispatch; safecall;
  16974.     function  Get_EditingType: MsoEditingType; safecall;
  16975.     function  Get_Points: OleVariant; safecall;
  16976.     function  Get_SegmentType: MsoSegmentType; safecall;
  16977.     property Application: WordApplication read Get_Application;
  16978.     property Creator: Integer read Get_Creator;
  16979.     property Parent: IDispatch read Get_Parent;
  16980.     property EditingType: MsoEditingType read Get_EditingType;
  16981.     property Points: OleVariant read Get_Points;
  16982.     property SegmentType: MsoSegmentType read Get_SegmentType;
  16983.   end;
  16984.  
  16985. // *********************************************************************//
  16986. // DispIntf:  ShapeNodeDisp
  16987. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  16988. // GUID:      {000209CD-0000-0000-C000-000000000046}
  16989. // *********************************************************************//
  16990.   ShapeNodeDisp = dispinterface
  16991.     ['{000209CD-0000-0000-C000-000000000046}']
  16992.     property Application: WordApplication readonly dispid 1000;
  16993.     property Creator: Integer readonly dispid 1001;
  16994.     property Parent: IDispatch readonly dispid 1;
  16995.     property EditingType: MsoEditingType readonly dispid 100;
  16996.     property Points: OleVariant readonly dispid 101;
  16997.     property SegmentType: MsoSegmentType readonly dispid 102;
  16998.   end;
  16999.  
  17000. // *********************************************************************//
  17001. // Interface: ShapeNodes
  17002. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  17003. // GUID:      {000209CE-0000-0000-C000-000000000046}
  17004. // *********************************************************************//
  17005.   ShapeNodes = interface(IDispatch)
  17006.     ['{000209CE-0000-0000-C000-000000000046}']
  17007.     function  Get_Application: WordApplication; safecall;
  17008.     function  Get_Creator: Integer; safecall;
  17009.     function  Get_Parent: IDispatch; safecall;
  17010.     function  Get_Count: Integer; safecall;
  17011.     function  Get__NewEnum: IUnknown; safecall;
  17012.     procedure Delete(Index: Integer); safecall;
  17013.     function  Item(var Index: OleVariant): ShapeNode; safecall;
  17014.     procedure SetEditingType(Index: Integer; EditingType: MsoEditingType); safecall;
  17015.     procedure SetPosition(Index: Integer; X1: Single; Y1: Single); safecall;
  17016.     procedure SetSegmentType(Index: Integer; SegmentType: MsoSegmentType); safecall;
  17017.     procedure Insert(Index: Integer; SegmentType: MsoSegmentType; EditingType: MsoEditingType; 
  17018.                      X1: Single; Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); safecall;
  17019.     property Application: WordApplication read Get_Application;
  17020.     property Creator: Integer read Get_Creator;
  17021.     property Parent: IDispatch read Get_Parent;
  17022.     property Count: Integer read Get_Count;
  17023.     property _NewEnum: IUnknown read Get__NewEnum;
  17024.   end;
  17025.  
  17026. // *********************************************************************//
  17027. // DispIntf:  ShapeNodesDisp
  17028. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  17029. // GUID:      {000209CE-0000-0000-C000-000000000046}
  17030. // *********************************************************************//
  17031.   ShapeNodesDisp = dispinterface
  17032.     ['{000209CE-0000-0000-C000-000000000046}']
  17033.     property Application: WordApplication readonly dispid 1000;
  17034.     property Creator: Integer readonly dispid 1001;
  17035.     property Parent: IDispatch readonly dispid 1;
  17036.     property Count: Integer readonly dispid 2;
  17037.     property _NewEnum: IUnknown readonly dispid -4;
  17038.     procedure Delete(Index: Integer); dispid 11;
  17039.     function  Item(var Index: OleVariant): ShapeNode; dispid 0;
  17040.     procedure SetEditingType(Index: Integer; EditingType: MsoEditingType); dispid 13;
  17041.     procedure SetPosition(Index: Integer; X1: Single; Y1: Single); dispid 14;
  17042.     procedure SetSegmentType(Index: Integer; SegmentType: MsoSegmentType); dispid 15;
  17043.     procedure Insert(Index: Integer; SegmentType: MsoSegmentType; EditingType: MsoEditingType; 
  17044.                      X1: Single; Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); dispid 12;
  17045.   end;
  17046.  
  17047. // *********************************************************************//
  17048. // Interface: TextEffectFormat
  17049. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  17050. // GUID:      {000209CF-0000-0000-C000-000000000046}
  17051. // *********************************************************************//
  17052.   TextEffectFormat = interface(IDispatch)
  17053.     ['{000209CF-0000-0000-C000-000000000046}']
  17054.     function  Get_Application: WordApplication; safecall;
  17055.     function  Get_Creator: Integer; safecall;
  17056.     function  Get_Parent: IDispatch; safecall;
  17057.     function  Get_Alignment: MsoTextEffectAlignment; safecall;
  17058.     procedure Set_Alignment(prop: MsoTextEffectAlignment); safecall;
  17059.     function  Get_FontBold: MsoTriState; safecall;
  17060.     procedure Set_FontBold(prop: MsoTriState); safecall;
  17061.     function  Get_FontItalic: MsoTriState; safecall;
  17062.     procedure Set_FontItalic(prop: MsoTriState); safecall;
  17063.     function  Get_FontName: WideString; safecall;
  17064.     procedure Set_FontName(const prop: WideString); safecall;
  17065.     function  Get_FontSize: Single; safecall;
  17066.     procedure Set_FontSize(prop: Single); safecall;
  17067.     function  Get_KernedPairs: MsoTriState; safecall;
  17068.     procedure Set_KernedPairs(prop: MsoTriState); safecall;
  17069.     function  Get_NormalizedHeight: MsoTriState; safecall;
  17070.     procedure Set_NormalizedHeight(prop: MsoTriState); safecall;
  17071.     function  Get_PresetShape: MsoPresetTextEffectShape; safecall;
  17072.     procedure Set_PresetShape(prop: MsoPresetTextEffectShape); safecall;
  17073.     function  Get_PresetTextEffect: MsoPresetTextEffect; safecall;
  17074.     procedure Set_PresetTextEffect(prop: MsoPresetTextEffect); safecall;
  17075.     function  Get_RotatedChars: MsoTriState; safecall;
  17076.     procedure Set_RotatedChars(prop: MsoTriState); safecall;
  17077.     function  Get_Text: WideString; safecall;
  17078.     procedure Set_Text(const prop: WideString); safecall;
  17079.     function  Get_Tracking: Single; safecall;
  17080.     procedure Set_Tracking(prop: Single); safecall;
  17081.     procedure ToggleVerticalText; safecall;
  17082.     property Application: WordApplication read Get_Application;
  17083.     property Creator: Integer read Get_Creator;
  17084.     property Parent: IDispatch read Get_Parent;
  17085.     property Alignment: MsoTextEffectAlignment read Get_Alignment write Set_Alignment;
  17086.     property FontBold: MsoTriState read Get_FontBold write Set_FontBold;
  17087.     property FontItalic: MsoTriState read Get_FontItalic write Set_FontItalic;
  17088.     property FontName: WideString read Get_FontName write Set_FontName;
  17089.     property FontSize: Single read Get_FontSize write Set_FontSize;
  17090.     property KernedPairs: MsoTriState read Get_KernedPairs write Set_KernedPairs;
  17091.     property NormalizedHeight: MsoTriState read Get_NormalizedHeight write Set_NormalizedHeight;
  17092.     property PresetShape: MsoPresetTextEffectShape read Get_PresetShape write Set_PresetShape;
  17093.     property PresetTextEffect: MsoPresetTextEffect read Get_PresetTextEffect write Set_PresetTextEffect;
  17094.     property RotatedChars: MsoTriState read Get_RotatedChars write Set_RotatedChars;
  17095.     property Text: WideString read Get_Text write Set_Text;
  17096.     property Tracking: Single read Get_Tracking write Set_Tracking;
  17097.   end;
  17098.  
  17099. // *********************************************************************//
  17100. // DispIntf:  TextEffectFormatDisp
  17101. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  17102. // GUID:      {000209CF-0000-0000-C000-000000000046}
  17103. // *********************************************************************//
  17104.   TextEffectFormatDisp = dispinterface
  17105.     ['{000209CF-0000-0000-C000-000000000046}']
  17106.     property Application: WordApplication readonly dispid 1000;
  17107.     property Creator: Integer readonly dispid 1001;
  17108.     property Parent: IDispatch readonly dispid 1;
  17109.     property Alignment: MsoTextEffectAlignment dispid 100;
  17110.     property FontBold: MsoTriState dispid 101;
  17111.     property FontItalic: MsoTriState dispid 102;
  17112.     property FontName: WideString dispid 103;
  17113.     property FontSize: Single dispid 104;
  17114.     property KernedPairs: MsoTriState dispid 105;
  17115.     property NormalizedHeight: MsoTriState dispid 106;
  17116.     property PresetShape: MsoPresetTextEffectShape dispid 107;
  17117.     property PresetTextEffect: MsoPresetTextEffect dispid 108;
  17118.     property RotatedChars: MsoTriState dispid 109;
  17119.     property Text: WideString dispid 110;
  17120.     property Tracking: Single dispid 111;
  17121.     procedure ToggleVerticalText; dispid 10;
  17122.   end;
  17123.  
  17124. // *********************************************************************//
  17125. // Interface: ThreeDFormat
  17126. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  17127. // GUID:      {000209D0-0000-0000-C000-000000000046}
  17128. // *********************************************************************//
  17129.   ThreeDFormat = interface(IDispatch)
  17130.     ['{000209D0-0000-0000-C000-000000000046}']
  17131.     function  Get_Application: WordApplication; safecall;
  17132.     function  Get_Creator: Integer; safecall;
  17133.     function  Get_Parent: IDispatch; safecall;
  17134.     function  Get_Depth: Single; safecall;
  17135.     procedure Set_Depth(prop: Single); safecall;
  17136.     function  Get_ExtrusionColor: ColorFormat; safecall;
  17137.     function  Get_ExtrusionColorType: MsoExtrusionColorType; safecall;
  17138.     procedure Set_ExtrusionColorType(prop: MsoExtrusionColorType); safecall;
  17139.     function  Get_Perspective: MsoTriState; safecall;
  17140.     procedure Set_Perspective(prop: MsoTriState); safecall;
  17141.     function  Get_PresetExtrusionDirection: MsoPresetExtrusionDirection; safecall;
  17142.     function  Get_PresetLightingDirection: MsoPresetLightingDirection; safecall;
  17143.     procedure Set_PresetLightingDirection(prop: MsoPresetLightingDirection); safecall;
  17144.     function  Get_PresetLightingSoftness: MsoPresetLightingSoftness; safecall;
  17145.     procedure Set_PresetLightingSoftness(prop: MsoPresetLightingSoftness); safecall;
  17146.     function  Get_PresetMaterial: MsoPresetMaterial; safecall;
  17147.     procedure Set_PresetMaterial(prop: MsoPresetMaterial); safecall;
  17148.     function  Get_PresetThreeDFormat: MsoPresetThreeDFormat; safecall;
  17149.     function  Get_RotationX: Single; safecall;
  17150.     procedure Set_RotationX(prop: Single); safecall;
  17151.     function  Get_RotationY: Single; safecall;
  17152.     procedure Set_RotationY(prop: Single); safecall;
  17153.     function  Get_Visible: MsoTriState; safecall;
  17154.     procedure Set_Visible(prop: MsoTriState); safecall;
  17155.     procedure IncrementRotationX(Increment: Single); safecall;
  17156.     procedure IncrementRotationY(Increment: Single); safecall;
  17157.     procedure ResetRotation; safecall;
  17158.     procedure SetExtrusionDirection(PresetExtrusionDirection: MsoPresetExtrusionDirection); safecall;
  17159.     procedure SetThreeDFormat(PresetThreeDFormat: MsoPresetThreeDFormat); safecall;
  17160.     property Application: WordApplication read Get_Application;
  17161.     property Creator: Integer read Get_Creator;
  17162.     property Parent: IDispatch read Get_Parent;
  17163.     property Depth: Single read Get_Depth write Set_Depth;
  17164.     property ExtrusionColor: ColorFormat read Get_ExtrusionColor;
  17165.     property ExtrusionColorType: MsoExtrusionColorType read Get_ExtrusionColorType write Set_ExtrusionColorType;
  17166.     property Perspective: MsoTriState read Get_Perspective write Set_Perspective;
  17167.     property PresetExtrusionDirection: MsoPresetExtrusionDirection read Get_PresetExtrusionDirection;
  17168.     property PresetLightingDirection: MsoPresetLightingDirection read Get_PresetLightingDirection write Set_PresetLightingDirection;
  17169.     property PresetLightingSoftness: MsoPresetLightingSoftness read Get_PresetLightingSoftness write Set_PresetLightingSoftness;
  17170.     property PresetMaterial: MsoPresetMaterial read Get_PresetMaterial write Set_PresetMaterial;
  17171.     property PresetThreeDFormat: MsoPresetThreeDFormat read Get_PresetThreeDFormat;
  17172.     property RotationX: Single read Get_RotationX write Set_RotationX;
  17173.     property RotationY: Single read Get_RotationY write Set_RotationY;
  17174.     property Visible: MsoTriState read Get_Visible write Set_Visible;
  17175.   end;
  17176.  
  17177. // *********************************************************************//
  17178. // DispIntf:  ThreeDFormatDisp
  17179. // Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
  17180. // GUID:      {000209D0-0000-0000-C000-000000000046}
  17181. // *********************************************************************//
  17182.   ThreeDFormatDisp = dispinterface
  17183.     ['{000209D0-0000-0000-C000-000000000046}']
  17184.     property Application: WordApplication readonly dispid 1000;
  17185.     property Creator: Integer readonly dispid 1001;
  17186.     property Parent: IDispatch readonly dispid 1;
  17187.     property Depth: Single dispid 100;
  17188.     property ExtrusionColor: ColorFormat readonly dispid 101;
  17189.     property ExtrusionColorType: MsoExtrusionColorType dispid 102;
  17190.     property Perspective: MsoTriState dispid 103;
  17191.     property PresetExtrusionDirection: MsoPresetExtrusionDirection readonly dispid 104;
  17192.     property PresetLightingDirection: MsoPresetLightingDirection dispid 105;
  17193.     property PresetLightingSoftness: MsoPresetLightingSoftness dispid 106;
  17194.     property PresetMaterial: MsoPresetMaterial dispid 107;
  17195.     property PresetThreeDFormat: MsoPresetThreeDFormat readonly dispid 108;
  17196.     property RotationX: Single dispid 109;
  17197.     property RotationY: Single dispid 110;
  17198.     property Visible: MsoTriState dispid 111;
  17199.     procedure IncrementRotationX(Increment: Single); dispid 10;
  17200.     procedure IncrementRotationY(Increment: Single); dispid 11;
  17201.     procedure ResetRotation; dispid 12;
  17202.     procedure SetExtrusionDirection(PresetExtrusionDirection: MsoPresetExtrusionDirection); dispid 14;
  17203.     procedure SetThreeDFormat(PresetThreeDFormat: MsoPresetThreeDFormat); dispid 13;
  17204.   end;
  17205.  
  17206. // *********************************************************************//
  17207. // DispIntf:  ApplicationEvents
  17208. // Flags:     (4112) Hidden Dispatchable
  17209. // GUID:      {000209F7-0000-0000-C000-000000000046}
  17210. // *********************************************************************//
  17211.   ApplicationEvents = dispinterface
  17212.     ['{000209F7-0000-0000-C000-000000000046}']
  17213.     procedure Startup; dispid 1;
  17214.     procedure Quit; dispid 2;
  17215.     procedure DocumentChange; dispid 3;
  17216.   end;
  17217.  
  17218. // *********************************************************************//
  17219. // DispIntf:  DocumentEvents
  17220. // Flags:     (4112) Hidden Dispatchable
  17221. // GUID:      {000209F6-0000-0000-C000-000000000046}
  17222. // *********************************************************************//
  17223.   DocumentEvents = dispinterface
  17224.     ['{000209F6-0000-0000-C000-000000000046}']
  17225.     procedure New; dispid 4;
  17226.     procedure Open; dispid 5;
  17227.     procedure Close; dispid 6;
  17228.   end;
  17229.  
  17230. // *********************************************************************//
  17231. // DispIntf:  OCXEvents
  17232. // Flags:     (4112) Hidden Dispatchable
  17233. // GUID:      {000209F3-0000-0000-C000-000000000046}
  17234. // *********************************************************************//
  17235.   OCXEvents = dispinterface
  17236.     ['{000209F3-0000-0000-C000-000000000046}']
  17237.     procedure GotFocus; dispid -2147417888;
  17238.     procedure LostFocus; dispid -2147417887;
  17239.   end;
  17240.  
  17241. // *********************************************************************//
  17242. // The Class CoGlobal provides a Create and CreateRemote method to          
  17243. // create instances of the default interface _Global exposed by              
  17244. // the CoClass Global. The functions are intended to be used by             
  17245. // clients wishing to automate the CoClass objects exposed by the         
  17246. // server of this typelibrary.                                            
  17247. // *********************************************************************//
  17248.   CoGlobal = class
  17249.     class function Create: _Global;
  17250.     class function CreateRemote(const MachineName: string): _Global;
  17251.   end;
  17252.  
  17253. // *********************************************************************//
  17254. // The Class CoWordApplication provides a Create and CreateRemote method to          
  17255. // create instances of the default interface _Application exposed by              
  17256. // the CoClass WordApplication. The functions are intended to be used by             
  17257. // clients wishing to automate the CoClass objects exposed by the         
  17258. // server of this typelibrary.                                            
  17259. // *********************************************************************//
  17260.   CoWordApplication = class
  17261.     class function Create: _Application;
  17262.     class function CreateRemote(const MachineName: string): _Application;
  17263.   end;
  17264.  
  17265.  
  17266. // *********************************************************************//
  17267. // OLE Server Proxy class declaration
  17268. // Server Object    : TWordApplication
  17269. // Help String      : 
  17270. // Default Interface: _Application
  17271. // Def. Intf. DISP? : No
  17272. // Event   Interface: ApplicationEvents
  17273. // TypeFlags        : (2) CanCreate
  17274. // *********************************************************************//
  17275. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  17276.   TWordApplicationProperties= class;
  17277. {$ENDIF}
  17278.   TWordApplication = class(TOleServer)
  17279.   private
  17280.     FOnStartup: TNotifyEvent;
  17281.     FOnQuit: TNotifyEvent;
  17282.     FOnDocumentChange: TNotifyEvent;
  17283.     FAutoQuit:    Boolean;
  17284.     FIntf:        _Application;
  17285. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  17286.     FProps:       TWordApplicationProperties;
  17287.     function      GetServerProperties: TWordApplicationProperties;
  17288. {$ENDIF}
  17289.     function      GetDefaultInterface: _Application;
  17290.   protected
  17291.     procedure InitServerData; override;
  17292.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  17293.     function  Get_Application: WordApplication;
  17294.     function  Get_Creator: Integer;
  17295.     function  Get_Parent: IDispatch;
  17296.     function  Get_Name: WideString;
  17297.     function  Get_Documents: Documents;
  17298.     function  Get_Windows: Windows;
  17299.     function  Get_ActiveDocument: WordDocument;
  17300.     function  Get_ActiveWindow: Window;
  17301.     function  Get_Selection: Selection;
  17302.     function  Get_WordBasic: IDispatch;
  17303.     function  Get_RecentFiles: RecentFiles;
  17304.     function  Get_NormalTemplate: Template;
  17305.     function  Get_System_: System;
  17306.     function  Get_AutoCorrect: AutoCorrect;
  17307.     function  Get_FontNames: FontNames;
  17308.     function  Get_LandscapeFontNames: FontNames;
  17309.     function  Get_PortraitFontNames: FontNames;
  17310.     function  Get_Languages: Languages;
  17311.     function  Get_Assistant: Assistant;
  17312.     function  Get_Browser: Browser;
  17313.     function  Get_FileConverters: FileConverters;
  17314.     function  Get_MailingLabel: MailingLabel;
  17315.     function  Get_Dialogs: Dialogs;
  17316.     function  Get_CaptionLabels: CaptionLabels;
  17317.     function  Get_AutoCaptions: AutoCaptions;
  17318.     function  Get_AddIns: AddIns;
  17319.     function  Get_Visible: WordBool;
  17320.     procedure Set_Visible(prop: WordBool);
  17321.     function  Get_Version: WideString;
  17322.     function  Get_ScreenUpdating: WordBool;
  17323.     procedure Set_ScreenUpdating(prop: WordBool);
  17324.     function  Get_PrintPreview: WordBool;
  17325.     procedure Set_PrintPreview(prop: WordBool);
  17326.     function  Get_Tasks: Tasks;
  17327.     function  Get_DisplayStatusBar: WordBool;
  17328.     procedure Set_DisplayStatusBar(prop: WordBool);
  17329.     function  Get_SpecialMode: WordBool;
  17330.     function  Get_UsableWidth: Integer;
  17331.     function  Get_UsableHeight: Integer;
  17332.     function  Get_MathCoprocessorAvailable: WordBool;
  17333.     function  Get_MouseAvailable: WordBool;
  17334.     function  Get_International(Index: WdInternationalIndex): OleVariant;
  17335.     function  Get_Build: WideString;
  17336.     function  Get_CapsLock: WordBool;
  17337.     function  Get_NumLock: WordBool;
  17338.     function  Get_UserName: WideString;
  17339.     procedure Set_UserName(const prop: WideString);
  17340.     function  Get_UserInitials: WideString;
  17341.     procedure Set_UserInitials(const prop: WideString);
  17342.     function  Get_UserAddress: WideString;
  17343.     procedure Set_UserAddress(const prop: WideString);
  17344.     function  Get_MacroContainer: IDispatch;
  17345.     function  Get_DisplayRecentFiles: WordBool;
  17346.     procedure Set_DisplayRecentFiles(prop: WordBool);
  17347.     function  Get_CommandBars: CommandBars;
  17348.     function  Get_SynonymInfo(const Word: WideString; var LanguageID: OleVariant): SynonymInfo;
  17349.     function  Get_VBE: VBE;
  17350.     function  Get_DefaultSaveFormat: WideString;
  17351.     procedure Set_DefaultSaveFormat(const prop: WideString);
  17352.     function  Get_ListGalleries: ListGalleries;
  17353.     function  Get_ActivePrinter: WideString;
  17354.     procedure Set_ActivePrinter(const prop: WideString);
  17355.     function  Get_Templates: Templates;
  17356.     function  Get_CustomizationContext: IDispatch;
  17357.     procedure Set_CustomizationContext(const prop: IDispatch);
  17358.     function  Get_KeyBindings: KeyBindings;
  17359.     function  Get_KeysBoundTo(KeyCategory: WdKeyCategory; const Command: WideString; 
  17360.                               var CommandParameter: OleVariant): KeysBoundTo;
  17361.     function  Get_FindKey(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding;
  17362.     function  Get_Caption: WideString;
  17363.     procedure Set_Caption(const prop: WideString);
  17364.     function  Get_Path: WideString;
  17365.     function  Get_DisplayScrollBars: WordBool;
  17366.     procedure Set_DisplayScrollBars(prop: WordBool);
  17367.     function  Get_StartupPath: WideString;
  17368.     procedure Set_StartupPath(const prop: WideString);
  17369.     function  Get_BackgroundSavingStatus: Integer;
  17370.     function  Get_BackgroundPrintingStatus: Integer;
  17371.     function  Get_Left: Integer;
  17372.     procedure Set_Left(prop: Integer);
  17373.     function  Get_Top: Integer;
  17374.     procedure Set_Top(prop: Integer);
  17375.     function  Get_Width: Integer;
  17376.     procedure Set_Width(prop: Integer);
  17377.     function  Get_Height: Integer;
  17378.     procedure Set_Height(prop: Integer);
  17379.     function  Get_WindowState: WdWindowState;
  17380.     procedure Set_WindowState(prop: WdWindowState);
  17381.     function  Get_DisplayAutoCompleteTips: WordBool;
  17382.     procedure Set_DisplayAutoCompleteTips(prop: WordBool);
  17383.     function  Get_Options: Options;
  17384.     function  Get_DisplayAlerts: WdAlertLevel;
  17385.     procedure Set_DisplayAlerts(prop: WdAlertLevel);
  17386.     function  Get_CustomDictionaries: Dictionaries;
  17387.     function  Get_PathSeparator: WideString;
  17388.     procedure Set_StatusBar(const Param1: WideString);
  17389.     function  Get_MAPIAvailable: WordBool;
  17390.     function  Get_DisplayScreenTips: WordBool;
  17391.     procedure Set_DisplayScreenTips(prop: WordBool);
  17392.     function  Get_EnableCancelKey: WdEnableCancelKey;
  17393.     procedure Set_EnableCancelKey(prop: WdEnableCancelKey);
  17394.     function  Get_UserControl: WordBool;
  17395.     function  Get_FileSearch: FileSearch;
  17396.     function  Get_MailSystem: WdMailSystem;
  17397.     function  Get_DefaultTableSeparator: WideString;
  17398.     procedure Set_DefaultTableSeparator(const prop: WideString);
  17399.     function  Get_ShowVisualBasicEditor: WordBool;
  17400.     procedure Set_ShowVisualBasicEditor(prop: WordBool);
  17401.     function  Get_BrowseExtraFileTypes: WideString;
  17402.     procedure Set_BrowseExtraFileTypes(const prop: WideString);
  17403.     function  Get_IsObjectValid(const Object_: IDispatch): WordBool;
  17404.     function  Get_HangulHanjaDictionaries: HangulHanjaConversionDictionaries;
  17405.     function  Get_MailMessage: MailMessage;
  17406.     function  Get_FocusInMailHeader: WordBool;
  17407.   public
  17408.     constructor Create(AOwner: TComponent); override;
  17409.     destructor  Destroy; override;
  17410.     procedure Connect; override;
  17411.     procedure ConnectTo(svrIntf: _Application);
  17412.     procedure Disconnect; override;
  17413.     procedure Quit; overload;
  17414.     procedure Quit(var SaveChanges: OleVariant); overload;
  17415.     procedure Quit(var SaveChanges: OleVariant; var OriginalFormat: OleVariant); overload;
  17416.     procedure Quit(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
  17417.                    var RouteDocument: OleVariant); overload;
  17418.     procedure ScreenRefresh;
  17419.     procedure PrintOut; overload;
  17420.     procedure PrintOut(var Background: OleVariant); overload;
  17421.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant); overload;
  17422.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant); overload;
  17423.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  17424.                        var OutputFileName: OleVariant); overload;
  17425.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  17426.                        var OutputFileName: OleVariant; var From: OleVariant); overload;
  17427.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  17428.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant); overload;
  17429.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  17430.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  17431.                        var Item: OleVariant); overload;
  17432.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  17433.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  17434.                        var Item: OleVariant; var Copies: OleVariant); overload;
  17435.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  17436.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  17437.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant); overload;
  17438.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  17439.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  17440.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  17441.                        var PageType: OleVariant); overload;
  17442.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  17443.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  17444.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  17445.                        var PageType: OleVariant; var PrintToFile: OleVariant); overload;
  17446.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  17447.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  17448.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  17449.                        var PageType: OleVariant; var PrintToFile: OleVariant; 
  17450.                        var Collate: OleVariant); overload;
  17451.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  17452.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  17453.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  17454.                        var PageType: OleVariant; var PrintToFile: OleVariant; 
  17455.                        var Collate: OleVariant; var FileName: OleVariant); overload;
  17456.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  17457.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  17458.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  17459.                        var PageType: OleVariant; var PrintToFile: OleVariant; 
  17460.                        var Collate: OleVariant; var FileName: OleVariant; 
  17461.                        var ActivePrinterMacGX: OleVariant); overload;
  17462.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  17463.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  17464.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  17465.                        var PageType: OleVariant; var PrintToFile: OleVariant; 
  17466.                        var Collate: OleVariant; var FileName: OleVariant; 
  17467.                        var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant); overload;
  17468.     procedure LookupNameProperties(const Name: WideString);
  17469.     procedure SubstituteFont(const UnavailableFont: WideString; const SubstituteFont: WideString);
  17470.     function  Repeat_: WordBool; overload;
  17471.     function  Repeat_(var Times: OleVariant): WordBool; overload;
  17472.     procedure DDEExecute(Channel: Integer; const Command: WideString);
  17473.     function  DDEInitiate(const App: WideString; const Topic: WideString): Integer;
  17474.     procedure DDEPoke(Channel: Integer; const Item: WideString; const Data: WideString);
  17475.     function  DDERequest(Channel: Integer; const Item: WideString): WideString;
  17476.     procedure DDETerminate(Channel: Integer);
  17477.     procedure DDETerminateAll;
  17478.     function  BuildKeyCode(Arg1: WdKey): Integer; overload;
  17479.     function  BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant): Integer; overload;
  17480.     function  BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant): Integer; overload;
  17481.     function  BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant; 
  17482.                            var Arg4: OleVariant): Integer; overload;
  17483.     function  KeyString(KeyCode: Integer): WideString; overload;
  17484.     function  KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString; overload;
  17485.     procedure OrganizerCopy(const Source: WideString; const Destination: WideString; 
  17486.                             const Name: WideString; Object_: WdOrganizerObject);
  17487.     procedure OrganizerDelete(const Source: WideString; const Name: WideString; 
  17488.                               Object_: WdOrganizerObject);
  17489.     procedure OrganizerRename(const Source: WideString; const Name: WideString; 
  17490.                               const NewName: WideString; Object_: WdOrganizerObject);
  17491.     procedure AddAddress(var TagID: PSafeArray; var Value: PSafeArray);
  17492.     function  GetAddress: WideString; overload;
  17493.     function  GetAddress(var Name: OleVariant): WideString; overload;
  17494.     function  GetAddress(var Name: OleVariant; var AddressProperties: OleVariant): WideString; overload;
  17495.     function  GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
  17496.                          var UseAutoText: OleVariant): WideString; overload;
  17497.     function  GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
  17498.                          var UseAutoText: OleVariant; var DisplaySelectDialog: OleVariant): WideString; overload;
  17499.     function  GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
  17500.                          var UseAutoText: OleVariant; var DisplaySelectDialog: OleVariant; 
  17501.                          var SelectDialog: OleVariant): WideString; overload;
  17502.     function  GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
  17503.                          var UseAutoText: OleVariant; var DisplaySelectDialog: OleVariant; 
  17504.                          var SelectDialog: OleVariant; var CheckNamesDialog: OleVariant): WideString; overload;
  17505.     function  GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
  17506.                          var UseAutoText: OleVariant; var DisplaySelectDialog: OleVariant; 
  17507.                          var SelectDialog: OleVariant; var CheckNamesDialog: OleVariant; 
  17508.                          var RecentAddressesChoice: OleVariant): WideString; overload;
  17509.     function  GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
  17510.                          var UseAutoText: OleVariant; var DisplaySelectDialog: OleVariant; 
  17511.                          var SelectDialog: OleVariant; var CheckNamesDialog: OleVariant; 
  17512.                          var RecentAddressesChoice: OleVariant; 
  17513.                          var UpdateRecentAddresses: OleVariant): WideString; overload;
  17514.     function  CheckGrammar(const String_: WideString): WordBool;
  17515.     function  CheckSpelling(const Word: WideString): WordBool; overload;
  17516.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant): WordBool; overload;
  17517.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  17518.                             var IgnoreUppercase: OleVariant): WordBool; overload;
  17519.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  17520.                             var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant): WordBool; overload;
  17521.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  17522.                             var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
  17523.                             var CustomDictionary2: OleVariant): WordBool; overload;
  17524.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  17525.                             var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
  17526.                             var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant): WordBool; overload;
  17527.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  17528.                             var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
  17529.                             var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
  17530.                             var CustomDictionary4: OleVariant): WordBool; overload;
  17531.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  17532.                             var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
  17533.                             var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
  17534.                             var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant): WordBool; overload;
  17535.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  17536.                             var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
  17537.                             var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
  17538.                             var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
  17539.                             var CustomDictionary6: OleVariant): WordBool; overload;
  17540.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  17541.                             var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
  17542.                             var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
  17543.                             var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
  17544.                             var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant): WordBool; overload;
  17545.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  17546.                             var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
  17547.                             var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
  17548.                             var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
  17549.                             var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
  17550.                             var CustomDictionary8: OleVariant): WordBool; overload;
  17551.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  17552.                             var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
  17553.                             var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
  17554.                             var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
  17555.                             var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
  17556.                             var CustomDictionary8: OleVariant; var CustomDictionary9: OleVariant): WordBool; overload;
  17557.     function  CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  17558.                             var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
  17559.                             var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
  17560.                             var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
  17561.                             var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
  17562.                             var CustomDictionary8: OleVariant; var CustomDictionary9: OleVariant; 
  17563.                             var CustomDictionary10: OleVariant): WordBool; overload;
  17564.     procedure ResetIgnoreAll;
  17565.     function  GetSpellingSuggestions(const Word: WideString): SpellingSuggestions; overload;
  17566.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant): SpellingSuggestions; overload;
  17567.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  17568.                                      var IgnoreUppercase: OleVariant): SpellingSuggestions; overload;
  17569.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  17570.                                      var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant): SpellingSuggestions; overload;
  17571.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  17572.                                      var IgnoreUppercase: OleVariant; 
  17573.                                      var MainDictionary: OleVariant; var SuggestionMode: OleVariant): SpellingSuggestions; overload;
  17574.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  17575.                                      var IgnoreUppercase: OleVariant; 
  17576.                                      var MainDictionary: OleVariant; 
  17577.                                      var SuggestionMode: OleVariant; 
  17578.                                      var CustomDictionary2: OleVariant): SpellingSuggestions; overload;
  17579.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  17580.                                      var IgnoreUppercase: OleVariant; 
  17581.                                      var MainDictionary: OleVariant; 
  17582.                                      var SuggestionMode: OleVariant; 
  17583.                                      var CustomDictionary2: OleVariant; 
  17584.                                      var CustomDictionary3: OleVariant): SpellingSuggestions; overload;
  17585.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  17586.                                      var IgnoreUppercase: OleVariant; 
  17587.                                      var MainDictionary: OleVariant; 
  17588.                                      var SuggestionMode: OleVariant; 
  17589.                                      var CustomDictionary2: OleVariant; 
  17590.                                      var CustomDictionary3: OleVariant; 
  17591.                                      var CustomDictionary4: OleVariant): SpellingSuggestions; overload;
  17592.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  17593.                                      var IgnoreUppercase: OleVariant; 
  17594.                                      var MainDictionary: OleVariant; 
  17595.                                      var SuggestionMode: OleVariant; 
  17596.                                      var CustomDictionary2: OleVariant; 
  17597.                                      var CustomDictionary3: OleVariant; 
  17598.                                      var CustomDictionary4: OleVariant; 
  17599.                                      var CustomDictionary5: OleVariant): SpellingSuggestions; overload;
  17600.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  17601.                                      var IgnoreUppercase: OleVariant; 
  17602.                                      var MainDictionary: OleVariant; 
  17603.                                      var SuggestionMode: OleVariant; 
  17604.                                      var CustomDictionary2: OleVariant; 
  17605.                                      var CustomDictionary3: OleVariant; 
  17606.                                      var CustomDictionary4: OleVariant; 
  17607.                                      var CustomDictionary5: OleVariant; 
  17608.                                      var CustomDictionary6: OleVariant): SpellingSuggestions; overload;
  17609.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  17610.                                      var IgnoreUppercase: OleVariant; 
  17611.                                      var MainDictionary: OleVariant; 
  17612.                                      var SuggestionMode: OleVariant; 
  17613.                                      var CustomDictionary2: OleVariant; 
  17614.                                      var CustomDictionary3: OleVariant; 
  17615.                                      var CustomDictionary4: OleVariant; 
  17616.                                      var CustomDictionary5: OleVariant; 
  17617.                                      var CustomDictionary6: OleVariant; 
  17618.                                      var CustomDictionary7: OleVariant): SpellingSuggestions; overload;
  17619.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  17620.                                      var IgnoreUppercase: OleVariant; 
  17621.                                      var MainDictionary: OleVariant; 
  17622.                                      var SuggestionMode: OleVariant; 
  17623.                                      var CustomDictionary2: OleVariant; 
  17624.                                      var CustomDictionary3: OleVariant; 
  17625.                                      var CustomDictionary4: OleVariant; 
  17626.                                      var CustomDictionary5: OleVariant; 
  17627.                                      var CustomDictionary6: OleVariant; 
  17628.                                      var CustomDictionary7: OleVariant; 
  17629.                                      var CustomDictionary8: OleVariant): SpellingSuggestions; overload;
  17630.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  17631.                                      var IgnoreUppercase: OleVariant; 
  17632.                                      var MainDictionary: OleVariant; 
  17633.                                      var SuggestionMode: OleVariant; 
  17634.                                      var CustomDictionary2: OleVariant; 
  17635.                                      var CustomDictionary3: OleVariant; 
  17636.                                      var CustomDictionary4: OleVariant; 
  17637.                                      var CustomDictionary5: OleVariant; 
  17638.                                      var CustomDictionary6: OleVariant; 
  17639.                                      var CustomDictionary7: OleVariant; 
  17640.                                      var CustomDictionary8: OleVariant; 
  17641.                                      var CustomDictionary9: OleVariant): SpellingSuggestions; overload;
  17642.     function  GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
  17643.                                      var IgnoreUppercase: OleVariant; 
  17644.                                      var MainDictionary: OleVariant; 
  17645.                                      var SuggestionMode: OleVariant; 
  17646.                                      var CustomDictionary2: OleVariant; 
  17647.                                      var CustomDictionary3: OleVariant; 
  17648.                                      var CustomDictionary4: OleVariant; 
  17649.                                      var CustomDictionary5: OleVariant; 
  17650.                                      var CustomDictionary6: OleVariant; 
  17651.                                      var CustomDictionary7: OleVariant; 
  17652.                                      var CustomDictionary8: OleVariant; 
  17653.                                      var CustomDictionary9: OleVariant; 
  17654.                                      var CustomDictionary10: OleVariant): SpellingSuggestions; overload;
  17655.     procedure GoBack;
  17656.     procedure Help(var HelpType: OleVariant);
  17657.     procedure AutomaticChange;
  17658.     procedure ShowMe;
  17659.     procedure HelpTool;
  17660.     function  NewWindow: Window;
  17661.     procedure ListCommands(ListAllCommands: WordBool);
  17662.     procedure ShowClipboard;
  17663.     procedure OnTime(var When: OleVariant; const Name: WideString); overload;
  17664.     procedure OnTime(var When: OleVariant; const Name: WideString; var Tolerance: OleVariant); overload;
  17665.     procedure NextLetter;
  17666.     function  MountVolume(const Zone: WideString; const Server: WideString; const Volume: WideString): Smallint; overload;
  17667.     function  MountVolume(const Zone: WideString; const Server: WideString; 
  17668.                           const Volume: WideString; var User: OleVariant): Smallint; overload;
  17669.     function  MountVolume(const Zone: WideString; const Server: WideString; 
  17670.                           const Volume: WideString; var User: OleVariant; 
  17671.                           var UserPassword: OleVariant): Smallint; overload;
  17672.     function  MountVolume(const Zone: WideString; const Server: WideString; 
  17673.                           const Volume: WideString; var User: OleVariant; 
  17674.                           var UserPassword: OleVariant; var VolumePassword: OleVariant): Smallint; overload;
  17675.     function  CleanString(const String_: WideString): WideString;
  17676.     procedure SendFax;
  17677.     procedure ChangeFileOpenDirectory(const Path: WideString);
  17678.     procedure Run(const MacroName: WideString);
  17679.     procedure GoForward;
  17680.     procedure Move(Left: Integer; Top: Integer);
  17681.     procedure Resize(Width: Integer; Height: Integer);
  17682.     function  InchesToPoints(Inches: Single): Single;
  17683.     function  CentimetersToPoints(Centimeters: Single): Single;
  17684.     function  MillimetersToPoints(Millimeters: Single): Single;
  17685.     function  PicasToPoints(Picas: Single): Single;
  17686.     function  LinesToPoints(Lines: Single): Single;
  17687.     function  PointsToInches(Points: Single): Single;
  17688.     function  PointsToCentimeters(Points: Single): Single;
  17689.     function  PointsToMillimeters(Points: Single): Single;
  17690.     function  PointsToPicas(Points: Single): Single;
  17691.     function  PointsToLines(Points: Single): Single;
  17692.     procedure Activate;
  17693.     property  DefaultInterface: _Application read GetDefaultInterface;
  17694.     property Application: WordApplication read Get_Application;
  17695.     property Creator: Integer read Get_Creator;
  17696.     property Parent: IDispatch read Get_Parent;
  17697.     property Name: WideString read Get_Name;
  17698.     property Documents: Documents read Get_Documents;
  17699.     property Windows: Windows read Get_Windows;
  17700.     property ActiveDocument: WordDocument read Get_ActiveDocument;
  17701.     property ActiveWindow: Window read Get_ActiveWindow;
  17702.     property Selection: Selection read Get_Selection;
  17703.     property WordBasic: IDispatch read Get_WordBasic;
  17704.     property RecentFiles: RecentFiles read Get_RecentFiles;
  17705.     property NormalTemplate: Template read Get_NormalTemplate;
  17706.     property System_: System read Get_System_;
  17707.     property AutoCorrect: AutoCorrect read Get_AutoCorrect;
  17708.     property FontNames: FontNames read Get_FontNames;
  17709.     property LandscapeFontNames: FontNames read Get_LandscapeFontNames;
  17710.     property PortraitFontNames: FontNames read Get_PortraitFontNames;
  17711.     property Languages: Languages read Get_Languages;
  17712.     property Assistant: Assistant read Get_Assistant;
  17713.     property Browser: Browser read Get_Browser;
  17714.     property FileConverters: FileConverters read Get_FileConverters;
  17715.     property MailingLabel: MailingLabel read Get_MailingLabel;
  17716.     property Dialogs: Dialogs read Get_Dialogs;
  17717.     property CaptionLabels: CaptionLabels read Get_CaptionLabels;
  17718.     property AutoCaptions: AutoCaptions read Get_AutoCaptions;
  17719.     property AddIns: AddIns read Get_AddIns;
  17720.     property Version: WideString read Get_Version;
  17721.     property Tasks: Tasks read Get_Tasks;
  17722.     property SpecialMode: WordBool read Get_SpecialMode;
  17723.     property UsableWidth: Integer read Get_UsableWidth;
  17724.     property UsableHeight: Integer read Get_UsableHeight;
  17725.     property MathCoprocessorAvailable: WordBool read Get_MathCoprocessorAvailable;
  17726.     property MouseAvailable: WordBool read Get_MouseAvailable;
  17727.     property International[Index: WdInternationalIndex]: OleVariant read Get_International;
  17728.     property Build: WideString read Get_Build;
  17729.     property CapsLock: WordBool read Get_CapsLock;
  17730.     property NumLock: WordBool read Get_NumLock;
  17731.     property MacroContainer: IDispatch read Get_MacroContainer;
  17732.     property CommandBars: CommandBars read Get_CommandBars;
  17733.     property SynonymInfo[const Word: WideString; var LanguageID: OleVariant]: SynonymInfo read Get_SynonymInfo;
  17734.     property VBE: VBE read Get_VBE;
  17735.     property ListGalleries: ListGalleries read Get_ListGalleries;
  17736.     property Templates: Templates read Get_Templates;
  17737.     property CustomizationContext: IDispatch read Get_CustomizationContext write Set_CustomizationContext;
  17738.     property KeyBindings: KeyBindings read Get_KeyBindings;
  17739.     property KeysBoundTo[KeyCategory: WdKeyCategory; const Command: WideString; 
  17740.                          var CommandParameter: OleVariant]: KeysBoundTo read Get_KeysBoundTo;
  17741.     property FindKey[KeyCode: Integer; var KeyCode2: OleVariant]: KeyBinding read Get_FindKey;
  17742.     property Path: WideString read Get_Path;
  17743.     property BackgroundSavingStatus: Integer read Get_BackgroundSavingStatus;
  17744.     property BackgroundPrintingStatus: Integer read Get_BackgroundPrintingStatus;
  17745.     property Options: Options read Get_Options;
  17746.     property CustomDictionaries: Dictionaries read Get_CustomDictionaries;
  17747.     property PathSeparator: WideString read Get_PathSeparator;
  17748.     property StatusBar: WideString write Set_StatusBar;
  17749.     property MAPIAvailable: WordBool read Get_MAPIAvailable;
  17750.     property UserControl: WordBool read Get_UserControl;
  17751.     property FileSearch: FileSearch read Get_FileSearch;
  17752.     property MailSystem: WdMailSystem read Get_MailSystem;
  17753.     property IsObjectValid[const Object_: IDispatch]: WordBool read Get_IsObjectValid;
  17754.     property HangulHanjaDictionaries: HangulHanjaConversionDictionaries read Get_HangulHanjaDictionaries;
  17755.     property MailMessage: MailMessage read Get_MailMessage;
  17756.     property FocusInMailHeader: WordBool read Get_FocusInMailHeader;
  17757.     property Visible: WordBool read Get_Visible write Set_Visible;
  17758.     property ScreenUpdating: WordBool read Get_ScreenUpdating write Set_ScreenUpdating;
  17759.     property PrintPreview: WordBool read Get_PrintPreview write Set_PrintPreview;
  17760.     property DisplayStatusBar: WordBool read Get_DisplayStatusBar write Set_DisplayStatusBar;
  17761.     property UserName: WideString read Get_UserName write Set_UserName;
  17762.     property UserInitials: WideString read Get_UserInitials write Set_UserInitials;
  17763.     property UserAddress: WideString read Get_UserAddress write Set_UserAddress;
  17764.     property DisplayRecentFiles: WordBool read Get_DisplayRecentFiles write Set_DisplayRecentFiles;
  17765.     property DefaultSaveFormat: WideString read Get_DefaultSaveFormat write Set_DefaultSaveFormat;
  17766.     property ActivePrinter: WideString read Get_ActivePrinter write Set_ActivePrinter;
  17767.     property Caption: WideString read Get_Caption write Set_Caption;
  17768.     property DisplayScrollBars: WordBool read Get_DisplayScrollBars write Set_DisplayScrollBars;
  17769.     property StartupPath: WideString read Get_StartupPath write Set_StartupPath;
  17770.     property Left: Integer read Get_Left write Set_Left;
  17771.     property Top: Integer read Get_Top write Set_Top;
  17772.     property Width: Integer read Get_Width write Set_Width;
  17773.     property Height: Integer read Get_Height write Set_Height;
  17774.     property WindowState: WdWindowState read Get_WindowState write Set_WindowState;
  17775.     property DisplayAutoCompleteTips: WordBool read Get_DisplayAutoCompleteTips write Set_DisplayAutoCompleteTips;
  17776.     property DisplayAlerts: WdAlertLevel read Get_DisplayAlerts write Set_DisplayAlerts;
  17777.     property DisplayScreenTips: WordBool read Get_DisplayScreenTips write Set_DisplayScreenTips;
  17778.     property EnableCancelKey: WdEnableCancelKey read Get_EnableCancelKey write Set_EnableCancelKey;
  17779.     property DefaultTableSeparator: WideString read Get_DefaultTableSeparator write Set_DefaultTableSeparator;
  17780.     property ShowVisualBasicEditor: WordBool read Get_ShowVisualBasicEditor write Set_ShowVisualBasicEditor;
  17781.     property BrowseExtraFileTypes: WideString read Get_BrowseExtraFileTypes write Set_BrowseExtraFileTypes;
  17782.   published
  17783.     property AutoQuit: Boolean read FAutoQuit write FAutoQuit; 
  17784. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  17785.     property Server: TWordApplicationProperties read GetServerProperties;
  17786. {$ENDIF}
  17787.     property OnStartup: TNotifyEvent read FOnStartup write FOnStartup;
  17788.     property OnQuit: TNotifyEvent read FOnQuit write FOnQuit;
  17789.     property OnDocumentChange: TNotifyEvent read FOnDocumentChange write FOnDocumentChange;
  17790.   end;
  17791.  
  17792. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  17793. // *********************************************************************//
  17794. // OLE Server Properties Proxy Class
  17795. // Server Object    : TWordApplication
  17796. // (This object is used by the IDE's Property Inspector to allow editing
  17797. //  of the properties of this server)
  17798. // *********************************************************************//
  17799.  TWordApplicationProperties = class(TPersistent)
  17800.   private
  17801.     FServer:    TWordApplication;
  17802.     function    GetDefaultInterface: _Application;
  17803.     constructor Create(AServer: TWordApplication);
  17804.   protected
  17805.     function  Get_Application: WordApplication;
  17806.     function  Get_Creator: Integer;
  17807.     function  Get_Parent: IDispatch;
  17808.     function  Get_Name: WideString;
  17809.     function  Get_Documents: Documents;
  17810.     function  Get_Windows: Windows;
  17811.     function  Get_ActiveDocument: WordDocument;
  17812.     function  Get_ActiveWindow: Window;
  17813.     function  Get_Selection: Selection;
  17814.     function  Get_WordBasic: IDispatch;
  17815.     function  Get_RecentFiles: RecentFiles;
  17816.     function  Get_NormalTemplate: Template;
  17817.     function  Get_System_: System;
  17818.     function  Get_AutoCorrect: AutoCorrect;
  17819.     function  Get_FontNames: FontNames;
  17820.     function  Get_LandscapeFontNames: FontNames;
  17821.     function  Get_PortraitFontNames: FontNames;
  17822.     function  Get_Languages: Languages;
  17823.     function  Get_Assistant: Assistant;
  17824.     function  Get_Browser: Browser;
  17825.     function  Get_FileConverters: FileConverters;
  17826.     function  Get_MailingLabel: MailingLabel;
  17827.     function  Get_Dialogs: Dialogs;
  17828.     function  Get_CaptionLabels: CaptionLabels;
  17829.     function  Get_AutoCaptions: AutoCaptions;
  17830.     function  Get_AddIns: AddIns;
  17831.     function  Get_Visible: WordBool;
  17832.     procedure Set_Visible(prop: WordBool);
  17833.     function  Get_Version: WideString;
  17834.     function  Get_ScreenUpdating: WordBool;
  17835.     procedure Set_ScreenUpdating(prop: WordBool);
  17836.     function  Get_PrintPreview: WordBool;
  17837.     procedure Set_PrintPreview(prop: WordBool);
  17838.     function  Get_Tasks: Tasks;
  17839.     function  Get_DisplayStatusBar: WordBool;
  17840.     procedure Set_DisplayStatusBar(prop: WordBool);
  17841.     function  Get_SpecialMode: WordBool;
  17842.     function  Get_UsableWidth: Integer;
  17843.     function  Get_UsableHeight: Integer;
  17844.     function  Get_MathCoprocessorAvailable: WordBool;
  17845.     function  Get_MouseAvailable: WordBool;
  17846.     function  Get_International(Index: WdInternationalIndex): OleVariant;
  17847.     function  Get_Build: WideString;
  17848.     function  Get_CapsLock: WordBool;
  17849.     function  Get_NumLock: WordBool;
  17850.     function  Get_UserName: WideString;
  17851.     procedure Set_UserName(const prop: WideString);
  17852.     function  Get_UserInitials: WideString;
  17853.     procedure Set_UserInitials(const prop: WideString);
  17854.     function  Get_UserAddress: WideString;
  17855.     procedure Set_UserAddress(const prop: WideString);
  17856.     function  Get_MacroContainer: IDispatch;
  17857.     function  Get_DisplayRecentFiles: WordBool;
  17858.     procedure Set_DisplayRecentFiles(prop: WordBool);
  17859.     function  Get_CommandBars: CommandBars;
  17860.     function  Get_SynonymInfo(const Word: WideString; var LanguageID: OleVariant): SynonymInfo;
  17861.     function  Get_VBE: VBE;
  17862.     function  Get_DefaultSaveFormat: WideString;
  17863.     procedure Set_DefaultSaveFormat(const prop: WideString);
  17864.     function  Get_ListGalleries: ListGalleries;
  17865.     function  Get_ActivePrinter: WideString;
  17866.     procedure Set_ActivePrinter(const prop: WideString);
  17867.     function  Get_Templates: Templates;
  17868.     function  Get_CustomizationContext: IDispatch;
  17869.     procedure Set_CustomizationContext(const prop: IDispatch);
  17870.     function  Get_KeyBindings: KeyBindings;
  17871.     function  Get_KeysBoundTo(KeyCategory: WdKeyCategory; const Command: WideString; 
  17872.                               var CommandParameter: OleVariant): KeysBoundTo;
  17873.     function  Get_FindKey(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding;
  17874.     function  Get_Caption: WideString;
  17875.     procedure Set_Caption(const prop: WideString);
  17876.     function  Get_Path: WideString;
  17877.     function  Get_DisplayScrollBars: WordBool;
  17878.     procedure Set_DisplayScrollBars(prop: WordBool);
  17879.     function  Get_StartupPath: WideString;
  17880.     procedure Set_StartupPath(const prop: WideString);
  17881.     function  Get_BackgroundSavingStatus: Integer;
  17882.     function  Get_BackgroundPrintingStatus: Integer;
  17883.     function  Get_Left: Integer;
  17884.     procedure Set_Left(prop: Integer);
  17885.     function  Get_Top: Integer;
  17886.     procedure Set_Top(prop: Integer);
  17887.     function  Get_Width: Integer;
  17888.     procedure Set_Width(prop: Integer);
  17889.     function  Get_Height: Integer;
  17890.     procedure Set_Height(prop: Integer);
  17891.     function  Get_WindowState: WdWindowState;
  17892.     procedure Set_WindowState(prop: WdWindowState);
  17893.     function  Get_DisplayAutoCompleteTips: WordBool;
  17894.     procedure Set_DisplayAutoCompleteTips(prop: WordBool);
  17895.     function  Get_Options: Options;
  17896.     function  Get_DisplayAlerts: WdAlertLevel;
  17897.     procedure Set_DisplayAlerts(prop: WdAlertLevel);
  17898.     function  Get_CustomDictionaries: Dictionaries;
  17899.     function  Get_PathSeparator: WideString;
  17900.     procedure Set_StatusBar(const Param1: WideString);
  17901.     function  Get_MAPIAvailable: WordBool;
  17902.     function  Get_DisplayScreenTips: WordBool;
  17903.     procedure Set_DisplayScreenTips(prop: WordBool);
  17904.     function  Get_EnableCancelKey: WdEnableCancelKey;
  17905.     procedure Set_EnableCancelKey(prop: WdEnableCancelKey);
  17906.     function  Get_UserControl: WordBool;
  17907.     function  Get_FileSearch: FileSearch;
  17908.     function  Get_MailSystem: WdMailSystem;
  17909.     function  Get_DefaultTableSeparator: WideString;
  17910.     procedure Set_DefaultTableSeparator(const prop: WideString);
  17911.     function  Get_ShowVisualBasicEditor: WordBool;
  17912.     procedure Set_ShowVisualBasicEditor(prop: WordBool);
  17913.     function  Get_BrowseExtraFileTypes: WideString;
  17914.     procedure Set_BrowseExtraFileTypes(const prop: WideString);
  17915.     function  Get_IsObjectValid(const Object_: IDispatch): WordBool;
  17916.     function  Get_HangulHanjaDictionaries: HangulHanjaConversionDictionaries;
  17917.     function  Get_MailMessage: MailMessage;
  17918.     function  Get_FocusInMailHeader: WordBool;
  17919.   public
  17920.     property DefaultInterface: _Application read GetDefaultInterface;
  17921.   published
  17922.     property Visible: WordBool read Get_Visible write Set_Visible;
  17923.     property ScreenUpdating: WordBool read Get_ScreenUpdating write Set_ScreenUpdating;
  17924.     property PrintPreview: WordBool read Get_PrintPreview write Set_PrintPreview;
  17925.     property DisplayStatusBar: WordBool read Get_DisplayStatusBar write Set_DisplayStatusBar;
  17926.     property UserName: WideString read Get_UserName write Set_UserName;
  17927.     property UserInitials: WideString read Get_UserInitials write Set_UserInitials;
  17928.     property UserAddress: WideString read Get_UserAddress write Set_UserAddress;
  17929.     property DisplayRecentFiles: WordBool read Get_DisplayRecentFiles write Set_DisplayRecentFiles;
  17930.     property DefaultSaveFormat: WideString read Get_DefaultSaveFormat write Set_DefaultSaveFormat;
  17931.     property ActivePrinter: WideString read Get_ActivePrinter write Set_ActivePrinter;
  17932.     property Caption: WideString read Get_Caption write Set_Caption;
  17933.     property DisplayScrollBars: WordBool read Get_DisplayScrollBars write Set_DisplayScrollBars;
  17934.     property StartupPath: WideString read Get_StartupPath write Set_StartupPath;
  17935.     property Left: Integer read Get_Left write Set_Left;
  17936.     property Top: Integer read Get_Top write Set_Top;
  17937.     property Width: Integer read Get_Width write Set_Width;
  17938.     property Height: Integer read Get_Height write Set_Height;
  17939.     property WindowState: WdWindowState read Get_WindowState write Set_WindowState;
  17940.     property DisplayAutoCompleteTips: WordBool read Get_DisplayAutoCompleteTips write Set_DisplayAutoCompleteTips;
  17941.     property DisplayAlerts: WdAlertLevel read Get_DisplayAlerts write Set_DisplayAlerts;
  17942.     property DisplayScreenTips: WordBool read Get_DisplayScreenTips write Set_DisplayScreenTips;
  17943.     property EnableCancelKey: WdEnableCancelKey read Get_EnableCancelKey write Set_EnableCancelKey;
  17944.     property DefaultTableSeparator: WideString read Get_DefaultTableSeparator write Set_DefaultTableSeparator;
  17945.     property ShowVisualBasicEditor: WordBool read Get_ShowVisualBasicEditor write Set_ShowVisualBasicEditor;
  17946.     property BrowseExtraFileTypes: WideString read Get_BrowseExtraFileTypes write Set_BrowseExtraFileTypes;
  17947.   end;
  17948. {$ENDIF}
  17949.  
  17950.  
  17951. // *********************************************************************//
  17952. // The Class CoWordDocument provides a Create and CreateRemote method to          
  17953. // create instances of the default interface _Document exposed by              
  17954. // the CoClass WordDocument. The functions are intended to be used by             
  17955. // clients wishing to automate the CoClass objects exposed by the         
  17956. // server of this typelibrary.                                            
  17957. // *********************************************************************//
  17958.   CoWordDocument = class
  17959.     class function Create: _Document;
  17960.     class function CreateRemote(const MachineName: string): _Document;
  17961.   end;
  17962.  
  17963.  
  17964. // *********************************************************************//
  17965. // OLE Server Proxy class declaration
  17966. // Server Object    : TWordDocument
  17967. // Help String      : 
  17968. // Default Interface: _Document
  17969. // Def. Intf. DISP? : No
  17970. // Event   Interface: DocumentEvents
  17971. // TypeFlags        : (2) CanCreate
  17972. // *********************************************************************//
  17973. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  17974.   TWordDocumentProperties= class;
  17975. {$ENDIF}
  17976.   TWordDocument = class(TOleServer)
  17977.   private
  17978.     FOnNew: TNotifyEvent;
  17979.     FOnOpen: TNotifyEvent;
  17980.     FOnClose: TNotifyEvent;
  17981.     FIntf:        _Document;
  17982. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  17983.     FProps:       TWordDocumentProperties;
  17984.     function      GetServerProperties: TWordDocumentProperties;
  17985. {$ENDIF}
  17986.     function      GetDefaultInterface: _Document;
  17987.   protected
  17988.     procedure InitServerData; override;
  17989.     procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
  17990.     function  Get_Name: WideString;
  17991.     function  Get_Application: WordApplication;
  17992.     function  Get_Creator: Integer;
  17993.     function  Get_Parent: IDispatch;
  17994.     function  Get_BuiltInDocumentProperties: IDispatch;
  17995.     function  Get_CustomDocumentProperties: IDispatch;
  17996.     function  Get_Path: WideString;
  17997.     function  Get_Bookmarks: Bookmarks;
  17998.     function  Get_Tables: Tables;
  17999.     function  Get_Footnotes: Footnotes;
  18000.     function  Get_Endnotes: Endnotes;
  18001.     function  Get_Comments: Comments;
  18002.     function  Get_Type_: WdDocumentType;
  18003.     function  Get_AutoHyphenation: WordBool;
  18004.     procedure Set_AutoHyphenation(prop: WordBool);
  18005.     function  Get_HyphenateCaps: WordBool;
  18006.     procedure Set_HyphenateCaps(prop: WordBool);
  18007.     function  Get_HyphenationZone: Integer;
  18008.     procedure Set_HyphenationZone(prop: Integer);
  18009.     function  Get_ConsecutiveHyphensLimit: Integer;
  18010.     procedure Set_ConsecutiveHyphensLimit(prop: Integer);
  18011.     function  Get_Sections: Sections;
  18012.     function  Get_Paragraphs: Paragraphs;
  18013.     function  Get_Words: Words;
  18014.     function  Get_Sentences: Sentences;
  18015.     function  Get_Characters: Characters;
  18016.     function  Get_Fields: Fields;
  18017.     function  Get_FormFields: FormFields;
  18018.     function  Get_Styles: Styles;
  18019.     function  Get_Frames: Frames;
  18020.     function  Get_TablesOfFigures: TablesOfFigures;
  18021.     function  Get_Variables: Variables;
  18022.     function  Get_MailMerge: MailMerge;
  18023.     function  Get_Envelope: Envelope;
  18024.     function  Get_FullName: WideString;
  18025.     function  Get_Revisions: Revisions;
  18026.     function  Get_TablesOfContents: TablesOfContents;
  18027.     function  Get_TablesOfAuthorities: TablesOfAuthorities;
  18028.     function  Get_PageSetup: PageSetup;
  18029.     procedure Set_PageSetup(const prop: PageSetup);
  18030.     function  Get_Windows: Windows;
  18031.     function  Get_HasRoutingSlip: WordBool;
  18032.     procedure Set_HasRoutingSlip(prop: WordBool);
  18033.     function  Get_RoutingSlip: RoutingSlip;
  18034.     function  Get_Routed: WordBool;
  18035.     function  Get_TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories;
  18036.     function  Get_Indexes: Indexes;
  18037.     function  Get_Saved: WordBool;
  18038.     procedure Set_Saved(prop: WordBool);
  18039.     function  Get_Content: Range;
  18040.     function  Get_ActiveWindow: Window;
  18041.     function  Get_Kind: WdDocumentKind;
  18042.     procedure Set_Kind(prop: WdDocumentKind);
  18043.     function  Get_ReadOnly: WordBool;
  18044.     function  Get_Subdocuments: Subdocuments;
  18045.     function  Get_IsMasterDocument: WordBool;
  18046.     function  Get_DefaultTabStop: Single;
  18047.     procedure Set_DefaultTabStop(prop: Single);
  18048.     function  Get_EmbedTrueTypeFonts: WordBool;
  18049.     procedure Set_EmbedTrueTypeFonts(prop: WordBool);
  18050.     function  Get_SaveFormsData: WordBool;
  18051.     procedure Set_SaveFormsData(prop: WordBool);
  18052.     function  Get_ReadOnlyRecommended: WordBool;
  18053.     procedure Set_ReadOnlyRecommended(prop: WordBool);
  18054.     function  Get_SaveSubsetFonts: WordBool;
  18055.     procedure Set_SaveSubsetFonts(prop: WordBool);
  18056.     function  Get_Compatibility(Type_: WdCompatibility): WordBool;
  18057.     procedure Set_Compatibility(Type_: WdCompatibility; prop: WordBool);
  18058.     function  Get_StoryRanges: StoryRanges;
  18059.     function  Get_CommandBars: CommandBars;
  18060.     function  Get_IsSubdocument: WordBool;
  18061.     function  Get_SaveFormat: Integer;
  18062.     function  Get_ProtectionType: WdProtectionType;
  18063.     function  Get_Hyperlinks: Hyperlinks;
  18064.     function  Get_Shapes: Shapes;
  18065.     function  Get_ListTemplates: ListTemplates;
  18066.     function  Get_Lists: Lists;
  18067.     function  Get_UpdateStylesOnOpen: WordBool;
  18068.     procedure Set_UpdateStylesOnOpen(prop: WordBool);
  18069.     function  Get_AttachedTemplate: OleVariant;
  18070.     procedure Set_AttachedTemplate(var prop: OleVariant);
  18071.     function  Get_InlineShapes: InlineShapes;
  18072.     function  Get_Background: Shape;
  18073.     procedure Set_Background(const prop: Shape);
  18074.     function  Get_GrammarChecked: WordBool;
  18075.     procedure Set_GrammarChecked(prop: WordBool);
  18076.     function  Get_SpellingChecked: WordBool;
  18077.     procedure Set_SpellingChecked(prop: WordBool);
  18078.     function  Get_ShowGrammaticalErrors: WordBool;
  18079.     procedure Set_ShowGrammaticalErrors(prop: WordBool);
  18080.     function  Get_ShowSpellingErrors: WordBool;
  18081.     procedure Set_ShowSpellingErrors(prop: WordBool);
  18082.     function  Get_Versions: Versions;
  18083.     function  Get_ShowSummary: WordBool;
  18084.     procedure Set_ShowSummary(prop: WordBool);
  18085.     function  Get_SummaryViewMode: WdSummaryMode;
  18086.     procedure Set_SummaryViewMode(prop: WdSummaryMode);
  18087.     function  Get_SummaryLength: Integer;
  18088.     procedure Set_SummaryLength(prop: Integer);
  18089.     function  Get_PrintFractionalWidths: WordBool;
  18090.     procedure Set_PrintFractionalWidths(prop: WordBool);
  18091.     function  Get_PrintPostScriptOverText: WordBool;
  18092.     procedure Set_PrintPostScriptOverText(prop: WordBool);
  18093.     function  Get_Container: IDispatch;
  18094.     function  Get_PrintFormsData: WordBool;
  18095.     procedure Set_PrintFormsData(prop: WordBool);
  18096.     function  Get_ListParagraphs: ListParagraphs;
  18097.     procedure Set_Password(const Param1: WideString);
  18098.     procedure Set_WritePassword(const Param1: WideString);
  18099.     function  Get_HasPassword: WordBool;
  18100.     function  Get_WriteReserved: WordBool;
  18101.     function  Get_ActiveWritingStyle(var LanguageID: OleVariant): WideString;
  18102.     procedure Set_ActiveWritingStyle(var LanguageID: OleVariant; const prop: WideString);
  18103.     function  Get_UserControl: WordBool;
  18104.     procedure Set_UserControl(prop: WordBool);
  18105.     function  Get_HasMailer: WordBool;
  18106.     procedure Set_HasMailer(prop: WordBool);
  18107.     function  Get_Mailer: Mailer;
  18108.     function  Get_ReadabilityStatistics: ReadabilityStatistics;
  18109.     function  Get_GrammaticalErrors: ProofreadingErrors;
  18110.     function  Get_SpellingErrors: ProofreadingErrors;
  18111.     function  Get_VBProject: VBProject;
  18112.     function  Get_FormsDesign: WordBool;
  18113.     function  Get__CodeName: WideString;
  18114.     procedure Set__CodeName(const prop: WideString);
  18115.     function  Get_CodeName: WideString;
  18116.     function  Get_SnapToGrid: WordBool;
  18117.     procedure Set_SnapToGrid(prop: WordBool);
  18118.     function  Get_SnapToShapes: WordBool;
  18119.     procedure Set_SnapToShapes(prop: WordBool);
  18120.     function  Get_GridDistanceHorizontal: Single;
  18121.     procedure Set_GridDistanceHorizontal(prop: Single);
  18122.     function  Get_GridDistanceVertical: Single;
  18123.     procedure Set_GridDistanceVertical(prop: Single);
  18124.     function  Get_GridOriginHorizontal: Single;
  18125.     procedure Set_GridOriginHorizontal(prop: Single);
  18126.     function  Get_GridOriginVertical: Single;
  18127.     procedure Set_GridOriginVertical(prop: Single);
  18128.     function  Get_GridSpaceBetweenHorizontalLines: Integer;
  18129.     procedure Set_GridSpaceBetweenHorizontalLines(prop: Integer);
  18130.     function  Get_GridSpaceBetweenVerticalLines: Integer;
  18131.     procedure Set_GridSpaceBetweenVerticalLines(prop: Integer);
  18132.     function  Get_GridOriginFromMargin: WordBool;
  18133.     procedure Set_GridOriginFromMargin(prop: WordBool);
  18134.     function  Get_KerningByAlgorithm: WordBool;
  18135.     procedure Set_KerningByAlgorithm(prop: WordBool);
  18136.     function  Get_JustificationMode: WdJustificationMode;
  18137.     procedure Set_JustificationMode(prop: WdJustificationMode);
  18138.     function  Get_FarEastLineBreakLevel: WdFarEastLineBreakLevel;
  18139.     procedure Set_FarEastLineBreakLevel(prop: WdFarEastLineBreakLevel);
  18140.     function  Get_NoLineBreakBefore: WideString;
  18141.     procedure Set_NoLineBreakBefore(const prop: WideString);
  18142.     function  Get_NoLineBreakAfter: WideString;
  18143.     procedure Set_NoLineBreakAfter(const prop: WideString);
  18144.     function  Get_TrackRevisions: WordBool;
  18145.     procedure Set_TrackRevisions(prop: WordBool);
  18146.     function  Get_PrintRevisions: WordBool;
  18147.     procedure Set_PrintRevisions(prop: WordBool);
  18148.     function  Get_ShowRevisions: WordBool;
  18149.     procedure Set_ShowRevisions(prop: WordBool);
  18150.   public
  18151.     constructor Create(AOwner: TComponent); override;
  18152.     destructor  Destroy; override;
  18153.     procedure Connect; override;
  18154.     procedure ConnectTo(svrIntf: _Document);
  18155.     procedure Disconnect; override;
  18156.     procedure Close; overload;
  18157.     procedure Close(var SaveChanges: OleVariant); overload;
  18158.     procedure Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant); overload;
  18159.     procedure Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
  18160.                     var RouteDocument: OleVariant); overload;
  18161.     procedure SaveAs; overload;
  18162.     procedure SaveAs(var FileName: OleVariant); overload;
  18163.     procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant); overload;
  18164.     procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  18165.                      var LockComments: OleVariant); overload;
  18166.     procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  18167.                      var LockComments: OleVariant; var Password: OleVariant); overload;
  18168.     procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  18169.                      var LockComments: OleVariant; var Password: OleVariant; 
  18170.                      var AddToRecentFiles: OleVariant); overload;
  18171.     procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  18172.                      var LockComments: OleVariant; var Password: OleVariant; 
  18173.                      var AddToRecentFiles: OleVariant; var WritePassword: OleVariant); overload;
  18174.     procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  18175.                      var LockComments: OleVariant; var Password: OleVariant; 
  18176.                      var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
  18177.                      var ReadOnlyRecommended: OleVariant); overload;
  18178.     procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  18179.                      var LockComments: OleVariant; var Password: OleVariant; 
  18180.                      var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
  18181.                      var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant); overload;
  18182.     procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  18183.                      var LockComments: OleVariant; var Password: OleVariant; 
  18184.                      var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
  18185.                      var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
  18186.                      var SaveNativePictureFormat: OleVariant); overload;
  18187.     procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  18188.                      var LockComments: OleVariant; var Password: OleVariant; 
  18189.                      var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
  18190.                      var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
  18191.                      var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant); overload;
  18192.     procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  18193.                      var LockComments: OleVariant; var Password: OleVariant; 
  18194.                      var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
  18195.                      var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
  18196.                      var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant; 
  18197.                      var SaveAsAOCELetter: OleVariant); overload;
  18198.     procedure Repaginate;
  18199.     procedure FitToPages;
  18200.     procedure ManualHyphenation;
  18201.     procedure Select;
  18202.     procedure DataForm;
  18203.     procedure Route;
  18204.     procedure Save;
  18205.     procedure PrintOut; overload;
  18206.     procedure PrintOut(var Background: OleVariant); overload;
  18207.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant); overload;
  18208.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant); overload;
  18209.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  18210.                        var OutputFileName: OleVariant); overload;
  18211.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  18212.                        var OutputFileName: OleVariant; var From: OleVariant); overload;
  18213.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  18214.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant); overload;
  18215.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  18216.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  18217.                        var Item: OleVariant); overload;
  18218.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  18219.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  18220.                        var Item: OleVariant; var Copies: OleVariant); overload;
  18221.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  18222.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  18223.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant); overload;
  18224.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  18225.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  18226.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  18227.                        var PageType: OleVariant); overload;
  18228.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  18229.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  18230.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  18231.                        var PageType: OleVariant; var PrintToFile: OleVariant); overload;
  18232.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  18233.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  18234.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  18235.                        var PageType: OleVariant; var PrintToFile: OleVariant; 
  18236.                        var Collate: OleVariant); overload;
  18237.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  18238.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  18239.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  18240.                        var PageType: OleVariant; var PrintToFile: OleVariant; 
  18241.                        var Collate: OleVariant; var ActivePrinterMacGX: OleVariant); overload;
  18242.     procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
  18243.                        var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
  18244.                        var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
  18245.                        var PageType: OleVariant; var PrintToFile: OleVariant; 
  18246.                        var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
  18247.                        var ManualDuplexPrint: OleVariant); overload;
  18248.     procedure SendMail;
  18249.     function  Range: Range; overload;
  18250.     function  Range(var Start: OleVariant): Range; overload;
  18251.     function  Range(var Start: OleVariant; var End_: OleVariant): Range; overload;
  18252.     procedure RunAutoMacro(Which: WdAutoMacros);
  18253.     procedure Activate;
  18254.     procedure PrintPreview;
  18255.     function  GoTo_: Range; overload;
  18256.     function  GoTo_(var What: OleVariant): Range; overload;
  18257.     function  GoTo_(var What: OleVariant; var Which: OleVariant): Range; overload;
  18258.     function  GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant): Range; overload;
  18259.     function  GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
  18260.                     var Name: OleVariant): Range; overload;
  18261.     function  Undo: WordBool; overload;
  18262.     function  Undo(var Times: OleVariant): WordBool; overload;
  18263.     function  Redo: WordBool; overload;
  18264.     function  Redo(var Times: OleVariant): WordBool; overload;
  18265.     function  ComputeStatistics(Statistic: WdStatistic): Integer; overload;
  18266.     function  ComputeStatistics(Statistic: WdStatistic; var IncludeFootnotesAndEndnotes: OleVariant): Integer; overload;
  18267.     procedure MakeCompatibilityDefault;
  18268.     procedure Protect(Type_: WdProtectionType); overload;
  18269.     procedure Protect(Type_: WdProtectionType; var NoReset: OleVariant); overload;
  18270.     procedure Protect(Type_: WdProtectionType; var NoReset: OleVariant; var Password: OleVariant); overload;
  18271.     procedure Unprotect; overload;
  18272.     procedure Unprotect(var Password: OleVariant); overload;
  18273.     procedure EditionOptions(Type_: WdEditionType; Option: WdEditionOption; const Name: WideString); overload;
  18274.     procedure EditionOptions(Type_: WdEditionType; Option: WdEditionOption; const Name: WideString; 
  18275.                              var Format: OleVariant); overload;
  18276.     procedure RunLetterWizard; overload;
  18277.     procedure RunLetterWizard(var LetterContent: OleVariant); overload;
  18278.     procedure RunLetterWizard(var LetterContent: OleVariant; var WizardMode: OleVariant); overload;
  18279.     function  GetLetterContent: WordLetterContent;
  18280.     procedure SetLetterContent(var LetterContent: OleVariant);
  18281.     procedure CopyStylesFromTemplate(const Template: WideString);
  18282.     procedure UpdateStyles;
  18283.     procedure CheckGrammar;
  18284.     procedure CheckSpelling; overload;
  18285.     procedure CheckSpelling(var CustomDictionary: OleVariant); overload;
  18286.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant); overload;
  18287.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  18288.                             var AlwaysSuggest: OleVariant); overload;
  18289.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  18290.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant); overload;
  18291.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  18292.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  18293.                             var CustomDictionary3: OleVariant); overload;
  18294.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  18295.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  18296.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant); overload;
  18297.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  18298.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  18299.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  18300.                             var CustomDictionary5: OleVariant); overload;
  18301.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  18302.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  18303.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  18304.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant); overload;
  18305.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  18306.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  18307.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  18308.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  18309.                             var CustomDictionary7: OleVariant); overload;
  18310.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  18311.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  18312.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  18313.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  18314.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant); overload;
  18315.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  18316.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  18317.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  18318.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  18319.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  18320.                             var CustomDictionary9: OleVariant); overload;
  18321.     procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
  18322.                             var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
  18323.                             var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
  18324.                             var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
  18325.                             var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
  18326.                             var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); overload;
  18327.     procedure FollowHyperlink; overload;
  18328.     procedure FollowHyperlink(var Address: OleVariant); overload;
  18329.     procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant); overload;
  18330.     procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
  18331.                               var NewWindow: OleVariant); overload;
  18332.     procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
  18333.                               var NewWindow: OleVariant; var AddHistory: OleVariant); overload;
  18334.     procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
  18335.                               var NewWindow: OleVariant; var AddHistory: OleVariant; 
  18336.                               var ExtraInfo: OleVariant); overload;
  18337.     procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
  18338.                               var NewWindow: OleVariant; var AddHistory: OleVariant; 
  18339.                               var ExtraInfo: OleVariant; var Method: OleVariant); overload;
  18340.     procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
  18341.                               var NewWindow: OleVariant; var AddHistory: OleVariant; 
  18342.                               var ExtraInfo: OleVariant; var Method: OleVariant; 
  18343.                               var HeaderInfo: OleVariant); overload;
  18344.     procedure AddToFavorites;
  18345.     procedure Reload;
  18346.     function  AutoSummarize: Range; overload;
  18347.     function  AutoSummarize(var Length: OleVariant): Range; overload;
  18348.     function  AutoSummarize(var Length: OleVariant; var Mode: OleVariant): Range; overload;
  18349.     function  AutoSummarize(var Length: OleVariant; var Mode: OleVariant; 
  18350.                             var UpdateProperties: OleVariant): Range; overload;
  18351.     procedure RemoveNumbers; overload;
  18352.     procedure RemoveNumbers(var NumberType: OleVariant); overload;
  18353.     procedure ConvertNumbersToText; overload;
  18354.     procedure ConvertNumbersToText(var NumberType: OleVariant); overload;
  18355.     function  CountNumberedItems: Integer; overload;
  18356.     function  CountNumberedItems(var NumberType: OleVariant): Integer; overload;
  18357.     function  CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer; overload;
  18358.     procedure Post;
  18359.     procedure ToggleFormsDesign;
  18360.     procedure Compare(const Name: WideString);
  18361.     procedure UpdateSummaryProperties;
  18362.     function  GetCrossReferenceItems(var ReferenceType: OleVariant): OleVariant;
  18363.     procedure AutoFormat;
  18364.     procedure ViewCode;
  18365.     procedure ViewPropertyBrowser;
  18366.     procedure ForwardMailer;
  18367.     procedure Reply;
  18368.     procedure ReplyAll;
  18369.     procedure SendMailer; overload;
  18370.     procedure SendMailer(var FileFormat: OleVariant); overload;
  18371.     procedure SendMailer(var FileFormat: OleVariant; var Priority: OleVariant); overload;
  18372.     procedure UndoClear;
  18373.     procedure PresentIt;
  18374.     procedure SendFax(const Address: WideString); overload;
  18375.     procedure SendFax(const Address: WideString; var Subject: OleVariant); overload;
  18376.     procedure Merge(const FileName: WideString);
  18377.     procedure ClosePrintPreview;
  18378.     procedure CheckConsistency;
  18379.     function  CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
  18380.                                   const PageDesign: WideString; LetterStyle: WdLetterStyle; 
  18381.                                   Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
  18382.                                   LetterheadSize: Single; const RecipientName: WideString; 
  18383.                                   const RecipientAddress: WideString; const Salutation: WideString; 
  18384.                                   SalutationType: WdSalutationType; 
  18385.                                   const RecipientReference: WideString; 
  18386.                                   const MailingInstructions: WideString; 
  18387.                                   const AttentionLine: WideString; const Subject: WideString; 
  18388.                                   const CCList: WideString; const ReturnAddress: WideString; 
  18389.                                   const SenderName: WideString; const Closing: WideString; 
  18390.                                   const SenderCompany: WideString; 
  18391.                                   const SenderJobTitle: WideString; 
  18392.                                   const SenderInitials: WideString; EnclosureNumber: Integer): WordLetterContent; overload;
  18393.     function  CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
  18394.                                   const PageDesign: WideString; LetterStyle: WdLetterStyle; 
  18395.                                   Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
  18396.                                   LetterheadSize: Single; const RecipientName: WideString; 
  18397.                                   const RecipientAddress: WideString; const Salutation: WideString; 
  18398.                                   SalutationType: WdSalutationType; 
  18399.                                   const RecipientReference: WideString; 
  18400.                                   const MailingInstructions: WideString; 
  18401.                                   const AttentionLine: WideString; const Subject: WideString; 
  18402.                                   const CCList: WideString; const ReturnAddress: WideString; 
  18403.                                   const SenderName: WideString; const Closing: WideString; 
  18404.                                   const SenderCompany: WideString; 
  18405.                                   const SenderJobTitle: WideString; 
  18406.                                   const SenderInitials: WideString; EnclosureNumber: Integer; 
  18407.                                   var InfoBlock: OleVariant): WordLetterContent; overload;
  18408.     function  CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
  18409.                                   const PageDesign: WideString; LetterStyle: WdLetterStyle; 
  18410.                                   Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
  18411.                                   LetterheadSize: Single; const RecipientName: WideString; 
  18412.                                   const RecipientAddress: WideString; const Salutation: WideString; 
  18413.                                   SalutationType: WdSalutationType; 
  18414.                                   const RecipientReference: WideString; 
  18415.                                   const MailingInstructions: WideString; 
  18416.                                   const AttentionLine: WideString; const Subject: WideString; 
  18417.                                   const CCList: WideString; const ReturnAddress: WideString; 
  18418.                                   const SenderName: WideString; const Closing: WideString; 
  18419.                                   const SenderCompany: WideString; 
  18420.                                   const SenderJobTitle: WideString; 
  18421.                                   const SenderInitials: WideString; EnclosureNumber: Integer; 
  18422.                                   var InfoBlock: OleVariant; var RecipientCode: OleVariant): WordLetterContent; overload;
  18423.     function  CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
  18424.                                   const PageDesign: WideString; LetterStyle: WdLetterStyle; 
  18425.                                   Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
  18426.                                   LetterheadSize: Single; const RecipientName: WideString; 
  18427.                                   const RecipientAddress: WideString; const Salutation: WideString; 
  18428.                                   SalutationType: WdSalutationType; 
  18429.                                   const RecipientReference: WideString; 
  18430.                                   const MailingInstructions: WideString; 
  18431.                                   const AttentionLine: WideString; const Subject: WideString; 
  18432.                                   const CCList: WideString; const ReturnAddress: WideString; 
  18433.                                   const SenderName: WideString; const Closing: WideString; 
  18434.                                   const SenderCompany: WideString; 
  18435.                                   const SenderJobTitle: WideString; 
  18436.                                   const SenderInitials: WideString; EnclosureNumber: Integer; 
  18437.                                   var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
  18438.                                   var RecipientGender: OleVariant): WordLetterContent; overload;
  18439.     function  CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
  18440.                                   const PageDesign: WideString; LetterStyle: WdLetterStyle; 
  18441.                                   Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
  18442.                                   LetterheadSize: Single; const RecipientName: WideString; 
  18443.                                   const RecipientAddress: WideString; const Salutation: WideString; 
  18444.                                   SalutationType: WdSalutationType; 
  18445.                                   const RecipientReference: WideString; 
  18446.                                   const MailingInstructions: WideString; 
  18447.                                   const AttentionLine: WideString; const Subject: WideString; 
  18448.                                   const CCList: WideString; const ReturnAddress: WideString; 
  18449.                                   const SenderName: WideString; const Closing: WideString; 
  18450.                                   const SenderCompany: WideString; 
  18451.                                   const SenderJobTitle: WideString; 
  18452.                                   const SenderInitials: WideString; EnclosureNumber: Integer; 
  18453.                                   var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
  18454.                                   var RecipientGender: OleVariant; 
  18455.                                   var ReturnAddressShortForm: OleVariant): WordLetterContent; overload;
  18456.     function  CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
  18457.                                   const PageDesign: WideString; LetterStyle: WdLetterStyle; 
  18458.                                   Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
  18459.                                   LetterheadSize: Single; const RecipientName: WideString; 
  18460.                                   const RecipientAddress: WideString; const Salutation: WideString; 
  18461.                                   SalutationType: WdSalutationType; 
  18462.                                   const RecipientReference: WideString; 
  18463.                                   const MailingInstructions: WideString; 
  18464.                                   const AttentionLine: WideString; const Subject: WideString; 
  18465.                                   const CCList: WideString; const ReturnAddress: WideString; 
  18466.                                   const SenderName: WideString; const Closing: WideString; 
  18467.                                   const SenderCompany: WideString; 
  18468.                                   const SenderJobTitle: WideString; 
  18469.                                   const SenderInitials: WideString; EnclosureNumber: Integer; 
  18470.                                   var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
  18471.                                   var RecipientGender: OleVariant; 
  18472.                                   var ReturnAddressShortForm: OleVariant; var SenderCity: OleVariant): WordLetterContent; overload;
  18473.     function  CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
  18474.                                   const PageDesign: WideString; LetterStyle: WdLetterStyle; 
  18475.                                   Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
  18476.                                   LetterheadSize: Single; const RecipientName: WideString; 
  18477.                                   const RecipientAddress: WideString; const Salutation: WideString; 
  18478.                                   SalutationType: WdSalutationType; 
  18479.                                   const RecipientReference: WideString; 
  18480.                                   const MailingInstructions: WideString; 
  18481.                                   const AttentionLine: WideString; const Subject: WideString; 
  18482.                                   const CCList: WideString; const ReturnAddress: WideString; 
  18483.                                   const SenderName: WideString; const Closing: WideString; 
  18484.                                   const SenderCompany: WideString; 
  18485.                                   const SenderJobTitle: WideString; 
  18486.                                   const SenderInitials: WideString; EnclosureNumber: Integer; 
  18487.                                   var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
  18488.                                   var RecipientGender: OleVariant; 
  18489.                                   var ReturnAddressShortForm: OleVariant; 
  18490.                                   var SenderCity: OleVariant; var SenderCode: OleVariant): WordLetterContent; overload;
  18491.     function  CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
  18492.                                   const PageDesign: WideString; LetterStyle: WdLetterStyle; 
  18493.                                   Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
  18494.                                   LetterheadSize: Single; const RecipientName: WideString; 
  18495.                                   const RecipientAddress: WideString; const Salutation: WideString; 
  18496.                                   SalutationType: WdSalutationType; 
  18497.                                   const RecipientReference: WideString; 
  18498.                                   const MailingInstructions: WideString; 
  18499.                                   const AttentionLine: WideString; const Subject: WideString; 
  18500.                                   const CCList: WideString; const ReturnAddress: WideString; 
  18501.                                   const SenderName: WideString; const Closing: WideString; 
  18502.                                   const SenderCompany: WideString; 
  18503.                                   const SenderJobTitle: WideString; 
  18504.                                   const SenderInitials: WideString; EnclosureNumber: Integer; 
  18505.                                   var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
  18506.                                   var RecipientGender: OleVariant; 
  18507.                                   var ReturnAddressShortForm: OleVariant; 
  18508.                                   var SenderCity: OleVariant; var SenderCode: OleVariant; 
  18509.                                   var SenderGender: OleVariant): WordLetterContent; overload;
  18510.     function  CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
  18511.                                   const PageDesign: WideString; LetterStyle: WdLetterStyle; 
  18512.                                   Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
  18513.                                   LetterheadSize: Single; const RecipientName: WideString; 
  18514.                                   const RecipientAddress: WideString; const Salutation: WideString; 
  18515.                                   SalutationType: WdSalutationType; 
  18516.                                   const RecipientReference: WideString; 
  18517.                                   const MailingInstructions: WideString; 
  18518.                                   const AttentionLine: WideString; const Subject: WideString; 
  18519.                                   const CCList: WideString; const ReturnAddress: WideString; 
  18520.                                   const SenderName: WideString; const Closing: WideString; 
  18521.                                   const SenderCompany: WideString; 
  18522.                                   const SenderJobTitle: WideString; 
  18523.                                   const SenderInitials: WideString; EnclosureNumber: Integer; 
  18524.                                   var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
  18525.                                   var RecipientGender: OleVariant; 
  18526.                                   var ReturnAddressShortForm: OleVariant; 
  18527.                                   var SenderCity: OleVariant; var SenderCode: OleVariant; 
  18528.                                   var SenderGender: OleVariant; var SenderReference: OleVariant): WordLetterContent; overload;
  18529.     procedure AcceptAllRevisions;
  18530.     procedure RejectAllRevisions;
  18531.     property  DefaultInterface: _Document read GetDefaultInterface;
  18532.     property Name: WideString read Get_Name;
  18533.     property Application: WordApplication read Get_Application;
  18534.     property Creator: Integer read Get_Creator;
  18535.     property Parent: IDispatch read Get_Parent;
  18536.     property BuiltInDocumentProperties: IDispatch read Get_BuiltInDocumentProperties;
  18537.     property CustomDocumentProperties: IDispatch read Get_CustomDocumentProperties;
  18538.     property Path: WideString read Get_Path;
  18539.     property Bookmarks: Bookmarks read Get_Bookmarks;
  18540.     property Tables: Tables read Get_Tables;
  18541.     property Footnotes: Footnotes read Get_Footnotes;
  18542.     property Endnotes: Endnotes read Get_Endnotes;
  18543.     property Comments: Comments read Get_Comments;
  18544.     property Type_: WdDocumentType read Get_Type_;
  18545.     property Sections: Sections read Get_Sections;
  18546.     property Paragraphs: Paragraphs read Get_Paragraphs;
  18547.     property Words: Words read Get_Words;
  18548.     property Sentences: Sentences read Get_Sentences;
  18549.     property Characters: Characters read Get_Characters;
  18550.     property Fields: Fields read Get_Fields;
  18551.     property FormFields: FormFields read Get_FormFields;
  18552.     property Styles: Styles read Get_Styles;
  18553.     property Frames: Frames read Get_Frames;
  18554.     property TablesOfFigures: TablesOfFigures read Get_TablesOfFigures;
  18555.     property Variables: Variables read Get_Variables;
  18556.     property MailMerge: MailMerge read Get_MailMerge;
  18557.     property Envelope: Envelope read Get_Envelope;
  18558.     property FullName: WideString read Get_FullName;
  18559.     property Revisions: Revisions read Get_Revisions;
  18560.     property TablesOfContents: TablesOfContents read Get_TablesOfContents;
  18561.     property TablesOfAuthorities: TablesOfAuthorities read Get_TablesOfAuthorities;
  18562.     property Windows: Windows read Get_Windows;
  18563.     property RoutingSlip: RoutingSlip read Get_RoutingSlip;
  18564.     property Routed: WordBool read Get_Routed;
  18565.     property TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories read Get_TablesOfAuthoritiesCategories;
  18566.     property Indexes: Indexes read Get_Indexes;
  18567.     property Content: Range read Get_Content;
  18568.     property ActiveWindow: Window read Get_ActiveWindow;
  18569.     property ReadOnly: WordBool read Get_ReadOnly;
  18570.     property Subdocuments: Subdocuments read Get_Subdocuments;
  18571.     property IsMasterDocument: WordBool read Get_IsMasterDocument;
  18572.     property Compatibility[Type_: WdCompatibility]: WordBool read Get_Compatibility write Set_Compatibility;
  18573.     property StoryRanges: StoryRanges read Get_StoryRanges;
  18574.     property CommandBars: CommandBars read Get_CommandBars;
  18575.     property IsSubdocument: WordBool read Get_IsSubdocument;
  18576.     property SaveFormat: Integer read Get_SaveFormat;
  18577.     property ProtectionType: WdProtectionType read Get_ProtectionType;
  18578.     property Hyperlinks: Hyperlinks read Get_Hyperlinks;
  18579.     property Shapes: Shapes read Get_Shapes;
  18580.     property ListTemplates: ListTemplates read Get_ListTemplates;
  18581.     property Lists: Lists read Get_Lists;
  18582.     property InlineShapes: InlineShapes read Get_InlineShapes;
  18583.     property Versions: Versions read Get_Versions;
  18584.     property Container: IDispatch read Get_Container;
  18585.     property ListParagraphs: ListParagraphs read Get_ListParagraphs;
  18586.     property Password: WideString write Set_Password;
  18587.     property WritePassword: WideString write Set_WritePassword;
  18588.     property HasPassword: WordBool read Get_HasPassword;
  18589.     property WriteReserved: WordBool read Get_WriteReserved;
  18590.     property ActiveWritingStyle[var LanguageID: OleVariant]: WideString read Get_ActiveWritingStyle write Set_ActiveWritingStyle;
  18591.     property Mailer: Mailer read Get_Mailer;
  18592.     property ReadabilityStatistics: ReadabilityStatistics read Get_ReadabilityStatistics;
  18593.     property GrammaticalErrors: ProofreadingErrors read Get_GrammaticalErrors;
  18594.     property SpellingErrors: ProofreadingErrors read Get_SpellingErrors;
  18595.     property VBProject: VBProject read Get_VBProject;
  18596.     property FormsDesign: WordBool read Get_FormsDesign;
  18597.     property CodeName: WideString read Get_CodeName;
  18598.     property SnapToGrid: WordBool read Get_SnapToGrid write Set_SnapToGrid;
  18599.     property SnapToShapes: WordBool read Get_SnapToShapes write Set_SnapToShapes;
  18600.     property GridDistanceHorizontal: Single read Get_GridDistanceHorizontal write Set_GridDistanceHorizontal;
  18601.     property GridDistanceVertical: Single read Get_GridDistanceVertical write Set_GridDistanceVertical;
  18602.     property GridOriginHorizontal: Single read Get_GridOriginHorizontal write Set_GridOriginHorizontal;
  18603.     property GridOriginVertical: Single read Get_GridOriginVertical write Set_GridOriginVertical;
  18604.     property GridSpaceBetweenHorizontalLines: Integer read Get_GridSpaceBetweenHorizontalLines write Set_GridSpaceBetweenHorizontalLines;
  18605.     property GridSpaceBetweenVerticalLines: Integer read Get_GridSpaceBetweenVerticalLines write Set_GridSpaceBetweenVerticalLines;
  18606.     property GridOriginFromMargin: WordBool read Get_GridOriginFromMargin write Set_GridOriginFromMargin;
  18607.     property KerningByAlgorithm: WordBool read Get_KerningByAlgorithm write Set_KerningByAlgorithm;
  18608.     property JustificationMode: WdJustificationMode read Get_JustificationMode write Set_JustificationMode;
  18609.     property FarEastLineBreakLevel: WdFarEastLineBreakLevel read Get_FarEastLineBreakLevel write Set_FarEastLineBreakLevel;
  18610.     property NoLineBreakBefore: WideString read Get_NoLineBreakBefore write Set_NoLineBreakBefore;
  18611.     property NoLineBreakAfter: WideString read Get_NoLineBreakAfter write Set_NoLineBreakAfter;
  18612.     property AutoHyphenation: WordBool read Get_AutoHyphenation write Set_AutoHyphenation;
  18613.     property HyphenateCaps: WordBool read Get_HyphenateCaps write Set_HyphenateCaps;
  18614.     property HyphenationZone: Integer read Get_HyphenationZone write Set_HyphenationZone;
  18615.     property ConsecutiveHyphensLimit: Integer read Get_ConsecutiveHyphensLimit write Set_ConsecutiveHyphensLimit;
  18616.     property PageSetup: PageSetup read Get_PageSetup write Set_PageSetup;
  18617.     property HasRoutingSlip: WordBool read Get_HasRoutingSlip write Set_HasRoutingSlip;
  18618.     property Saved: WordBool read Get_Saved write Set_Saved;
  18619.     property Kind: WdDocumentKind read Get_Kind write Set_Kind;
  18620.     property DefaultTabStop: Single read Get_DefaultTabStop write Set_DefaultTabStop;
  18621.     property EmbedTrueTypeFonts: WordBool read Get_EmbedTrueTypeFonts write Set_EmbedTrueTypeFonts;
  18622.     property SaveFormsData: WordBool read Get_SaveFormsData write Set_SaveFormsData;
  18623.     property ReadOnlyRecommended: WordBool read Get_ReadOnlyRecommended write Set_ReadOnlyRecommended;
  18624.     property SaveSubsetFonts: WordBool read Get_SaveSubsetFonts write Set_SaveSubsetFonts;
  18625.     property UpdateStylesOnOpen: WordBool read Get_UpdateStylesOnOpen write Set_UpdateStylesOnOpen;
  18626.     property Background: Shape read Get_Background write Set_Background;
  18627.     property GrammarChecked: WordBool read Get_GrammarChecked write Set_GrammarChecked;
  18628.     property SpellingChecked: WordBool read Get_SpellingChecked write Set_SpellingChecked;
  18629.     property ShowGrammaticalErrors: WordBool read Get_ShowGrammaticalErrors write Set_ShowGrammaticalErrors;
  18630.     property ShowSpellingErrors: WordBool read Get_ShowSpellingErrors write Set_ShowSpellingErrors;
  18631.     property ShowSummary: WordBool read Get_ShowSummary write Set_ShowSummary;
  18632.     property SummaryViewMode: WdSummaryMode read Get_SummaryViewMode write Set_SummaryViewMode;
  18633.     property SummaryLength: Integer read Get_SummaryLength write Set_SummaryLength;
  18634.     property PrintFractionalWidths: WordBool read Get_PrintFractionalWidths write Set_PrintFractionalWidths;
  18635.     property PrintPostScriptOverText: WordBool read Get_PrintPostScriptOverText write Set_PrintPostScriptOverText;
  18636.     property PrintFormsData: WordBool read Get_PrintFormsData write Set_PrintFormsData;
  18637.     property UserControl: WordBool read Get_UserControl write Set_UserControl;
  18638.     property HasMailer: WordBool read Get_HasMailer write Set_HasMailer;
  18639.     property _CodeName: WideString read Get__CodeName write Set__CodeName;
  18640.     property TrackRevisions: WordBool read Get_TrackRevisions write Set_TrackRevisions;
  18641.     property PrintRevisions: WordBool read Get_PrintRevisions write Set_PrintRevisions;
  18642.     property ShowRevisions: WordBool read Get_ShowRevisions write Set_ShowRevisions;
  18643.   published
  18644. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  18645.     property Server: TWordDocumentProperties read GetServerProperties;
  18646. {$ENDIF}
  18647.     property OnNew: TNotifyEvent read FOnNew write FOnNew;
  18648.     property OnOpen: TNotifyEvent read FOnOpen write FOnOpen;
  18649.     property OnClose: TNotifyEvent read FOnClose write FOnClose;
  18650.   end;
  18651.  
  18652. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  18653. // *********************************************************************//
  18654. // OLE Server Properties Proxy Class
  18655. // Server Object    : TWordDocument
  18656. // (This object is used by the IDE's Property Inspector to allow editing
  18657. //  of the properties of this server)
  18658. // *********************************************************************//
  18659.  TWordDocumentProperties = class(TPersistent)
  18660.   private
  18661.     FServer:    TWordDocument;
  18662.     function    GetDefaultInterface: _Document;
  18663.     constructor Create(AServer: TWordDocument);
  18664.   protected
  18665.     function  Get_Name: WideString;
  18666.     function  Get_Application: WordApplication;
  18667.     function  Get_Creator: Integer;
  18668.     function  Get_Parent: IDispatch;
  18669.     function  Get_BuiltInDocumentProperties: IDispatch;
  18670.     function  Get_CustomDocumentProperties: IDispatch;
  18671.     function  Get_Path: WideString;
  18672.     function  Get_Bookmarks: Bookmarks;
  18673.     function  Get_Tables: Tables;
  18674.     function  Get_Footnotes: Footnotes;
  18675.     function  Get_Endnotes: Endnotes;
  18676.     function  Get_Comments: Comments;
  18677.     function  Get_Type_: WdDocumentType;
  18678.     function  Get_AutoHyphenation: WordBool;
  18679.     procedure Set_AutoHyphenation(prop: WordBool);
  18680.     function  Get_HyphenateCaps: WordBool;
  18681.     procedure Set_HyphenateCaps(prop: WordBool);
  18682.     function  Get_HyphenationZone: Integer;
  18683.     procedure Set_HyphenationZone(prop: Integer);
  18684.     function  Get_ConsecutiveHyphensLimit: Integer;
  18685.     procedure Set_ConsecutiveHyphensLimit(prop: Integer);
  18686.     function  Get_Sections: Sections;
  18687.     function  Get_Paragraphs: Paragraphs;
  18688.     function  Get_Words: Words;
  18689.     function  Get_Sentences: Sentences;
  18690.     function  Get_Characters: Characters;
  18691.     function  Get_Fields: Fields;
  18692.     function  Get_FormFields: FormFields;
  18693.     function  Get_Styles: Styles;
  18694.     function  Get_Frames: Frames;
  18695.     function  Get_TablesOfFigures: TablesOfFigures;
  18696.     function  Get_Variables: Variables;
  18697.     function  Get_MailMerge: MailMerge;
  18698.     function  Get_Envelope: Envelope;
  18699.     function  Get_FullName: WideString;
  18700.     function  Get_Revisions: Revisions;
  18701.     function  Get_TablesOfContents: TablesOfContents;
  18702.     function  Get_TablesOfAuthorities: TablesOfAuthorities;
  18703.     function  Get_PageSetup: PageSetup;
  18704.     procedure Set_PageSetup(const prop: PageSetup);
  18705.     function  Get_Windows: Windows;
  18706.     function  Get_HasRoutingSlip: WordBool;
  18707.     procedure Set_HasRoutingSlip(prop: WordBool);
  18708.     function  Get_RoutingSlip: RoutingSlip;
  18709.     function  Get_Routed: WordBool;
  18710.     function  Get_TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories;
  18711.     function  Get_Indexes: Indexes;
  18712.     function  Get_Saved: WordBool;
  18713.     procedure Set_Saved(prop: WordBool);
  18714.     function  Get_Content: Range;
  18715.     function  Get_ActiveWindow: Window;
  18716.     function  Get_Kind: WdDocumentKind;
  18717.     procedure Set_Kind(prop: WdDocumentKind);
  18718.     function  Get_ReadOnly: WordBool;
  18719.     function  Get_Subdocuments: Subdocuments;
  18720.     function  Get_IsMasterDocument: WordBool;
  18721.     function  Get_DefaultTabStop: Single;
  18722.     procedure Set_DefaultTabStop(prop: Single);
  18723.     function  Get_EmbedTrueTypeFonts: WordBool;
  18724.     procedure Set_EmbedTrueTypeFonts(prop: WordBool);
  18725.     function  Get_SaveFormsData: WordBool;
  18726.     procedure Set_SaveFormsData(prop: WordBool);
  18727.     function  Get_ReadOnlyRecommended: WordBool;
  18728.     procedure Set_ReadOnlyRecommended(prop: WordBool);
  18729.     function  Get_SaveSubsetFonts: WordBool;
  18730.     procedure Set_SaveSubsetFonts(prop: WordBool);
  18731.     function  Get_Compatibility(Type_: WdCompatibility): WordBool;
  18732.     procedure Set_Compatibility(Type_: WdCompatibility; prop: WordBool);
  18733.     function  Get_StoryRanges: StoryRanges;
  18734.     function  Get_CommandBars: CommandBars;
  18735.     function  Get_IsSubdocument: WordBool;
  18736.     function  Get_SaveFormat: Integer;
  18737.     function  Get_ProtectionType: WdProtectionType;
  18738.     function  Get_Hyperlinks: Hyperlinks;
  18739.     function  Get_Shapes: Shapes;
  18740.     function  Get_ListTemplates: ListTemplates;
  18741.     function  Get_Lists: Lists;
  18742.     function  Get_UpdateStylesOnOpen: WordBool;
  18743.     procedure Set_UpdateStylesOnOpen(prop: WordBool);
  18744.     function  Get_AttachedTemplate: OleVariant;
  18745.     procedure Set_AttachedTemplate(var prop: OleVariant);
  18746.     function  Get_InlineShapes: InlineShapes;
  18747.     function  Get_Background: Shape;
  18748.     procedure Set_Background(const prop: Shape);
  18749.     function  Get_GrammarChecked: WordBool;
  18750.     procedure Set_GrammarChecked(prop: WordBool);
  18751.     function  Get_SpellingChecked: WordBool;
  18752.     procedure Set_SpellingChecked(prop: WordBool);
  18753.     function  Get_ShowGrammaticalErrors: WordBool;
  18754.     procedure Set_ShowGrammaticalErrors(prop: WordBool);
  18755.     function  Get_ShowSpellingErrors: WordBool;
  18756.     procedure Set_ShowSpellingErrors(prop: WordBool);
  18757.     function  Get_Versions: Versions;
  18758.     function  Get_ShowSummary: WordBool;
  18759.     procedure Set_ShowSummary(prop: WordBool);
  18760.     function  Get_SummaryViewMode: WdSummaryMode;
  18761.     procedure Set_SummaryViewMode(prop: WdSummaryMode);
  18762.     function  Get_SummaryLength: Integer;
  18763.     procedure Set_SummaryLength(prop: Integer);
  18764.     function  Get_PrintFractionalWidths: WordBool;
  18765.     procedure Set_PrintFractionalWidths(prop: WordBool);
  18766.     function  Get_PrintPostScriptOverText: WordBool;
  18767.     procedure Set_PrintPostScriptOverText(prop: WordBool);
  18768.     function  Get_Container: IDispatch;
  18769.     function  Get_PrintFormsData: WordBool;
  18770.     procedure Set_PrintFormsData(prop: WordBool);
  18771.     function  Get_ListParagraphs: ListParagraphs;
  18772.     procedure Set_Password(const Param1: WideString);
  18773.     procedure Set_WritePassword(const Param1: WideString);
  18774.     function  Get_HasPassword: WordBool;
  18775.     function  Get_WriteReserved: WordBool;
  18776.     function  Get_ActiveWritingStyle(var LanguageID: OleVariant): WideString;
  18777.     procedure Set_ActiveWritingStyle(var LanguageID: OleVariant; const prop: WideString);
  18778.     function  Get_UserControl: WordBool;
  18779.     procedure Set_UserControl(prop: WordBool);
  18780.     function  Get_HasMailer: WordBool;
  18781.     procedure Set_HasMailer(prop: WordBool);
  18782.     function  Get_Mailer: Mailer;
  18783.     function  Get_ReadabilityStatistics: ReadabilityStatistics;
  18784.     function  Get_GrammaticalErrors: ProofreadingErrors;
  18785.     function  Get_SpellingErrors: ProofreadingErrors;
  18786.     function  Get_VBProject: VBProject;
  18787.     function  Get_FormsDesign: WordBool;
  18788.     function  Get__CodeName: WideString;
  18789.     procedure Set__CodeName(const prop: WideString);
  18790.     function  Get_CodeName: WideString;
  18791.     function  Get_SnapToGrid: WordBool;
  18792.     procedure Set_SnapToGrid(prop: WordBool);
  18793.     function  Get_SnapToShapes: WordBool;
  18794.     procedure Set_SnapToShapes(prop: WordBool);
  18795.     function  Get_GridDistanceHorizontal: Single;
  18796.     procedure Set_GridDistanceHorizontal(prop: Single);
  18797.     function  Get_GridDistanceVertical: Single;
  18798.     procedure Set_GridDistanceVertical(prop: Single);
  18799.     function  Get_GridOriginHorizontal: Single;
  18800.     procedure Set_GridOriginHorizontal(prop: Single);
  18801.     function  Get_GridOriginVertical: Single;
  18802.     procedure Set_GridOriginVertical(prop: Single);
  18803.     function  Get_GridSpaceBetweenHorizontalLines: Integer;
  18804.     procedure Set_GridSpaceBetweenHorizontalLines(prop: Integer);
  18805.     function  Get_GridSpaceBetweenVerticalLines: Integer;
  18806.     procedure Set_GridSpaceBetweenVerticalLines(prop: Integer);
  18807.     function  Get_GridOriginFromMargin: WordBool;
  18808.     procedure Set_GridOriginFromMargin(prop: WordBool);
  18809.     function  Get_KerningByAlgorithm: WordBool;
  18810.     procedure Set_KerningByAlgorithm(prop: WordBool);
  18811.     function  Get_JustificationMode: WdJustificationMode;
  18812.     procedure Set_JustificationMode(prop: WdJustificationMode);
  18813.     function  Get_FarEastLineBreakLevel: WdFarEastLineBreakLevel;
  18814.     procedure Set_FarEastLineBreakLevel(prop: WdFarEastLineBreakLevel);
  18815.     function  Get_NoLineBreakBefore: WideString;
  18816.     procedure Set_NoLineBreakBefore(const prop: WideString);
  18817.     function  Get_NoLineBreakAfter: WideString;
  18818.     procedure Set_NoLineBreakAfter(const prop: WideString);
  18819.     function  Get_TrackRevisions: WordBool;
  18820.     procedure Set_TrackRevisions(prop: WordBool);
  18821.     function  Get_PrintRevisions: WordBool;
  18822.     procedure Set_PrintRevisions(prop: WordBool);
  18823.     function  Get_ShowRevisions: WordBool;
  18824.     procedure Set_ShowRevisions(prop: WordBool);
  18825.   public
  18826.     property DefaultInterface: _Document read GetDefaultInterface;
  18827.   published
  18828.     property AutoHyphenation: WordBool read Get_AutoHyphenation write Set_AutoHyphenation;
  18829.     property HyphenateCaps: WordBool read Get_HyphenateCaps write Set_HyphenateCaps;
  18830.     property HyphenationZone: Integer read Get_HyphenationZone write Set_HyphenationZone;
  18831.     property ConsecutiveHyphensLimit: Integer read Get_ConsecutiveHyphensLimit write Set_ConsecutiveHyphensLimit;
  18832.     property PageSetup: PageSetup read Get_PageSetup write Set_PageSetup;
  18833.     property HasRoutingSlip: WordBool read Get_HasRoutingSlip write Set_HasRoutingSlip;
  18834.     property Saved: WordBool read Get_Saved write Set_Saved;
  18835.     property Kind: WdDocumentKind read Get_Kind write Set_Kind;
  18836.     property DefaultTabStop: Single read Get_DefaultTabStop write Set_DefaultTabStop;
  18837.     property EmbedTrueTypeFonts: WordBool read Get_EmbedTrueTypeFonts write Set_EmbedTrueTypeFonts;
  18838.     property SaveFormsData: WordBool read Get_SaveFormsData write Set_SaveFormsData;
  18839.     property ReadOnlyRecommended: WordBool read Get_ReadOnlyRecommended write Set_ReadOnlyRecommended;
  18840.     property SaveSubsetFonts: WordBool read Get_SaveSubsetFonts write Set_SaveSubsetFonts;
  18841.     property UpdateStylesOnOpen: WordBool read Get_UpdateStylesOnOpen write Set_UpdateStylesOnOpen;
  18842.     property Background: Shape read Get_Background write Set_Background;
  18843.     property GrammarChecked: WordBool read Get_GrammarChecked write Set_GrammarChecked;
  18844.     property SpellingChecked: WordBool read Get_SpellingChecked write Set_SpellingChecked;
  18845.     property ShowGrammaticalErrors: WordBool read Get_ShowGrammaticalErrors write Set_ShowGrammaticalErrors;
  18846.     property ShowSpellingErrors: WordBool read Get_ShowSpellingErrors write Set_ShowSpellingErrors;
  18847.     property ShowSummary: WordBool read Get_ShowSummary write Set_ShowSummary;
  18848.     property SummaryViewMode: WdSummaryMode read Get_SummaryViewMode write Set_SummaryViewMode;
  18849.     property SummaryLength: Integer read Get_SummaryLength write Set_SummaryLength;
  18850.     property PrintFractionalWidths: WordBool read Get_PrintFractionalWidths write Set_PrintFractionalWidths;
  18851.     property PrintPostScriptOverText: WordBool read Get_PrintPostScriptOverText write Set_PrintPostScriptOverText;
  18852.     property PrintFormsData: WordBool read Get_PrintFormsData write Set_PrintFormsData;
  18853.     property UserControl: WordBool read Get_UserControl write Set_UserControl;
  18854.     property HasMailer: WordBool read Get_HasMailer write Set_HasMailer;
  18855.     property _CodeName: WideString read Get__CodeName write Set__CodeName;
  18856.     property TrackRevisions: WordBool read Get_TrackRevisions write Set_TrackRevisions;
  18857.     property PrintRevisions: WordBool read Get_PrintRevisions write Set_PrintRevisions;
  18858.     property ShowRevisions: WordBool read Get_ShowRevisions write Set_ShowRevisions;
  18859.   end;
  18860. {$ENDIF}
  18861.  
  18862.  
  18863. // *********************************************************************//
  18864. // The Class CoWordFont provides a Create and CreateRemote method to          
  18865. // create instances of the default interface _Font exposed by              
  18866. // the CoClass WordFont. The functions are intended to be used by             
  18867. // clients wishing to automate the CoClass objects exposed by the         
  18868. // server of this typelibrary.                                            
  18869. // *********************************************************************//
  18870.   CoWordFont = class
  18871.     class function Create: _Font;
  18872.     class function CreateRemote(const MachineName: string): _Font;
  18873.   end;
  18874.  
  18875.  
  18876. // *********************************************************************//
  18877. // OLE Server Proxy class declaration
  18878. // Server Object    : TWordFont
  18879. // Help String      : 
  18880. // Default Interface: _Font
  18881. // Def. Intf. DISP? : No
  18882. // Event   Interface: 
  18883. // TypeFlags        : (2) CanCreate
  18884. // *********************************************************************//
  18885. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  18886.   TWordFontProperties= class;
  18887. {$ENDIF}
  18888.   TWordFont = class(TOleServer)
  18889.   private
  18890.     FIntf:        _Font;
  18891. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  18892.     FProps:       TWordFontProperties;
  18893.     function      GetServerProperties: TWordFontProperties;
  18894. {$ENDIF}
  18895.     function      GetDefaultInterface: _Font;
  18896.   protected
  18897.     procedure InitServerData; override;
  18898.     function  Get_Application: WordApplication;
  18899.     function  Get_Creator: Integer;
  18900.     function  Get_Parent: IDispatch;
  18901.     function  Get_Duplicate: WordFont;
  18902.     function  Get_Bold: Integer;
  18903.     procedure Set_Bold(prop: Integer);
  18904.     function  Get_Italic: Integer;
  18905.     procedure Set_Italic(prop: Integer);
  18906.     function  Get_Hidden: Integer;
  18907.     procedure Set_Hidden(prop: Integer);
  18908.     function  Get_SmallCaps: Integer;
  18909.     procedure Set_SmallCaps(prop: Integer);
  18910.     function  Get_AllCaps: Integer;
  18911.     procedure Set_AllCaps(prop: Integer);
  18912.     function  Get_StrikeThrough: Integer;
  18913.     procedure Set_StrikeThrough(prop: Integer);
  18914.     function  Get_DoubleStrikeThrough: Integer;
  18915.     procedure Set_DoubleStrikeThrough(prop: Integer);
  18916.     function  Get_ColorIndex: WdColorIndex;
  18917.     procedure Set_ColorIndex(prop: WdColorIndex);
  18918.     function  Get_Subscript: Integer;
  18919.     procedure Set_Subscript(prop: Integer);
  18920.     function  Get_Superscript: Integer;
  18921.     procedure Set_Superscript(prop: Integer);
  18922.     function  Get_Underline: WdUnderline;
  18923.     procedure Set_Underline(prop: WdUnderline);
  18924.     function  Get_Size: Single;
  18925.     procedure Set_Size(prop: Single);
  18926.     function  Get_Name: WideString;
  18927.     procedure Set_Name(const prop: WideString);
  18928.     function  Get_Position: Integer;
  18929.     procedure Set_Position(prop: Integer);
  18930.     function  Get_Spacing: Single;
  18931.     procedure Set_Spacing(prop: Single);
  18932.     function  Get_Scaling: Integer;
  18933.     procedure Set_Scaling(prop: Integer);
  18934.     function  Get_Shadow: Integer;
  18935.     procedure Set_Shadow(prop: Integer);
  18936.     function  Get_Outline: Integer;
  18937.     procedure Set_Outline(prop: Integer);
  18938.     function  Get_Emboss: Integer;
  18939.     procedure Set_Emboss(prop: Integer);
  18940.     function  Get_Kerning: Single;
  18941.     procedure Set_Kerning(prop: Single);
  18942.     function  Get_Engrave: Integer;
  18943.     procedure Set_Engrave(prop: Integer);
  18944.     function  Get_Animation: WdAnimation;
  18945.     procedure Set_Animation(prop: WdAnimation);
  18946.     function  Get_Borders: Borders;
  18947.     procedure Set_Borders(const prop: Borders);
  18948.     function  Get_Shading: Shading;
  18949.     function  Get_EmphasisMark: WdEmphasisMark;
  18950.     procedure Set_EmphasisMark(prop: WdEmphasisMark);
  18951.     function  Get_DisableCharacterSpaceGrid: WordBool;
  18952.     procedure Set_DisableCharacterSpaceGrid(prop: WordBool);
  18953.     function  Get_NameFarEast: WideString;
  18954.     procedure Set_NameFarEast(const prop: WideString);
  18955.     function  Get_NameAscii: WideString;
  18956.     procedure Set_NameAscii(const prop: WideString);
  18957.     function  Get_NameOther: WideString;
  18958.     procedure Set_NameOther(const prop: WideString);
  18959.   public
  18960.     constructor Create(AOwner: TComponent); override;
  18961.     destructor  Destroy; override;
  18962.     procedure Connect; override;
  18963.     procedure ConnectTo(svrIntf: _Font);
  18964.     procedure Disconnect; override;
  18965.     procedure Grow;
  18966.     procedure Shrink;
  18967.     procedure Reset;
  18968.     procedure SetAsTemplateDefault;
  18969.     property  DefaultInterface: _Font read GetDefaultInterface;
  18970.     property Application: WordApplication read Get_Application;
  18971.     property Creator: Integer read Get_Creator;
  18972.     property Parent: IDispatch read Get_Parent;
  18973.     property Duplicate: WordFont read Get_Duplicate;
  18974.     property Shading: Shading read Get_Shading;
  18975.     property EmphasisMark: WdEmphasisMark read Get_EmphasisMark write Set_EmphasisMark;
  18976.     property DisableCharacterSpaceGrid: WordBool read Get_DisableCharacterSpaceGrid write Set_DisableCharacterSpaceGrid;
  18977.     property Bold: Integer read Get_Bold write Set_Bold;
  18978.     property Italic: Integer read Get_Italic write Set_Italic;
  18979.     property Hidden: Integer read Get_Hidden write Set_Hidden;
  18980.     property SmallCaps: Integer read Get_SmallCaps write Set_SmallCaps;
  18981.     property AllCaps: Integer read Get_AllCaps write Set_AllCaps;
  18982.     property StrikeThrough: Integer read Get_StrikeThrough write Set_StrikeThrough;
  18983.     property DoubleStrikeThrough: Integer read Get_DoubleStrikeThrough write Set_DoubleStrikeThrough;
  18984.     property ColorIndex: WdColorIndex read Get_ColorIndex write Set_ColorIndex;
  18985.     property Subscript: Integer read Get_Subscript write Set_Subscript;
  18986.     property Superscript: Integer read Get_Superscript write Set_Superscript;
  18987.     property Underline: WdUnderline read Get_Underline write Set_Underline;
  18988.     property Size: Single read Get_Size write Set_Size;
  18989.     property Name: WideString read Get_Name write Set_Name;
  18990.     property Position: Integer read Get_Position write Set_Position;
  18991.     property Spacing: Single read Get_Spacing write Set_Spacing;
  18992.     property Scaling: Integer read Get_Scaling write Set_Scaling;
  18993.     property Shadow: Integer read Get_Shadow write Set_Shadow;
  18994.     property Outline: Integer read Get_Outline write Set_Outline;
  18995.     property Emboss: Integer read Get_Emboss write Set_Emboss;
  18996.     property Kerning: Single read Get_Kerning write Set_Kerning;
  18997.     property Engrave: Integer read Get_Engrave write Set_Engrave;
  18998.     property Animation: WdAnimation read Get_Animation write Set_Animation;
  18999.     property Borders: Borders read Get_Borders write Set_Borders;
  19000.     property NameFarEast: WideString read Get_NameFarEast write Set_NameFarEast;
  19001.     property NameAscii: WideString read Get_NameAscii write Set_NameAscii;
  19002.     property NameOther: WideString read Get_NameOther write Set_NameOther;
  19003.   published
  19004. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  19005.     property Server: TWordFontProperties read GetServerProperties;
  19006. {$ENDIF}
  19007.   end;
  19008.  
  19009. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  19010. // *********************************************************************//
  19011. // OLE Server Properties Proxy Class
  19012. // Server Object    : TWordFont
  19013. // (This object is used by the IDE's Property Inspector to allow editing
  19014. //  of the properties of this server)
  19015. // *********************************************************************//
  19016.  TWordFontProperties = class(TPersistent)
  19017.   private
  19018.     FServer:    TWordFont;
  19019.     function    GetDefaultInterface: _Font;
  19020.     constructor Create(AServer: TWordFont);
  19021.   protected
  19022.     function  Get_Application: WordApplication;
  19023.     function  Get_Creator: Integer;
  19024.     function  Get_Parent: IDispatch;
  19025.     function  Get_Duplicate: WordFont;
  19026.     function  Get_Bold: Integer;
  19027.     procedure Set_Bold(prop: Integer);
  19028.     function  Get_Italic: Integer;
  19029.     procedure Set_Italic(prop: Integer);
  19030.     function  Get_Hidden: Integer;
  19031.     procedure Set_Hidden(prop: Integer);
  19032.     function  Get_SmallCaps: Integer;
  19033.     procedure Set_SmallCaps(prop: Integer);
  19034.     function  Get_AllCaps: Integer;
  19035.     procedure Set_AllCaps(prop: Integer);
  19036.     function  Get_StrikeThrough: Integer;
  19037.     procedure Set_StrikeThrough(prop: Integer);
  19038.     function  Get_DoubleStrikeThrough: Integer;
  19039.     procedure Set_DoubleStrikeThrough(prop: Integer);
  19040.     function  Get_ColorIndex: WdColorIndex;
  19041.     procedure Set_ColorIndex(prop: WdColorIndex);
  19042.     function  Get_Subscript: Integer;
  19043.     procedure Set_Subscript(prop: Integer);
  19044.     function  Get_Superscript: Integer;
  19045.     procedure Set_Superscript(prop: Integer);
  19046.     function  Get_Underline: WdUnderline;
  19047.     procedure Set_Underline(prop: WdUnderline);
  19048.     function  Get_Size: Single;
  19049.     procedure Set_Size(prop: Single);
  19050.     function  Get_Name: WideString;
  19051.     procedure Set_Name(const prop: WideString);
  19052.     function  Get_Position: Integer;
  19053.     procedure Set_Position(prop: Integer);
  19054.     function  Get_Spacing: Single;
  19055.     procedure Set_Spacing(prop: Single);
  19056.     function  Get_Scaling: Integer;
  19057.     procedure Set_Scaling(prop: Integer);
  19058.     function  Get_Shadow: Integer;
  19059.     procedure Set_Shadow(prop: Integer);
  19060.     function  Get_Outline: Integer;
  19061.     procedure Set_Outline(prop: Integer);
  19062.     function  Get_Emboss: Integer;
  19063.     procedure Set_Emboss(prop: Integer);
  19064.     function  Get_Kerning: Single;
  19065.     procedure Set_Kerning(prop: Single);
  19066.     function  Get_Engrave: Integer;
  19067.     procedure Set_Engrave(prop: Integer);
  19068.     function  Get_Animation: WdAnimation;
  19069.     procedure Set_Animation(prop: WdAnimation);
  19070.     function  Get_Borders: Borders;
  19071.     procedure Set_Borders(const prop: Borders);
  19072.     function  Get_Shading: Shading;
  19073.     function  Get_EmphasisMark: WdEmphasisMark;
  19074.     procedure Set_EmphasisMark(prop: WdEmphasisMark);
  19075.     function  Get_DisableCharacterSpaceGrid: WordBool;
  19076.     procedure Set_DisableCharacterSpaceGrid(prop: WordBool);
  19077.     function  Get_NameFarEast: WideString;
  19078.     procedure Set_NameFarEast(const prop: WideString);
  19079.     function  Get_NameAscii: WideString;
  19080.     procedure Set_NameAscii(const prop: WideString);
  19081.     function  Get_NameOther: WideString;
  19082.     procedure Set_NameOther(const prop: WideString);
  19083.   public
  19084.     property DefaultInterface: _Font read GetDefaultInterface;
  19085.   published
  19086.     property Bold: Integer read Get_Bold write Set_Bold;
  19087.     property Italic: Integer read Get_Italic write Set_Italic;
  19088.     property Hidden: Integer read Get_Hidden write Set_Hidden;
  19089.     property SmallCaps: Integer read Get_SmallCaps write Set_SmallCaps;
  19090.     property AllCaps: Integer read Get_AllCaps write Set_AllCaps;
  19091.     property StrikeThrough: Integer read Get_StrikeThrough write Set_StrikeThrough;
  19092.     property DoubleStrikeThrough: Integer read Get_DoubleStrikeThrough write Set_DoubleStrikeThrough;
  19093.     property ColorIndex: WdColorIndex read Get_ColorIndex write Set_ColorIndex;
  19094.     property Subscript: Integer read Get_Subscript write Set_Subscript;
  19095.     property Superscript: Integer read Get_Superscript write Set_Superscript;
  19096.     property Underline: WdUnderline read Get_Underline write Set_Underline;
  19097.     property Size: Single read Get_Size write Set_Size;
  19098.     property Name: WideString read Get_Name write Set_Name;
  19099.     property Position: Integer read Get_Position write Set_Position;
  19100.     property Spacing: Single read Get_Spacing write Set_Spacing;
  19101.     property Scaling: Integer read Get_Scaling write Set_Scaling;
  19102.     property Shadow: Integer read Get_Shadow write Set_Shadow;
  19103.     property Outline: Integer read Get_Outline write Set_Outline;
  19104.     property Emboss: Integer read Get_Emboss write Set_Emboss;
  19105.     property Kerning: Single read Get_Kerning write Set_Kerning;
  19106.     property Engrave: Integer read Get_Engrave write Set_Engrave;
  19107.     property Animation: WdAnimation read Get_Animation write Set_Animation;
  19108.     property Borders: Borders read Get_Borders write Set_Borders;
  19109.     property NameFarEast: WideString read Get_NameFarEast write Set_NameFarEast;
  19110.     property NameAscii: WideString read Get_NameAscii write Set_NameAscii;
  19111.     property NameOther: WideString read Get_NameOther write Set_NameOther;
  19112.   end;
  19113. {$ENDIF}
  19114.  
  19115.  
  19116. // *********************************************************************//
  19117. // The Class CoWordParagraphFormat provides a Create and CreateRemote method to          
  19118. // create instances of the default interface _ParagraphFormat exposed by              
  19119. // the CoClass WordParagraphFormat. The functions are intended to be used by             
  19120. // clients wishing to automate the CoClass objects exposed by the         
  19121. // server of this typelibrary.                                            
  19122. // *********************************************************************//
  19123.   CoWordParagraphFormat = class
  19124.     class function Create: _ParagraphFormat;
  19125.     class function CreateRemote(const MachineName: string): _ParagraphFormat;
  19126.   end;
  19127.  
  19128.  
  19129. // *********************************************************************//
  19130. // OLE Server Proxy class declaration
  19131. // Server Object    : TWordParagraphFormat
  19132. // Help String      : 
  19133. // Default Interface: _ParagraphFormat
  19134. // Def. Intf. DISP? : No
  19135. // Event   Interface: 
  19136. // TypeFlags        : (2) CanCreate
  19137. // *********************************************************************//
  19138. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  19139.   TWordParagraphFormatProperties= class;
  19140. {$ENDIF}
  19141.   TWordParagraphFormat = class(TOleServer)
  19142.   private
  19143.     FIntf:        _ParagraphFormat;
  19144. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  19145.     FProps:       TWordParagraphFormatProperties;
  19146.     function      GetServerProperties: TWordParagraphFormatProperties;
  19147. {$ENDIF}
  19148.     function      GetDefaultInterface: _ParagraphFormat;
  19149.   protected
  19150.     procedure InitServerData; override;
  19151.     function  Get_Application: WordApplication;
  19152.     function  Get_Creator: Integer;
  19153.     function  Get_Parent: IDispatch;
  19154.     function  Get_Duplicate: WordParagraphFormat;
  19155.     function  Get_Style: OleVariant;
  19156.     procedure Set_Style(var prop: OleVariant);
  19157.     function  Get_Alignment: WdParagraphAlignment;
  19158.     procedure Set_Alignment(prop: WdParagraphAlignment);
  19159.     function  Get_KeepTogether: Integer;
  19160.     procedure Set_KeepTogether(prop: Integer);
  19161.     function  Get_KeepWithNext: Integer;
  19162.     procedure Set_KeepWithNext(prop: Integer);
  19163.     function  Get_PageBreakBefore: Integer;
  19164.     procedure Set_PageBreakBefore(prop: Integer);
  19165.     function  Get_NoLineNumber: Integer;
  19166.     procedure Set_NoLineNumber(prop: Integer);
  19167.     function  Get_RightIndent: Single;
  19168.     procedure Set_RightIndent(prop: Single);
  19169.     function  Get_LeftIndent: Single;
  19170.     procedure Set_LeftIndent(prop: Single);
  19171.     function  Get_FirstLineIndent: Single;
  19172.     procedure Set_FirstLineIndent(prop: Single);
  19173.     function  Get_LineSpacing: Single;
  19174.     procedure Set_LineSpacing(prop: Single);
  19175.     function  Get_LineSpacingRule: WdLineSpacing;
  19176.     procedure Set_LineSpacingRule(prop: WdLineSpacing);
  19177.     function  Get_SpaceBefore: Single;
  19178.     procedure Set_SpaceBefore(prop: Single);
  19179.     function  Get_SpaceAfter: Single;
  19180.     procedure Set_SpaceAfter(prop: Single);
  19181.     function  Get_Hyphenation: Integer;
  19182.     procedure Set_Hyphenation(prop: Integer);
  19183.     function  Get_WidowControl: Integer;
  19184.     procedure Set_WidowControl(prop: Integer);
  19185.     function  Get_FarEastLineBreakControl: Integer;
  19186.     procedure Set_FarEastLineBreakControl(prop: Integer);
  19187.     function  Get_WordWrap: Integer;
  19188.     procedure Set_WordWrap(prop: Integer);
  19189.     function  Get_HangingPunctuation: Integer;
  19190.     procedure Set_HangingPunctuation(prop: Integer);
  19191.     function  Get_HalfWidthPunctuationOnTopOfLine: Integer;
  19192.     procedure Set_HalfWidthPunctuationOnTopOfLine(prop: Integer);
  19193.     function  Get_AddSpaceBetweenFarEastAndAlpha: Integer;
  19194.     procedure Set_AddSpaceBetweenFarEastAndAlpha(prop: Integer);
  19195.     function  Get_AddSpaceBetweenFarEastAndDigit: Integer;
  19196.     procedure Set_AddSpaceBetweenFarEastAndDigit(prop: Integer);
  19197.     function  Get_BaseLineAlignment: WdBaselineAlignment;
  19198.     procedure Set_BaseLineAlignment(prop: WdBaselineAlignment);
  19199.     function  Get_AutoAdjustRightIndent: Integer;
  19200.     procedure Set_AutoAdjustRightIndent(prop: Integer);
  19201.     function  Get_DisableLineHeightGrid: Integer;
  19202.     procedure Set_DisableLineHeightGrid(prop: Integer);
  19203.     function  Get_TabStops: TabStops;
  19204.     procedure Set_TabStops(const prop: TabStops);
  19205.     function  Get_Borders: Borders;
  19206.     procedure Set_Borders(const prop: Borders);
  19207.     function  Get_Shading: Shading;
  19208.     function  Get_OutlineLevel: WdOutlineLevel;
  19209.     procedure Set_OutlineLevel(prop: WdOutlineLevel);
  19210.   public
  19211.     constructor Create(AOwner: TComponent); override;
  19212.     destructor  Destroy; override;
  19213.     procedure Connect; override;
  19214.     procedure ConnectTo(svrIntf: _ParagraphFormat);
  19215.     procedure Disconnect; override;
  19216.     procedure CloseUp;
  19217.     procedure OpenUp;
  19218.     procedure OpenOrCloseUp;
  19219.     procedure TabHangingIndent(Count: Smallint);
  19220.     procedure TabIndent(Count: Smallint);
  19221.     procedure Reset;
  19222.     procedure Space1;
  19223.     procedure Space15;
  19224.     procedure Space2;
  19225.     procedure IndentCharWidth(Count: Smallint);
  19226.     procedure IndentFirstLineCharWidth(Count: Smallint);
  19227.     property  DefaultInterface: _ParagraphFormat read GetDefaultInterface;
  19228.     property Application: WordApplication read Get_Application;
  19229.     property Creator: Integer read Get_Creator;
  19230.     property Parent: IDispatch read Get_Parent;
  19231.     property Duplicate: WordParagraphFormat read Get_Duplicate;
  19232.     property FarEastLineBreakControl: Integer read Get_FarEastLineBreakControl write Set_FarEastLineBreakControl;
  19233.     property WordWrap: Integer read Get_WordWrap write Set_WordWrap;
  19234.     property HangingPunctuation: Integer read Get_HangingPunctuation write Set_HangingPunctuation;
  19235.     property HalfWidthPunctuationOnTopOfLine: Integer read Get_HalfWidthPunctuationOnTopOfLine write Set_HalfWidthPunctuationOnTopOfLine;
  19236.     property AddSpaceBetweenFarEastAndAlpha: Integer read Get_AddSpaceBetweenFarEastAndAlpha write Set_AddSpaceBetweenFarEastAndAlpha;
  19237.     property AddSpaceBetweenFarEastAndDigit: Integer read Get_AddSpaceBetweenFarEastAndDigit write Set_AddSpaceBetweenFarEastAndDigit;
  19238.     property BaseLineAlignment: WdBaselineAlignment read Get_BaseLineAlignment write Set_BaseLineAlignment;
  19239.     property AutoAdjustRightIndent: Integer read Get_AutoAdjustRightIndent write Set_AutoAdjustRightIndent;
  19240.     property DisableLineHeightGrid: Integer read Get_DisableLineHeightGrid write Set_DisableLineHeightGrid;
  19241.     property Shading: Shading read Get_Shading;
  19242.     property Alignment: WdParagraphAlignment read Get_Alignment write Set_Alignment;
  19243.     property KeepTogether: Integer read Get_KeepTogether write Set_KeepTogether;
  19244.     property KeepWithNext: Integer read Get_KeepWithNext write Set_KeepWithNext;
  19245.     property PageBreakBefore: Integer read Get_PageBreakBefore write Set_PageBreakBefore;
  19246.     property NoLineNumber: Integer read Get_NoLineNumber write Set_NoLineNumber;
  19247.     property RightIndent: Single read Get_RightIndent write Set_RightIndent;
  19248.     property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
  19249.     property FirstLineIndent: Single read Get_FirstLineIndent write Set_FirstLineIndent;
  19250.     property LineSpacing: Single read Get_LineSpacing write Set_LineSpacing;
  19251.     property LineSpacingRule: WdLineSpacing read Get_LineSpacingRule write Set_LineSpacingRule;
  19252.     property SpaceBefore: Single read Get_SpaceBefore write Set_SpaceBefore;
  19253.     property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
  19254.     property Hyphenation: Integer read Get_Hyphenation write Set_Hyphenation;
  19255.     property WidowControl: Integer read Get_WidowControl write Set_WidowControl;
  19256.     property TabStops: TabStops read Get_TabStops write Set_TabStops;
  19257.     property Borders: Borders read Get_Borders write Set_Borders;
  19258.     property OutlineLevel: WdOutlineLevel read Get_OutlineLevel write Set_OutlineLevel;
  19259.   published
  19260. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  19261.     property Server: TWordParagraphFormatProperties read GetServerProperties;
  19262. {$ENDIF}
  19263.   end;
  19264.  
  19265. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  19266. // *********************************************************************//
  19267. // OLE Server Properties Proxy Class
  19268. // Server Object    : TWordParagraphFormat
  19269. // (This object is used by the IDE's Property Inspector to allow editing
  19270. //  of the properties of this server)
  19271. // *********************************************************************//
  19272.  TWordParagraphFormatProperties = class(TPersistent)
  19273.   private
  19274.     FServer:    TWordParagraphFormat;
  19275.     function    GetDefaultInterface: _ParagraphFormat;
  19276.     constructor Create(AServer: TWordParagraphFormat);
  19277.   protected
  19278.     function  Get_Application: WordApplication;
  19279.     function  Get_Creator: Integer;
  19280.     function  Get_Parent: IDispatch;
  19281.     function  Get_Duplicate: WordParagraphFormat;
  19282.     function  Get_Style: OleVariant;
  19283.     procedure Set_Style(var prop: OleVariant);
  19284.     function  Get_Alignment: WdParagraphAlignment;
  19285.     procedure Set_Alignment(prop: WdParagraphAlignment);
  19286.     function  Get_KeepTogether: Integer;
  19287.     procedure Set_KeepTogether(prop: Integer);
  19288.     function  Get_KeepWithNext: Integer;
  19289.     procedure Set_KeepWithNext(prop: Integer);
  19290.     function  Get_PageBreakBefore: Integer;
  19291.     procedure Set_PageBreakBefore(prop: Integer);
  19292.     function  Get_NoLineNumber: Integer;
  19293.     procedure Set_NoLineNumber(prop: Integer);
  19294.     function  Get_RightIndent: Single;
  19295.     procedure Set_RightIndent(prop: Single);
  19296.     function  Get_LeftIndent: Single;
  19297.     procedure Set_LeftIndent(prop: Single);
  19298.     function  Get_FirstLineIndent: Single;
  19299.     procedure Set_FirstLineIndent(prop: Single);
  19300.     function  Get_LineSpacing: Single;
  19301.     procedure Set_LineSpacing(prop: Single);
  19302.     function  Get_LineSpacingRule: WdLineSpacing;
  19303.     procedure Set_LineSpacingRule(prop: WdLineSpacing);
  19304.     function  Get_SpaceBefore: Single;
  19305.     procedure Set_SpaceBefore(prop: Single);
  19306.     function  Get_SpaceAfter: Single;
  19307.     procedure Set_SpaceAfter(prop: Single);
  19308.     function  Get_Hyphenation: Integer;
  19309.     procedure Set_Hyphenation(prop: Integer);
  19310.     function  Get_WidowControl: Integer;
  19311.     procedure Set_WidowControl(prop: Integer);
  19312.     function  Get_FarEastLineBreakControl: Integer;
  19313.     procedure Set_FarEastLineBreakControl(prop: Integer);
  19314.     function  Get_WordWrap: Integer;
  19315.     procedure Set_WordWrap(prop: Integer);
  19316.     function  Get_HangingPunctuation: Integer;
  19317.     procedure Set_HangingPunctuation(prop: Integer);
  19318.     function  Get_HalfWidthPunctuationOnTopOfLine: Integer;
  19319.     procedure Set_HalfWidthPunctuationOnTopOfLine(prop: Integer);
  19320.     function  Get_AddSpaceBetweenFarEastAndAlpha: Integer;
  19321.     procedure Set_AddSpaceBetweenFarEastAndAlpha(prop: Integer);
  19322.     function  Get_AddSpaceBetweenFarEastAndDigit: Integer;
  19323.     procedure Set_AddSpaceBetweenFarEastAndDigit(prop: Integer);
  19324.     function  Get_BaseLineAlignment: WdBaselineAlignment;
  19325.     procedure Set_BaseLineAlignment(prop: WdBaselineAlignment);
  19326.     function  Get_AutoAdjustRightIndent: Integer;
  19327.     procedure Set_AutoAdjustRightIndent(prop: Integer);
  19328.     function  Get_DisableLineHeightGrid: Integer;
  19329.     procedure Set_DisableLineHeightGrid(prop: Integer);
  19330.     function  Get_TabStops: TabStops;
  19331.     procedure Set_TabStops(const prop: TabStops);
  19332.     function  Get_Borders: Borders;
  19333.     procedure Set_Borders(const prop: Borders);
  19334.     function  Get_Shading: Shading;
  19335.     function  Get_OutlineLevel: WdOutlineLevel;
  19336.     procedure Set_OutlineLevel(prop: WdOutlineLevel);
  19337.   public
  19338.     property DefaultInterface: _ParagraphFormat read GetDefaultInterface;
  19339.   published
  19340.     property Alignment: WdParagraphAlignment read Get_Alignment write Set_Alignment;
  19341.     property KeepTogether: Integer read Get_KeepTogether write Set_KeepTogether;
  19342.     property KeepWithNext: Integer read Get_KeepWithNext write Set_KeepWithNext;
  19343.     property PageBreakBefore: Integer read Get_PageBreakBefore write Set_PageBreakBefore;
  19344.     property NoLineNumber: Integer read Get_NoLineNumber write Set_NoLineNumber;
  19345.     property RightIndent: Single read Get_RightIndent write Set_RightIndent;
  19346.     property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
  19347.     property FirstLineIndent: Single read Get_FirstLineIndent write Set_FirstLineIndent;
  19348.     property LineSpacing: Single read Get_LineSpacing write Set_LineSpacing;
  19349.     property LineSpacingRule: WdLineSpacing read Get_LineSpacingRule write Set_LineSpacingRule;
  19350.     property SpaceBefore: Single read Get_SpaceBefore write Set_SpaceBefore;
  19351.     property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
  19352.     property Hyphenation: Integer read Get_Hyphenation write Set_Hyphenation;
  19353.     property WidowControl: Integer read Get_WidowControl write Set_WidowControl;
  19354.     property TabStops: TabStops read Get_TabStops write Set_TabStops;
  19355.     property Borders: Borders read Get_Borders write Set_Borders;
  19356.     property OutlineLevel: WdOutlineLevel read Get_OutlineLevel write Set_OutlineLevel;
  19357.   end;
  19358. {$ENDIF}
  19359.  
  19360.  
  19361. // *********************************************************************//
  19362. // The Class CoWordOLEControl provides a Create and CreateRemote method to          
  19363. // create instances of the default interface _OLEControl exposed by              
  19364. // the CoClass WordOLEControl. The functions are intended to be used by             
  19365. // clients wishing to automate the CoClass objects exposed by the         
  19366. // server of this typelibrary.                                            
  19367. // *********************************************************************//
  19368.   CoWordOLEControl = class
  19369.     class function Create: _OLEControl;
  19370.     class function CreateRemote(const MachineName: string): _OLEControl;
  19371.   end;
  19372.  
  19373. // *********************************************************************//
  19374. // The Class CoWordLetterContent provides a Create and CreateRemote method to          
  19375. // create instances of the default interface _LetterContent exposed by              
  19376. // the CoClass WordLetterContent. The functions are intended to be used by             
  19377. // clients wishing to automate the CoClass objects exposed by the         
  19378. // server of this typelibrary.                                            
  19379. // *********************************************************************//
  19380.   CoWordLetterContent = class
  19381.     class function Create: _LetterContent;
  19382.     class function CreateRemote(const MachineName: string): _LetterContent;
  19383.   end;
  19384.  
  19385.  
  19386. // *********************************************************************//
  19387. // OLE Server Proxy class declaration
  19388. // Server Object    : TWordLetterContent
  19389. // Help String      : 
  19390. // Default Interface: _LetterContent
  19391. // Def. Intf. DISP? : No
  19392. // Event   Interface: 
  19393. // TypeFlags        : (2) CanCreate
  19394. // *********************************************************************//
  19395. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  19396.   TWordLetterContentProperties= class;
  19397. {$ENDIF}
  19398.   TWordLetterContent = class(TOleServer)
  19399.   private
  19400.     FIntf:        _LetterContent;
  19401. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  19402.     FProps:       TWordLetterContentProperties;
  19403.     function      GetServerProperties: TWordLetterContentProperties;
  19404. {$ENDIF}
  19405.     function      GetDefaultInterface: _LetterContent;
  19406.   protected
  19407.     procedure InitServerData; override;
  19408.     function  Get_Application: WordApplication;
  19409.     function  Get_Creator: Integer;
  19410.     function  Get_Parent: IDispatch;
  19411.     function  Get_Duplicate: WordLetterContent;
  19412.     function  Get_DateFormat: WideString;
  19413.     procedure Set_DateFormat(const prop: WideString);
  19414.     function  Get_IncludeHeaderFooter: WordBool;
  19415.     procedure Set_IncludeHeaderFooter(prop: WordBool);
  19416.     function  Get_PageDesign: WideString;
  19417.     procedure Set_PageDesign(const prop: WideString);
  19418.     function  Get_LetterStyle: WdLetterStyle;
  19419.     procedure Set_LetterStyle(prop: WdLetterStyle);
  19420.     function  Get_Letterhead: WordBool;
  19421.     procedure Set_Letterhead(prop: WordBool);
  19422.     function  Get_LetterheadLocation: WdLetterheadLocation;
  19423.     procedure Set_LetterheadLocation(prop: WdLetterheadLocation);
  19424.     function  Get_LetterheadSize: Single;
  19425.     procedure Set_LetterheadSize(prop: Single);
  19426.     function  Get_RecipientName: WideString;
  19427.     procedure Set_RecipientName(const prop: WideString);
  19428.     function  Get_RecipientAddress: WideString;
  19429.     procedure Set_RecipientAddress(const prop: WideString);
  19430.     function  Get_Salutation: WideString;
  19431.     procedure Set_Salutation(const prop: WideString);
  19432.     function  Get_SalutationType: WdSalutationType;
  19433.     procedure Set_SalutationType(prop: WdSalutationType);
  19434.     function  Get_RecipientReference: WideString;
  19435.     procedure Set_RecipientReference(const prop: WideString);
  19436.     function  Get_MailingInstructions: WideString;
  19437.     procedure Set_MailingInstructions(const prop: WideString);
  19438.     function  Get_AttentionLine: WideString;
  19439.     procedure Set_AttentionLine(const prop: WideString);
  19440.     function  Get_Subject: WideString;
  19441.     procedure Set_Subject(const prop: WideString);
  19442.     function  Get_EnclosureNumber: Integer;
  19443.     procedure Set_EnclosureNumber(prop: Integer);
  19444.     function  Get_CCList: WideString;
  19445.     procedure Set_CCList(const prop: WideString);
  19446.     function  Get_ReturnAddress: WideString;
  19447.     procedure Set_ReturnAddress(const prop: WideString);
  19448.     function  Get_SenderName: WideString;
  19449.     procedure Set_SenderName(const prop: WideString);
  19450.     function  Get_Closing: WideString;
  19451.     procedure Set_Closing(const prop: WideString);
  19452.     function  Get_SenderCompany: WideString;
  19453.     procedure Set_SenderCompany(const prop: WideString);
  19454.     function  Get_SenderJobTitle: WideString;
  19455.     procedure Set_SenderJobTitle(const prop: WideString);
  19456.     function  Get_SenderInitials: WideString;
  19457.     procedure Set_SenderInitials(const prop: WideString);
  19458.     function  Get_InfoBlock: WordBool;
  19459.     procedure Set_InfoBlock(prop: WordBool);
  19460.     function  Get_RecipientCode: WideString;
  19461.     procedure Set_RecipientCode(const prop: WideString);
  19462.     function  Get_RecipientGender: WdSalutationGender;
  19463.     procedure Set_RecipientGender(prop: WdSalutationGender);
  19464.     function  Get_ReturnAddressShortForm: WideString;
  19465.     procedure Set_ReturnAddressShortForm(const prop: WideString);
  19466.     function  Get_SenderCity: WideString;
  19467.     procedure Set_SenderCity(const prop: WideString);
  19468.     function  Get_SenderCode: WideString;
  19469.     procedure Set_SenderCode(const prop: WideString);
  19470.     function  Get_SenderGender: WdSalutationGender;
  19471.     procedure Set_SenderGender(prop: WdSalutationGender);
  19472.     function  Get_SenderReference: WideString;
  19473.     procedure Set_SenderReference(const prop: WideString);
  19474.   public
  19475.     constructor Create(AOwner: TComponent); override;
  19476.     destructor  Destroy; override;
  19477.     procedure Connect; override;
  19478.     procedure ConnectTo(svrIntf: _LetterContent);
  19479.     procedure Disconnect; override;
  19480.     property  DefaultInterface: _LetterContent read GetDefaultInterface;
  19481.     property Application: WordApplication read Get_Application;
  19482.     property Creator: Integer read Get_Creator;
  19483.     property Parent: IDispatch read Get_Parent;
  19484.     property Duplicate: WordLetterContent read Get_Duplicate;
  19485.     property DateFormat: WideString read Get_DateFormat write Set_DateFormat;
  19486.     property IncludeHeaderFooter: WordBool read Get_IncludeHeaderFooter write Set_IncludeHeaderFooter;
  19487.     property PageDesign: WideString read Get_PageDesign write Set_PageDesign;
  19488.     property LetterStyle: WdLetterStyle read Get_LetterStyle write Set_LetterStyle;
  19489.     property Letterhead: WordBool read Get_Letterhead write Set_Letterhead;
  19490.     property LetterheadLocation: WdLetterheadLocation read Get_LetterheadLocation write Set_LetterheadLocation;
  19491.     property LetterheadSize: Single read Get_LetterheadSize write Set_LetterheadSize;
  19492.     property RecipientName: WideString read Get_RecipientName write Set_RecipientName;
  19493.     property RecipientAddress: WideString read Get_RecipientAddress write Set_RecipientAddress;
  19494.     property Salutation: WideString read Get_Salutation write Set_Salutation;
  19495.     property SalutationType: WdSalutationType read Get_SalutationType write Set_SalutationType;
  19496.     property RecipientReference: WideString read Get_RecipientReference write Set_RecipientReference;
  19497.     property MailingInstructions: WideString read Get_MailingInstructions write Set_MailingInstructions;
  19498.     property AttentionLine: WideString read Get_AttentionLine write Set_AttentionLine;
  19499.     property Subject: WideString read Get_Subject write Set_Subject;
  19500.     property EnclosureNumber: Integer read Get_EnclosureNumber write Set_EnclosureNumber;
  19501.     property CCList: WideString read Get_CCList write Set_CCList;
  19502.     property ReturnAddress: WideString read Get_ReturnAddress write Set_ReturnAddress;
  19503.     property SenderName: WideString read Get_SenderName write Set_SenderName;
  19504.     property Closing: WideString read Get_Closing write Set_Closing;
  19505.     property SenderCompany: WideString read Get_SenderCompany write Set_SenderCompany;
  19506.     property SenderJobTitle: WideString read Get_SenderJobTitle write Set_SenderJobTitle;
  19507.     property SenderInitials: WideString read Get_SenderInitials write Set_SenderInitials;
  19508.     property InfoBlock: WordBool read Get_InfoBlock write Set_InfoBlock;
  19509.     property RecipientCode: WideString read Get_RecipientCode write Set_RecipientCode;
  19510.     property RecipientGender: WdSalutationGender read Get_RecipientGender write Set_RecipientGender;
  19511.     property ReturnAddressShortForm: WideString read Get_ReturnAddressShortForm write Set_ReturnAddressShortForm;
  19512.     property SenderCity: WideString read Get_SenderCity write Set_SenderCity;
  19513.     property SenderCode: WideString read Get_SenderCode write Set_SenderCode;
  19514.     property SenderGender: WdSalutationGender read Get_SenderGender write Set_SenderGender;
  19515.     property SenderReference: WideString read Get_SenderReference write Set_SenderReference;
  19516.   published
  19517. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  19518.     property Server: TWordLetterContentProperties read GetServerProperties;
  19519. {$ENDIF}
  19520.   end;
  19521.  
  19522. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  19523. // *********************************************************************//
  19524. // OLE Server Properties Proxy Class
  19525. // Server Object    : TWordLetterContent
  19526. // (This object is used by the IDE's Property Inspector to allow editing
  19527. //  of the properties of this server)
  19528. // *********************************************************************//
  19529.  TWordLetterContentProperties = class(TPersistent)
  19530.   private
  19531.     FServer:    TWordLetterContent;
  19532.     function    GetDefaultInterface: _LetterContent;
  19533.     constructor Create(AServer: TWordLetterContent);
  19534.   protected
  19535.     function  Get_Application: WordApplication;
  19536.     function  Get_Creator: Integer;
  19537.     function  Get_Parent: IDispatch;
  19538.     function  Get_Duplicate: WordLetterContent;
  19539.     function  Get_DateFormat: WideString;
  19540.     procedure Set_DateFormat(const prop: WideString);
  19541.     function  Get_IncludeHeaderFooter: WordBool;
  19542.     procedure Set_IncludeHeaderFooter(prop: WordBool);
  19543.     function  Get_PageDesign: WideString;
  19544.     procedure Set_PageDesign(const prop: WideString);
  19545.     function  Get_LetterStyle: WdLetterStyle;
  19546.     procedure Set_LetterStyle(prop: WdLetterStyle);
  19547.     function  Get_Letterhead: WordBool;
  19548.     procedure Set_Letterhead(prop: WordBool);
  19549.     function  Get_LetterheadLocation: WdLetterheadLocation;
  19550.     procedure Set_LetterheadLocation(prop: WdLetterheadLocation);
  19551.     function  Get_LetterheadSize: Single;
  19552.     procedure Set_LetterheadSize(prop: Single);
  19553.     function  Get_RecipientName: WideString;
  19554.     procedure Set_RecipientName(const prop: WideString);
  19555.     function  Get_RecipientAddress: WideString;
  19556.     procedure Set_RecipientAddress(const prop: WideString);
  19557.     function  Get_Salutation: WideString;
  19558.     procedure Set_Salutation(const prop: WideString);
  19559.     function  Get_SalutationType: WdSalutationType;
  19560.     procedure Set_SalutationType(prop: WdSalutationType);
  19561.     function  Get_RecipientReference: WideString;
  19562.     procedure Set_RecipientReference(const prop: WideString);
  19563.     function  Get_MailingInstructions: WideString;
  19564.     procedure Set_MailingInstructions(const prop: WideString);
  19565.     function  Get_AttentionLine: WideString;
  19566.     procedure Set_AttentionLine(const prop: WideString);
  19567.     function  Get_Subject: WideString;
  19568.     procedure Set_Subject(const prop: WideString);
  19569.     function  Get_EnclosureNumber: Integer;
  19570.     procedure Set_EnclosureNumber(prop: Integer);
  19571.     function  Get_CCList: WideString;
  19572.     procedure Set_CCList(const prop: WideString);
  19573.     function  Get_ReturnAddress: WideString;
  19574.     procedure Set_ReturnAddress(const prop: WideString);
  19575.     function  Get_SenderName: WideString;
  19576.     procedure Set_SenderName(const prop: WideString);
  19577.     function  Get_Closing: WideString;
  19578.     procedure Set_Closing(const prop: WideString);
  19579.     function  Get_SenderCompany: WideString;
  19580.     procedure Set_SenderCompany(const prop: WideString);
  19581.     function  Get_SenderJobTitle: WideString;
  19582.     procedure Set_SenderJobTitle(const prop: WideString);
  19583.     function  Get_SenderInitials: WideString;
  19584.     procedure Set_SenderInitials(const prop: WideString);
  19585.     function  Get_InfoBlock: WordBool;
  19586.     procedure Set_InfoBlock(prop: WordBool);
  19587.     function  Get_RecipientCode: WideString;
  19588.     procedure Set_RecipientCode(const prop: WideString);
  19589.     function  Get_RecipientGender: WdSalutationGender;
  19590.     procedure Set_RecipientGender(prop: WdSalutationGender);
  19591.     function  Get_ReturnAddressShortForm: WideString;
  19592.     procedure Set_ReturnAddressShortForm(const prop: WideString);
  19593.     function  Get_SenderCity: WideString;
  19594.     procedure Set_SenderCity(const prop: WideString);
  19595.     function  Get_SenderCode: WideString;
  19596.     procedure Set_SenderCode(const prop: WideString);
  19597.     function  Get_SenderGender: WdSalutationGender;
  19598.     procedure Set_SenderGender(prop: WdSalutationGender);
  19599.     function  Get_SenderReference: WideString;
  19600.     procedure Set_SenderReference(const prop: WideString);
  19601.   public
  19602.     property DefaultInterface: _LetterContent read GetDefaultInterface;
  19603.   published
  19604.     property DateFormat: WideString read Get_DateFormat write Set_DateFormat;
  19605.     property IncludeHeaderFooter: WordBool read Get_IncludeHeaderFooter write Set_IncludeHeaderFooter;
  19606.     property PageDesign: WideString read Get_PageDesign write Set_PageDesign;
  19607.     property LetterStyle: WdLetterStyle read Get_LetterStyle write Set_LetterStyle;
  19608.     property Letterhead: WordBool read Get_Letterhead write Set_Letterhead;
  19609.     property LetterheadLocation: WdLetterheadLocation read Get_LetterheadLocation write Set_LetterheadLocation;
  19610.     property LetterheadSize: Single read Get_LetterheadSize write Set_LetterheadSize;
  19611.     property RecipientName: WideString read Get_RecipientName write Set_RecipientName;
  19612.     property RecipientAddress: WideString read Get_RecipientAddress write Set_RecipientAddress;
  19613.     property Salutation: WideString read Get_Salutation write Set_Salutation;
  19614.     property SalutationType: WdSalutationType read Get_SalutationType write Set_SalutationType;
  19615.     property RecipientReference: WideString read Get_RecipientReference write Set_RecipientReference;
  19616.     property MailingInstructions: WideString read Get_MailingInstructions write Set_MailingInstructions;
  19617.     property AttentionLine: WideString read Get_AttentionLine write Set_AttentionLine;
  19618.     property Subject: WideString read Get_Subject write Set_Subject;
  19619.     property EnclosureNumber: Integer read Get_EnclosureNumber write Set_EnclosureNumber;
  19620.     property CCList: WideString read Get_CCList write Set_CCList;
  19621.     property ReturnAddress: WideString read Get_ReturnAddress write Set_ReturnAddress;
  19622.     property SenderName: WideString read Get_SenderName write Set_SenderName;
  19623.     property Closing: WideString read Get_Closing write Set_Closing;
  19624.     property SenderCompany: WideString read Get_SenderCompany write Set_SenderCompany;
  19625.     property SenderJobTitle: WideString read Get_SenderJobTitle write Set_SenderJobTitle;
  19626.     property SenderInitials: WideString read Get_SenderInitials write Set_SenderInitials;
  19627.     property InfoBlock: WordBool read Get_InfoBlock write Set_InfoBlock;
  19628.     property RecipientCode: WideString read Get_RecipientCode write Set_RecipientCode;
  19629.     property RecipientGender: WdSalutationGender read Get_RecipientGender write Set_RecipientGender;
  19630.     property ReturnAddressShortForm: WideString read Get_ReturnAddressShortForm write Set_ReturnAddressShortForm;
  19631.     property SenderCity: WideString read Get_SenderCity write Set_SenderCity;
  19632.     property SenderCode: WideString read Get_SenderCode write Set_SenderCode;
  19633.     property SenderGender: WdSalutationGender read Get_SenderGender write Set_SenderGender;
  19634.     property SenderReference: WideString read Get_SenderReference write Set_SenderReference;
  19635.   end;
  19636. {$ENDIF}
  19637.  
  19638.  
  19639. procedure Register;
  19640.  
  19641. implementation
  19642.  
  19643. uses ComObj;
  19644.  
  19645. class function CoGlobal.Create: _Global;
  19646. begin
  19647.   Result := CreateComObject(CLASS_Global) as _Global;
  19648. end;
  19649.  
  19650. class function CoGlobal.CreateRemote(const MachineName: string): _Global;
  19651. begin
  19652.   Result := CreateRemoteComObject(MachineName, CLASS_Global) as _Global;
  19653. end;
  19654.  
  19655. class function CoWordApplication.Create: _Application;
  19656. begin
  19657.   Result := CreateComObject(CLASS_WordApplication) as _Application;
  19658. end;
  19659.  
  19660. class function CoWordApplication.CreateRemote(const MachineName: string): _Application;
  19661. begin
  19662.   Result := CreateRemoteComObject(MachineName, CLASS_WordApplication) as _Application;
  19663. end;
  19664.  
  19665. procedure TWordApplication.InitServerData;
  19666. const
  19667.   CServerData: TServerData = (
  19668.     ClassID:   '{000209FF-0000-0000-C000-000000000046}';
  19669.     IntfIID:   '{00020970-0000-0000-C000-000000000046}';
  19670.     EventIID:  '{000209F7-0000-0000-C000-000000000046}';
  19671.     LicenseKey: nil;
  19672.     Version: 500);
  19673. begin
  19674.   ServerData := @CServerData;
  19675. end;
  19676.  
  19677. procedure TWordApplication.Connect;
  19678. var
  19679.   punk: IUnknown;
  19680. begin
  19681.   if FIntf = nil then
  19682.   begin
  19683.     punk := GetServer;
  19684.     ConnectEvents(punk);
  19685.     Fintf:= punk as _Application;
  19686.   end;
  19687. end;
  19688.  
  19689. procedure TWordApplication.ConnectTo(svrIntf: _Application);
  19690. begin
  19691.   Disconnect;
  19692.   FIntf := svrIntf;
  19693.   ConnectEvents(FIntf);
  19694. end;
  19695.  
  19696. procedure TWordApplication.DisConnect;
  19697. begin
  19698.   if Fintf <> nil then
  19699.   begin
  19700.     if FAutoQuit then
  19701.       Quit();
  19702.     DisconnectEvents(FIntf);
  19703.     FIntf := nil;
  19704.   end;
  19705. end;
  19706.  
  19707. function TWordApplication.GetDefaultInterface: _Application;
  19708. begin
  19709.   if FIntf = nil then
  19710.     Connect;
  19711.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  19712.   Result := FIntf;
  19713. end;
  19714.  
  19715. constructor TWordApplication.Create(AOwner: TComponent);
  19716. begin
  19717.   inherited Create(AOwner);
  19718. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  19719.   FProps := TWordApplicationProperties.Create(Self);
  19720. {$ENDIF}
  19721. end;
  19722.  
  19723. destructor TWordApplication.Destroy;
  19724. begin
  19725. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  19726.   FProps.Free;
  19727. {$ENDIF}
  19728.   inherited Destroy;
  19729. end;
  19730.  
  19731. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  19732. function TWordApplication.GetServerProperties: TWordApplicationProperties;
  19733. begin
  19734.   Result := FProps;
  19735. end;
  19736. {$ENDIF}
  19737.  
  19738. procedure TWordApplication.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  19739. begin
  19740.   case DispID of
  19741.     -1: Exit;  // DISPID_UNKNOWN
  19742.    1: if Assigned(FOnStartup) then
  19743.             FOnStartup(Self);
  19744.    2: if Assigned(FOnQuit) then
  19745.             FOnQuit(Self);
  19746.    3: if Assigned(FOnDocumentChange) then
  19747.             FOnDocumentChange(Self);
  19748.   end; {case DispID}
  19749. end;
  19750.  
  19751. function  TWordApplication.Get_Application: WordApplication;
  19752. begin
  19753.   Result := DefaultInterface.Get_Application;
  19754. end;
  19755.  
  19756. function  TWordApplication.Get_Creator: Integer;
  19757. begin
  19758.   Result := DefaultInterface.Get_Creator;
  19759. end;
  19760.  
  19761. function  TWordApplication.Get_Parent: IDispatch;
  19762. begin
  19763.   Result := DefaultInterface.Get_Parent;
  19764. end;
  19765.  
  19766. function  TWordApplication.Get_Name: WideString;
  19767. begin
  19768.   Result := DefaultInterface.Get_Name;
  19769. end;
  19770.  
  19771. function  TWordApplication.Get_Documents: Documents;
  19772. begin
  19773.   Result := DefaultInterface.Get_Documents;
  19774. end;
  19775.  
  19776. function  TWordApplication.Get_Windows: Windows;
  19777. begin
  19778.   Result := DefaultInterface.Get_Windows;
  19779. end;
  19780.  
  19781. function  TWordApplication.Get_ActiveDocument: WordDocument;
  19782. begin
  19783.   Result := DefaultInterface.Get_ActiveDocument;
  19784. end;
  19785.  
  19786. function  TWordApplication.Get_ActiveWindow: Window;
  19787. begin
  19788.   Result := DefaultInterface.Get_ActiveWindow;
  19789. end;
  19790.  
  19791. function  TWordApplication.Get_Selection: Selection;
  19792. begin
  19793.   Result := DefaultInterface.Get_Selection;
  19794. end;
  19795.  
  19796. function  TWordApplication.Get_WordBasic: IDispatch;
  19797. begin
  19798.   Result := DefaultInterface.Get_WordBasic;
  19799. end;
  19800.  
  19801. function  TWordApplication.Get_RecentFiles: RecentFiles;
  19802. begin
  19803.   Result := DefaultInterface.Get_RecentFiles;
  19804. end;
  19805.  
  19806. function  TWordApplication.Get_NormalTemplate: Template;
  19807. begin
  19808.   Result := DefaultInterface.Get_NormalTemplate;
  19809. end;
  19810.  
  19811. function  TWordApplication.Get_System_: System;
  19812. begin
  19813.   Result := DefaultInterface.Get_System_;
  19814. end;
  19815.  
  19816. function  TWordApplication.Get_AutoCorrect: AutoCorrect;
  19817. begin
  19818.   Result := DefaultInterface.Get_AutoCorrect;
  19819. end;
  19820.  
  19821. function  TWordApplication.Get_FontNames: FontNames;
  19822. begin
  19823.   Result := DefaultInterface.Get_FontNames;
  19824. end;
  19825.  
  19826. function  TWordApplication.Get_LandscapeFontNames: FontNames;
  19827. begin
  19828.   Result := DefaultInterface.Get_LandscapeFontNames;
  19829. end;
  19830.  
  19831. function  TWordApplication.Get_PortraitFontNames: FontNames;
  19832. begin
  19833.   Result := DefaultInterface.Get_PortraitFontNames;
  19834. end;
  19835.  
  19836. function  TWordApplication.Get_Languages: Languages;
  19837. begin
  19838.   Result := DefaultInterface.Get_Languages;
  19839. end;
  19840.  
  19841. function  TWordApplication.Get_Assistant: Assistant;
  19842. begin
  19843.   Result := DefaultInterface.Get_Assistant;
  19844. end;
  19845.  
  19846. function  TWordApplication.Get_Browser: Browser;
  19847. begin
  19848.   Result := DefaultInterface.Get_Browser;
  19849. end;
  19850.  
  19851. function  TWordApplication.Get_FileConverters: FileConverters;
  19852. begin
  19853.   Result := DefaultInterface.Get_FileConverters;
  19854. end;
  19855.  
  19856. function  TWordApplication.Get_MailingLabel: MailingLabel;
  19857. begin
  19858.   Result := DefaultInterface.Get_MailingLabel;
  19859. end;
  19860.  
  19861. function  TWordApplication.Get_Dialogs: Dialogs;
  19862. begin
  19863.   Result := DefaultInterface.Get_Dialogs;
  19864. end;
  19865.  
  19866. function  TWordApplication.Get_CaptionLabels: CaptionLabels;
  19867. begin
  19868.   Result := DefaultInterface.Get_CaptionLabels;
  19869. end;
  19870.  
  19871. function  TWordApplication.Get_AutoCaptions: AutoCaptions;
  19872. begin
  19873.   Result := DefaultInterface.Get_AutoCaptions;
  19874. end;
  19875.  
  19876. function  TWordApplication.Get_AddIns: AddIns;
  19877. begin
  19878.   Result := DefaultInterface.Get_AddIns;
  19879. end;
  19880.  
  19881. function  TWordApplication.Get_Visible: WordBool;
  19882. begin
  19883.   Result := DefaultInterface.Get_Visible;
  19884. end;
  19885.  
  19886. procedure TWordApplication.Set_Visible(prop: WordBool);
  19887. begin
  19888.   DefaultInterface.Set_Visible(prop);
  19889. end;
  19890.  
  19891. function  TWordApplication.Get_Version: WideString;
  19892. begin
  19893.   Result := DefaultInterface.Get_Version;
  19894. end;
  19895.  
  19896. function  TWordApplication.Get_ScreenUpdating: WordBool;
  19897. begin
  19898.   Result := DefaultInterface.Get_ScreenUpdating;
  19899. end;
  19900.  
  19901. procedure TWordApplication.Set_ScreenUpdating(prop: WordBool);
  19902. begin
  19903.   DefaultInterface.Set_ScreenUpdating(prop);
  19904. end;
  19905.  
  19906. function  TWordApplication.Get_PrintPreview: WordBool;
  19907. begin
  19908.   Result := DefaultInterface.Get_PrintPreview;
  19909. end;
  19910.  
  19911. procedure TWordApplication.Set_PrintPreview(prop: WordBool);
  19912. begin
  19913.   DefaultInterface.Set_PrintPreview(prop);
  19914. end;
  19915.  
  19916. function  TWordApplication.Get_Tasks: Tasks;
  19917. begin
  19918.   Result := DefaultInterface.Get_Tasks;
  19919. end;
  19920.  
  19921. function  TWordApplication.Get_DisplayStatusBar: WordBool;
  19922. begin
  19923.   Result := DefaultInterface.Get_DisplayStatusBar;
  19924. end;
  19925.  
  19926. procedure TWordApplication.Set_DisplayStatusBar(prop: WordBool);
  19927. begin
  19928.   DefaultInterface.Set_DisplayStatusBar(prop);
  19929. end;
  19930.  
  19931. function  TWordApplication.Get_SpecialMode: WordBool;
  19932. begin
  19933.   Result := DefaultInterface.Get_SpecialMode;
  19934. end;
  19935.  
  19936. function  TWordApplication.Get_UsableWidth: Integer;
  19937. begin
  19938.   Result := DefaultInterface.Get_UsableWidth;
  19939. end;
  19940.  
  19941. function  TWordApplication.Get_UsableHeight: Integer;
  19942. begin
  19943.   Result := DefaultInterface.Get_UsableHeight;
  19944. end;
  19945.  
  19946. function  TWordApplication.Get_MathCoprocessorAvailable: WordBool;
  19947. begin
  19948.   Result := DefaultInterface.Get_MathCoprocessorAvailable;
  19949. end;
  19950.  
  19951. function  TWordApplication.Get_MouseAvailable: WordBool;
  19952. begin
  19953.   Result := DefaultInterface.Get_MouseAvailable;
  19954. end;
  19955.  
  19956. function  TWordApplication.Get_International(Index: WdInternationalIndex): OleVariant;
  19957. begin
  19958.   Result := DefaultInterface.Get_International(Index);
  19959. end;
  19960.  
  19961. function  TWordApplication.Get_Build: WideString;
  19962. begin
  19963.   Result := DefaultInterface.Get_Build;
  19964. end;
  19965.  
  19966. function  TWordApplication.Get_CapsLock: WordBool;
  19967. begin
  19968.   Result := DefaultInterface.Get_CapsLock;
  19969. end;
  19970.  
  19971. function  TWordApplication.Get_NumLock: WordBool;
  19972. begin
  19973.   Result := DefaultInterface.Get_NumLock;
  19974. end;
  19975.  
  19976. function  TWordApplication.Get_UserName: WideString;
  19977. begin
  19978.   Result := DefaultInterface.Get_UserName;
  19979. end;
  19980.  
  19981. procedure TWordApplication.Set_UserName(const prop: WideString);
  19982. begin
  19983.   DefaultInterface.Set_UserName(prop);
  19984. end;
  19985.  
  19986. function  TWordApplication.Get_UserInitials: WideString;
  19987. begin
  19988.   Result := DefaultInterface.Get_UserInitials;
  19989. end;
  19990.  
  19991. procedure TWordApplication.Set_UserInitials(const prop: WideString);
  19992. begin
  19993.   DefaultInterface.Set_UserInitials(prop);
  19994. end;
  19995.  
  19996. function  TWordApplication.Get_UserAddress: WideString;
  19997. begin
  19998.   Result := DefaultInterface.Get_UserAddress;
  19999. end;
  20000.  
  20001. procedure TWordApplication.Set_UserAddress(const prop: WideString);
  20002. begin
  20003.   DefaultInterface.Set_UserAddress(prop);
  20004. end;
  20005.  
  20006. function  TWordApplication.Get_MacroContainer: IDispatch;
  20007. begin
  20008.   Result := DefaultInterface.Get_MacroContainer;
  20009. end;
  20010.  
  20011. function  TWordApplication.Get_DisplayRecentFiles: WordBool;
  20012. begin
  20013.   Result := DefaultInterface.Get_DisplayRecentFiles;
  20014. end;
  20015.  
  20016. procedure TWordApplication.Set_DisplayRecentFiles(prop: WordBool);
  20017. begin
  20018.   DefaultInterface.Set_DisplayRecentFiles(prop);
  20019. end;
  20020.  
  20021. function  TWordApplication.Get_CommandBars: CommandBars;
  20022. begin
  20023.   Result := DefaultInterface.Get_CommandBars;
  20024. end;
  20025.  
  20026. function  TWordApplication.Get_SynonymInfo(const Word: WideString; var LanguageID: OleVariant): SynonymInfo;
  20027. begin
  20028.   Result := DefaultInterface.Get_SynonymInfo(Word, LanguageID);
  20029. end;
  20030.  
  20031. function  TWordApplication.Get_VBE: VBE;
  20032. begin
  20033.   Result := DefaultInterface.Get_VBE;
  20034. end;
  20035.  
  20036. function  TWordApplication.Get_DefaultSaveFormat: WideString;
  20037. begin
  20038.   Result := DefaultInterface.Get_DefaultSaveFormat;
  20039. end;
  20040.  
  20041. procedure TWordApplication.Set_DefaultSaveFormat(const prop: WideString);
  20042. begin
  20043.   DefaultInterface.Set_DefaultSaveFormat(prop);
  20044. end;
  20045.  
  20046. function  TWordApplication.Get_ListGalleries: ListGalleries;
  20047. begin
  20048.   Result := DefaultInterface.Get_ListGalleries;
  20049. end;
  20050.  
  20051. function  TWordApplication.Get_ActivePrinter: WideString;
  20052. begin
  20053.   Result := DefaultInterface.Get_ActivePrinter;
  20054. end;
  20055.  
  20056. procedure TWordApplication.Set_ActivePrinter(const prop: WideString);
  20057. begin
  20058.   DefaultInterface.Set_ActivePrinter(prop);
  20059. end;
  20060.  
  20061. function  TWordApplication.Get_Templates: Templates;
  20062. begin
  20063.   Result := DefaultInterface.Get_Templates;
  20064. end;
  20065.  
  20066. function  TWordApplication.Get_CustomizationContext: IDispatch;
  20067. begin
  20068.   Result := DefaultInterface.Get_CustomizationContext;
  20069. end;
  20070.  
  20071. procedure TWordApplication.Set_CustomizationContext(const prop: IDispatch);
  20072. begin
  20073.   DefaultInterface.Set_CustomizationContext(prop);
  20074. end;
  20075.  
  20076. function  TWordApplication.Get_KeyBindings: KeyBindings;
  20077. begin
  20078.   Result := DefaultInterface.Get_KeyBindings;
  20079. end;
  20080.  
  20081. function  TWordApplication.Get_KeysBoundTo(KeyCategory: WdKeyCategory; const Command: WideString; 
  20082.                                            var CommandParameter: OleVariant): KeysBoundTo;
  20083. begin
  20084.   Result := DefaultInterface.Get_KeysBoundTo(KeyCategory, Command, CommandParameter);
  20085. end;
  20086.  
  20087. function  TWordApplication.Get_FindKey(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding;
  20088. begin
  20089.   Result := DefaultInterface.Get_FindKey(KeyCode, KeyCode2);
  20090. end;
  20091.  
  20092. function  TWordApplication.Get_Caption: WideString;
  20093. begin
  20094.   Result := DefaultInterface.Get_Caption;
  20095. end;
  20096.  
  20097. procedure TWordApplication.Set_Caption(const prop: WideString);
  20098. begin
  20099.   DefaultInterface.Set_Caption(prop);
  20100. end;
  20101.  
  20102. function  TWordApplication.Get_Path: WideString;
  20103. begin
  20104.   Result := DefaultInterface.Get_Path;
  20105. end;
  20106.  
  20107. function  TWordApplication.Get_DisplayScrollBars: WordBool;
  20108. begin
  20109.   Result := DefaultInterface.Get_DisplayScrollBars;
  20110. end;
  20111.  
  20112. procedure TWordApplication.Set_DisplayScrollBars(prop: WordBool);
  20113. begin
  20114.   DefaultInterface.Set_DisplayScrollBars(prop);
  20115. end;
  20116.  
  20117. function  TWordApplication.Get_StartupPath: WideString;
  20118. begin
  20119.   Result := DefaultInterface.Get_StartupPath;
  20120. end;
  20121.  
  20122. procedure TWordApplication.Set_StartupPath(const prop: WideString);
  20123. begin
  20124.   DefaultInterface.Set_StartupPath(prop);
  20125. end;
  20126.  
  20127. function  TWordApplication.Get_BackgroundSavingStatus: Integer;
  20128. begin
  20129.   Result := DefaultInterface.Get_BackgroundSavingStatus;
  20130. end;
  20131.  
  20132. function  TWordApplication.Get_BackgroundPrintingStatus: Integer;
  20133. begin
  20134.   Result := DefaultInterface.Get_BackgroundPrintingStatus;
  20135. end;
  20136.  
  20137. function  TWordApplication.Get_Left: Integer;
  20138. begin
  20139.   Result := DefaultInterface.Get_Left;
  20140. end;
  20141.  
  20142. procedure TWordApplication.Set_Left(prop: Integer);
  20143. begin
  20144.   DefaultInterface.Set_Left(prop);
  20145. end;
  20146.  
  20147. function  TWordApplication.Get_Top: Integer;
  20148. begin
  20149.   Result := DefaultInterface.Get_Top;
  20150. end;
  20151.  
  20152. procedure TWordApplication.Set_Top(prop: Integer);
  20153. begin
  20154.   DefaultInterface.Set_Top(prop);
  20155. end;
  20156.  
  20157. function  TWordApplication.Get_Width: Integer;
  20158. begin
  20159.   Result := DefaultInterface.Get_Width;
  20160. end;
  20161.  
  20162. procedure TWordApplication.Set_Width(prop: Integer);
  20163. begin
  20164.   DefaultInterface.Set_Width(prop);
  20165. end;
  20166.  
  20167. function  TWordApplication.Get_Height: Integer;
  20168. begin
  20169.   Result := DefaultInterface.Get_Height;
  20170. end;
  20171.  
  20172. procedure TWordApplication.Set_Height(prop: Integer);
  20173. begin
  20174.   DefaultInterface.Set_Height(prop);
  20175. end;
  20176.  
  20177. function  TWordApplication.Get_WindowState: WdWindowState;
  20178. begin
  20179.   Result := DefaultInterface.Get_WindowState;
  20180. end;
  20181.  
  20182. procedure TWordApplication.Set_WindowState(prop: WdWindowState);
  20183. begin
  20184.   DefaultInterface.Set_WindowState(prop);
  20185. end;
  20186.  
  20187. function  TWordApplication.Get_DisplayAutoCompleteTips: WordBool;
  20188. begin
  20189.   Result := DefaultInterface.Get_DisplayAutoCompleteTips;
  20190. end;
  20191.  
  20192. procedure TWordApplication.Set_DisplayAutoCompleteTips(prop: WordBool);
  20193. begin
  20194.   DefaultInterface.Set_DisplayAutoCompleteTips(prop);
  20195. end;
  20196.  
  20197. function  TWordApplication.Get_Options: Options;
  20198. begin
  20199.   Result := DefaultInterface.Get_Options;
  20200. end;
  20201.  
  20202. function  TWordApplication.Get_DisplayAlerts: WdAlertLevel;
  20203. begin
  20204.   Result := DefaultInterface.Get_DisplayAlerts;
  20205. end;
  20206.  
  20207. procedure TWordApplication.Set_DisplayAlerts(prop: WdAlertLevel);
  20208. begin
  20209.   DefaultInterface.Set_DisplayAlerts(prop);
  20210. end;
  20211.  
  20212. function  TWordApplication.Get_CustomDictionaries: Dictionaries;
  20213. begin
  20214.   Result := DefaultInterface.Get_CustomDictionaries;
  20215. end;
  20216.  
  20217. function  TWordApplication.Get_PathSeparator: WideString;
  20218. begin
  20219.   Result := DefaultInterface.Get_PathSeparator;
  20220. end;
  20221.  
  20222. procedure TWordApplication.Set_StatusBar(const Param1: WideString);
  20223. begin
  20224.   DefaultInterface.Set_StatusBar(Param1);
  20225. end;
  20226.  
  20227. function  TWordApplication.Get_MAPIAvailable: WordBool;
  20228. begin
  20229.   Result := DefaultInterface.Get_MAPIAvailable;
  20230. end;
  20231.  
  20232. function  TWordApplication.Get_DisplayScreenTips: WordBool;
  20233. begin
  20234.   Result := DefaultInterface.Get_DisplayScreenTips;
  20235. end;
  20236.  
  20237. procedure TWordApplication.Set_DisplayScreenTips(prop: WordBool);
  20238. begin
  20239.   DefaultInterface.Set_DisplayScreenTips(prop);
  20240. end;
  20241.  
  20242. function  TWordApplication.Get_EnableCancelKey: WdEnableCancelKey;
  20243. begin
  20244.   Result := DefaultInterface.Get_EnableCancelKey;
  20245. end;
  20246.  
  20247. procedure TWordApplication.Set_EnableCancelKey(prop: WdEnableCancelKey);
  20248. begin
  20249.   DefaultInterface.Set_EnableCancelKey(prop);
  20250. end;
  20251.  
  20252. function  TWordApplication.Get_UserControl: WordBool;
  20253. begin
  20254.   Result := DefaultInterface.Get_UserControl;
  20255. end;
  20256.  
  20257. function  TWordApplication.Get_FileSearch: FileSearch;
  20258. begin
  20259.   Result := DefaultInterface.Get_FileSearch;
  20260. end;
  20261.  
  20262. function  TWordApplication.Get_MailSystem: WdMailSystem;
  20263. begin
  20264.   Result := DefaultInterface.Get_MailSystem;
  20265. end;
  20266.  
  20267. function  TWordApplication.Get_DefaultTableSeparator: WideString;
  20268. begin
  20269.   Result := DefaultInterface.Get_DefaultTableSeparator;
  20270. end;
  20271.  
  20272. procedure TWordApplication.Set_DefaultTableSeparator(const prop: WideString);
  20273. begin
  20274.   DefaultInterface.Set_DefaultTableSeparator(prop);
  20275. end;
  20276.  
  20277. function  TWordApplication.Get_ShowVisualBasicEditor: WordBool;
  20278. begin
  20279.   Result := DefaultInterface.Get_ShowVisualBasicEditor;
  20280. end;
  20281.  
  20282. procedure TWordApplication.Set_ShowVisualBasicEditor(prop: WordBool);
  20283. begin
  20284.   DefaultInterface.Set_ShowVisualBasicEditor(prop);
  20285. end;
  20286.  
  20287. function  TWordApplication.Get_BrowseExtraFileTypes: WideString;
  20288. begin
  20289.   Result := DefaultInterface.Get_BrowseExtraFileTypes;
  20290. end;
  20291.  
  20292. procedure TWordApplication.Set_BrowseExtraFileTypes(const prop: WideString);
  20293. begin
  20294.   DefaultInterface.Set_BrowseExtraFileTypes(prop);
  20295. end;
  20296.  
  20297. function  TWordApplication.Get_IsObjectValid(const Object_: IDispatch): WordBool;
  20298. begin
  20299.   Result := DefaultInterface.Get_IsObjectValid(Object_);
  20300. end;
  20301.  
  20302. function  TWordApplication.Get_HangulHanjaDictionaries: HangulHanjaConversionDictionaries;
  20303. begin
  20304.   Result := DefaultInterface.Get_HangulHanjaDictionaries;
  20305. end;
  20306.  
  20307. function  TWordApplication.Get_MailMessage: MailMessage;
  20308. begin
  20309.   Result := DefaultInterface.Get_MailMessage;
  20310. end;
  20311.  
  20312. function  TWordApplication.Get_FocusInMailHeader: WordBool;
  20313. begin
  20314.   Result := DefaultInterface.Get_FocusInMailHeader;
  20315. end;
  20316.  
  20317. procedure TWordApplication.Quit;
  20318. begin
  20319.   DefaultInterface.Quit(EmptyParam, EmptyParam, EmptyParam);
  20320. end;
  20321.  
  20322. procedure TWordApplication.Quit(var SaveChanges: OleVariant);
  20323. begin
  20324.   DefaultInterface.Quit(SaveChanges, EmptyParam, EmptyParam);
  20325. end;
  20326.  
  20327. procedure TWordApplication.Quit(var SaveChanges: OleVariant; var OriginalFormat: OleVariant);
  20328. begin
  20329.   DefaultInterface.Quit(SaveChanges, OriginalFormat, EmptyParam);
  20330. end;
  20331.  
  20332. procedure TWordApplication.Quit(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
  20333.                                 var RouteDocument: OleVariant);
  20334. begin
  20335.   DefaultInterface.Quit(SaveChanges, OriginalFormat, RouteDocument);
  20336. end;
  20337.  
  20338. procedure TWordApplication.ScreenRefresh;
  20339. begin
  20340.   DefaultInterface.ScreenRefresh;
  20341. end;
  20342.  
  20343. procedure TWordApplication.PrintOut;
  20344. begin
  20345.   DefaultInterface.PrintOut(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20346.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20347.                             EmptyParam, EmptyParam, EmptyParam);
  20348. end;
  20349.  
  20350. procedure TWordApplication.PrintOut(var Background: OleVariant);
  20351. begin
  20352.   DefaultInterface.PrintOut(Background, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20353.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20354.                             EmptyParam, EmptyParam, EmptyParam);
  20355. end;
  20356.  
  20357. procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant);
  20358. begin
  20359.   DefaultInterface.PrintOut(Background, Append, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20360.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20361.                             EmptyParam, EmptyParam, EmptyParam);
  20362. end;
  20363.  
  20364. procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  20365.                                     var Range: OleVariant);
  20366. begin
  20367.   DefaultInterface.PrintOut(Background, Append, Range, EmptyParam, EmptyParam, EmptyParam, 
  20368.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20369.                             EmptyParam, EmptyParam, EmptyParam);
  20370. end;
  20371.  
  20372. procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  20373.                                     var Range: OleVariant; var OutputFileName: OleVariant);
  20374. begin
  20375.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, EmptyParam, EmptyParam, 
  20376.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20377.                             EmptyParam, EmptyParam, EmptyParam);
  20378. end;
  20379.  
  20380. procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  20381.                                     var Range: OleVariant; var OutputFileName: OleVariant; 
  20382.                                     var From: OleVariant);
  20383. begin
  20384.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, EmptyParam, 
  20385.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20386.                             EmptyParam, EmptyParam, EmptyParam);
  20387. end;
  20388.  
  20389. procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  20390.                                     var Range: OleVariant; var OutputFileName: OleVariant; 
  20391.                                     var From: OleVariant; var To_: OleVariant);
  20392. begin
  20393.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, EmptyParam, 
  20394.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20395.                             EmptyParam, EmptyParam);
  20396. end;
  20397.  
  20398. procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  20399.                                     var Range: OleVariant; var OutputFileName: OleVariant; 
  20400.                                     var From: OleVariant; var To_: OleVariant; var Item: OleVariant);
  20401. begin
  20402.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, EmptyParam, 
  20403.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20404.                             EmptyParam);
  20405. end;
  20406.  
  20407. procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  20408.                                     var Range: OleVariant; var OutputFileName: OleVariant; 
  20409.                                     var From: OleVariant; var To_: OleVariant; 
  20410.                                     var Item: OleVariant; var Copies: OleVariant);
  20411. begin
  20412.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  20413.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20414.                             EmptyParam);
  20415. end;
  20416.  
  20417. procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  20418.                                     var Range: OleVariant; var OutputFileName: OleVariant; 
  20419.                                     var From: OleVariant; var To_: OleVariant; 
  20420.                                     var Item: OleVariant; var Copies: OleVariant; 
  20421.                                     var Pages: OleVariant);
  20422. begin
  20423.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  20424.                             Pages, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20425.                             EmptyParam);
  20426. end;
  20427.  
  20428. procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  20429.                                     var Range: OleVariant; var OutputFileName: OleVariant; 
  20430.                                     var From: OleVariant; var To_: OleVariant; 
  20431.                                     var Item: OleVariant; var Copies: OleVariant; 
  20432.                                     var Pages: OleVariant; var PageType: OleVariant);
  20433. begin
  20434.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  20435.                             Pages, PageType, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20436.                             EmptyParam);
  20437. end;
  20438.  
  20439. procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  20440.                                     var Range: OleVariant; var OutputFileName: OleVariant; 
  20441.                                     var From: OleVariant; var To_: OleVariant; 
  20442.                                     var Item: OleVariant; var Copies: OleVariant; 
  20443.                                     var Pages: OleVariant; var PageType: OleVariant; 
  20444.                                     var PrintToFile: OleVariant);
  20445. begin
  20446.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  20447.                             Pages, PageType, PrintToFile, EmptyParam, EmptyParam, EmptyParam, 
  20448.                             EmptyParam);
  20449. end;
  20450.  
  20451. procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  20452.                                     var Range: OleVariant; var OutputFileName: OleVariant; 
  20453.                                     var From: OleVariant; var To_: OleVariant; 
  20454.                                     var Item: OleVariant; var Copies: OleVariant; 
  20455.                                     var Pages: OleVariant; var PageType: OleVariant; 
  20456.                                     var PrintToFile: OleVariant; var Collate: OleVariant);
  20457. begin
  20458.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  20459.                             Pages, PageType, PrintToFile, Collate, EmptyParam, EmptyParam, 
  20460.                             EmptyParam);
  20461. end;
  20462.  
  20463. procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  20464.                                     var Range: OleVariant; var OutputFileName: OleVariant; 
  20465.                                     var From: OleVariant; var To_: OleVariant; 
  20466.                                     var Item: OleVariant; var Copies: OleVariant; 
  20467.                                     var Pages: OleVariant; var PageType: OleVariant; 
  20468.                                     var PrintToFile: OleVariant; var Collate: OleVariant; 
  20469.                                     var FileName: OleVariant);
  20470. begin
  20471.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  20472.                             Pages, PageType, PrintToFile, Collate, FileName, EmptyParam, EmptyParam);
  20473. end;
  20474.  
  20475. procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  20476.                                     var Range: OleVariant; var OutputFileName: OleVariant; 
  20477.                                     var From: OleVariant; var To_: OleVariant; 
  20478.                                     var Item: OleVariant; var Copies: OleVariant; 
  20479.                                     var Pages: OleVariant; var PageType: OleVariant; 
  20480.                                     var PrintToFile: OleVariant; var Collate: OleVariant; 
  20481.                                     var FileName: OleVariant; var ActivePrinterMacGX: OleVariant);
  20482. begin
  20483.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  20484.                             Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, 
  20485.                             EmptyParam);
  20486. end;
  20487.  
  20488. procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  20489.                                     var Range: OleVariant; var OutputFileName: OleVariant; 
  20490.                                     var From: OleVariant; var To_: OleVariant; 
  20491.                                     var Item: OleVariant; var Copies: OleVariant; 
  20492.                                     var Pages: OleVariant; var PageType: OleVariant; 
  20493.                                     var PrintToFile: OleVariant; var Collate: OleVariant; 
  20494.                                     var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
  20495.                                     var ManualDuplexPrint: OleVariant);
  20496. begin
  20497.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  20498.                             Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, 
  20499.                             ManualDuplexPrint);
  20500. end;
  20501.  
  20502. procedure TWordApplication.LookupNameProperties(const Name: WideString);
  20503. begin
  20504.   DefaultInterface.LookupNameProperties(Name);
  20505. end;
  20506.  
  20507. procedure TWordApplication.SubstituteFont(const UnavailableFont: WideString; 
  20508.                                           const SubstituteFont: WideString);
  20509. begin
  20510.   DefaultInterface.SubstituteFont(UnavailableFont, SubstituteFont);
  20511. end;
  20512.  
  20513. function  TWordApplication.Repeat_: WordBool;
  20514. begin
  20515.   Result := DefaultInterface.Repeat_(EmptyParam);
  20516. end;
  20517.  
  20518. function  TWordApplication.Repeat_(var Times: OleVariant): WordBool;
  20519. begin
  20520.   Result := DefaultInterface.Repeat_(Times);
  20521. end;
  20522.  
  20523. procedure TWordApplication.DDEExecute(Channel: Integer; const Command: WideString);
  20524. begin
  20525.   DefaultInterface.DDEExecute(Channel, Command);
  20526. end;
  20527.  
  20528. function  TWordApplication.DDEInitiate(const App: WideString; const Topic: WideString): Integer;
  20529. begin
  20530.   Result := DefaultInterface.DDEInitiate(App, Topic);
  20531. end;
  20532.  
  20533. procedure TWordApplication.DDEPoke(Channel: Integer; const Item: WideString; const Data: WideString);
  20534. begin
  20535.   DefaultInterface.DDEPoke(Channel, Item, Data);
  20536. end;
  20537.  
  20538. function  TWordApplication.DDERequest(Channel: Integer; const Item: WideString): WideString;
  20539. begin
  20540.   Result := DefaultInterface.DDERequest(Channel, Item);
  20541. end;
  20542.  
  20543. procedure TWordApplication.DDETerminate(Channel: Integer);
  20544. begin
  20545.   DefaultInterface.DDETerminate(Channel);
  20546. end;
  20547.  
  20548. procedure TWordApplication.DDETerminateAll;
  20549. begin
  20550.   DefaultInterface.DDETerminateAll;
  20551. end;
  20552.  
  20553. function  TWordApplication.BuildKeyCode(Arg1: WdKey): Integer;
  20554. begin
  20555.   Result := DefaultInterface.BuildKeyCode(Arg1, EmptyParam, EmptyParam, EmptyParam);
  20556. end;
  20557.  
  20558. function  TWordApplication.BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant): Integer;
  20559. begin
  20560.   Result := DefaultInterface.BuildKeyCode(Arg1, Arg2, EmptyParam, EmptyParam);
  20561. end;
  20562.  
  20563. function  TWordApplication.BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant): Integer;
  20564. begin
  20565.   Result := DefaultInterface.BuildKeyCode(Arg1, Arg2, Arg3, EmptyParam);
  20566. end;
  20567.  
  20568. function  TWordApplication.BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant; 
  20569.                                         var Arg4: OleVariant): Integer;
  20570. begin
  20571.   Result := DefaultInterface.BuildKeyCode(Arg1, Arg2, Arg3, Arg4);
  20572. end;
  20573.  
  20574. function  TWordApplication.KeyString(KeyCode: Integer): WideString;
  20575. begin
  20576.   Result := DefaultInterface.KeyString(KeyCode, EmptyParam);
  20577. end;
  20578.  
  20579. function  TWordApplication.KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString;
  20580. begin
  20581.   Result := DefaultInterface.KeyString(KeyCode, KeyCode2);
  20582. end;
  20583.  
  20584. procedure TWordApplication.OrganizerCopy(const Source: WideString; const Destination: WideString; 
  20585.                                          const Name: WideString; Object_: WdOrganizerObject);
  20586. begin
  20587.   DefaultInterface.OrganizerCopy(Source, Destination, Name, Object_);
  20588. end;
  20589.  
  20590. procedure TWordApplication.OrganizerDelete(const Source: WideString; const Name: WideString; 
  20591.                                            Object_: WdOrganizerObject);
  20592. begin
  20593.   DefaultInterface.OrganizerDelete(Source, Name, Object_);
  20594. end;
  20595.  
  20596. procedure TWordApplication.OrganizerRename(const Source: WideString; const Name: WideString; 
  20597.                                            const NewName: WideString; Object_: WdOrganizerObject);
  20598. begin
  20599.   DefaultInterface.OrganizerRename(Source, Name, NewName, Object_);
  20600. end;
  20601.  
  20602. procedure TWordApplication.AddAddress(var TagID: PSafeArray; var Value: PSafeArray);
  20603. begin
  20604.   DefaultInterface.AddAddress(TagID, Value);
  20605. end;
  20606.  
  20607. function  TWordApplication.GetAddress: WideString;
  20608. begin
  20609.   Result := DefaultInterface.GetAddress(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20610.                                         EmptyParam, EmptyParam, EmptyParam);
  20611. end;
  20612.  
  20613. function  TWordApplication.GetAddress(var Name: OleVariant): WideString;
  20614. begin
  20615.   Result := DefaultInterface.GetAddress(Name, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20616.                                         EmptyParam, EmptyParam, EmptyParam);
  20617. end;
  20618.  
  20619. function  TWordApplication.GetAddress(var Name: OleVariant; var AddressProperties: OleVariant): WideString;
  20620. begin
  20621.   Result := DefaultInterface.GetAddress(Name, AddressProperties, EmptyParam, EmptyParam, 
  20622.                                         EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  20623. end;
  20624.  
  20625. function  TWordApplication.GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
  20626.                                       var UseAutoText: OleVariant): WideString;
  20627. begin
  20628.   Result := DefaultInterface.GetAddress(Name, AddressProperties, UseAutoText, EmptyParam, 
  20629.                                         EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  20630. end;
  20631.  
  20632. function  TWordApplication.GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
  20633.                                       var UseAutoText: OleVariant; 
  20634.                                       var DisplaySelectDialog: OleVariant): WideString;
  20635. begin
  20636.   Result := DefaultInterface.GetAddress(Name, AddressProperties, UseAutoText, DisplaySelectDialog, 
  20637.                                         EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  20638. end;
  20639.  
  20640. function  TWordApplication.GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
  20641.                                       var UseAutoText: OleVariant; 
  20642.                                       var DisplaySelectDialog: OleVariant; 
  20643.                                       var SelectDialog: OleVariant): WideString;
  20644. begin
  20645.   Result := DefaultInterface.GetAddress(Name, AddressProperties, UseAutoText, DisplaySelectDialog, 
  20646.                                         SelectDialog, EmptyParam, EmptyParam, EmptyParam);
  20647. end;
  20648.  
  20649. function  TWordApplication.GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
  20650.                                       var UseAutoText: OleVariant; 
  20651.                                       var DisplaySelectDialog: OleVariant; 
  20652.                                       var SelectDialog: OleVariant; var CheckNamesDialog: OleVariant): WideString;
  20653. begin
  20654.   Result := DefaultInterface.GetAddress(Name, AddressProperties, UseAutoText, DisplaySelectDialog, 
  20655.                                         SelectDialog, CheckNamesDialog, EmptyParam, EmptyParam);
  20656. end;
  20657.  
  20658. function  TWordApplication.GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
  20659.                                       var UseAutoText: OleVariant; 
  20660.                                       var DisplaySelectDialog: OleVariant; 
  20661.                                       var SelectDialog: OleVariant; 
  20662.                                       var CheckNamesDialog: OleVariant; 
  20663.                                       var RecentAddressesChoice: OleVariant): WideString;
  20664. begin
  20665.   Result := DefaultInterface.GetAddress(Name, AddressProperties, UseAutoText, DisplaySelectDialog, 
  20666.                                         SelectDialog, CheckNamesDialog, RecentAddressesChoice, 
  20667.                                         EmptyParam);
  20668. end;
  20669.  
  20670. function  TWordApplication.GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
  20671.                                       var UseAutoText: OleVariant; 
  20672.                                       var DisplaySelectDialog: OleVariant; 
  20673.                                       var SelectDialog: OleVariant; 
  20674.                                       var CheckNamesDialog: OleVariant; 
  20675.                                       var RecentAddressesChoice: OleVariant; 
  20676.                                       var UpdateRecentAddresses: OleVariant): WideString;
  20677. begin
  20678.   Result := DefaultInterface.GetAddress(Name, AddressProperties, UseAutoText, DisplaySelectDialog, 
  20679.                                         SelectDialog, CheckNamesDialog, RecentAddressesChoice, 
  20680.                                         UpdateRecentAddresses);
  20681. end;
  20682.  
  20683. function  TWordApplication.CheckGrammar(const String_: WideString): WordBool;
  20684. begin
  20685.   Result := DefaultInterface.CheckGrammar(String_);
  20686. end;
  20687.  
  20688. function  TWordApplication.CheckSpelling(const Word: WideString): WordBool;
  20689. begin
  20690.   Result := DefaultInterface.CheckSpelling(Word, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20691.                                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20692.                                            EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  20693. end;
  20694.  
  20695. function  TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant): WordBool;
  20696. begin
  20697.   Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, EmptyParam, EmptyParam, 
  20698.                                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20699.                                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20700.                                            EmptyParam);
  20701. end;
  20702.  
  20703. function  TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  20704.                                          var IgnoreUppercase: OleVariant): WordBool;
  20705. begin
  20706.   Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, EmptyParam, 
  20707.                                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20708.                                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20709.                                            EmptyParam);
  20710. end;
  20711.  
  20712. function  TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  20713.                                          var IgnoreUppercase: OleVariant; 
  20714.                                          var MainDictionary: OleVariant): WordBool;
  20715. begin
  20716.   Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
  20717.                                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20718.                                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20719.                                            EmptyParam);
  20720. end;
  20721.  
  20722. function  TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  20723.                                          var IgnoreUppercase: OleVariant; 
  20724.                                          var MainDictionary: OleVariant; 
  20725.                                          var CustomDictionary2: OleVariant): WordBool;
  20726. begin
  20727.   Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
  20728.                                            CustomDictionary2, EmptyParam, EmptyParam, EmptyParam, 
  20729.                                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20730.                                            EmptyParam);
  20731. end;
  20732.  
  20733. function  TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  20734.                                          var IgnoreUppercase: OleVariant; 
  20735.                                          var MainDictionary: OleVariant; 
  20736.                                          var CustomDictionary2: OleVariant; 
  20737.                                          var CustomDictionary3: OleVariant): WordBool;
  20738. begin
  20739.   Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
  20740.                                            CustomDictionary2, CustomDictionary3, EmptyParam, 
  20741.                                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20742.                                            EmptyParam, EmptyParam);
  20743. end;
  20744.  
  20745. function  TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  20746.                                          var IgnoreUppercase: OleVariant; 
  20747.                                          var MainDictionary: OleVariant; 
  20748.                                          var CustomDictionary2: OleVariant; 
  20749.                                          var CustomDictionary3: OleVariant; 
  20750.                                          var CustomDictionary4: OleVariant): WordBool;
  20751. begin
  20752.   Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
  20753.                                            CustomDictionary2, CustomDictionary3, CustomDictionary4, 
  20754.                                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20755.                                            EmptyParam, EmptyParam);
  20756. end;
  20757.  
  20758. function  TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  20759.                                          var IgnoreUppercase: OleVariant; 
  20760.                                          var MainDictionary: OleVariant; 
  20761.                                          var CustomDictionary2: OleVariant; 
  20762.                                          var CustomDictionary3: OleVariant; 
  20763.                                          var CustomDictionary4: OleVariant; 
  20764.                                          var CustomDictionary5: OleVariant): WordBool;
  20765. begin
  20766.   Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
  20767.                                            CustomDictionary2, CustomDictionary3, CustomDictionary4, 
  20768.                                            CustomDictionary5, EmptyParam, EmptyParam, EmptyParam, 
  20769.                                            EmptyParam, EmptyParam);
  20770. end;
  20771.  
  20772. function  TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  20773.                                          var IgnoreUppercase: OleVariant; 
  20774.                                          var MainDictionary: OleVariant; 
  20775.                                          var CustomDictionary2: OleVariant; 
  20776.                                          var CustomDictionary3: OleVariant; 
  20777.                                          var CustomDictionary4: OleVariant; 
  20778.                                          var CustomDictionary5: OleVariant; 
  20779.                                          var CustomDictionary6: OleVariant): WordBool;
  20780. begin
  20781.   Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
  20782.                                            CustomDictionary2, CustomDictionary3, CustomDictionary4, 
  20783.                                            CustomDictionary5, CustomDictionary6, EmptyParam, 
  20784.                                            EmptyParam, EmptyParam, EmptyParam);
  20785. end;
  20786.  
  20787. function  TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  20788.                                          var IgnoreUppercase: OleVariant; 
  20789.                                          var MainDictionary: OleVariant; 
  20790.                                          var CustomDictionary2: OleVariant; 
  20791.                                          var CustomDictionary3: OleVariant; 
  20792.                                          var CustomDictionary4: OleVariant; 
  20793.                                          var CustomDictionary5: OleVariant; 
  20794.                                          var CustomDictionary6: OleVariant; 
  20795.                                          var CustomDictionary7: OleVariant): WordBool;
  20796. begin
  20797.   Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
  20798.                                            CustomDictionary2, CustomDictionary3, CustomDictionary4, 
  20799.                                            CustomDictionary5, CustomDictionary6, CustomDictionary7, 
  20800.                                            EmptyParam, EmptyParam, EmptyParam);
  20801. end;
  20802.  
  20803. function  TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  20804.                                          var IgnoreUppercase: OleVariant; 
  20805.                                          var MainDictionary: OleVariant; 
  20806.                                          var CustomDictionary2: OleVariant; 
  20807.                                          var CustomDictionary3: OleVariant; 
  20808.                                          var CustomDictionary4: OleVariant; 
  20809.                                          var CustomDictionary5: OleVariant; 
  20810.                                          var CustomDictionary6: OleVariant; 
  20811.                                          var CustomDictionary7: OleVariant; 
  20812.                                          var CustomDictionary8: OleVariant): WordBool;
  20813. begin
  20814.   Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
  20815.                                            CustomDictionary2, CustomDictionary3, CustomDictionary4, 
  20816.                                            CustomDictionary5, CustomDictionary6, CustomDictionary7, 
  20817.                                            CustomDictionary8, EmptyParam, EmptyParam);
  20818. end;
  20819.  
  20820. function  TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  20821.                                          var IgnoreUppercase: OleVariant; 
  20822.                                          var MainDictionary: OleVariant; 
  20823.                                          var CustomDictionary2: OleVariant; 
  20824.                                          var CustomDictionary3: OleVariant; 
  20825.                                          var CustomDictionary4: OleVariant; 
  20826.                                          var CustomDictionary5: OleVariant; 
  20827.                                          var CustomDictionary6: OleVariant; 
  20828.                                          var CustomDictionary7: OleVariant; 
  20829.                                          var CustomDictionary8: OleVariant; 
  20830.                                          var CustomDictionary9: OleVariant): WordBool;
  20831. begin
  20832.   Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
  20833.                                            CustomDictionary2, CustomDictionary3, CustomDictionary4, 
  20834.                                            CustomDictionary5, CustomDictionary6, CustomDictionary7, 
  20835.                                            CustomDictionary8, CustomDictionary9, EmptyParam);
  20836. end;
  20837.  
  20838. function  TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
  20839.                                          var IgnoreUppercase: OleVariant; 
  20840.                                          var MainDictionary: OleVariant; 
  20841.                                          var CustomDictionary2: OleVariant; 
  20842.                                          var CustomDictionary3: OleVariant; 
  20843.                                          var CustomDictionary4: OleVariant; 
  20844.                                          var CustomDictionary5: OleVariant; 
  20845.                                          var CustomDictionary6: OleVariant; 
  20846.                                          var CustomDictionary7: OleVariant; 
  20847.                                          var CustomDictionary8: OleVariant; 
  20848.                                          var CustomDictionary9: OleVariant; 
  20849.                                          var CustomDictionary10: OleVariant): WordBool;
  20850. begin
  20851.   Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
  20852.                                            CustomDictionary2, CustomDictionary3, CustomDictionary4, 
  20853.                                            CustomDictionary5, CustomDictionary6, CustomDictionary7, 
  20854.                                            CustomDictionary8, CustomDictionary9, CustomDictionary10);
  20855. end;
  20856.  
  20857. procedure TWordApplication.ResetIgnoreAll;
  20858. begin
  20859.   DefaultInterface.ResetIgnoreAll;
  20860. end;
  20861.  
  20862. function  TWordApplication.GetSpellingSuggestions(const Word: WideString): SpellingSuggestions;
  20863. begin
  20864.   Result := DefaultInterface.GetSpellingSuggestions(Word, EmptyParam, EmptyParam, EmptyParam, 
  20865.                                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20866.                                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20867.                                                     EmptyParam, EmptyParam);
  20868. end;
  20869.  
  20870. function  TWordApplication.GetSpellingSuggestions(const Word: WideString; 
  20871.                                                   var CustomDictionary: OleVariant): SpellingSuggestions;
  20872. begin
  20873.   Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, EmptyParam, EmptyParam, 
  20874.                                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20875.                                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20876.                                                     EmptyParam, EmptyParam);
  20877. end;
  20878.  
  20879. function  TWordApplication.GetSpellingSuggestions(const Word: WideString; 
  20880.                                                   var CustomDictionary: OleVariant; 
  20881.                                                   var IgnoreUppercase: OleVariant): SpellingSuggestions;
  20882. begin
  20883.   Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
  20884.                                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20885.                                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20886.                                                     EmptyParam, EmptyParam, EmptyParam);
  20887. end;
  20888.  
  20889. function  TWordApplication.GetSpellingSuggestions(const Word: WideString; 
  20890.                                                   var CustomDictionary: OleVariant; 
  20891.                                                   var IgnoreUppercase: OleVariant; 
  20892.                                                   var MainDictionary: OleVariant): SpellingSuggestions;
  20893. begin
  20894.   Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
  20895.                                                     MainDictionary, EmptyParam, EmptyParam, 
  20896.                                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20897.                                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  20898. end;
  20899.  
  20900. function  TWordApplication.GetSpellingSuggestions(const Word: WideString; 
  20901.                                                   var CustomDictionary: OleVariant; 
  20902.                                                   var IgnoreUppercase: OleVariant; 
  20903.                                                   var MainDictionary: OleVariant; 
  20904.                                                   var SuggestionMode: OleVariant): SpellingSuggestions;
  20905. begin
  20906.   Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
  20907.                                                     MainDictionary, SuggestionMode, EmptyParam, 
  20908.                                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20909.                                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  20910. end;
  20911.  
  20912. function  TWordApplication.GetSpellingSuggestions(const Word: WideString; 
  20913.                                                   var CustomDictionary: OleVariant; 
  20914.                                                   var IgnoreUppercase: OleVariant; 
  20915.                                                   var MainDictionary: OleVariant; 
  20916.                                                   var SuggestionMode: OleVariant; 
  20917.                                                   var CustomDictionary2: OleVariant): SpellingSuggestions;
  20918. begin
  20919.   Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
  20920.                                                     MainDictionary, SuggestionMode, 
  20921.                                                     CustomDictionary2, EmptyParam, EmptyParam, 
  20922.                                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20923.                                                     EmptyParam, EmptyParam);
  20924. end;
  20925.  
  20926. function  TWordApplication.GetSpellingSuggestions(const Word: WideString; 
  20927.                                                   var CustomDictionary: OleVariant; 
  20928.                                                   var IgnoreUppercase: OleVariant; 
  20929.                                                   var MainDictionary: OleVariant; 
  20930.                                                   var SuggestionMode: OleVariant; 
  20931.                                                   var CustomDictionary2: OleVariant; 
  20932.                                                   var CustomDictionary3: OleVariant): SpellingSuggestions;
  20933. begin
  20934.   Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
  20935.                                                     MainDictionary, SuggestionMode, 
  20936.                                                     CustomDictionary2, CustomDictionary3, 
  20937.                                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20938.                                                     EmptyParam, EmptyParam, EmptyParam);
  20939. end;
  20940.  
  20941. function  TWordApplication.GetSpellingSuggestions(const Word: WideString; 
  20942.                                                   var CustomDictionary: OleVariant; 
  20943.                                                   var IgnoreUppercase: OleVariant; 
  20944.                                                   var MainDictionary: OleVariant; 
  20945.                                                   var SuggestionMode: OleVariant; 
  20946.                                                   var CustomDictionary2: OleVariant; 
  20947.                                                   var CustomDictionary3: OleVariant; 
  20948.                                                   var CustomDictionary4: OleVariant): SpellingSuggestions;
  20949. begin
  20950.   Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
  20951.                                                     MainDictionary, SuggestionMode, 
  20952.                                                     CustomDictionary2, CustomDictionary3, 
  20953.                                                     CustomDictionary4, EmptyParam, EmptyParam, 
  20954.                                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  20955. end;
  20956.  
  20957. function  TWordApplication.GetSpellingSuggestions(const Word: WideString; 
  20958.                                                   var CustomDictionary: OleVariant; 
  20959.                                                   var IgnoreUppercase: OleVariant; 
  20960.                                                   var MainDictionary: OleVariant; 
  20961.                                                   var SuggestionMode: OleVariant; 
  20962.                                                   var CustomDictionary2: OleVariant; 
  20963.                                                   var CustomDictionary3: OleVariant; 
  20964.                                                   var CustomDictionary4: OleVariant; 
  20965.                                                   var CustomDictionary5: OleVariant): SpellingSuggestions;
  20966. begin
  20967.   Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
  20968.                                                     MainDictionary, SuggestionMode, 
  20969.                                                     CustomDictionary2, CustomDictionary3, 
  20970.                                                     CustomDictionary4, CustomDictionary5, 
  20971.                                                     EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  20972.                                                     EmptyParam);
  20973. end;
  20974.  
  20975. function  TWordApplication.GetSpellingSuggestions(const Word: WideString; 
  20976.                                                   var CustomDictionary: OleVariant; 
  20977.                                                   var IgnoreUppercase: OleVariant; 
  20978.                                                   var MainDictionary: OleVariant; 
  20979.                                                   var SuggestionMode: OleVariant; 
  20980.                                                   var CustomDictionary2: OleVariant; 
  20981.                                                   var CustomDictionary3: OleVariant; 
  20982.                                                   var CustomDictionary4: OleVariant; 
  20983.                                                   var CustomDictionary5: OleVariant; 
  20984.                                                   var CustomDictionary6: OleVariant): SpellingSuggestions;
  20985. begin
  20986.   Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
  20987.                                                     MainDictionary, SuggestionMode, 
  20988.                                                     CustomDictionary2, CustomDictionary3, 
  20989.                                                     CustomDictionary4, CustomDictionary5, 
  20990.                                                     CustomDictionary6, EmptyParam, EmptyParam, 
  20991.                                                     EmptyParam, EmptyParam);
  20992. end;
  20993.  
  20994. function  TWordApplication.GetSpellingSuggestions(const Word: WideString; 
  20995.                                                   var CustomDictionary: OleVariant; 
  20996.                                                   var IgnoreUppercase: OleVariant; 
  20997.                                                   var MainDictionary: OleVariant; 
  20998.                                                   var SuggestionMode: OleVariant; 
  20999.                                                   var CustomDictionary2: OleVariant; 
  21000.                                                   var CustomDictionary3: OleVariant; 
  21001.                                                   var CustomDictionary4: OleVariant; 
  21002.                                                   var CustomDictionary5: OleVariant; 
  21003.                                                   var CustomDictionary6: OleVariant; 
  21004.                                                   var CustomDictionary7: OleVariant): SpellingSuggestions;
  21005. begin
  21006.   Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
  21007.                                                     MainDictionary, SuggestionMode, 
  21008.                                                     CustomDictionary2, CustomDictionary3, 
  21009.                                                     CustomDictionary4, CustomDictionary5, 
  21010.                                                     CustomDictionary6, CustomDictionary7, 
  21011.                                                     EmptyParam, EmptyParam, EmptyParam);
  21012. end;
  21013.  
  21014. function  TWordApplication.GetSpellingSuggestions(const Word: WideString; 
  21015.                                                   var CustomDictionary: OleVariant; 
  21016.                                                   var IgnoreUppercase: OleVariant; 
  21017.                                                   var MainDictionary: OleVariant; 
  21018.                                                   var SuggestionMode: OleVariant; 
  21019.                                                   var CustomDictionary2: OleVariant; 
  21020.                                                   var CustomDictionary3: OleVariant; 
  21021.                                                   var CustomDictionary4: OleVariant; 
  21022.                                                   var CustomDictionary5: OleVariant; 
  21023.                                                   var CustomDictionary6: OleVariant; 
  21024.                                                   var CustomDictionary7: OleVariant; 
  21025.                                                   var CustomDictionary8: OleVariant): SpellingSuggestions;
  21026. begin
  21027.   Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
  21028.                                                     MainDictionary, SuggestionMode, 
  21029.                                                     CustomDictionary2, CustomDictionary3, 
  21030.                                                     CustomDictionary4, CustomDictionary5, 
  21031.                                                     CustomDictionary6, CustomDictionary7, 
  21032.                                                     CustomDictionary8, EmptyParam, EmptyParam);
  21033. end;
  21034.  
  21035. function  TWordApplication.GetSpellingSuggestions(const Word: WideString; 
  21036.                                                   var CustomDictionary: OleVariant; 
  21037.                                                   var IgnoreUppercase: OleVariant; 
  21038.                                                   var MainDictionary: OleVariant; 
  21039.                                                   var SuggestionMode: OleVariant; 
  21040.                                                   var CustomDictionary2: OleVariant; 
  21041.                                                   var CustomDictionary3: OleVariant; 
  21042.                                                   var CustomDictionary4: OleVariant; 
  21043.                                                   var CustomDictionary5: OleVariant; 
  21044.                                                   var CustomDictionary6: OleVariant; 
  21045.                                                   var CustomDictionary7: OleVariant; 
  21046.                                                   var CustomDictionary8: OleVariant; 
  21047.                                                   var CustomDictionary9: OleVariant): SpellingSuggestions;
  21048. begin
  21049.   Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
  21050.                                                     MainDictionary, SuggestionMode, 
  21051.                                                     CustomDictionary2, CustomDictionary3, 
  21052.                                                     CustomDictionary4, CustomDictionary5, 
  21053.                                                     CustomDictionary6, CustomDictionary7, 
  21054.                                                     CustomDictionary8, CustomDictionary9, EmptyParam);
  21055. end;
  21056.  
  21057. function  TWordApplication.GetSpellingSuggestions(const Word: WideString; 
  21058.                                                   var CustomDictionary: OleVariant; 
  21059.                                                   var IgnoreUppercase: OleVariant; 
  21060.                                                   var MainDictionary: OleVariant; 
  21061.                                                   var SuggestionMode: OleVariant; 
  21062.                                                   var CustomDictionary2: OleVariant; 
  21063.                                                   var CustomDictionary3: OleVariant; 
  21064.                                                   var CustomDictionary4: OleVariant; 
  21065.                                                   var CustomDictionary5: OleVariant; 
  21066.                                                   var CustomDictionary6: OleVariant; 
  21067.                                                   var CustomDictionary7: OleVariant; 
  21068.                                                   var CustomDictionary8: OleVariant; 
  21069.                                                   var CustomDictionary9: OleVariant; 
  21070.                                                   var CustomDictionary10: OleVariant): SpellingSuggestions;
  21071. begin
  21072.   Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
  21073.                                                     MainDictionary, SuggestionMode, 
  21074.                                                     CustomDictionary2, CustomDictionary3, 
  21075.                                                     CustomDictionary4, CustomDictionary5, 
  21076.                                                     CustomDictionary6, CustomDictionary7, 
  21077.                                                     CustomDictionary8, CustomDictionary9, 
  21078.                                                     CustomDictionary10);
  21079. end;
  21080.  
  21081. procedure TWordApplication.GoBack;
  21082. begin
  21083.   DefaultInterface.GoBack;
  21084. end;
  21085.  
  21086. procedure TWordApplication.Help(var HelpType: OleVariant);
  21087. begin
  21088.   DefaultInterface.Help(HelpType);
  21089. end;
  21090.  
  21091. procedure TWordApplication.AutomaticChange;
  21092. begin
  21093.   DefaultInterface.AutomaticChange;
  21094. end;
  21095.  
  21096. procedure TWordApplication.ShowMe;
  21097. begin
  21098.   DefaultInterface.ShowMe;
  21099. end;
  21100.  
  21101. procedure TWordApplication.HelpTool;
  21102. begin
  21103.   DefaultInterface.HelpTool;
  21104. end;
  21105.  
  21106. function  TWordApplication.NewWindow: Window;
  21107. begin
  21108.   Result := DefaultInterface.NewWindow;
  21109. end;
  21110.  
  21111. procedure TWordApplication.ListCommands(ListAllCommands: WordBool);
  21112. begin
  21113.   DefaultInterface.ListCommands(ListAllCommands);
  21114. end;
  21115.  
  21116. procedure TWordApplication.ShowClipboard;
  21117. begin
  21118.   DefaultInterface.ShowClipboard;
  21119. end;
  21120.  
  21121. procedure TWordApplication.OnTime(var When: OleVariant; const Name: WideString);
  21122. begin
  21123.   DefaultInterface.OnTime(When, Name, EmptyParam);
  21124. end;
  21125.  
  21126. procedure TWordApplication.OnTime(var When: OleVariant; const Name: WideString; 
  21127.                                   var Tolerance: OleVariant);
  21128. begin
  21129.   DefaultInterface.OnTime(When, Name, Tolerance);
  21130. end;
  21131.  
  21132. procedure TWordApplication.NextLetter;
  21133. begin
  21134.   DefaultInterface.NextLetter;
  21135. end;
  21136.  
  21137. function  TWordApplication.MountVolume(const Zone: WideString; const Server: WideString; 
  21138.                                        const Volume: WideString): Smallint;
  21139. begin
  21140.   Result := DefaultInterface.MountVolume(Zone, Server, Volume, EmptyParam, EmptyParam, EmptyParam);
  21141. end;
  21142.  
  21143. function  TWordApplication.MountVolume(const Zone: WideString; const Server: WideString; 
  21144.                                        const Volume: WideString; var User: OleVariant): Smallint;
  21145. begin
  21146.   Result := DefaultInterface.MountVolume(Zone, Server, Volume, User, EmptyParam, EmptyParam);
  21147. end;
  21148.  
  21149. function  TWordApplication.MountVolume(const Zone: WideString; const Server: WideString; 
  21150.                                        const Volume: WideString; var User: OleVariant; 
  21151.                                        var UserPassword: OleVariant): Smallint;
  21152. begin
  21153.   Result := DefaultInterface.MountVolume(Zone, Server, Volume, User, UserPassword, EmptyParam);
  21154. end;
  21155.  
  21156. function  TWordApplication.MountVolume(const Zone: WideString; const Server: WideString; 
  21157.                                        const Volume: WideString; var User: OleVariant; 
  21158.                                        var UserPassword: OleVariant; var VolumePassword: OleVariant): Smallint;
  21159. begin
  21160.   Result := DefaultInterface.MountVolume(Zone, Server, Volume, User, UserPassword, VolumePassword);
  21161. end;
  21162.  
  21163. function  TWordApplication.CleanString(const String_: WideString): WideString;
  21164. begin
  21165.   Result := DefaultInterface.CleanString(String_);
  21166. end;
  21167.  
  21168. procedure TWordApplication.SendFax;
  21169. begin
  21170.   DefaultInterface.SendFax;
  21171. end;
  21172.  
  21173. procedure TWordApplication.ChangeFileOpenDirectory(const Path: WideString);
  21174. begin
  21175.   DefaultInterface.ChangeFileOpenDirectory(Path);
  21176. end;
  21177.  
  21178. procedure TWordApplication.Run(const MacroName: WideString);
  21179. begin
  21180.   DefaultInterface.Run(MacroName);
  21181. end;
  21182.  
  21183. procedure TWordApplication.GoForward;
  21184. begin
  21185.   DefaultInterface.GoForward;
  21186. end;
  21187.  
  21188. procedure TWordApplication.Move(Left: Integer; Top: Integer);
  21189. begin
  21190.   DefaultInterface.Move(Left, Top);
  21191. end;
  21192.  
  21193. procedure TWordApplication.Resize(Width: Integer; Height: Integer);
  21194. begin
  21195.   DefaultInterface.Resize(Width, Height);
  21196. end;
  21197.  
  21198. function  TWordApplication.InchesToPoints(Inches: Single): Single;
  21199. begin
  21200.   Result := DefaultInterface.InchesToPoints(Inches);
  21201. end;
  21202.  
  21203. function  TWordApplication.CentimetersToPoints(Centimeters: Single): Single;
  21204. begin
  21205.   Result := DefaultInterface.CentimetersToPoints(Centimeters);
  21206. end;
  21207.  
  21208. function  TWordApplication.MillimetersToPoints(Millimeters: Single): Single;
  21209. begin
  21210.   Result := DefaultInterface.MillimetersToPoints(Millimeters);
  21211. end;
  21212.  
  21213. function  TWordApplication.PicasToPoints(Picas: Single): Single;
  21214. begin
  21215.   Result := DefaultInterface.PicasToPoints(Picas);
  21216. end;
  21217.  
  21218. function  TWordApplication.LinesToPoints(Lines: Single): Single;
  21219. begin
  21220.   Result := DefaultInterface.LinesToPoints(Lines);
  21221. end;
  21222.  
  21223. function  TWordApplication.PointsToInches(Points: Single): Single;
  21224. begin
  21225.   Result := DefaultInterface.PointsToInches(Points);
  21226. end;
  21227.  
  21228. function  TWordApplication.PointsToCentimeters(Points: Single): Single;
  21229. begin
  21230.   Result := DefaultInterface.PointsToCentimeters(Points);
  21231. end;
  21232.  
  21233. function  TWordApplication.PointsToMillimeters(Points: Single): Single;
  21234. begin
  21235.   Result := DefaultInterface.PointsToMillimeters(Points);
  21236. end;
  21237.  
  21238. function  TWordApplication.PointsToPicas(Points: Single): Single;
  21239. begin
  21240.   Result := DefaultInterface.PointsToPicas(Points);
  21241. end;
  21242.  
  21243. function  TWordApplication.PointsToLines(Points: Single): Single;
  21244. begin
  21245.   Result := DefaultInterface.PointsToLines(Points);
  21246. end;
  21247.  
  21248. procedure TWordApplication.Activate;
  21249. begin
  21250.   DefaultInterface.Activate;
  21251. end;
  21252.  
  21253. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  21254. constructor TWordApplicationProperties.Create(AServer: TWordApplication);
  21255. begin
  21256.   inherited Create;
  21257.   FServer := AServer;
  21258. end;
  21259.  
  21260. function TWordApplicationProperties.GetDefaultInterface: _Application;
  21261. begin
  21262.   Result := FServer.DefaultInterface;
  21263. end;
  21264.  
  21265. function  TWordApplicationProperties.Get_Application: WordApplication;
  21266. begin
  21267.   Result := DefaultInterface.Get_Application;
  21268. end;
  21269.  
  21270. function  TWordApplicationProperties.Get_Creator: Integer;
  21271. begin
  21272.   Result := DefaultInterface.Get_Creator;
  21273. end;
  21274.  
  21275. function  TWordApplicationProperties.Get_Parent: IDispatch;
  21276. begin
  21277.   Result := DefaultInterface.Get_Parent;
  21278. end;
  21279.  
  21280. function  TWordApplicationProperties.Get_Name: WideString;
  21281. begin
  21282.   Result := DefaultInterface.Get_Name;
  21283. end;
  21284.  
  21285. function  TWordApplicationProperties.Get_Documents: Documents;
  21286. begin
  21287.   Result := DefaultInterface.Get_Documents;
  21288. end;
  21289.  
  21290. function  TWordApplicationProperties.Get_Windows: Windows;
  21291. begin
  21292.   Result := DefaultInterface.Get_Windows;
  21293. end;
  21294.  
  21295. function  TWordApplicationProperties.Get_ActiveDocument: WordDocument;
  21296. begin
  21297.   Result := DefaultInterface.Get_ActiveDocument;
  21298. end;
  21299.  
  21300. function  TWordApplicationProperties.Get_ActiveWindow: Window;
  21301. begin
  21302.   Result := DefaultInterface.Get_ActiveWindow;
  21303. end;
  21304.  
  21305. function  TWordApplicationProperties.Get_Selection: Selection;
  21306. begin
  21307.   Result := DefaultInterface.Get_Selection;
  21308. end;
  21309.  
  21310. function  TWordApplicationProperties.Get_WordBasic: IDispatch;
  21311. begin
  21312.   Result := DefaultInterface.Get_WordBasic;
  21313. end;
  21314.  
  21315. function  TWordApplicationProperties.Get_RecentFiles: RecentFiles;
  21316. begin
  21317.   Result := DefaultInterface.Get_RecentFiles;
  21318. end;
  21319.  
  21320. function  TWordApplicationProperties.Get_NormalTemplate: Template;
  21321. begin
  21322.   Result := DefaultInterface.Get_NormalTemplate;
  21323. end;
  21324.  
  21325. function  TWordApplicationProperties.Get_System_: System;
  21326. begin
  21327.   Result := DefaultInterface.Get_System_;
  21328. end;
  21329.  
  21330. function  TWordApplicationProperties.Get_AutoCorrect: AutoCorrect;
  21331. begin
  21332.   Result := DefaultInterface.Get_AutoCorrect;
  21333. end;
  21334.  
  21335. function  TWordApplicationProperties.Get_FontNames: FontNames;
  21336. begin
  21337.   Result := DefaultInterface.Get_FontNames;
  21338. end;
  21339.  
  21340. function  TWordApplicationProperties.Get_LandscapeFontNames: FontNames;
  21341. begin
  21342.   Result := DefaultInterface.Get_LandscapeFontNames;
  21343. end;
  21344.  
  21345. function  TWordApplicationProperties.Get_PortraitFontNames: FontNames;
  21346. begin
  21347.   Result := DefaultInterface.Get_PortraitFontNames;
  21348. end;
  21349.  
  21350. function  TWordApplicationProperties.Get_Languages: Languages;
  21351. begin
  21352.   Result := DefaultInterface.Get_Languages;
  21353. end;
  21354.  
  21355. function  TWordApplicationProperties.Get_Assistant: Assistant;
  21356. begin
  21357.   Result := DefaultInterface.Get_Assistant;
  21358. end;
  21359.  
  21360. function  TWordApplicationProperties.Get_Browser: Browser;
  21361. begin
  21362.   Result := DefaultInterface.Get_Browser;
  21363. end;
  21364.  
  21365. function  TWordApplicationProperties.Get_FileConverters: FileConverters;
  21366. begin
  21367.   Result := DefaultInterface.Get_FileConverters;
  21368. end;
  21369.  
  21370. function  TWordApplicationProperties.Get_MailingLabel: MailingLabel;
  21371. begin
  21372.   Result := DefaultInterface.Get_MailingLabel;
  21373. end;
  21374.  
  21375. function  TWordApplicationProperties.Get_Dialogs: Dialogs;
  21376. begin
  21377.   Result := DefaultInterface.Get_Dialogs;
  21378. end;
  21379.  
  21380. function  TWordApplicationProperties.Get_CaptionLabels: CaptionLabels;
  21381. begin
  21382.   Result := DefaultInterface.Get_CaptionLabels;
  21383. end;
  21384.  
  21385. function  TWordApplicationProperties.Get_AutoCaptions: AutoCaptions;
  21386. begin
  21387.   Result := DefaultInterface.Get_AutoCaptions;
  21388. end;
  21389.  
  21390. function  TWordApplicationProperties.Get_AddIns: AddIns;
  21391. begin
  21392.   Result := DefaultInterface.Get_AddIns;
  21393. end;
  21394.  
  21395. function  TWordApplicationProperties.Get_Visible: WordBool;
  21396. begin
  21397.   Result := DefaultInterface.Get_Visible;
  21398. end;
  21399.  
  21400. procedure TWordApplicationProperties.Set_Visible(prop: WordBool);
  21401. begin
  21402.   DefaultInterface.Set_Visible(prop);
  21403. end;
  21404.  
  21405. function  TWordApplicationProperties.Get_Version: WideString;
  21406. begin
  21407.   Result := DefaultInterface.Get_Version;
  21408. end;
  21409.  
  21410. function  TWordApplicationProperties.Get_ScreenUpdating: WordBool;
  21411. begin
  21412.   Result := DefaultInterface.Get_ScreenUpdating;
  21413. end;
  21414.  
  21415. procedure TWordApplicationProperties.Set_ScreenUpdating(prop: WordBool);
  21416. begin
  21417.   DefaultInterface.Set_ScreenUpdating(prop);
  21418. end;
  21419.  
  21420. function  TWordApplicationProperties.Get_PrintPreview: WordBool;
  21421. begin
  21422.   Result := DefaultInterface.Get_PrintPreview;
  21423. end;
  21424.  
  21425. procedure TWordApplicationProperties.Set_PrintPreview(prop: WordBool);
  21426. begin
  21427.   DefaultInterface.Set_PrintPreview(prop);
  21428. end;
  21429.  
  21430. function  TWordApplicationProperties.Get_Tasks: Tasks;
  21431. begin
  21432.   Result := DefaultInterface.Get_Tasks;
  21433. end;
  21434.  
  21435. function  TWordApplicationProperties.Get_DisplayStatusBar: WordBool;
  21436. begin
  21437.   Result := DefaultInterface.Get_DisplayStatusBar;
  21438. end;
  21439.  
  21440. procedure TWordApplicationProperties.Set_DisplayStatusBar(prop: WordBool);
  21441. begin
  21442.   DefaultInterface.Set_DisplayStatusBar(prop);
  21443. end;
  21444.  
  21445. function  TWordApplicationProperties.Get_SpecialMode: WordBool;
  21446. begin
  21447.   Result := DefaultInterface.Get_SpecialMode;
  21448. end;
  21449.  
  21450. function  TWordApplicationProperties.Get_UsableWidth: Integer;
  21451. begin
  21452.   Result := DefaultInterface.Get_UsableWidth;
  21453. end;
  21454.  
  21455. function  TWordApplicationProperties.Get_UsableHeight: Integer;
  21456. begin
  21457.   Result := DefaultInterface.Get_UsableHeight;
  21458. end;
  21459.  
  21460. function  TWordApplicationProperties.Get_MathCoprocessorAvailable: WordBool;
  21461. begin
  21462.   Result := DefaultInterface.Get_MathCoprocessorAvailable;
  21463. end;
  21464.  
  21465. function  TWordApplicationProperties.Get_MouseAvailable: WordBool;
  21466. begin
  21467.   Result := DefaultInterface.Get_MouseAvailable;
  21468. end;
  21469.  
  21470. function  TWordApplicationProperties.Get_International(Index: WdInternationalIndex): OleVariant;
  21471. begin
  21472.   Result := DefaultInterface.Get_International(Index);
  21473. end;
  21474.  
  21475. function  TWordApplicationProperties.Get_Build: WideString;
  21476. begin
  21477.   Result := DefaultInterface.Get_Build;
  21478. end;
  21479.  
  21480. function  TWordApplicationProperties.Get_CapsLock: WordBool;
  21481. begin
  21482.   Result := DefaultInterface.Get_CapsLock;
  21483. end;
  21484.  
  21485. function  TWordApplicationProperties.Get_NumLock: WordBool;
  21486. begin
  21487.   Result := DefaultInterface.Get_NumLock;
  21488. end;
  21489.  
  21490. function  TWordApplicationProperties.Get_UserName: WideString;
  21491. begin
  21492.   Result := DefaultInterface.Get_UserName;
  21493. end;
  21494.  
  21495. procedure TWordApplicationProperties.Set_UserName(const prop: WideString);
  21496. begin
  21497.   DefaultInterface.Set_UserName(prop);
  21498. end;
  21499.  
  21500. function  TWordApplicationProperties.Get_UserInitials: WideString;
  21501. begin
  21502.   Result := DefaultInterface.Get_UserInitials;
  21503. end;
  21504.  
  21505. procedure TWordApplicationProperties.Set_UserInitials(const prop: WideString);
  21506. begin
  21507.   DefaultInterface.Set_UserInitials(prop);
  21508. end;
  21509.  
  21510. function  TWordApplicationProperties.Get_UserAddress: WideString;
  21511. begin
  21512.   Result := DefaultInterface.Get_UserAddress;
  21513. end;
  21514.  
  21515. procedure TWordApplicationProperties.Set_UserAddress(const prop: WideString);
  21516. begin
  21517.   DefaultInterface.Set_UserAddress(prop);
  21518. end;
  21519.  
  21520. function  TWordApplicationProperties.Get_MacroContainer: IDispatch;
  21521. begin
  21522.   Result := DefaultInterface.Get_MacroContainer;
  21523. end;
  21524.  
  21525. function  TWordApplicationProperties.Get_DisplayRecentFiles: WordBool;
  21526. begin
  21527.   Result := DefaultInterface.Get_DisplayRecentFiles;
  21528. end;
  21529.  
  21530. procedure TWordApplicationProperties.Set_DisplayRecentFiles(prop: WordBool);
  21531. begin
  21532.   DefaultInterface.Set_DisplayRecentFiles(prop);
  21533. end;
  21534.  
  21535. function  TWordApplicationProperties.Get_CommandBars: CommandBars;
  21536. begin
  21537.   Result := DefaultInterface.Get_CommandBars;
  21538. end;
  21539.  
  21540. function  TWordApplicationProperties.Get_SynonymInfo(const Word: WideString; 
  21541.                                                      var LanguageID: OleVariant): SynonymInfo;
  21542. begin
  21543.   Result := DefaultInterface.Get_SynonymInfo(Word, LanguageID);
  21544. end;
  21545.  
  21546. function  TWordApplicationProperties.Get_VBE: VBE;
  21547. begin
  21548.   Result := DefaultInterface.Get_VBE;
  21549. end;
  21550.  
  21551. function  TWordApplicationProperties.Get_DefaultSaveFormat: WideString;
  21552. begin
  21553.   Result := DefaultInterface.Get_DefaultSaveFormat;
  21554. end;
  21555.  
  21556. procedure TWordApplicationProperties.Set_DefaultSaveFormat(const prop: WideString);
  21557. begin
  21558.   DefaultInterface.Set_DefaultSaveFormat(prop);
  21559. end;
  21560.  
  21561. function  TWordApplicationProperties.Get_ListGalleries: ListGalleries;
  21562. begin
  21563.   Result := DefaultInterface.Get_ListGalleries;
  21564. end;
  21565.  
  21566. function  TWordApplicationProperties.Get_ActivePrinter: WideString;
  21567. begin
  21568.   Result := DefaultInterface.Get_ActivePrinter;
  21569. end;
  21570.  
  21571. procedure TWordApplicationProperties.Set_ActivePrinter(const prop: WideString);
  21572. begin
  21573.   DefaultInterface.Set_ActivePrinter(prop);
  21574. end;
  21575.  
  21576. function  TWordApplicationProperties.Get_Templates: Templates;
  21577. begin
  21578.   Result := DefaultInterface.Get_Templates;
  21579. end;
  21580.  
  21581. function  TWordApplicationProperties.Get_CustomizationContext: IDispatch;
  21582. begin
  21583.   Result := DefaultInterface.Get_CustomizationContext;
  21584. end;
  21585.  
  21586. procedure TWordApplicationProperties.Set_CustomizationContext(const prop: IDispatch);
  21587. begin
  21588.   DefaultInterface.Set_CustomizationContext(prop);
  21589. end;
  21590.  
  21591. function  TWordApplicationProperties.Get_KeyBindings: KeyBindings;
  21592. begin
  21593.   Result := DefaultInterface.Get_KeyBindings;
  21594. end;
  21595.  
  21596. function  TWordApplicationProperties.Get_KeysBoundTo(KeyCategory: WdKeyCategory; 
  21597.                                                      const Command: WideString; 
  21598.                                                      var CommandParameter: OleVariant): KeysBoundTo;
  21599. begin
  21600.   Result := DefaultInterface.Get_KeysBoundTo(KeyCategory, Command, CommandParameter);
  21601. end;
  21602.  
  21603. function  TWordApplicationProperties.Get_FindKey(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding;
  21604. begin
  21605.   Result := DefaultInterface.Get_FindKey(KeyCode, KeyCode2);
  21606. end;
  21607.  
  21608. function  TWordApplicationProperties.Get_Caption: WideString;
  21609. begin
  21610.   Result := DefaultInterface.Get_Caption;
  21611. end;
  21612.  
  21613. procedure TWordApplicationProperties.Set_Caption(const prop: WideString);
  21614. begin
  21615.   DefaultInterface.Set_Caption(prop);
  21616. end;
  21617.  
  21618. function  TWordApplicationProperties.Get_Path: WideString;
  21619. begin
  21620.   Result := DefaultInterface.Get_Path;
  21621. end;
  21622.  
  21623. function  TWordApplicationProperties.Get_DisplayScrollBars: WordBool;
  21624. begin
  21625.   Result := DefaultInterface.Get_DisplayScrollBars;
  21626. end;
  21627.  
  21628. procedure TWordApplicationProperties.Set_DisplayScrollBars(prop: WordBool);
  21629. begin
  21630.   DefaultInterface.Set_DisplayScrollBars(prop);
  21631. end;
  21632.  
  21633. function  TWordApplicationProperties.Get_StartupPath: WideString;
  21634. begin
  21635.   Result := DefaultInterface.Get_StartupPath;
  21636. end;
  21637.  
  21638. procedure TWordApplicationProperties.Set_StartupPath(const prop: WideString);
  21639. begin
  21640.   DefaultInterface.Set_StartupPath(prop);
  21641. end;
  21642.  
  21643. function  TWordApplicationProperties.Get_BackgroundSavingStatus: Integer;
  21644. begin
  21645.   Result := DefaultInterface.Get_BackgroundSavingStatus;
  21646. end;
  21647.  
  21648. function  TWordApplicationProperties.Get_BackgroundPrintingStatus: Integer;
  21649. begin
  21650.   Result := DefaultInterface.Get_BackgroundPrintingStatus;
  21651. end;
  21652.  
  21653. function  TWordApplicationProperties.Get_Left: Integer;
  21654. begin
  21655.   Result := DefaultInterface.Get_Left;
  21656. end;
  21657.  
  21658. procedure TWordApplicationProperties.Set_Left(prop: Integer);
  21659. begin
  21660.   DefaultInterface.Set_Left(prop);
  21661. end;
  21662.  
  21663. function  TWordApplicationProperties.Get_Top: Integer;
  21664. begin
  21665.   Result := DefaultInterface.Get_Top;
  21666. end;
  21667.  
  21668. procedure TWordApplicationProperties.Set_Top(prop: Integer);
  21669. begin
  21670.   DefaultInterface.Set_Top(prop);
  21671. end;
  21672.  
  21673. function  TWordApplicationProperties.Get_Width: Integer;
  21674. begin
  21675.   Result := DefaultInterface.Get_Width;
  21676. end;
  21677.  
  21678. procedure TWordApplicationProperties.Set_Width(prop: Integer);
  21679. begin
  21680.   DefaultInterface.Set_Width(prop);
  21681. end;
  21682.  
  21683. function  TWordApplicationProperties.Get_Height: Integer;
  21684. begin
  21685.   Result := DefaultInterface.Get_Height;
  21686. end;
  21687.  
  21688. procedure TWordApplicationProperties.Set_Height(prop: Integer);
  21689. begin
  21690.   DefaultInterface.Set_Height(prop);
  21691. end;
  21692.  
  21693. function  TWordApplicationProperties.Get_WindowState: WdWindowState;
  21694. begin
  21695.   Result := DefaultInterface.Get_WindowState;
  21696. end;
  21697.  
  21698. procedure TWordApplicationProperties.Set_WindowState(prop: WdWindowState);
  21699. begin
  21700.   DefaultInterface.Set_WindowState(prop);
  21701. end;
  21702.  
  21703. function  TWordApplicationProperties.Get_DisplayAutoCompleteTips: WordBool;
  21704. begin
  21705.   Result := DefaultInterface.Get_DisplayAutoCompleteTips;
  21706. end;
  21707.  
  21708. procedure TWordApplicationProperties.Set_DisplayAutoCompleteTips(prop: WordBool);
  21709. begin
  21710.   DefaultInterface.Set_DisplayAutoCompleteTips(prop);
  21711. end;
  21712.  
  21713. function  TWordApplicationProperties.Get_Options: Options;
  21714. begin
  21715.   Result := DefaultInterface.Get_Options;
  21716. end;
  21717.  
  21718. function  TWordApplicationProperties.Get_DisplayAlerts: WdAlertLevel;
  21719. begin
  21720.   Result := DefaultInterface.Get_DisplayAlerts;
  21721. end;
  21722.  
  21723. procedure TWordApplicationProperties.Set_DisplayAlerts(prop: WdAlertLevel);
  21724. begin
  21725.   DefaultInterface.Set_DisplayAlerts(prop);
  21726. end;
  21727.  
  21728. function  TWordApplicationProperties.Get_CustomDictionaries: Dictionaries;
  21729. begin
  21730.   Result := DefaultInterface.Get_CustomDictionaries;
  21731. end;
  21732.  
  21733. function  TWordApplicationProperties.Get_PathSeparator: WideString;
  21734. begin
  21735.   Result := DefaultInterface.Get_PathSeparator;
  21736. end;
  21737.  
  21738. procedure TWordApplicationProperties.Set_StatusBar(const Param1: WideString);
  21739. begin
  21740.   DefaultInterface.Set_StatusBar(Param1);
  21741. end;
  21742.  
  21743. function  TWordApplicationProperties.Get_MAPIAvailable: WordBool;
  21744. begin
  21745.   Result := DefaultInterface.Get_MAPIAvailable;
  21746. end;
  21747.  
  21748. function  TWordApplicationProperties.Get_DisplayScreenTips: WordBool;
  21749. begin
  21750.   Result := DefaultInterface.Get_DisplayScreenTips;
  21751. end;
  21752.  
  21753. procedure TWordApplicationProperties.Set_DisplayScreenTips(prop: WordBool);
  21754. begin
  21755.   DefaultInterface.Set_DisplayScreenTips(prop);
  21756. end;
  21757.  
  21758. function  TWordApplicationProperties.Get_EnableCancelKey: WdEnableCancelKey;
  21759. begin
  21760.   Result := DefaultInterface.Get_EnableCancelKey;
  21761. end;
  21762.  
  21763. procedure TWordApplicationProperties.Set_EnableCancelKey(prop: WdEnableCancelKey);
  21764. begin
  21765.   DefaultInterface.Set_EnableCancelKey(prop);
  21766. end;
  21767.  
  21768. function  TWordApplicationProperties.Get_UserControl: WordBool;
  21769. begin
  21770.   Result := DefaultInterface.Get_UserControl;
  21771. end;
  21772.  
  21773. function  TWordApplicationProperties.Get_FileSearch: FileSearch;
  21774. begin
  21775.   Result := DefaultInterface.Get_FileSearch;
  21776. end;
  21777.  
  21778. function  TWordApplicationProperties.Get_MailSystem: WdMailSystem;
  21779. begin
  21780.   Result := DefaultInterface.Get_MailSystem;
  21781. end;
  21782.  
  21783. function  TWordApplicationProperties.Get_DefaultTableSeparator: WideString;
  21784. begin
  21785.   Result := DefaultInterface.Get_DefaultTableSeparator;
  21786. end;
  21787.  
  21788. procedure TWordApplicationProperties.Set_DefaultTableSeparator(const prop: WideString);
  21789. begin
  21790.   DefaultInterface.Set_DefaultTableSeparator(prop);
  21791. end;
  21792.  
  21793. function  TWordApplicationProperties.Get_ShowVisualBasicEditor: WordBool;
  21794. begin
  21795.   Result := DefaultInterface.Get_ShowVisualBasicEditor;
  21796. end;
  21797.  
  21798. procedure TWordApplicationProperties.Set_ShowVisualBasicEditor(prop: WordBool);
  21799. begin
  21800.   DefaultInterface.Set_ShowVisualBasicEditor(prop);
  21801. end;
  21802.  
  21803. function  TWordApplicationProperties.Get_BrowseExtraFileTypes: WideString;
  21804. begin
  21805.   Result := DefaultInterface.Get_BrowseExtraFileTypes;
  21806. end;
  21807.  
  21808. procedure TWordApplicationProperties.Set_BrowseExtraFileTypes(const prop: WideString);
  21809. begin
  21810.   DefaultInterface.Set_BrowseExtraFileTypes(prop);
  21811. end;
  21812.  
  21813. function  TWordApplicationProperties.Get_IsObjectValid(const Object_: IDispatch): WordBool;
  21814. begin
  21815.   Result := DefaultInterface.Get_IsObjectValid(Object_);
  21816. end;
  21817.  
  21818. function  TWordApplicationProperties.Get_HangulHanjaDictionaries: HangulHanjaConversionDictionaries;
  21819. begin
  21820.   Result := DefaultInterface.Get_HangulHanjaDictionaries;
  21821. end;
  21822.  
  21823. function  TWordApplicationProperties.Get_MailMessage: MailMessage;
  21824. begin
  21825.   Result := DefaultInterface.Get_MailMessage;
  21826. end;
  21827.  
  21828. function  TWordApplicationProperties.Get_FocusInMailHeader: WordBool;
  21829. begin
  21830.   Result := DefaultInterface.Get_FocusInMailHeader;
  21831. end;
  21832.  
  21833. {$ENDIF}
  21834.  
  21835. class function CoWordDocument.Create: _Document;
  21836. begin
  21837.   Result := CreateComObject(CLASS_WordDocument) as _Document;
  21838. end;
  21839.  
  21840. class function CoWordDocument.CreateRemote(const MachineName: string): _Document;
  21841. begin
  21842.   Result := CreateRemoteComObject(MachineName, CLASS_WordDocument) as _Document;
  21843. end;
  21844.  
  21845. procedure TWordDocument.InitServerData;
  21846. const
  21847.   CServerData: TServerData = (
  21848.     ClassID:   '{00020906-0000-0000-C000-000000000046}';
  21849.     IntfIID:   '{0002096B-0000-0000-C000-000000000046}';
  21850.     EventIID:  '{000209F6-0000-0000-C000-000000000046}';
  21851.     LicenseKey: nil;
  21852.     Version: 500);
  21853. begin
  21854.   ServerData := @CServerData;
  21855. end;
  21856.  
  21857. procedure TWordDocument.Connect;
  21858. var
  21859.   punk: IUnknown;
  21860. begin
  21861.   if FIntf = nil then
  21862.   begin
  21863.     punk := GetServer;
  21864.     ConnectEvents(punk);
  21865.     Fintf:= punk as _Document;
  21866.   end;
  21867. end;
  21868.  
  21869. procedure TWordDocument.ConnectTo(svrIntf: _Document);
  21870. begin
  21871.   Disconnect;
  21872.   FIntf := svrIntf;
  21873.   ConnectEvents(FIntf);
  21874. end;
  21875.  
  21876. procedure TWordDocument.DisConnect;
  21877. begin
  21878.   if Fintf <> nil then
  21879.   begin
  21880.     DisconnectEvents(FIntf);
  21881.     FIntf := nil;
  21882.   end;
  21883. end;
  21884.  
  21885. function TWordDocument.GetDefaultInterface: _Document;
  21886. begin
  21887.   if FIntf = nil then
  21888.     Connect;
  21889.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  21890.   Result := FIntf;
  21891. end;
  21892.  
  21893. constructor TWordDocument.Create(AOwner: TComponent);
  21894. begin
  21895.   inherited Create(AOwner);
  21896. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  21897.   FProps := TWordDocumentProperties.Create(Self);
  21898. {$ENDIF}
  21899. end;
  21900.  
  21901. destructor TWordDocument.Destroy;
  21902. begin
  21903. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  21904.   FProps.Free;
  21905. {$ENDIF}
  21906.   inherited Destroy;
  21907. end;
  21908.  
  21909. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  21910. function TWordDocument.GetServerProperties: TWordDocumentProperties;
  21911. begin
  21912.   Result := FProps;
  21913. end;
  21914. {$ENDIF}
  21915.  
  21916. procedure TWordDocument.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
  21917. begin
  21918.   case DispID of
  21919.     -1: Exit;  // DISPID_UNKNOWN
  21920.    4: if Assigned(FOnNew) then
  21921.             FOnNew(Self);
  21922.    5: if Assigned(FOnOpen) then
  21923.             FOnOpen(Self);
  21924.    6: if Assigned(FOnClose) then
  21925.             FOnClose(Self);
  21926.   end; {case DispID}
  21927. end;
  21928.  
  21929. function  TWordDocument.Get_Name: WideString;
  21930. begin
  21931.   Result := DefaultInterface.Get_Name;
  21932. end;
  21933.  
  21934. function  TWordDocument.Get_Application: WordApplication;
  21935. begin
  21936.   Result := DefaultInterface.Get_Application;
  21937. end;
  21938.  
  21939. function  TWordDocument.Get_Creator: Integer;
  21940. begin
  21941.   Result := DefaultInterface.Get_Creator;
  21942. end;
  21943.  
  21944. function  TWordDocument.Get_Parent: IDispatch;
  21945. begin
  21946.   Result := DefaultInterface.Get_Parent;
  21947. end;
  21948.  
  21949. function  TWordDocument.Get_BuiltInDocumentProperties: IDispatch;
  21950. begin
  21951.   Result := DefaultInterface.Get_BuiltInDocumentProperties;
  21952. end;
  21953.  
  21954. function  TWordDocument.Get_CustomDocumentProperties: IDispatch;
  21955. begin
  21956.   Result := DefaultInterface.Get_CustomDocumentProperties;
  21957. end;
  21958.  
  21959. function  TWordDocument.Get_Path: WideString;
  21960. begin
  21961.   Result := DefaultInterface.Get_Path;
  21962. end;
  21963.  
  21964. function  TWordDocument.Get_Bookmarks: Bookmarks;
  21965. begin
  21966.   Result := DefaultInterface.Get_Bookmarks;
  21967. end;
  21968.  
  21969. function  TWordDocument.Get_Tables: Tables;
  21970. begin
  21971.   Result := DefaultInterface.Get_Tables;
  21972. end;
  21973.  
  21974. function  TWordDocument.Get_Footnotes: Footnotes;
  21975. begin
  21976.   Result := DefaultInterface.Get_Footnotes;
  21977. end;
  21978.  
  21979. function  TWordDocument.Get_Endnotes: Endnotes;
  21980. begin
  21981.   Result := DefaultInterface.Get_Endnotes;
  21982. end;
  21983.  
  21984. function  TWordDocument.Get_Comments: Comments;
  21985. begin
  21986.   Result := DefaultInterface.Get_Comments;
  21987. end;
  21988.  
  21989. function  TWordDocument.Get_Type_: WdDocumentType;
  21990. begin
  21991.   Result := DefaultInterface.Get_Type_;
  21992. end;
  21993.  
  21994. function  TWordDocument.Get_AutoHyphenation: WordBool;
  21995. begin
  21996.   Result := DefaultInterface.Get_AutoHyphenation;
  21997. end;
  21998.  
  21999. procedure TWordDocument.Set_AutoHyphenation(prop: WordBool);
  22000. begin
  22001.   DefaultInterface.Set_AutoHyphenation(prop);
  22002. end;
  22003.  
  22004. function  TWordDocument.Get_HyphenateCaps: WordBool;
  22005. begin
  22006.   Result := DefaultInterface.Get_HyphenateCaps;
  22007. end;
  22008.  
  22009. procedure TWordDocument.Set_HyphenateCaps(prop: WordBool);
  22010. begin
  22011.   DefaultInterface.Set_HyphenateCaps(prop);
  22012. end;
  22013.  
  22014. function  TWordDocument.Get_HyphenationZone: Integer;
  22015. begin
  22016.   Result := DefaultInterface.Get_HyphenationZone;
  22017. end;
  22018.  
  22019. procedure TWordDocument.Set_HyphenationZone(prop: Integer);
  22020. begin
  22021.   DefaultInterface.Set_HyphenationZone(prop);
  22022. end;
  22023.  
  22024. function  TWordDocument.Get_ConsecutiveHyphensLimit: Integer;
  22025. begin
  22026.   Result := DefaultInterface.Get_ConsecutiveHyphensLimit;
  22027. end;
  22028.  
  22029. procedure TWordDocument.Set_ConsecutiveHyphensLimit(prop: Integer);
  22030. begin
  22031.   DefaultInterface.Set_ConsecutiveHyphensLimit(prop);
  22032. end;
  22033.  
  22034. function  TWordDocument.Get_Sections: Sections;
  22035. begin
  22036.   Result := DefaultInterface.Get_Sections;
  22037. end;
  22038.  
  22039. function  TWordDocument.Get_Paragraphs: Paragraphs;
  22040. begin
  22041.   Result := DefaultInterface.Get_Paragraphs;
  22042. end;
  22043.  
  22044. function  TWordDocument.Get_Words: Words;
  22045. begin
  22046.   Result := DefaultInterface.Get_Words;
  22047. end;
  22048.  
  22049. function  TWordDocument.Get_Sentences: Sentences;
  22050. begin
  22051.   Result := DefaultInterface.Get_Sentences;
  22052. end;
  22053.  
  22054. function  TWordDocument.Get_Characters: Characters;
  22055. begin
  22056.   Result := DefaultInterface.Get_Characters;
  22057. end;
  22058.  
  22059. function  TWordDocument.Get_Fields: Fields;
  22060. begin
  22061.   Result := DefaultInterface.Get_Fields;
  22062. end;
  22063.  
  22064. function  TWordDocument.Get_FormFields: FormFields;
  22065. begin
  22066.   Result := DefaultInterface.Get_FormFields;
  22067. end;
  22068.  
  22069. function  TWordDocument.Get_Styles: Styles;
  22070. begin
  22071.   Result := DefaultInterface.Get_Styles;
  22072. end;
  22073.  
  22074. function  TWordDocument.Get_Frames: Frames;
  22075. begin
  22076.   Result := DefaultInterface.Get_Frames;
  22077. end;
  22078.  
  22079. function  TWordDocument.Get_TablesOfFigures: TablesOfFigures;
  22080. begin
  22081.   Result := DefaultInterface.Get_TablesOfFigures;
  22082. end;
  22083.  
  22084. function  TWordDocument.Get_Variables: Variables;
  22085. begin
  22086.   Result := DefaultInterface.Get_Variables;
  22087. end;
  22088.  
  22089. function  TWordDocument.Get_MailMerge: MailMerge;
  22090. begin
  22091.   Result := DefaultInterface.Get_MailMerge;
  22092. end;
  22093.  
  22094. function  TWordDocument.Get_Envelope: Envelope;
  22095. begin
  22096.   Result := DefaultInterface.Get_Envelope;
  22097. end;
  22098.  
  22099. function  TWordDocument.Get_FullName: WideString;
  22100. begin
  22101.   Result := DefaultInterface.Get_FullName;
  22102. end;
  22103.  
  22104. function  TWordDocument.Get_Revisions: Revisions;
  22105. begin
  22106.   Result := DefaultInterface.Get_Revisions;
  22107. end;
  22108.  
  22109. function  TWordDocument.Get_TablesOfContents: TablesOfContents;
  22110. begin
  22111.   Result := DefaultInterface.Get_TablesOfContents;
  22112. end;
  22113.  
  22114. function  TWordDocument.Get_TablesOfAuthorities: TablesOfAuthorities;
  22115. begin
  22116.   Result := DefaultInterface.Get_TablesOfAuthorities;
  22117. end;
  22118.  
  22119. function  TWordDocument.Get_PageSetup: PageSetup;
  22120. begin
  22121.   Result := DefaultInterface.Get_PageSetup;
  22122. end;
  22123.  
  22124. procedure TWordDocument.Set_PageSetup(const prop: PageSetup);
  22125. begin
  22126.   DefaultInterface.Set_PageSetup(prop);
  22127. end;
  22128.  
  22129. function  TWordDocument.Get_Windows: Windows;
  22130. begin
  22131.   Result := DefaultInterface.Get_Windows;
  22132. end;
  22133.  
  22134. function  TWordDocument.Get_HasRoutingSlip: WordBool;
  22135. begin
  22136.   Result := DefaultInterface.Get_HasRoutingSlip;
  22137. end;
  22138.  
  22139. procedure TWordDocument.Set_HasRoutingSlip(prop: WordBool);
  22140. begin
  22141.   DefaultInterface.Set_HasRoutingSlip(prop);
  22142. end;
  22143.  
  22144. function  TWordDocument.Get_RoutingSlip: RoutingSlip;
  22145. begin
  22146.   Result := DefaultInterface.Get_RoutingSlip;
  22147. end;
  22148.  
  22149. function  TWordDocument.Get_Routed: WordBool;
  22150. begin
  22151.   Result := DefaultInterface.Get_Routed;
  22152. end;
  22153.  
  22154. function  TWordDocument.Get_TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories;
  22155. begin
  22156.   Result := DefaultInterface.Get_TablesOfAuthoritiesCategories;
  22157. end;
  22158.  
  22159. function  TWordDocument.Get_Indexes: Indexes;
  22160. begin
  22161.   Result := DefaultInterface.Get_Indexes;
  22162. end;
  22163.  
  22164. function  TWordDocument.Get_Saved: WordBool;
  22165. begin
  22166.   Result := DefaultInterface.Get_Saved;
  22167. end;
  22168.  
  22169. procedure TWordDocument.Set_Saved(prop: WordBool);
  22170. begin
  22171.   DefaultInterface.Set_Saved(prop);
  22172. end;
  22173.  
  22174. function  TWordDocument.Get_Content: Range;
  22175. begin
  22176.   Result := DefaultInterface.Get_Content;
  22177. end;
  22178.  
  22179. function  TWordDocument.Get_ActiveWindow: Window;
  22180. begin
  22181.   Result := DefaultInterface.Get_ActiveWindow;
  22182. end;
  22183.  
  22184. function  TWordDocument.Get_Kind: WdDocumentKind;
  22185. begin
  22186.   Result := DefaultInterface.Get_Kind;
  22187. end;
  22188.  
  22189. procedure TWordDocument.Set_Kind(prop: WdDocumentKind);
  22190. begin
  22191.   DefaultInterface.Set_Kind(prop);
  22192. end;
  22193.  
  22194. function  TWordDocument.Get_ReadOnly: WordBool;
  22195. begin
  22196.   Result := DefaultInterface.Get_ReadOnly;
  22197. end;
  22198.  
  22199. function  TWordDocument.Get_Subdocuments: Subdocuments;
  22200. begin
  22201.   Result := DefaultInterface.Get_Subdocuments;
  22202. end;
  22203.  
  22204. function  TWordDocument.Get_IsMasterDocument: WordBool;
  22205. begin
  22206.   Result := DefaultInterface.Get_IsMasterDocument;
  22207. end;
  22208.  
  22209. function  TWordDocument.Get_DefaultTabStop: Single;
  22210. begin
  22211.   Result := DefaultInterface.Get_DefaultTabStop;
  22212. end;
  22213.  
  22214. procedure TWordDocument.Set_DefaultTabStop(prop: Single);
  22215. begin
  22216.   DefaultInterface.Set_DefaultTabStop(prop);
  22217. end;
  22218.  
  22219. function  TWordDocument.Get_EmbedTrueTypeFonts: WordBool;
  22220. begin
  22221.   Result := DefaultInterface.Get_EmbedTrueTypeFonts;
  22222. end;
  22223.  
  22224. procedure TWordDocument.Set_EmbedTrueTypeFonts(prop: WordBool);
  22225. begin
  22226.   DefaultInterface.Set_EmbedTrueTypeFonts(prop);
  22227. end;
  22228.  
  22229. function  TWordDocument.Get_SaveFormsData: WordBool;
  22230. begin
  22231.   Result := DefaultInterface.Get_SaveFormsData;
  22232. end;
  22233.  
  22234. procedure TWordDocument.Set_SaveFormsData(prop: WordBool);
  22235. begin
  22236.   DefaultInterface.Set_SaveFormsData(prop);
  22237. end;
  22238.  
  22239. function  TWordDocument.Get_ReadOnlyRecommended: WordBool;
  22240. begin
  22241.   Result := DefaultInterface.Get_ReadOnlyRecommended;
  22242. end;
  22243.  
  22244. procedure TWordDocument.Set_ReadOnlyRecommended(prop: WordBool);
  22245. begin
  22246.   DefaultInterface.Set_ReadOnlyRecommended(prop);
  22247. end;
  22248.  
  22249. function  TWordDocument.Get_SaveSubsetFonts: WordBool;
  22250. begin
  22251.   Result := DefaultInterface.Get_SaveSubsetFonts;
  22252. end;
  22253.  
  22254. procedure TWordDocument.Set_SaveSubsetFonts(prop: WordBool);
  22255. begin
  22256.   DefaultInterface.Set_SaveSubsetFonts(prop);
  22257. end;
  22258.  
  22259. function  TWordDocument.Get_Compatibility(Type_: WdCompatibility): WordBool;
  22260. begin
  22261.   Result := DefaultInterface.Get_Compatibility(Type_);
  22262. end;
  22263.  
  22264. procedure TWordDocument.Set_Compatibility(Type_: WdCompatibility; prop: WordBool);
  22265. begin
  22266.   DefaultInterface.Set_Compatibility(Type_, prop);
  22267. end;
  22268.  
  22269. function  TWordDocument.Get_StoryRanges: StoryRanges;
  22270. begin
  22271.   Result := DefaultInterface.Get_StoryRanges;
  22272. end;
  22273.  
  22274. function  TWordDocument.Get_CommandBars: CommandBars;
  22275. begin
  22276.   Result := DefaultInterface.Get_CommandBars;
  22277. end;
  22278.  
  22279. function  TWordDocument.Get_IsSubdocument: WordBool;
  22280. begin
  22281.   Result := DefaultInterface.Get_IsSubdocument;
  22282. end;
  22283.  
  22284. function  TWordDocument.Get_SaveFormat: Integer;
  22285. begin
  22286.   Result := DefaultInterface.Get_SaveFormat;
  22287. end;
  22288.  
  22289. function  TWordDocument.Get_ProtectionType: WdProtectionType;
  22290. begin
  22291.   Result := DefaultInterface.Get_ProtectionType;
  22292. end;
  22293.  
  22294. function  TWordDocument.Get_Hyperlinks: Hyperlinks;
  22295. begin
  22296.   Result := DefaultInterface.Get_Hyperlinks;
  22297. end;
  22298.  
  22299. function  TWordDocument.Get_Shapes: Shapes;
  22300. begin
  22301.   Result := DefaultInterface.Get_Shapes;
  22302. end;
  22303.  
  22304. function  TWordDocument.Get_ListTemplates: ListTemplates;
  22305. begin
  22306.   Result := DefaultInterface.Get_ListTemplates;
  22307. end;
  22308.  
  22309. function  TWordDocument.Get_Lists: Lists;
  22310. begin
  22311.   Result := DefaultInterface.Get_Lists;
  22312. end;
  22313.  
  22314. function  TWordDocument.Get_UpdateStylesOnOpen: WordBool;
  22315. begin
  22316.   Result := DefaultInterface.Get_UpdateStylesOnOpen;
  22317. end;
  22318.  
  22319. procedure TWordDocument.Set_UpdateStylesOnOpen(prop: WordBool);
  22320. begin
  22321.   DefaultInterface.Set_UpdateStylesOnOpen(prop);
  22322. end;
  22323.  
  22324. function  TWordDocument.Get_AttachedTemplate: OleVariant;
  22325. begin
  22326.   Result := DefaultInterface.Get_AttachedTemplate;
  22327. end;
  22328.  
  22329. procedure TWordDocument.Set_AttachedTemplate(var prop: OleVariant);
  22330. begin
  22331.   DefaultInterface.Set_AttachedTemplate(prop);
  22332. end;
  22333.  
  22334. function  TWordDocument.Get_InlineShapes: InlineShapes;
  22335. begin
  22336.   Result := DefaultInterface.Get_InlineShapes;
  22337. end;
  22338.  
  22339. function  TWordDocument.Get_Background: Shape;
  22340. begin
  22341.   Result := DefaultInterface.Get_Background;
  22342. end;
  22343.  
  22344. procedure TWordDocument.Set_Background(const prop: Shape);
  22345. begin
  22346.   DefaultInterface.Set_Background(prop);
  22347. end;
  22348.  
  22349. function  TWordDocument.Get_GrammarChecked: WordBool;
  22350. begin
  22351.   Result := DefaultInterface.Get_GrammarChecked;
  22352. end;
  22353.  
  22354. procedure TWordDocument.Set_GrammarChecked(prop: WordBool);
  22355. begin
  22356.   DefaultInterface.Set_GrammarChecked(prop);
  22357. end;
  22358.  
  22359. function  TWordDocument.Get_SpellingChecked: WordBool;
  22360. begin
  22361.   Result := DefaultInterface.Get_SpellingChecked;
  22362. end;
  22363.  
  22364. procedure TWordDocument.Set_SpellingChecked(prop: WordBool);
  22365. begin
  22366.   DefaultInterface.Set_SpellingChecked(prop);
  22367. end;
  22368.  
  22369. function  TWordDocument.Get_ShowGrammaticalErrors: WordBool;
  22370. begin
  22371.   Result := DefaultInterface.Get_ShowGrammaticalErrors;
  22372. end;
  22373.  
  22374. procedure TWordDocument.Set_ShowGrammaticalErrors(prop: WordBool);
  22375. begin
  22376.   DefaultInterface.Set_ShowGrammaticalErrors(prop);
  22377. end;
  22378.  
  22379. function  TWordDocument.Get_ShowSpellingErrors: WordBool;
  22380. begin
  22381.   Result := DefaultInterface.Get_ShowSpellingErrors;
  22382. end;
  22383.  
  22384. procedure TWordDocument.Set_ShowSpellingErrors(prop: WordBool);
  22385. begin
  22386.   DefaultInterface.Set_ShowSpellingErrors(prop);
  22387. end;
  22388.  
  22389. function  TWordDocument.Get_Versions: Versions;
  22390. begin
  22391.   Result := DefaultInterface.Get_Versions;
  22392. end;
  22393.  
  22394. function  TWordDocument.Get_ShowSummary: WordBool;
  22395. begin
  22396.   Result := DefaultInterface.Get_ShowSummary;
  22397. end;
  22398.  
  22399. procedure TWordDocument.Set_ShowSummary(prop: WordBool);
  22400. begin
  22401.   DefaultInterface.Set_ShowSummary(prop);
  22402. end;
  22403.  
  22404. function  TWordDocument.Get_SummaryViewMode: WdSummaryMode;
  22405. begin
  22406.   Result := DefaultInterface.Get_SummaryViewMode;
  22407. end;
  22408.  
  22409. procedure TWordDocument.Set_SummaryViewMode(prop: WdSummaryMode);
  22410. begin
  22411.   DefaultInterface.Set_SummaryViewMode(prop);
  22412. end;
  22413.  
  22414. function  TWordDocument.Get_SummaryLength: Integer;
  22415. begin
  22416.   Result := DefaultInterface.Get_SummaryLength;
  22417. end;
  22418.  
  22419. procedure TWordDocument.Set_SummaryLength(prop: Integer);
  22420. begin
  22421.   DefaultInterface.Set_SummaryLength(prop);
  22422. end;
  22423.  
  22424. function  TWordDocument.Get_PrintFractionalWidths: WordBool;
  22425. begin
  22426.   Result := DefaultInterface.Get_PrintFractionalWidths;
  22427. end;
  22428.  
  22429. procedure TWordDocument.Set_PrintFractionalWidths(prop: WordBool);
  22430. begin
  22431.   DefaultInterface.Set_PrintFractionalWidths(prop);
  22432. end;
  22433.  
  22434. function  TWordDocument.Get_PrintPostScriptOverText: WordBool;
  22435. begin
  22436.   Result := DefaultInterface.Get_PrintPostScriptOverText;
  22437. end;
  22438.  
  22439. procedure TWordDocument.Set_PrintPostScriptOverText(prop: WordBool);
  22440. begin
  22441.   DefaultInterface.Set_PrintPostScriptOverText(prop);
  22442. end;
  22443.  
  22444. function  TWordDocument.Get_Container: IDispatch;
  22445. begin
  22446.   Result := DefaultInterface.Get_Container;
  22447. end;
  22448.  
  22449. function  TWordDocument.Get_PrintFormsData: WordBool;
  22450. begin
  22451.   Result := DefaultInterface.Get_PrintFormsData;
  22452. end;
  22453.  
  22454. procedure TWordDocument.Set_PrintFormsData(prop: WordBool);
  22455. begin
  22456.   DefaultInterface.Set_PrintFormsData(prop);
  22457. end;
  22458.  
  22459. function  TWordDocument.Get_ListParagraphs: ListParagraphs;
  22460. begin
  22461.   Result := DefaultInterface.Get_ListParagraphs;
  22462. end;
  22463.  
  22464. procedure TWordDocument.Set_Password(const Param1: WideString);
  22465. begin
  22466.   DefaultInterface.Set_Password(Param1);
  22467. end;
  22468.  
  22469. procedure TWordDocument.Set_WritePassword(const Param1: WideString);
  22470. begin
  22471.   DefaultInterface.Set_WritePassword(Param1);
  22472. end;
  22473.  
  22474. function  TWordDocument.Get_HasPassword: WordBool;
  22475. begin
  22476.   Result := DefaultInterface.Get_HasPassword;
  22477. end;
  22478.  
  22479. function  TWordDocument.Get_WriteReserved: WordBool;
  22480. begin
  22481.   Result := DefaultInterface.Get_WriteReserved;
  22482. end;
  22483.  
  22484. function  TWordDocument.Get_ActiveWritingStyle(var LanguageID: OleVariant): WideString;
  22485. begin
  22486.   Result := DefaultInterface.Get_ActiveWritingStyle(LanguageID);
  22487. end;
  22488.  
  22489. procedure TWordDocument.Set_ActiveWritingStyle(var LanguageID: OleVariant; const prop: WideString);
  22490. begin
  22491.   DefaultInterface.Set_ActiveWritingStyle(LanguageID, prop);
  22492. end;
  22493.  
  22494. function  TWordDocument.Get_UserControl: WordBool;
  22495. begin
  22496.   Result := DefaultInterface.Get_UserControl;
  22497. end;
  22498.  
  22499. procedure TWordDocument.Set_UserControl(prop: WordBool);
  22500. begin
  22501.   DefaultInterface.Set_UserControl(prop);
  22502. end;
  22503.  
  22504. function  TWordDocument.Get_HasMailer: WordBool;
  22505. begin
  22506.   Result := DefaultInterface.Get_HasMailer;
  22507. end;
  22508.  
  22509. procedure TWordDocument.Set_HasMailer(prop: WordBool);
  22510. begin
  22511.   DefaultInterface.Set_HasMailer(prop);
  22512. end;
  22513.  
  22514. function  TWordDocument.Get_Mailer: Mailer;
  22515. begin
  22516.   Result := DefaultInterface.Get_Mailer;
  22517. end;
  22518.  
  22519. function  TWordDocument.Get_ReadabilityStatistics: ReadabilityStatistics;
  22520. begin
  22521.   Result := DefaultInterface.Get_ReadabilityStatistics;
  22522. end;
  22523.  
  22524. function  TWordDocument.Get_GrammaticalErrors: ProofreadingErrors;
  22525. begin
  22526.   Result := DefaultInterface.Get_GrammaticalErrors;
  22527. end;
  22528.  
  22529. function  TWordDocument.Get_SpellingErrors: ProofreadingErrors;
  22530. begin
  22531.   Result := DefaultInterface.Get_SpellingErrors;
  22532. end;
  22533.  
  22534. function  TWordDocument.Get_VBProject: VBProject;
  22535. begin
  22536.   Result := DefaultInterface.Get_VBProject;
  22537. end;
  22538.  
  22539. function  TWordDocument.Get_FormsDesign: WordBool;
  22540. begin
  22541.   Result := DefaultInterface.Get_FormsDesign;
  22542. end;
  22543.  
  22544. function  TWordDocument.Get__CodeName: WideString;
  22545. begin
  22546.   Result := DefaultInterface.Get__CodeName;
  22547. end;
  22548.  
  22549. procedure TWordDocument.Set__CodeName(const prop: WideString);
  22550. begin
  22551.   DefaultInterface.Set__CodeName(prop);
  22552. end;
  22553.  
  22554. function  TWordDocument.Get_CodeName: WideString;
  22555. begin
  22556.   Result := DefaultInterface.Get_CodeName;
  22557. end;
  22558.  
  22559. function  TWordDocument.Get_SnapToGrid: WordBool;
  22560. begin
  22561.   Result := DefaultInterface.Get_SnapToGrid;
  22562. end;
  22563.  
  22564. procedure TWordDocument.Set_SnapToGrid(prop: WordBool);
  22565. begin
  22566.   DefaultInterface.Set_SnapToGrid(prop);
  22567. end;
  22568.  
  22569. function  TWordDocument.Get_SnapToShapes: WordBool;
  22570. begin
  22571.   Result := DefaultInterface.Get_SnapToShapes;
  22572. end;
  22573.  
  22574. procedure TWordDocument.Set_SnapToShapes(prop: WordBool);
  22575. begin
  22576.   DefaultInterface.Set_SnapToShapes(prop);
  22577. end;
  22578.  
  22579. function  TWordDocument.Get_GridDistanceHorizontal: Single;
  22580. begin
  22581.   Result := DefaultInterface.Get_GridDistanceHorizontal;
  22582. end;
  22583.  
  22584. procedure TWordDocument.Set_GridDistanceHorizontal(prop: Single);
  22585. begin
  22586.   DefaultInterface.Set_GridDistanceHorizontal(prop);
  22587. end;
  22588.  
  22589. function  TWordDocument.Get_GridDistanceVertical: Single;
  22590. begin
  22591.   Result := DefaultInterface.Get_GridDistanceVertical;
  22592. end;
  22593.  
  22594. procedure TWordDocument.Set_GridDistanceVertical(prop: Single);
  22595. begin
  22596.   DefaultInterface.Set_GridDistanceVertical(prop);
  22597. end;
  22598.  
  22599. function  TWordDocument.Get_GridOriginHorizontal: Single;
  22600. begin
  22601.   Result := DefaultInterface.Get_GridOriginHorizontal;
  22602. end;
  22603.  
  22604. procedure TWordDocument.Set_GridOriginHorizontal(prop: Single);
  22605. begin
  22606.   DefaultInterface.Set_GridOriginHorizontal(prop);
  22607. end;
  22608.  
  22609. function  TWordDocument.Get_GridOriginVertical: Single;
  22610. begin
  22611.   Result := DefaultInterface.Get_GridOriginVertical;
  22612. end;
  22613.  
  22614. procedure TWordDocument.Set_GridOriginVertical(prop: Single);
  22615. begin
  22616.   DefaultInterface.Set_GridOriginVertical(prop);
  22617. end;
  22618.  
  22619. function  TWordDocument.Get_GridSpaceBetweenHorizontalLines: Integer;
  22620. begin
  22621.   Result := DefaultInterface.Get_GridSpaceBetweenHorizontalLines;
  22622. end;
  22623.  
  22624. procedure TWordDocument.Set_GridSpaceBetweenHorizontalLines(prop: Integer);
  22625. begin
  22626.   DefaultInterface.Set_GridSpaceBetweenHorizontalLines(prop);
  22627. end;
  22628.  
  22629. function  TWordDocument.Get_GridSpaceBetweenVerticalLines: Integer;
  22630. begin
  22631.   Result := DefaultInterface.Get_GridSpaceBetweenVerticalLines;
  22632. end;
  22633.  
  22634. procedure TWordDocument.Set_GridSpaceBetweenVerticalLines(prop: Integer);
  22635. begin
  22636.   DefaultInterface.Set_GridSpaceBetweenVerticalLines(prop);
  22637. end;
  22638.  
  22639. function  TWordDocument.Get_GridOriginFromMargin: WordBool;
  22640. begin
  22641.   Result := DefaultInterface.Get_GridOriginFromMargin;
  22642. end;
  22643.  
  22644. procedure TWordDocument.Set_GridOriginFromMargin(prop: WordBool);
  22645. begin
  22646.   DefaultInterface.Set_GridOriginFromMargin(prop);
  22647. end;
  22648.  
  22649. function  TWordDocument.Get_KerningByAlgorithm: WordBool;
  22650. begin
  22651.   Result := DefaultInterface.Get_KerningByAlgorithm;
  22652. end;
  22653.  
  22654. procedure TWordDocument.Set_KerningByAlgorithm(prop: WordBool);
  22655. begin
  22656.   DefaultInterface.Set_KerningByAlgorithm(prop);
  22657. end;
  22658.  
  22659. function  TWordDocument.Get_JustificationMode: WdJustificationMode;
  22660. begin
  22661.   Result := DefaultInterface.Get_JustificationMode;
  22662. end;
  22663.  
  22664. procedure TWordDocument.Set_JustificationMode(prop: WdJustificationMode);
  22665. begin
  22666.   DefaultInterface.Set_JustificationMode(prop);
  22667. end;
  22668.  
  22669. function  TWordDocument.Get_FarEastLineBreakLevel: WdFarEastLineBreakLevel;
  22670. begin
  22671.   Result := DefaultInterface.Get_FarEastLineBreakLevel;
  22672. end;
  22673.  
  22674. procedure TWordDocument.Set_FarEastLineBreakLevel(prop: WdFarEastLineBreakLevel);
  22675. begin
  22676.   DefaultInterface.Set_FarEastLineBreakLevel(prop);
  22677. end;
  22678.  
  22679. function  TWordDocument.Get_NoLineBreakBefore: WideString;
  22680. begin
  22681.   Result := DefaultInterface.Get_NoLineBreakBefore;
  22682. end;
  22683.  
  22684. procedure TWordDocument.Set_NoLineBreakBefore(const prop: WideString);
  22685. begin
  22686.   DefaultInterface.Set_NoLineBreakBefore(prop);
  22687. end;
  22688.  
  22689. function  TWordDocument.Get_NoLineBreakAfter: WideString;
  22690. begin
  22691.   Result := DefaultInterface.Get_NoLineBreakAfter;
  22692. end;
  22693.  
  22694. procedure TWordDocument.Set_NoLineBreakAfter(const prop: WideString);
  22695. begin
  22696.   DefaultInterface.Set_NoLineBreakAfter(prop);
  22697. end;
  22698.  
  22699. function  TWordDocument.Get_TrackRevisions: WordBool;
  22700. begin
  22701.   Result := DefaultInterface.Get_TrackRevisions;
  22702. end;
  22703.  
  22704. procedure TWordDocument.Set_TrackRevisions(prop: WordBool);
  22705. begin
  22706.   DefaultInterface.Set_TrackRevisions(prop);
  22707. end;
  22708.  
  22709. function  TWordDocument.Get_PrintRevisions: WordBool;
  22710. begin
  22711.   Result := DefaultInterface.Get_PrintRevisions;
  22712. end;
  22713.  
  22714. procedure TWordDocument.Set_PrintRevisions(prop: WordBool);
  22715. begin
  22716.   DefaultInterface.Set_PrintRevisions(prop);
  22717. end;
  22718.  
  22719. function  TWordDocument.Get_ShowRevisions: WordBool;
  22720. begin
  22721.   Result := DefaultInterface.Get_ShowRevisions;
  22722. end;
  22723.  
  22724. procedure TWordDocument.Set_ShowRevisions(prop: WordBool);
  22725. begin
  22726.   DefaultInterface.Set_ShowRevisions(prop);
  22727. end;
  22728.  
  22729. procedure TWordDocument.Close;
  22730. begin
  22731.   DefaultInterface.Close(EmptyParam, EmptyParam, EmptyParam);
  22732. end;
  22733.  
  22734. procedure TWordDocument.Close(var SaveChanges: OleVariant);
  22735. begin
  22736.   DefaultInterface.Close(SaveChanges, EmptyParam, EmptyParam);
  22737. end;
  22738.  
  22739. procedure TWordDocument.Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant);
  22740. begin
  22741.   DefaultInterface.Close(SaveChanges, OriginalFormat, EmptyParam);
  22742. end;
  22743.  
  22744. procedure TWordDocument.Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
  22745.                               var RouteDocument: OleVariant);
  22746. begin
  22747.   DefaultInterface.Close(SaveChanges, OriginalFormat, RouteDocument);
  22748. end;
  22749.  
  22750. procedure TWordDocument.SaveAs;
  22751. begin
  22752.   DefaultInterface.SaveAs(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  22753.                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  22754. end;
  22755.  
  22756. procedure TWordDocument.SaveAs(var FileName: OleVariant);
  22757. begin
  22758.   DefaultInterface.SaveAs(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  22759.                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  22760. end;
  22761.  
  22762. procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant);
  22763. begin
  22764.   DefaultInterface.SaveAs(FileName, FileFormat, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  22765.                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  22766. end;
  22767.  
  22768. procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  22769.                                var LockComments: OleVariant);
  22770. begin
  22771.   DefaultInterface.SaveAs(FileName, FileFormat, LockComments, EmptyParam, EmptyParam, EmptyParam, 
  22772.                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  22773. end;
  22774.  
  22775. procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  22776.                                var LockComments: OleVariant; var Password: OleVariant);
  22777. begin
  22778.   DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, EmptyParam, EmptyParam, 
  22779.                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  22780. end;
  22781.  
  22782. procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  22783.                                var LockComments: OleVariant; var Password: OleVariant; 
  22784.                                var AddToRecentFiles: OleVariant);
  22785. begin
  22786.   DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
  22787.                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  22788. end;
  22789.  
  22790. procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  22791.                                var LockComments: OleVariant; var Password: OleVariant; 
  22792.                                var AddToRecentFiles: OleVariant; var WritePassword: OleVariant);
  22793. begin
  22794.   DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
  22795.                           WritePassword, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  22796. end;
  22797.  
  22798. procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  22799.                                var LockComments: OleVariant; var Password: OleVariant; 
  22800.                                var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
  22801.                                var ReadOnlyRecommended: OleVariant);
  22802. begin
  22803.   DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
  22804.                           WritePassword, ReadOnlyRecommended, EmptyParam, EmptyParam, EmptyParam, 
  22805.                           EmptyParam);
  22806. end;
  22807.  
  22808. procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  22809.                                var LockComments: OleVariant; var Password: OleVariant; 
  22810.                                var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
  22811.                                var ReadOnlyRecommended: OleVariant; 
  22812.                                var EmbedTrueTypeFonts: OleVariant);
  22813. begin
  22814.   DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
  22815.                           WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, EmptyParam, 
  22816.                           EmptyParam, EmptyParam);
  22817. end;
  22818.  
  22819. procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  22820.                                var LockComments: OleVariant; var Password: OleVariant; 
  22821.                                var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
  22822.                                var ReadOnlyRecommended: OleVariant; 
  22823.                                var EmbedTrueTypeFonts: OleVariant; 
  22824.                                var SaveNativePictureFormat: OleVariant);
  22825. begin
  22826.   DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
  22827.                           WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 
  22828.                           SaveNativePictureFormat, EmptyParam, EmptyParam);
  22829. end;
  22830.  
  22831. procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  22832.                                var LockComments: OleVariant; var Password: OleVariant; 
  22833.                                var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
  22834.                                var ReadOnlyRecommended: OleVariant; 
  22835.                                var EmbedTrueTypeFonts: OleVariant; 
  22836.                                var SaveNativePictureFormat: OleVariant; 
  22837.                                var SaveFormsData: OleVariant);
  22838. begin
  22839.   DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
  22840.                           WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 
  22841.                           SaveNativePictureFormat, SaveFormsData, EmptyParam);
  22842. end;
  22843.  
  22844. procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
  22845.                                var LockComments: OleVariant; var Password: OleVariant; 
  22846.                                var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
  22847.                                var ReadOnlyRecommended: OleVariant; 
  22848.                                var EmbedTrueTypeFonts: OleVariant; 
  22849.                                var SaveNativePictureFormat: OleVariant; 
  22850.                                var SaveFormsData: OleVariant; var SaveAsAOCELetter: OleVariant);
  22851. begin
  22852.   DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
  22853.                           WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 
  22854.                           SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter);
  22855. end;
  22856.  
  22857. procedure TWordDocument.Repaginate;
  22858. begin
  22859.   DefaultInterface.Repaginate;
  22860. end;
  22861.  
  22862. procedure TWordDocument.FitToPages;
  22863. begin
  22864.   DefaultInterface.FitToPages;
  22865. end;
  22866.  
  22867. procedure TWordDocument.ManualHyphenation;
  22868. begin
  22869.   DefaultInterface.ManualHyphenation;
  22870. end;
  22871.  
  22872. procedure TWordDocument.Select;
  22873. begin
  22874.   DefaultInterface.Select;
  22875. end;
  22876.  
  22877. procedure TWordDocument.DataForm;
  22878. begin
  22879.   DefaultInterface.DataForm;
  22880. end;
  22881.  
  22882. procedure TWordDocument.Route;
  22883. begin
  22884.   DefaultInterface.Route;
  22885. end;
  22886.  
  22887. procedure TWordDocument.Save;
  22888. begin
  22889.   DefaultInterface.Save;
  22890. end;
  22891.  
  22892. procedure TWordDocument.PrintOut;
  22893. begin
  22894.   DefaultInterface.PrintOut(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  22895.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  22896.                             EmptyParam, EmptyParam);
  22897. end;
  22898.  
  22899. procedure TWordDocument.PrintOut(var Background: OleVariant);
  22900. begin
  22901.   DefaultInterface.PrintOut(Background, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  22902.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  22903.                             EmptyParam, EmptyParam);
  22904. end;
  22905.  
  22906. procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant);
  22907. begin
  22908.   DefaultInterface.PrintOut(Background, Append, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  22909.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  22910.                             EmptyParam, EmptyParam);
  22911. end;
  22912.  
  22913. procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  22914.                                  var Range: OleVariant);
  22915. begin
  22916.   DefaultInterface.PrintOut(Background, Append, Range, EmptyParam, EmptyParam, EmptyParam, 
  22917.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  22918.                             EmptyParam, EmptyParam);
  22919. end;
  22920.  
  22921. procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  22922.                                  var Range: OleVariant; var OutputFileName: OleVariant);
  22923. begin
  22924.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, EmptyParam, EmptyParam, 
  22925.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  22926.                             EmptyParam, EmptyParam);
  22927. end;
  22928.  
  22929. procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  22930.                                  var Range: OleVariant; var OutputFileName: OleVariant; 
  22931.                                  var From: OleVariant);
  22932. begin
  22933.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, EmptyParam, 
  22934.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  22935.                             EmptyParam, EmptyParam);
  22936. end;
  22937.  
  22938. procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  22939.                                  var Range: OleVariant; var OutputFileName: OleVariant; 
  22940.                                  var From: OleVariant; var To_: OleVariant);
  22941. begin
  22942.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, EmptyParam, 
  22943.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  22944.                             EmptyParam);
  22945. end;
  22946.  
  22947. procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  22948.                                  var Range: OleVariant; var OutputFileName: OleVariant; 
  22949.                                  var From: OleVariant; var To_: OleVariant; var Item: OleVariant);
  22950. begin
  22951.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, EmptyParam, 
  22952.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  22953. end;
  22954.  
  22955. procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  22956.                                  var Range: OleVariant; var OutputFileName: OleVariant; 
  22957.                                  var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
  22958.                                  var Copies: OleVariant);
  22959. begin
  22960.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  22961.                             EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  22962. end;
  22963.  
  22964. procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  22965.                                  var Range: OleVariant; var OutputFileName: OleVariant; 
  22966.                                  var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
  22967.                                  var Copies: OleVariant; var Pages: OleVariant);
  22968. begin
  22969.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  22970.                             Pages, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  22971. end;
  22972.  
  22973. procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  22974.                                  var Range: OleVariant; var OutputFileName: OleVariant; 
  22975.                                  var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
  22976.                                  var Copies: OleVariant; var Pages: OleVariant; 
  22977.                                  var PageType: OleVariant);
  22978. begin
  22979.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  22980.                             Pages, PageType, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  22981. end;
  22982.  
  22983. procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  22984.                                  var Range: OleVariant; var OutputFileName: OleVariant; 
  22985.                                  var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
  22986.                                  var Copies: OleVariant; var Pages: OleVariant; 
  22987.                                  var PageType: OleVariant; var PrintToFile: OleVariant);
  22988. begin
  22989.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  22990.                             Pages, PageType, PrintToFile, EmptyParam, EmptyParam, EmptyParam);
  22991. end;
  22992.  
  22993. procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  22994.                                  var Range: OleVariant; var OutputFileName: OleVariant; 
  22995.                                  var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
  22996.                                  var Copies: OleVariant; var Pages: OleVariant; 
  22997.                                  var PageType: OleVariant; var PrintToFile: OleVariant; 
  22998.                                  var Collate: OleVariant);
  22999. begin
  23000.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  23001.                             Pages, PageType, PrintToFile, Collate, EmptyParam, EmptyParam);
  23002. end;
  23003.  
  23004. procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  23005.                                  var Range: OleVariant; var OutputFileName: OleVariant; 
  23006.                                  var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
  23007.                                  var Copies: OleVariant; var Pages: OleVariant; 
  23008.                                  var PageType: OleVariant; var PrintToFile: OleVariant; 
  23009.                                  var Collate: OleVariant; var ActivePrinterMacGX: OleVariant);
  23010. begin
  23011.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  23012.                             Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, EmptyParam);
  23013. end;
  23014.  
  23015. procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
  23016.                                  var Range: OleVariant; var OutputFileName: OleVariant; 
  23017.                                  var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
  23018.                                  var Copies: OleVariant; var Pages: OleVariant; 
  23019.                                  var PageType: OleVariant; var PrintToFile: OleVariant; 
  23020.                                  var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
  23021.                                  var ManualDuplexPrint: OleVariant);
  23022. begin
  23023.   DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
  23024.                             Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, 
  23025.                             ManualDuplexPrint);
  23026. end;
  23027.  
  23028. procedure TWordDocument.SendMail;
  23029. begin
  23030.   DefaultInterface.SendMail;
  23031. end;
  23032.  
  23033. function  TWordDocument.Range: Range;
  23034. begin
  23035.   Result := DefaultInterface.Range(EmptyParam, EmptyParam);
  23036. end;
  23037.  
  23038. function  TWordDocument.Range(var Start: OleVariant): Range;
  23039. begin
  23040.   Result := DefaultInterface.Range(Start, EmptyParam);
  23041. end;
  23042.  
  23043. function  TWordDocument.Range(var Start: OleVariant; var End_: OleVariant): Range;
  23044. begin
  23045.   Result := DefaultInterface.Range(Start, End_);
  23046. end;
  23047.  
  23048. procedure TWordDocument.RunAutoMacro(Which: WdAutoMacros);
  23049. begin
  23050.   DefaultInterface.RunAutoMacro(Which);
  23051. end;
  23052.  
  23053. procedure TWordDocument.Activate;
  23054. begin
  23055.   DefaultInterface.Activate;
  23056. end;
  23057.  
  23058. procedure TWordDocument.PrintPreview;
  23059. begin
  23060.   DefaultInterface.PrintPreview;
  23061. end;
  23062.  
  23063. function  TWordDocument.GoTo_: Range;
  23064. begin
  23065.   Result := DefaultInterface.GoTo_(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  23066. end;
  23067.  
  23068. function  TWordDocument.GoTo_(var What: OleVariant): Range;
  23069. begin
  23070.   Result := DefaultInterface.GoTo_(What, EmptyParam, EmptyParam, EmptyParam);
  23071. end;
  23072.  
  23073. function  TWordDocument.GoTo_(var What: OleVariant; var Which: OleVariant): Range;
  23074. begin
  23075.   Result := DefaultInterface.GoTo_(What, Which, EmptyParam, EmptyParam);
  23076. end;
  23077.  
  23078. function  TWordDocument.GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant): Range;
  23079. begin
  23080.   Result := DefaultInterface.GoTo_(What, Which, Count, EmptyParam);
  23081. end;
  23082.  
  23083. function  TWordDocument.GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
  23084.                               var Name: OleVariant): Range;
  23085. begin
  23086.   Result := DefaultInterface.GoTo_(What, Which, Count, Name);
  23087. end;
  23088.  
  23089. function  TWordDocument.Undo: WordBool;
  23090. begin
  23091.   Result := DefaultInterface.Undo(EmptyParam);
  23092. end;
  23093.  
  23094. function  TWordDocument.Undo(var Times: OleVariant): WordBool;
  23095. begin
  23096.   Result := DefaultInterface.Undo(Times);
  23097. end;
  23098.  
  23099. function  TWordDocument.Redo: WordBool;
  23100. begin
  23101.   Result := DefaultInterface.Redo(EmptyParam);
  23102. end;
  23103.  
  23104. function  TWordDocument.Redo(var Times: OleVariant): WordBool;
  23105. begin
  23106.   Result := DefaultInterface.Redo(Times);
  23107. end;
  23108.  
  23109. function  TWordDocument.ComputeStatistics(Statistic: WdStatistic): Integer;
  23110. begin
  23111.   Result := DefaultInterface.ComputeStatistics(Statistic, EmptyParam);
  23112. end;
  23113.  
  23114. function  TWordDocument.ComputeStatistics(Statistic: WdStatistic; 
  23115.                                           var IncludeFootnotesAndEndnotes: OleVariant): Integer;
  23116. begin
  23117.   Result := DefaultInterface.ComputeStatistics(Statistic, IncludeFootnotesAndEndnotes);
  23118. end;
  23119.  
  23120. procedure TWordDocument.MakeCompatibilityDefault;
  23121. begin
  23122.   DefaultInterface.MakeCompatibilityDefault;
  23123. end;
  23124.  
  23125. procedure TWordDocument.Protect(Type_: WdProtectionType);
  23126. begin
  23127.   DefaultInterface.Protect(Type_, EmptyParam, EmptyParam);
  23128. end;
  23129.  
  23130. procedure TWordDocument.Protect(Type_: WdProtectionType; var NoReset: OleVariant);
  23131. begin
  23132.   DefaultInterface.Protect(Type_, NoReset, EmptyParam);
  23133. end;
  23134.  
  23135. procedure TWordDocument.Protect(Type_: WdProtectionType; var NoReset: OleVariant; 
  23136.                                 var Password: OleVariant);
  23137. begin
  23138.   DefaultInterface.Protect(Type_, NoReset, Password);
  23139. end;
  23140.  
  23141. procedure TWordDocument.Unprotect;
  23142. begin
  23143.   DefaultInterface.Unprotect(EmptyParam);
  23144. end;
  23145.  
  23146. procedure TWordDocument.Unprotect(var Password: OleVariant);
  23147. begin
  23148.   DefaultInterface.Unprotect(Password);
  23149. end;
  23150.  
  23151. procedure TWordDocument.EditionOptions(Type_: WdEditionType; Option: WdEditionOption; 
  23152.                                        const Name: WideString);
  23153. begin
  23154.   DefaultInterface.EditionOptions(Type_, Option, Name, EmptyParam);
  23155. end;
  23156.  
  23157. procedure TWordDocument.EditionOptions(Type_: WdEditionType; Option: WdEditionOption; 
  23158.                                        const Name: WideString; var Format: OleVariant);
  23159. begin
  23160.   DefaultInterface.EditionOptions(Type_, Option, Name, Format);
  23161. end;
  23162.  
  23163. procedure TWordDocument.RunLetterWizard;
  23164. begin
  23165.   DefaultInterface.RunLetterWizard(EmptyParam, EmptyParam);
  23166. end;
  23167.  
  23168. procedure TWordDocument.RunLetterWizard(var LetterContent: OleVariant);
  23169. begin
  23170.   DefaultInterface.RunLetterWizard(LetterContent, EmptyParam);
  23171. end;
  23172.  
  23173. procedure TWordDocument.RunLetterWizard(var LetterContent: OleVariant; var WizardMode: OleVariant);
  23174. begin
  23175.   DefaultInterface.RunLetterWizard(LetterContent, WizardMode);
  23176. end;
  23177.  
  23178. function  TWordDocument.GetLetterContent: WordLetterContent;
  23179. begin
  23180.   Result := DefaultInterface.GetLetterContent;
  23181. end;
  23182.  
  23183. procedure TWordDocument.SetLetterContent(var LetterContent: OleVariant);
  23184. begin
  23185.   DefaultInterface.SetLetterContent(LetterContent);
  23186. end;
  23187.  
  23188. procedure TWordDocument.CopyStylesFromTemplate(const Template: WideString);
  23189. begin
  23190.   DefaultInterface.CopyStylesFromTemplate(Template);
  23191. end;
  23192.  
  23193. procedure TWordDocument.UpdateStyles;
  23194. begin
  23195.   DefaultInterface.UpdateStyles;
  23196. end;
  23197.  
  23198. procedure TWordDocument.CheckGrammar;
  23199. begin
  23200.   DefaultInterface.CheckGrammar;
  23201. end;
  23202.  
  23203. procedure TWordDocument.CheckSpelling;
  23204. begin
  23205.   DefaultInterface.CheckSpelling(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  23206.                                  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  23207.                                  EmptyParam, EmptyParam);
  23208. end;
  23209.  
  23210. procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant);
  23211. begin
  23212.   DefaultInterface.CheckSpelling(CustomDictionary, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  23213.                                  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  23214.                                  EmptyParam, EmptyParam);
  23215. end;
  23216.  
  23217. procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
  23218.                                       var IgnoreUppercase: OleVariant);
  23219. begin
  23220.   DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, EmptyParam, EmptyParam, 
  23221.                                  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  23222.                                  EmptyParam, EmptyParam, EmptyParam);
  23223. end;
  23224.  
  23225. procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
  23226.                                       var IgnoreUppercase: OleVariant; var AlwaysSuggest: OleVariant);
  23227. begin
  23228.   DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, EmptyParam, 
  23229.                                  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  23230.                                  EmptyParam, EmptyParam, EmptyParam);
  23231. end;
  23232.  
  23233. procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
  23234.                                       var IgnoreUppercase: OleVariant; 
  23235.                                       var AlwaysSuggest: OleVariant; 
  23236.                                       var CustomDictionary2: OleVariant);
  23237. begin
  23238.   DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
  23239.                                  CustomDictionary2, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  23240.                                  EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  23241. end;
  23242.  
  23243. procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
  23244.                                       var IgnoreUppercase: OleVariant; 
  23245.                                       var AlwaysSuggest: OleVariant; 
  23246.                                       var CustomDictionary2: OleVariant; 
  23247.                                       var CustomDictionary3: OleVariant);
  23248. begin
  23249.   DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
  23250.                                  CustomDictionary2, CustomDictionary3, EmptyParam, EmptyParam, 
  23251.                                  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  23252. end;
  23253.  
  23254. procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
  23255.                                       var IgnoreUppercase: OleVariant; 
  23256.                                       var AlwaysSuggest: OleVariant; 
  23257.                                       var CustomDictionary2: OleVariant; 
  23258.                                       var CustomDictionary3: OleVariant; 
  23259.                                       var CustomDictionary4: OleVariant);
  23260. begin
  23261.   DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
  23262.                                  CustomDictionary2, CustomDictionary3, CustomDictionary4, 
  23263.                                  EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  23264.                                  EmptyParam);
  23265. end;
  23266.  
  23267. procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
  23268.                                       var IgnoreUppercase: OleVariant; 
  23269.                                       var AlwaysSuggest: OleVariant; 
  23270.                                       var CustomDictionary2: OleVariant; 
  23271.                                       var CustomDictionary3: OleVariant; 
  23272.                                       var CustomDictionary4: OleVariant; 
  23273.                                       var CustomDictionary5: OleVariant);
  23274. begin
  23275.   DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
  23276.                                  CustomDictionary2, CustomDictionary3, CustomDictionary4, 
  23277.                                  CustomDictionary5, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  23278.                                  EmptyParam);
  23279. end;
  23280.  
  23281. procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
  23282.                                       var IgnoreUppercase: OleVariant; 
  23283.                                       var AlwaysSuggest: OleVariant; 
  23284.                                       var CustomDictionary2: OleVariant; 
  23285.                                       var CustomDictionary3: OleVariant; 
  23286.                                       var CustomDictionary4: OleVariant; 
  23287.                                       var CustomDictionary5: OleVariant; 
  23288.                                       var CustomDictionary6: OleVariant);
  23289. begin
  23290.   DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
  23291.                                  CustomDictionary2, CustomDictionary3, CustomDictionary4, 
  23292.                                  CustomDictionary5, CustomDictionary6, EmptyParam, EmptyParam, 
  23293.                                  EmptyParam, EmptyParam);
  23294. end;
  23295.  
  23296. procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
  23297.                                       var IgnoreUppercase: OleVariant; 
  23298.                                       var AlwaysSuggest: OleVariant; 
  23299.                                       var CustomDictionary2: OleVariant; 
  23300.                                       var CustomDictionary3: OleVariant; 
  23301.                                       var CustomDictionary4: OleVariant; 
  23302.                                       var CustomDictionary5: OleVariant; 
  23303.                                       var CustomDictionary6: OleVariant; 
  23304.                                       var CustomDictionary7: OleVariant);
  23305. begin
  23306.   DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
  23307.                                  CustomDictionary2, CustomDictionary3, CustomDictionary4, 
  23308.                                  CustomDictionary5, CustomDictionary6, CustomDictionary7, 
  23309.                                  EmptyParam, EmptyParam, EmptyParam);
  23310. end;
  23311.  
  23312. procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
  23313.                                       var IgnoreUppercase: OleVariant; 
  23314.                                       var AlwaysSuggest: OleVariant; 
  23315.                                       var CustomDictionary2: OleVariant; 
  23316.                                       var CustomDictionary3: OleVariant; 
  23317.                                       var CustomDictionary4: OleVariant; 
  23318.                                       var CustomDictionary5: OleVariant; 
  23319.                                       var CustomDictionary6: OleVariant; 
  23320.                                       var CustomDictionary7: OleVariant; 
  23321.                                       var CustomDictionary8: OleVariant);
  23322. begin
  23323.   DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
  23324.                                  CustomDictionary2, CustomDictionary3, CustomDictionary4, 
  23325.                                  CustomDictionary5, CustomDictionary6, CustomDictionary7, 
  23326.                                  CustomDictionary8, EmptyParam, EmptyParam);
  23327. end;
  23328.  
  23329. procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
  23330.                                       var IgnoreUppercase: OleVariant; 
  23331.                                       var AlwaysSuggest: OleVariant; 
  23332.                                       var CustomDictionary2: OleVariant; 
  23333.                                       var CustomDictionary3: OleVariant; 
  23334.                                       var CustomDictionary4: OleVariant; 
  23335.                                       var CustomDictionary5: OleVariant; 
  23336.                                       var CustomDictionary6: OleVariant; 
  23337.                                       var CustomDictionary7: OleVariant; 
  23338.                                       var CustomDictionary8: OleVariant; 
  23339.                                       var CustomDictionary9: OleVariant);
  23340. begin
  23341.   DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
  23342.                                  CustomDictionary2, CustomDictionary3, CustomDictionary4, 
  23343.                                  CustomDictionary5, CustomDictionary6, CustomDictionary7, 
  23344.                                  CustomDictionary8, CustomDictionary9, EmptyParam);
  23345. end;
  23346.  
  23347. procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
  23348.                                       var IgnoreUppercase: OleVariant; 
  23349.                                       var AlwaysSuggest: OleVariant; 
  23350.                                       var CustomDictionary2: OleVariant; 
  23351.                                       var CustomDictionary3: OleVariant; 
  23352.                                       var CustomDictionary4: OleVariant; 
  23353.                                       var CustomDictionary5: OleVariant; 
  23354.                                       var CustomDictionary6: OleVariant; 
  23355.                                       var CustomDictionary7: OleVariant; 
  23356.                                       var CustomDictionary8: OleVariant; 
  23357.                                       var CustomDictionary9: OleVariant; 
  23358.                                       var CustomDictionary10: OleVariant);
  23359. begin
  23360.   DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
  23361.                                  CustomDictionary2, CustomDictionary3, CustomDictionary4, 
  23362.                                  CustomDictionary5, CustomDictionary6, CustomDictionary7, 
  23363.                                  CustomDictionary8, CustomDictionary9, CustomDictionary10);
  23364. end;
  23365.  
  23366. procedure TWordDocument.FollowHyperlink;
  23367. begin
  23368.   DefaultInterface.FollowHyperlink(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  23369.                                    EmptyParam, EmptyParam);
  23370. end;
  23371.  
  23372. procedure TWordDocument.FollowHyperlink(var Address: OleVariant);
  23373. begin
  23374.   DefaultInterface.FollowHyperlink(Address, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  23375.                                    EmptyParam, EmptyParam);
  23376. end;
  23377.  
  23378. procedure TWordDocument.FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant);
  23379. begin
  23380.   DefaultInterface.FollowHyperlink(Address, SubAddress, EmptyParam, EmptyParam, EmptyParam, 
  23381.                                    EmptyParam, EmptyParam);
  23382. end;
  23383.  
  23384. procedure TWordDocument.FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
  23385.                                         var NewWindow: OleVariant);
  23386. begin
  23387.   DefaultInterface.FollowHyperlink(Address, SubAddress, NewWindow, EmptyParam, EmptyParam, 
  23388.                                    EmptyParam, EmptyParam);
  23389. end;
  23390.  
  23391. procedure TWordDocument.FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
  23392.                                         var NewWindow: OleVariant; var AddHistory: OleVariant);
  23393. begin
  23394.   DefaultInterface.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, EmptyParam, 
  23395.                                    EmptyParam, EmptyParam);
  23396. end;
  23397.  
  23398. procedure TWordDocument.FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
  23399.                                         var NewWindow: OleVariant; var AddHistory: OleVariant; 
  23400.                                         var ExtraInfo: OleVariant);
  23401. begin
  23402.   DefaultInterface.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, 
  23403.                                    EmptyParam, EmptyParam);
  23404. end;
  23405.  
  23406. procedure TWordDocument.FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
  23407.                                         var NewWindow: OleVariant; var AddHistory: OleVariant; 
  23408.                                         var ExtraInfo: OleVariant; var Method: OleVariant);
  23409. begin
  23410.   DefaultInterface.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, 
  23411.                                    EmptyParam);
  23412. end;
  23413.  
  23414. procedure TWordDocument.FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
  23415.                                         var NewWindow: OleVariant; var AddHistory: OleVariant; 
  23416.                                         var ExtraInfo: OleVariant; var Method: OleVariant; 
  23417.                                         var HeaderInfo: OleVariant);
  23418. begin
  23419.   DefaultInterface.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, 
  23420.                                    HeaderInfo);
  23421. end;
  23422.  
  23423. procedure TWordDocument.AddToFavorites;
  23424. begin
  23425.   DefaultInterface.AddToFavorites;
  23426. end;
  23427.  
  23428. procedure TWordDocument.Reload;
  23429. begin
  23430.   DefaultInterface.Reload;
  23431. end;
  23432.  
  23433. function  TWordDocument.AutoSummarize: Range;
  23434. begin
  23435.   Result := DefaultInterface.AutoSummarize(EmptyParam, EmptyParam, EmptyParam);
  23436. end;
  23437.  
  23438. function  TWordDocument.AutoSummarize(var Length: OleVariant): Range;
  23439. begin
  23440.   Result := DefaultInterface.AutoSummarize(Length, EmptyParam, EmptyParam);
  23441. end;
  23442.  
  23443. function  TWordDocument.AutoSummarize(var Length: OleVariant; var Mode: OleVariant): Range;
  23444. begin
  23445.   Result := DefaultInterface.AutoSummarize(Length, Mode, EmptyParam);
  23446. end;
  23447.  
  23448. function  TWordDocument.AutoSummarize(var Length: OleVariant; var Mode: OleVariant; 
  23449.                                       var UpdateProperties: OleVariant): Range;
  23450. begin
  23451.   Result := DefaultInterface.AutoSummarize(Length, Mode, UpdateProperties);
  23452. end;
  23453.  
  23454. procedure TWordDocument.RemoveNumbers;
  23455. begin
  23456.   DefaultInterface.RemoveNumbers(EmptyParam);
  23457. end;
  23458.  
  23459. procedure TWordDocument.RemoveNumbers(var NumberType: OleVariant);
  23460. begin
  23461.   DefaultInterface.RemoveNumbers(NumberType);
  23462. end;
  23463.  
  23464. procedure TWordDocument.ConvertNumbersToText;
  23465. begin
  23466.   DefaultInterface.ConvertNumbersToText(EmptyParam);
  23467. end;
  23468.  
  23469. procedure TWordDocument.ConvertNumbersToText(var NumberType: OleVariant);
  23470. begin
  23471.   DefaultInterface.ConvertNumbersToText(NumberType);
  23472. end;
  23473.  
  23474. function  TWordDocument.CountNumberedItems: Integer;
  23475. begin
  23476.   Result := DefaultInterface.CountNumberedItems(EmptyParam, EmptyParam);
  23477. end;
  23478.  
  23479. function  TWordDocument.CountNumberedItems(var NumberType: OleVariant): Integer;
  23480. begin
  23481.   Result := DefaultInterface.CountNumberedItems(NumberType, EmptyParam);
  23482. end;
  23483.  
  23484. function  TWordDocument.CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer;
  23485. begin
  23486.   Result := DefaultInterface.CountNumberedItems(NumberType, Level);
  23487. end;
  23488.  
  23489. procedure TWordDocument.Post;
  23490. begin
  23491.   DefaultInterface.Post;
  23492. end;
  23493.  
  23494. procedure TWordDocument.ToggleFormsDesign;
  23495. begin
  23496.   DefaultInterface.ToggleFormsDesign;
  23497. end;
  23498.  
  23499. procedure TWordDocument.Compare(const Name: WideString);
  23500. begin
  23501.   DefaultInterface.Compare(Name);
  23502. end;
  23503.  
  23504. procedure TWordDocument.UpdateSummaryProperties;
  23505. begin
  23506.   DefaultInterface.UpdateSummaryProperties;
  23507. end;
  23508.  
  23509. function  TWordDocument.GetCrossReferenceItems(var ReferenceType: OleVariant): OleVariant;
  23510. begin
  23511.   Result := DefaultInterface.GetCrossReferenceItems(ReferenceType);
  23512. end;
  23513.  
  23514. procedure TWordDocument.AutoFormat;
  23515. begin
  23516.   DefaultInterface.AutoFormat;
  23517. end;
  23518.  
  23519. procedure TWordDocument.ViewCode;
  23520. begin
  23521.   DefaultInterface.ViewCode;
  23522. end;
  23523.  
  23524. procedure TWordDocument.ViewPropertyBrowser;
  23525. begin
  23526.   DefaultInterface.ViewPropertyBrowser;
  23527. end;
  23528.  
  23529. procedure TWordDocument.ForwardMailer;
  23530. begin
  23531.   DefaultInterface.ForwardMailer;
  23532. end;
  23533.  
  23534. procedure TWordDocument.Reply;
  23535. begin
  23536.   DefaultInterface.Reply;
  23537. end;
  23538.  
  23539. procedure TWordDocument.ReplyAll;
  23540. begin
  23541.   DefaultInterface.ReplyAll;
  23542. end;
  23543.  
  23544. procedure TWordDocument.SendMailer;
  23545. begin
  23546.   DefaultInterface.SendMailer(EmptyParam, EmptyParam);
  23547. end;
  23548.  
  23549. procedure TWordDocument.SendMailer(var FileFormat: OleVariant);
  23550. begin
  23551.   DefaultInterface.SendMailer(FileFormat, EmptyParam);
  23552. end;
  23553.  
  23554. procedure TWordDocument.SendMailer(var FileFormat: OleVariant; var Priority: OleVariant);
  23555. begin
  23556.   DefaultInterface.SendMailer(FileFormat, Priority);
  23557. end;
  23558.  
  23559. procedure TWordDocument.UndoClear;
  23560. begin
  23561.   DefaultInterface.UndoClear;
  23562. end;
  23563.  
  23564. procedure TWordDocument.PresentIt;
  23565. begin
  23566.   DefaultInterface.PresentIt;
  23567. end;
  23568.  
  23569. procedure TWordDocument.SendFax(const Address: WideString);
  23570. begin
  23571.   DefaultInterface.SendFax(Address, EmptyParam);
  23572. end;
  23573.  
  23574. procedure TWordDocument.SendFax(const Address: WideString; var Subject: OleVariant);
  23575. begin
  23576.   DefaultInterface.SendFax(Address, Subject);
  23577. end;
  23578.  
  23579. procedure TWordDocument.Merge(const FileName: WideString);
  23580. begin
  23581.   DefaultInterface.Merge(FileName);
  23582. end;
  23583.  
  23584. procedure TWordDocument.ClosePrintPreview;
  23585. begin
  23586.   DefaultInterface.ClosePrintPreview;
  23587. end;
  23588.  
  23589. procedure TWordDocument.CheckConsistency;
  23590. begin
  23591.   DefaultInterface.CheckConsistency;
  23592. end;
  23593.  
  23594. function  TWordDocument.CreateLetterContent(const DateFormat: WideString; 
  23595.                                             IncludeHeaderFooter: WordBool; 
  23596.                                             const PageDesign: WideString; 
  23597.                                             LetterStyle: WdLetterStyle; Letterhead: WordBool; 
  23598.                                             LetterheadLocation: WdLetterheadLocation; 
  23599.                                             LetterheadSize: Single; 
  23600.                                             const RecipientName: WideString; 
  23601.                                             const RecipientAddress: WideString; 
  23602.                                             const Salutation: WideString; 
  23603.                                             SalutationType: WdSalutationType; 
  23604.                                             const RecipientReference: WideString; 
  23605.                                             const MailingInstructions: WideString; 
  23606.                                             const AttentionLine: WideString; 
  23607.                                             const Subject: WideString; const CCList: WideString; 
  23608.                                             const ReturnAddress: WideString; 
  23609.                                             const SenderName: WideString; 
  23610.                                             const Closing: WideString; 
  23611.                                             const SenderCompany: WideString; 
  23612.                                             const SenderJobTitle: WideString; 
  23613.                                             const SenderInitials: WideString; 
  23614.                                             EnclosureNumber: Integer): WordLetterContent;
  23615. begin
  23616.   Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
  23617.                                                  LetterStyle, Letterhead, LetterheadLocation, 
  23618.                                                  LetterheadSize, RecipientName, RecipientAddress, 
  23619.                                                  Salutation, SalutationType, RecipientReference, 
  23620.                                                  MailingInstructions, AttentionLine, Subject, 
  23621.                                                  CCList, ReturnAddress, SenderName, Closing, 
  23622.                                                  SenderCompany, SenderJobTitle, SenderInitials, 
  23623.                                                  EnclosureNumber, EmptyParam, EmptyParam, 
  23624.                                                  EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  23625.                                                  EmptyParam, EmptyParam);
  23626. end;
  23627.  
  23628. function  TWordDocument.CreateLetterContent(const DateFormat: WideString; 
  23629.                                             IncludeHeaderFooter: WordBool; 
  23630.                                             const PageDesign: WideString; 
  23631.                                             LetterStyle: WdLetterStyle; Letterhead: WordBool; 
  23632.                                             LetterheadLocation: WdLetterheadLocation; 
  23633.                                             LetterheadSize: Single; 
  23634.                                             const RecipientName: WideString; 
  23635.                                             const RecipientAddress: WideString; 
  23636.                                             const Salutation: WideString; 
  23637.                                             SalutationType: WdSalutationType; 
  23638.                                             const RecipientReference: WideString; 
  23639.                                             const MailingInstructions: WideString; 
  23640.                                             const AttentionLine: WideString; 
  23641.                                             const Subject: WideString; const CCList: WideString; 
  23642.                                             const ReturnAddress: WideString; 
  23643.                                             const SenderName: WideString; 
  23644.                                             const Closing: WideString; 
  23645.                                             const SenderCompany: WideString; 
  23646.                                             const SenderJobTitle: WideString; 
  23647.                                             const SenderInitials: WideString; 
  23648.                                             EnclosureNumber: Integer; var InfoBlock: OleVariant): WordLetterContent;
  23649. begin
  23650.   Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
  23651.                                                  LetterStyle, Letterhead, LetterheadLocation, 
  23652.                                                  LetterheadSize, RecipientName, RecipientAddress, 
  23653.                                                  Salutation, SalutationType, RecipientReference, 
  23654.                                                  MailingInstructions, AttentionLine, Subject, 
  23655.                                                  CCList, ReturnAddress, SenderName, Closing, 
  23656.                                                  SenderCompany, SenderJobTitle, SenderInitials, 
  23657.                                                  EnclosureNumber, InfoBlock, EmptyParam, 
  23658.                                                  EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  23659.                                                  EmptyParam, EmptyParam);
  23660. end;
  23661.  
  23662. function  TWordDocument.CreateLetterContent(const DateFormat: WideString; 
  23663.                                             IncludeHeaderFooter: WordBool; 
  23664.                                             const PageDesign: WideString; 
  23665.                                             LetterStyle: WdLetterStyle; Letterhead: WordBool; 
  23666.                                             LetterheadLocation: WdLetterheadLocation; 
  23667.                                             LetterheadSize: Single; 
  23668.                                             const RecipientName: WideString; 
  23669.                                             const RecipientAddress: WideString; 
  23670.                                             const Salutation: WideString; 
  23671.                                             SalutationType: WdSalutationType; 
  23672.                                             const RecipientReference: WideString; 
  23673.                                             const MailingInstructions: WideString; 
  23674.                                             const AttentionLine: WideString; 
  23675.                                             const Subject: WideString; const CCList: WideString; 
  23676.                                             const ReturnAddress: WideString; 
  23677.                                             const SenderName: WideString; 
  23678.                                             const Closing: WideString; 
  23679.                                             const SenderCompany: WideString; 
  23680.                                             const SenderJobTitle: WideString; 
  23681.                                             const SenderInitials: WideString; 
  23682.                                             EnclosureNumber: Integer; var InfoBlock: OleVariant; 
  23683.                                             var RecipientCode: OleVariant): WordLetterContent;
  23684. begin
  23685.   Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
  23686.                                                  LetterStyle, Letterhead, LetterheadLocation, 
  23687.                                                  LetterheadSize, RecipientName, RecipientAddress, 
  23688.                                                  Salutation, SalutationType, RecipientReference, 
  23689.                                                  MailingInstructions, AttentionLine, Subject, 
  23690.                                                  CCList, ReturnAddress, SenderName, Closing, 
  23691.                                                  SenderCompany, SenderJobTitle, SenderInitials, 
  23692.                                                  EnclosureNumber, InfoBlock, RecipientCode, 
  23693.                                                  EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
  23694.                                                  EmptyParam, EmptyParam);
  23695. end;
  23696.  
  23697. function  TWordDocument.CreateLetterContent(const DateFormat: WideString; 
  23698.                                             IncludeHeaderFooter: WordBool; 
  23699.                                             const PageDesign: WideString; 
  23700.                                             LetterStyle: WdLetterStyle; Letterhead: WordBool; 
  23701.                                             LetterheadLocation: WdLetterheadLocation; 
  23702.                                             LetterheadSize: Single; 
  23703.                                             const RecipientName: WideString; 
  23704.                                             const RecipientAddress: WideString; 
  23705.                                             const Salutation: WideString; 
  23706.                                             SalutationType: WdSalutationType; 
  23707.                                             const RecipientReference: WideString; 
  23708.                                             const MailingInstructions: WideString; 
  23709.                                             const AttentionLine: WideString; 
  23710.                                             const Subject: WideString; const CCList: WideString; 
  23711.                                             const ReturnAddress: WideString; 
  23712.                                             const SenderName: WideString; 
  23713.                                             const Closing: WideString; 
  23714.                                             const SenderCompany: WideString; 
  23715.                                             const SenderJobTitle: WideString; 
  23716.                                             const SenderInitials: WideString; 
  23717.                                             EnclosureNumber: Integer; var InfoBlock: OleVariant; 
  23718.                                             var RecipientCode: OleVariant; 
  23719.                                             var RecipientGender: OleVariant): WordLetterContent;
  23720. begin
  23721.   Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
  23722.                                                  LetterStyle, Letterhead, LetterheadLocation, 
  23723.                                                  LetterheadSize, RecipientName, RecipientAddress, 
  23724.                                                  Salutation, SalutationType, RecipientReference, 
  23725.                                                  MailingInstructions, AttentionLine, Subject, 
  23726.                                                  CCList, ReturnAddress, SenderName, Closing, 
  23727.                                                  SenderCompany, SenderJobTitle, SenderInitials, 
  23728.                                                  EnclosureNumber, InfoBlock, RecipientCode, 
  23729.                                                  RecipientGender, EmptyParam, EmptyParam, 
  23730.                                                  EmptyParam, EmptyParam, EmptyParam);
  23731. end;
  23732.  
  23733. function  TWordDocument.CreateLetterContent(const DateFormat: WideString; 
  23734.                                             IncludeHeaderFooter: WordBool; 
  23735.                                             const PageDesign: WideString; 
  23736.                                             LetterStyle: WdLetterStyle; Letterhead: WordBool; 
  23737.                                             LetterheadLocation: WdLetterheadLocation; 
  23738.                                             LetterheadSize: Single; 
  23739.                                             const RecipientName: WideString; 
  23740.                                             const RecipientAddress: WideString; 
  23741.                                             const Salutation: WideString; 
  23742.                                             SalutationType: WdSalutationType; 
  23743.                                             const RecipientReference: WideString; 
  23744.                                             const MailingInstructions: WideString; 
  23745.                                             const AttentionLine: WideString; 
  23746.                                             const Subject: WideString; const CCList: WideString; 
  23747.                                             const ReturnAddress: WideString; 
  23748.                                             const SenderName: WideString; 
  23749.                                             const Closing: WideString; 
  23750.                                             const SenderCompany: WideString; 
  23751.                                             const SenderJobTitle: WideString; 
  23752.                                             const SenderInitials: WideString; 
  23753.                                             EnclosureNumber: Integer; var InfoBlock: OleVariant; 
  23754.                                             var RecipientCode: OleVariant; 
  23755.                                             var RecipientGender: OleVariant; 
  23756.                                             var ReturnAddressShortForm: OleVariant): WordLetterContent;
  23757. begin
  23758.   Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
  23759.                                                  LetterStyle, Letterhead, LetterheadLocation, 
  23760.                                                  LetterheadSize, RecipientName, RecipientAddress, 
  23761.                                                  Salutation, SalutationType, RecipientReference, 
  23762.                                                  MailingInstructions, AttentionLine, Subject, 
  23763.                                                  CCList, ReturnAddress, SenderName, Closing, 
  23764.                                                  SenderCompany, SenderJobTitle, SenderInitials, 
  23765.                                                  EnclosureNumber, InfoBlock, RecipientCode, 
  23766.                                                  RecipientGender, ReturnAddressShortForm, 
  23767.                                                  EmptyParam, EmptyParam, EmptyParam, EmptyParam);
  23768. end;
  23769.  
  23770. function  TWordDocument.CreateLetterContent(const DateFormat: WideString; 
  23771.                                             IncludeHeaderFooter: WordBool; 
  23772.                                             const PageDesign: WideString; 
  23773.                                             LetterStyle: WdLetterStyle; Letterhead: WordBool; 
  23774.                                             LetterheadLocation: WdLetterheadLocation; 
  23775.                                             LetterheadSize: Single; 
  23776.                                             const RecipientName: WideString; 
  23777.                                             const RecipientAddress: WideString; 
  23778.                                             const Salutation: WideString; 
  23779.                                             SalutationType: WdSalutationType; 
  23780.                                             const RecipientReference: WideString; 
  23781.                                             const MailingInstructions: WideString; 
  23782.                                             const AttentionLine: WideString; 
  23783.                                             const Subject: WideString; const CCList: WideString; 
  23784.                                             const ReturnAddress: WideString; 
  23785.                                             const SenderName: WideString; 
  23786.                                             const Closing: WideString; 
  23787.                                             const SenderCompany: WideString; 
  23788.                                             const SenderJobTitle: WideString; 
  23789.                                             const SenderInitials: WideString; 
  23790.                                             EnclosureNumber: Integer; var InfoBlock: OleVariant; 
  23791.                                             var RecipientCode: OleVariant; 
  23792.                                             var RecipientGender: OleVariant; 
  23793.                                             var ReturnAddressShortForm: OleVariant; 
  23794.                                             var SenderCity: OleVariant): WordLetterContent;
  23795. begin
  23796.   Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
  23797.                                                  LetterStyle, Letterhead, LetterheadLocation, 
  23798.                                                  LetterheadSize, RecipientName, RecipientAddress, 
  23799.                                                  Salutation, SalutationType, RecipientReference, 
  23800.                                                  MailingInstructions, AttentionLine, Subject, 
  23801.                                                  CCList, ReturnAddress, SenderName, Closing, 
  23802.                                                  SenderCompany, SenderJobTitle, SenderInitials, 
  23803.                                                  EnclosureNumber, InfoBlock, RecipientCode, 
  23804.                                                  RecipientGender, ReturnAddressShortForm, 
  23805.                                                  SenderCity, EmptyParam, EmptyParam, EmptyParam);
  23806. end;
  23807.  
  23808. function  TWordDocument.CreateLetterContent(const DateFormat: WideString; 
  23809.                                             IncludeHeaderFooter: WordBool; 
  23810.                                             const PageDesign: WideString; 
  23811.                                             LetterStyle: WdLetterStyle; Letterhead: WordBool; 
  23812.                                             LetterheadLocation: WdLetterheadLocation; 
  23813.                                             LetterheadSize: Single; 
  23814.                                             const RecipientName: WideString; 
  23815.                                             const RecipientAddress: WideString; 
  23816.                                             const Salutation: WideString; 
  23817.                                             SalutationType: WdSalutationType; 
  23818.                                             const RecipientReference: WideString; 
  23819.                                             const MailingInstructions: WideString; 
  23820.                                             const AttentionLine: WideString; 
  23821.                                             const Subject: WideString; const CCList: WideString; 
  23822.                                             const ReturnAddress: WideString; 
  23823.                                             const SenderName: WideString; 
  23824.                                             const Closing: WideString; 
  23825.                                             const SenderCompany: WideString; 
  23826.                                             const SenderJobTitle: WideString; 
  23827.                                             const SenderInitials: WideString; 
  23828.                                             EnclosureNumber: Integer; var InfoBlock: OleVariant; 
  23829.                                             var RecipientCode: OleVariant; 
  23830.                                             var RecipientGender: OleVariant; 
  23831.                                             var ReturnAddressShortForm: OleVariant; 
  23832.                                             var SenderCity: OleVariant; var SenderCode: OleVariant): WordLetterContent;
  23833. begin
  23834.   Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
  23835.                                                  LetterStyle, Letterhead, LetterheadLocation, 
  23836.                                                  LetterheadSize, RecipientName, RecipientAddress, 
  23837.                                                  Salutation, SalutationType, RecipientReference, 
  23838.                                                  MailingInstructions, AttentionLine, Subject, 
  23839.                                                  CCList, ReturnAddress, SenderName, Closing, 
  23840.                                                  SenderCompany, SenderJobTitle, SenderInitials, 
  23841.                                                  EnclosureNumber, InfoBlock, RecipientCode, 
  23842.                                                  RecipientGender, ReturnAddressShortForm, 
  23843.                                                  SenderCity, SenderCode, EmptyParam, EmptyParam);
  23844. end;
  23845.  
  23846. function  TWordDocument.CreateLetterContent(const DateFormat: WideString; 
  23847.                                             IncludeHeaderFooter: WordBool; 
  23848.                                             const PageDesign: WideString; 
  23849.                                             LetterStyle: WdLetterStyle; Letterhead: WordBool; 
  23850.                                             LetterheadLocation: WdLetterheadLocation; 
  23851.                                             LetterheadSize: Single; 
  23852.                                             const RecipientName: WideString; 
  23853.                                             const RecipientAddress: WideString; 
  23854.                                             const Salutation: WideString; 
  23855.                                             SalutationType: WdSalutationType; 
  23856.                                             const RecipientReference: WideString; 
  23857.                                             const MailingInstructions: WideString; 
  23858.                                             const AttentionLine: WideString; 
  23859.                                             const Subject: WideString; const CCList: WideString; 
  23860.                                             const ReturnAddress: WideString; 
  23861.                                             const SenderName: WideString; 
  23862.                                             const Closing: WideString; 
  23863.                                             const SenderCompany: WideString; 
  23864.                                             const SenderJobTitle: WideString; 
  23865.                                             const SenderInitials: WideString; 
  23866.                                             EnclosureNumber: Integer; var InfoBlock: OleVariant; 
  23867.                                             var RecipientCode: OleVariant; 
  23868.                                             var RecipientGender: OleVariant; 
  23869.                                             var ReturnAddressShortForm: OleVariant; 
  23870.                                             var SenderCity: OleVariant; var SenderCode: OleVariant; 
  23871.                                             var SenderGender: OleVariant): WordLetterContent;
  23872. begin
  23873.   Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
  23874.                                                  LetterStyle, Letterhead, LetterheadLocation, 
  23875.                                                  LetterheadSize, RecipientName, RecipientAddress, 
  23876.                                                  Salutation, SalutationType, RecipientReference, 
  23877.                                                  MailingInstructions, AttentionLine, Subject, 
  23878.                                                  CCList, ReturnAddress, SenderName, Closing, 
  23879.                                                  SenderCompany, SenderJobTitle, SenderInitials, 
  23880.                                                  EnclosureNumber, InfoBlock, RecipientCode, 
  23881.                                                  RecipientGender, ReturnAddressShortForm, 
  23882.                                                  SenderCity, SenderCode, SenderGender, EmptyParam);
  23883. end;
  23884.  
  23885. function  TWordDocument.CreateLetterContent(const DateFormat: WideString; 
  23886.                                             IncludeHeaderFooter: WordBool; 
  23887.                                             const PageDesign: WideString; 
  23888.                                             LetterStyle: WdLetterStyle; Letterhead: WordBool; 
  23889.                                             LetterheadLocation: WdLetterheadLocation; 
  23890.                                             LetterheadSize: Single; 
  23891.                                             const RecipientName: WideString; 
  23892.                                             const RecipientAddress: WideString; 
  23893.                                             const Salutation: WideString; 
  23894.                                             SalutationType: WdSalutationType; 
  23895.                                             const RecipientReference: WideString; 
  23896.                                             const MailingInstructions: WideString; 
  23897.                                             const AttentionLine: WideString; 
  23898.                                             const Subject: WideString; const CCList: WideString; 
  23899.                                             const ReturnAddress: WideString; 
  23900.                                             const SenderName: WideString; 
  23901.                                             const Closing: WideString; 
  23902.                                             const SenderCompany: WideString; 
  23903.                                             const SenderJobTitle: WideString; 
  23904.                                             const SenderInitials: WideString; 
  23905.                                             EnclosureNumber: Integer; var InfoBlock: OleVariant; 
  23906.                                             var RecipientCode: OleVariant; 
  23907.                                             var RecipientGender: OleVariant; 
  23908.                                             var ReturnAddressShortForm: OleVariant; 
  23909.                                             var SenderCity: OleVariant; var SenderCode: OleVariant; 
  23910.                                             var SenderGender: OleVariant; 
  23911.                                             var SenderReference: OleVariant): WordLetterContent;
  23912. begin
  23913.   Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
  23914.                                                  LetterStyle, Letterhead, LetterheadLocation, 
  23915.                                                  LetterheadSize, RecipientName, RecipientAddress, 
  23916.                                                  Salutation, SalutationType, RecipientReference, 
  23917.                                                  MailingInstructions, AttentionLine, Subject, 
  23918.                                                  CCList, ReturnAddress, SenderName, Closing, 
  23919.                                                  SenderCompany, SenderJobTitle, SenderInitials, 
  23920.                                                  EnclosureNumber, InfoBlock, RecipientCode, 
  23921.                                                  RecipientGender, ReturnAddressShortForm, 
  23922.                                                  SenderCity, SenderCode, SenderGender, 
  23923.                                                  SenderReference);
  23924. end;
  23925.  
  23926. procedure TWordDocument.AcceptAllRevisions;
  23927. begin
  23928.   DefaultInterface.AcceptAllRevisions;
  23929. end;
  23930.  
  23931. procedure TWordDocument.RejectAllRevisions;
  23932. begin
  23933.   DefaultInterface.RejectAllRevisions;
  23934. end;
  23935.  
  23936. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  23937. constructor TWordDocumentProperties.Create(AServer: TWordDocument);
  23938. begin
  23939.   inherited Create;
  23940.   FServer := AServer;
  23941. end;
  23942.  
  23943. function TWordDocumentProperties.GetDefaultInterface: _Document;
  23944. begin
  23945.   Result := FServer.DefaultInterface;
  23946. end;
  23947.  
  23948. function  TWordDocumentProperties.Get_Name: WideString;
  23949. begin
  23950.   Result := DefaultInterface.Get_Name;
  23951. end;
  23952.  
  23953. function  TWordDocumentProperties.Get_Application: WordApplication;
  23954. begin
  23955.   Result := DefaultInterface.Get_Application;
  23956. end;
  23957.  
  23958. function  TWordDocumentProperties.Get_Creator: Integer;
  23959. begin
  23960.   Result := DefaultInterface.Get_Creator;
  23961. end;
  23962.  
  23963. function  TWordDocumentProperties.Get_Parent: IDispatch;
  23964. begin
  23965.   Result := DefaultInterface.Get_Parent;
  23966. end;
  23967.  
  23968. function  TWordDocumentProperties.Get_BuiltInDocumentProperties: IDispatch;
  23969. begin
  23970.   Result := DefaultInterface.Get_BuiltInDocumentProperties;
  23971. end;
  23972.  
  23973. function  TWordDocumentProperties.Get_CustomDocumentProperties: IDispatch;
  23974. begin
  23975.   Result := DefaultInterface.Get_CustomDocumentProperties;
  23976. end;
  23977.  
  23978. function  TWordDocumentProperties.Get_Path: WideString;
  23979. begin
  23980.   Result := DefaultInterface.Get_Path;
  23981. end;
  23982.  
  23983. function  TWordDocumentProperties.Get_Bookmarks: Bookmarks;
  23984. begin
  23985.   Result := DefaultInterface.Get_Bookmarks;
  23986. end;
  23987.  
  23988. function  TWordDocumentProperties.Get_Tables: Tables;
  23989. begin
  23990.   Result := DefaultInterface.Get_Tables;
  23991. end;
  23992.  
  23993. function  TWordDocumentProperties.Get_Footnotes: Footnotes;
  23994. begin
  23995.   Result := DefaultInterface.Get_Footnotes;
  23996. end;
  23997.  
  23998. function  TWordDocumentProperties.Get_Endnotes: Endnotes;
  23999. begin
  24000.   Result := DefaultInterface.Get_Endnotes;
  24001. end;
  24002.  
  24003. function  TWordDocumentProperties.Get_Comments: Comments;
  24004. begin
  24005.   Result := DefaultInterface.Get_Comments;
  24006. end;
  24007.  
  24008. function  TWordDocumentProperties.Get_Type_: WdDocumentType;
  24009. begin
  24010.   Result := DefaultInterface.Get_Type_;
  24011. end;
  24012.  
  24013. function  TWordDocumentProperties.Get_AutoHyphenation: WordBool;
  24014. begin
  24015.   Result := DefaultInterface.Get_AutoHyphenation;
  24016. end;
  24017.  
  24018. procedure TWordDocumentProperties.Set_AutoHyphenation(prop: WordBool);
  24019. begin
  24020.   DefaultInterface.Set_AutoHyphenation(prop);
  24021. end;
  24022.  
  24023. function  TWordDocumentProperties.Get_HyphenateCaps: WordBool;
  24024. begin
  24025.   Result := DefaultInterface.Get_HyphenateCaps;
  24026. end;
  24027.  
  24028. procedure TWordDocumentProperties.Set_HyphenateCaps(prop: WordBool);
  24029. begin
  24030.   DefaultInterface.Set_HyphenateCaps(prop);
  24031. end;
  24032.  
  24033. function  TWordDocumentProperties.Get_HyphenationZone: Integer;
  24034. begin
  24035.   Result := DefaultInterface.Get_HyphenationZone;
  24036. end;
  24037.  
  24038. procedure TWordDocumentProperties.Set_HyphenationZone(prop: Integer);
  24039. begin
  24040.   DefaultInterface.Set_HyphenationZone(prop);
  24041. end;
  24042.  
  24043. function  TWordDocumentProperties.Get_ConsecutiveHyphensLimit: Integer;
  24044. begin
  24045.   Result := DefaultInterface.Get_ConsecutiveHyphensLimit;
  24046. end;
  24047.  
  24048. procedure TWordDocumentProperties.Set_ConsecutiveHyphensLimit(prop: Integer);
  24049. begin
  24050.   DefaultInterface.Set_ConsecutiveHyphensLimit(prop);
  24051. end;
  24052.  
  24053. function  TWordDocumentProperties.Get_Sections: Sections;
  24054. begin
  24055.   Result := DefaultInterface.Get_Sections;
  24056. end;
  24057.  
  24058. function  TWordDocumentProperties.Get_Paragraphs: Paragraphs;
  24059. begin
  24060.   Result := DefaultInterface.Get_Paragraphs;
  24061. end;
  24062.  
  24063. function  TWordDocumentProperties.Get_Words: Words;
  24064. begin
  24065.   Result := DefaultInterface.Get_Words;
  24066. end;
  24067.  
  24068. function  TWordDocumentProperties.Get_Sentences: Sentences;
  24069. begin
  24070.   Result := DefaultInterface.Get_Sentences;
  24071. end;
  24072.  
  24073. function  TWordDocumentProperties.Get_Characters: Characters;
  24074. begin
  24075.   Result := DefaultInterface.Get_Characters;
  24076. end;
  24077.  
  24078. function  TWordDocumentProperties.Get_Fields: Fields;
  24079. begin
  24080.   Result := DefaultInterface.Get_Fields;
  24081. end;
  24082.  
  24083. function  TWordDocumentProperties.Get_FormFields: FormFields;
  24084. begin
  24085.   Result := DefaultInterface.Get_FormFields;
  24086. end;
  24087.  
  24088. function  TWordDocumentProperties.Get_Styles: Styles;
  24089. begin
  24090.   Result := DefaultInterface.Get_Styles;
  24091. end;
  24092.  
  24093. function  TWordDocumentProperties.Get_Frames: Frames;
  24094. begin
  24095.   Result := DefaultInterface.Get_Frames;
  24096. end;
  24097.  
  24098. function  TWordDocumentProperties.Get_TablesOfFigures: TablesOfFigures;
  24099. begin
  24100.   Result := DefaultInterface.Get_TablesOfFigures;
  24101. end;
  24102.  
  24103. function  TWordDocumentProperties.Get_Variables: Variables;
  24104. begin
  24105.   Result := DefaultInterface.Get_Variables;
  24106. end;
  24107.  
  24108. function  TWordDocumentProperties.Get_MailMerge: MailMerge;
  24109. begin
  24110.   Result := DefaultInterface.Get_MailMerge;
  24111. end;
  24112.  
  24113. function  TWordDocumentProperties.Get_Envelope: Envelope;
  24114. begin
  24115.   Result := DefaultInterface.Get_Envelope;
  24116. end;
  24117.  
  24118. function  TWordDocumentProperties.Get_FullName: WideString;
  24119. begin
  24120.   Result := DefaultInterface.Get_FullName;
  24121. end;
  24122.  
  24123. function  TWordDocumentProperties.Get_Revisions: Revisions;
  24124. begin
  24125.   Result := DefaultInterface.Get_Revisions;
  24126. end;
  24127.  
  24128. function  TWordDocumentProperties.Get_TablesOfContents: TablesOfContents;
  24129. begin
  24130.   Result := DefaultInterface.Get_TablesOfContents;
  24131. end;
  24132.  
  24133. function  TWordDocumentProperties.Get_TablesOfAuthorities: TablesOfAuthorities;
  24134. begin
  24135.   Result := DefaultInterface.Get_TablesOfAuthorities;
  24136. end;
  24137.  
  24138. function  TWordDocumentProperties.Get_PageSetup: PageSetup;
  24139. begin
  24140.   Result := DefaultInterface.Get_PageSetup;
  24141. end;
  24142.  
  24143. procedure TWordDocumentProperties.Set_PageSetup(const prop: PageSetup);
  24144. begin
  24145.   DefaultInterface.Set_PageSetup(prop);
  24146. end;
  24147.  
  24148. function  TWordDocumentProperties.Get_Windows: Windows;
  24149. begin
  24150.   Result := DefaultInterface.Get_Windows;
  24151. end;
  24152.  
  24153. function  TWordDocumentProperties.Get_HasRoutingSlip: WordBool;
  24154. begin
  24155.   Result := DefaultInterface.Get_HasRoutingSlip;
  24156. end;
  24157.  
  24158. procedure TWordDocumentProperties.Set_HasRoutingSlip(prop: WordBool);
  24159. begin
  24160.   DefaultInterface.Set_HasRoutingSlip(prop);
  24161. end;
  24162.  
  24163. function  TWordDocumentProperties.Get_RoutingSlip: RoutingSlip;
  24164. begin
  24165.   Result := DefaultInterface.Get_RoutingSlip;
  24166. end;
  24167.  
  24168. function  TWordDocumentProperties.Get_Routed: WordBool;
  24169. begin
  24170.   Result := DefaultInterface.Get_Routed;
  24171. end;
  24172.  
  24173. function  TWordDocumentProperties.Get_TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories;
  24174. begin
  24175.   Result := DefaultInterface.Get_TablesOfAuthoritiesCategories;
  24176. end;
  24177.  
  24178. function  TWordDocumentProperties.Get_Indexes: Indexes;
  24179. begin
  24180.   Result := DefaultInterface.Get_Indexes;
  24181. end;
  24182.  
  24183. function  TWordDocumentProperties.Get_Saved: WordBool;
  24184. begin
  24185.   Result := DefaultInterface.Get_Saved;
  24186. end;
  24187.  
  24188. procedure TWordDocumentProperties.Set_Saved(prop: WordBool);
  24189. begin
  24190.   DefaultInterface.Set_Saved(prop);
  24191. end;
  24192.  
  24193. function  TWordDocumentProperties.Get_Content: Range;
  24194. begin
  24195.   Result := DefaultInterface.Get_Content;
  24196. end;
  24197.  
  24198. function  TWordDocumentProperties.Get_ActiveWindow: Window;
  24199. begin
  24200.   Result := DefaultInterface.Get_ActiveWindow;
  24201. end;
  24202.  
  24203. function  TWordDocumentProperties.Get_Kind: WdDocumentKind;
  24204. begin
  24205.   Result := DefaultInterface.Get_Kind;
  24206. end;
  24207.  
  24208. procedure TWordDocumentProperties.Set_Kind(prop: WdDocumentKind);
  24209. begin
  24210.   DefaultInterface.Set_Kind(prop);
  24211. end;
  24212.  
  24213. function  TWordDocumentProperties.Get_ReadOnly: WordBool;
  24214. begin
  24215.   Result := DefaultInterface.Get_ReadOnly;
  24216. end;
  24217.  
  24218. function  TWordDocumentProperties.Get_Subdocuments: Subdocuments;
  24219. begin
  24220.   Result := DefaultInterface.Get_Subdocuments;
  24221. end;
  24222.  
  24223. function  TWordDocumentProperties.Get_IsMasterDocument: WordBool;
  24224. begin
  24225.   Result := DefaultInterface.Get_IsMasterDocument;
  24226. end;
  24227.  
  24228. function  TWordDocumentProperties.Get_DefaultTabStop: Single;
  24229. begin
  24230.   Result := DefaultInterface.Get_DefaultTabStop;
  24231. end;
  24232.  
  24233. procedure TWordDocumentProperties.Set_DefaultTabStop(prop: Single);
  24234. begin
  24235.   DefaultInterface.Set_DefaultTabStop(prop);
  24236. end;
  24237.  
  24238. function  TWordDocumentProperties.Get_EmbedTrueTypeFonts: WordBool;
  24239. begin
  24240.   Result := DefaultInterface.Get_EmbedTrueTypeFonts;
  24241. end;
  24242.  
  24243. procedure TWordDocumentProperties.Set_EmbedTrueTypeFonts(prop: WordBool);
  24244. begin
  24245.   DefaultInterface.Set_EmbedTrueTypeFonts(prop);
  24246. end;
  24247.  
  24248. function  TWordDocumentProperties.Get_SaveFormsData: WordBool;
  24249. begin
  24250.   Result := DefaultInterface.Get_SaveFormsData;
  24251. end;
  24252.  
  24253. procedure TWordDocumentProperties.Set_SaveFormsData(prop: WordBool);
  24254. begin
  24255.   DefaultInterface.Set_SaveFormsData(prop);
  24256. end;
  24257.  
  24258. function  TWordDocumentProperties.Get_ReadOnlyRecommended: WordBool;
  24259. begin
  24260.   Result := DefaultInterface.Get_ReadOnlyRecommended;
  24261. end;
  24262.  
  24263. procedure TWordDocumentProperties.Set_ReadOnlyRecommended(prop: WordBool);
  24264. begin
  24265.   DefaultInterface.Set_ReadOnlyRecommended(prop);
  24266. end;
  24267.  
  24268. function  TWordDocumentProperties.Get_SaveSubsetFonts: WordBool;
  24269. begin
  24270.   Result := DefaultInterface.Get_SaveSubsetFonts;
  24271. end;
  24272.  
  24273. procedure TWordDocumentProperties.Set_SaveSubsetFonts(prop: WordBool);
  24274. begin
  24275.   DefaultInterface.Set_SaveSubsetFonts(prop);
  24276. end;
  24277.  
  24278. function  TWordDocumentProperties.Get_Compatibility(Type_: WdCompatibility): WordBool;
  24279. begin
  24280.   Result := DefaultInterface.Get_Compatibility(Type_);
  24281. end;
  24282.  
  24283. procedure TWordDocumentProperties.Set_Compatibility(Type_: WdCompatibility; prop: WordBool);
  24284. begin
  24285.   DefaultInterface.Set_Compatibility(Type_, prop);
  24286. end;
  24287.  
  24288. function  TWordDocumentProperties.Get_StoryRanges: StoryRanges;
  24289. begin
  24290.   Result := DefaultInterface.Get_StoryRanges;
  24291. end;
  24292.  
  24293. function  TWordDocumentProperties.Get_CommandBars: CommandBars;
  24294. begin
  24295.   Result := DefaultInterface.Get_CommandBars;
  24296. end;
  24297.  
  24298. function  TWordDocumentProperties.Get_IsSubdocument: WordBool;
  24299. begin
  24300.   Result := DefaultInterface.Get_IsSubdocument;
  24301. end;
  24302.  
  24303. function  TWordDocumentProperties.Get_SaveFormat: Integer;
  24304. begin
  24305.   Result := DefaultInterface.Get_SaveFormat;
  24306. end;
  24307.  
  24308. function  TWordDocumentProperties.Get_ProtectionType: WdProtectionType;
  24309. begin
  24310.   Result := DefaultInterface.Get_ProtectionType;
  24311. end;
  24312.  
  24313. function  TWordDocumentProperties.Get_Hyperlinks: Hyperlinks;
  24314. begin
  24315.   Result := DefaultInterface.Get_Hyperlinks;
  24316. end;
  24317.  
  24318. function  TWordDocumentProperties.Get_Shapes: Shapes;
  24319. begin
  24320.   Result := DefaultInterface.Get_Shapes;
  24321. end;
  24322.  
  24323. function  TWordDocumentProperties.Get_ListTemplates: ListTemplates;
  24324. begin
  24325.   Result := DefaultInterface.Get_ListTemplates;
  24326. end;
  24327.  
  24328. function  TWordDocumentProperties.Get_Lists: Lists;
  24329. begin
  24330.   Result := DefaultInterface.Get_Lists;
  24331. end;
  24332.  
  24333. function  TWordDocumentProperties.Get_UpdateStylesOnOpen: WordBool;
  24334. begin
  24335.   Result := DefaultInterface.Get_UpdateStylesOnOpen;
  24336. end;
  24337.  
  24338. procedure TWordDocumentProperties.Set_UpdateStylesOnOpen(prop: WordBool);
  24339. begin
  24340.   DefaultInterface.Set_UpdateStylesOnOpen(prop);
  24341. end;
  24342.  
  24343. function  TWordDocumentProperties.Get_AttachedTemplate: OleVariant;
  24344. begin
  24345.   Result := DefaultInterface.Get_AttachedTemplate;
  24346. end;
  24347.  
  24348. procedure TWordDocumentProperties.Set_AttachedTemplate(var prop: OleVariant);
  24349. begin
  24350.   DefaultInterface.Set_AttachedTemplate(prop);
  24351. end;
  24352.  
  24353. function  TWordDocumentProperties.Get_InlineShapes: InlineShapes;
  24354. begin
  24355.   Result := DefaultInterface.Get_InlineShapes;
  24356. end;
  24357.  
  24358. function  TWordDocumentProperties.Get_Background: Shape;
  24359. begin
  24360.   Result := DefaultInterface.Get_Background;
  24361. end;
  24362.  
  24363. procedure TWordDocumentProperties.Set_Background(const prop: Shape);
  24364. begin
  24365.   DefaultInterface.Set_Background(prop);
  24366. end;
  24367.  
  24368. function  TWordDocumentProperties.Get_GrammarChecked: WordBool;
  24369. begin
  24370.   Result := DefaultInterface.Get_GrammarChecked;
  24371. end;
  24372.  
  24373. procedure TWordDocumentProperties.Set_GrammarChecked(prop: WordBool);
  24374. begin
  24375.   DefaultInterface.Set_GrammarChecked(prop);
  24376. end;
  24377.  
  24378. function  TWordDocumentProperties.Get_SpellingChecked: WordBool;
  24379. begin
  24380.   Result := DefaultInterface.Get_SpellingChecked;
  24381. end;
  24382.  
  24383. procedure TWordDocumentProperties.Set_SpellingChecked(prop: WordBool);
  24384. begin
  24385.   DefaultInterface.Set_SpellingChecked(prop);
  24386. end;
  24387.  
  24388. function  TWordDocumentProperties.Get_ShowGrammaticalErrors: WordBool;
  24389. begin
  24390.   Result := DefaultInterface.Get_ShowGrammaticalErrors;
  24391. end;
  24392.  
  24393. procedure TWordDocumentProperties.Set_ShowGrammaticalErrors(prop: WordBool);
  24394. begin
  24395.   DefaultInterface.Set_ShowGrammaticalErrors(prop);
  24396. end;
  24397.  
  24398. function  TWordDocumentProperties.Get_ShowSpellingErrors: WordBool;
  24399. begin
  24400.   Result := DefaultInterface.Get_ShowSpellingErrors;
  24401. end;
  24402.  
  24403. procedure TWordDocumentProperties.Set_ShowSpellingErrors(prop: WordBool);
  24404. begin
  24405.   DefaultInterface.Set_ShowSpellingErrors(prop);
  24406. end;
  24407.  
  24408. function  TWordDocumentProperties.Get_Versions: Versions;
  24409. begin
  24410.   Result := DefaultInterface.Get_Versions;
  24411. end;
  24412.  
  24413. function  TWordDocumentProperties.Get_ShowSummary: WordBool;
  24414. begin
  24415.   Result := DefaultInterface.Get_ShowSummary;
  24416. end;
  24417.  
  24418. procedure TWordDocumentProperties.Set_ShowSummary(prop: WordBool);
  24419. begin
  24420.   DefaultInterface.Set_ShowSummary(prop);
  24421. end;
  24422.  
  24423. function  TWordDocumentProperties.Get_SummaryViewMode: WdSummaryMode;
  24424. begin
  24425.   Result := DefaultInterface.Get_SummaryViewMode;
  24426. end;
  24427.  
  24428. procedure TWordDocumentProperties.Set_SummaryViewMode(prop: WdSummaryMode);
  24429. begin
  24430.   DefaultInterface.Set_SummaryViewMode(prop);
  24431. end;
  24432.  
  24433. function  TWordDocumentProperties.Get_SummaryLength: Integer;
  24434. begin
  24435.   Result := DefaultInterface.Get_SummaryLength;
  24436. end;
  24437.  
  24438. procedure TWordDocumentProperties.Set_SummaryLength(prop: Integer);
  24439. begin
  24440.   DefaultInterface.Set_SummaryLength(prop);
  24441. end;
  24442.  
  24443. function  TWordDocumentProperties.Get_PrintFractionalWidths: WordBool;
  24444. begin
  24445.   Result := DefaultInterface.Get_PrintFractionalWidths;
  24446. end;
  24447.  
  24448. procedure TWordDocumentProperties.Set_PrintFractionalWidths(prop: WordBool);
  24449. begin
  24450.   DefaultInterface.Set_PrintFractionalWidths(prop);
  24451. end;
  24452.  
  24453. function  TWordDocumentProperties.Get_PrintPostScriptOverText: WordBool;
  24454. begin
  24455.   Result := DefaultInterface.Get_PrintPostScriptOverText;
  24456. end;
  24457.  
  24458. procedure TWordDocumentProperties.Set_PrintPostScriptOverText(prop: WordBool);
  24459. begin
  24460.   DefaultInterface.Set_PrintPostScriptOverText(prop);
  24461. end;
  24462.  
  24463. function  TWordDocumentProperties.Get_Container: IDispatch;
  24464. begin
  24465.   Result := DefaultInterface.Get_Container;
  24466. end;
  24467.  
  24468. function  TWordDocumentProperties.Get_PrintFormsData: WordBool;
  24469. begin
  24470.   Result := DefaultInterface.Get_PrintFormsData;
  24471. end;
  24472.  
  24473. procedure TWordDocumentProperties.Set_PrintFormsData(prop: WordBool);
  24474. begin
  24475.   DefaultInterface.Set_PrintFormsData(prop);
  24476. end;
  24477.  
  24478. function  TWordDocumentProperties.Get_ListParagraphs: ListParagraphs;
  24479. begin
  24480.   Result := DefaultInterface.Get_ListParagraphs;
  24481. end;
  24482.  
  24483. procedure TWordDocumentProperties.Set_Password(const Param1: WideString);
  24484. begin
  24485.   DefaultInterface.Set_Password(Param1);
  24486. end;
  24487.  
  24488. procedure TWordDocumentProperties.Set_WritePassword(const Param1: WideString);
  24489. begin
  24490.   DefaultInterface.Set_WritePassword(Param1);
  24491. end;
  24492.  
  24493. function  TWordDocumentProperties.Get_HasPassword: WordBool;
  24494. begin
  24495.   Result := DefaultInterface.Get_HasPassword;
  24496. end;
  24497.  
  24498. function  TWordDocumentProperties.Get_WriteReserved: WordBool;
  24499. begin
  24500.   Result := DefaultInterface.Get_WriteReserved;
  24501. end;
  24502.  
  24503. function  TWordDocumentProperties.Get_ActiveWritingStyle(var LanguageID: OleVariant): WideString;
  24504. begin
  24505.   Result := DefaultInterface.Get_ActiveWritingStyle(LanguageID);
  24506. end;
  24507.  
  24508. procedure TWordDocumentProperties.Set_ActiveWritingStyle(var LanguageID: OleVariant; 
  24509.                                                          const prop: WideString);
  24510. begin
  24511.   DefaultInterface.Set_ActiveWritingStyle(LanguageID, prop);
  24512. end;
  24513.  
  24514. function  TWordDocumentProperties.Get_UserControl: WordBool;
  24515. begin
  24516.   Result := DefaultInterface.Get_UserControl;
  24517. end;
  24518.  
  24519. procedure TWordDocumentProperties.Set_UserControl(prop: WordBool);
  24520. begin
  24521.   DefaultInterface.Set_UserControl(prop);
  24522. end;
  24523.  
  24524. function  TWordDocumentProperties.Get_HasMailer: WordBool;
  24525. begin
  24526.   Result := DefaultInterface.Get_HasMailer;
  24527. end;
  24528.  
  24529. procedure TWordDocumentProperties.Set_HasMailer(prop: WordBool);
  24530. begin
  24531.   DefaultInterface.Set_HasMailer(prop);
  24532. end;
  24533.  
  24534. function  TWordDocumentProperties.Get_Mailer: Mailer;
  24535. begin
  24536.   Result := DefaultInterface.Get_Mailer;
  24537. end;
  24538.  
  24539. function  TWordDocumentProperties.Get_ReadabilityStatistics: ReadabilityStatistics;
  24540. begin
  24541.   Result := DefaultInterface.Get_ReadabilityStatistics;
  24542. end;
  24543.  
  24544. function  TWordDocumentProperties.Get_GrammaticalErrors: ProofreadingErrors;
  24545. begin
  24546.   Result := DefaultInterface.Get_GrammaticalErrors;
  24547. end;
  24548.  
  24549. function  TWordDocumentProperties.Get_SpellingErrors: ProofreadingErrors;
  24550. begin
  24551.   Result := DefaultInterface.Get_SpellingErrors;
  24552. end;
  24553.  
  24554. function  TWordDocumentProperties.Get_VBProject: VBProject;
  24555. begin
  24556.   Result := DefaultInterface.Get_VBProject;
  24557. end;
  24558.  
  24559. function  TWordDocumentProperties.Get_FormsDesign: WordBool;
  24560. begin
  24561.   Result := DefaultInterface.Get_FormsDesign;
  24562. end;
  24563.  
  24564. function  TWordDocumentProperties.Get__CodeName: WideString;
  24565. begin
  24566.   Result := DefaultInterface.Get__CodeName;
  24567. end;
  24568.  
  24569. procedure TWordDocumentProperties.Set__CodeName(const prop: WideString);
  24570. begin
  24571.   DefaultInterface.Set__CodeName(prop);
  24572. end;
  24573.  
  24574. function  TWordDocumentProperties.Get_CodeName: WideString;
  24575. begin
  24576.   Result := DefaultInterface.Get_CodeName;
  24577. end;
  24578.  
  24579. function  TWordDocumentProperties.Get_SnapToGrid: WordBool;
  24580. begin
  24581.   Result := DefaultInterface.Get_SnapToGrid;
  24582. end;
  24583.  
  24584. procedure TWordDocumentProperties.Set_SnapToGrid(prop: WordBool);
  24585. begin
  24586.   DefaultInterface.Set_SnapToGrid(prop);
  24587. end;
  24588.  
  24589. function  TWordDocumentProperties.Get_SnapToShapes: WordBool;
  24590. begin
  24591.   Result := DefaultInterface.Get_SnapToShapes;
  24592. end;
  24593.  
  24594. procedure TWordDocumentProperties.Set_SnapToShapes(prop: WordBool);
  24595. begin
  24596.   DefaultInterface.Set_SnapToShapes(prop);
  24597. end;
  24598.  
  24599. function  TWordDocumentProperties.Get_GridDistanceHorizontal: Single;
  24600. begin
  24601.   Result := DefaultInterface.Get_GridDistanceHorizontal;
  24602. end;
  24603.  
  24604. procedure TWordDocumentProperties.Set_GridDistanceHorizontal(prop: Single);
  24605. begin
  24606.   DefaultInterface.Set_GridDistanceHorizontal(prop);
  24607. end;
  24608.  
  24609. function  TWordDocumentProperties.Get_GridDistanceVertical: Single;
  24610. begin
  24611.   Result := DefaultInterface.Get_GridDistanceVertical;
  24612. end;
  24613.  
  24614. procedure TWordDocumentProperties.Set_GridDistanceVertical(prop: Single);
  24615. begin
  24616.   DefaultInterface.Set_GridDistanceVertical(prop);
  24617. end;
  24618.  
  24619. function  TWordDocumentProperties.Get_GridOriginHorizontal: Single;
  24620. begin
  24621.   Result := DefaultInterface.Get_GridOriginHorizontal;
  24622. end;
  24623.  
  24624. procedure TWordDocumentProperties.Set_GridOriginHorizontal(prop: Single);
  24625. begin
  24626.   DefaultInterface.Set_GridOriginHorizontal(prop);
  24627. end;
  24628.  
  24629. function  TWordDocumentProperties.Get_GridOriginVertical: Single;
  24630. begin
  24631.   Result := DefaultInterface.Get_GridOriginVertical;
  24632. end;
  24633.  
  24634. procedure TWordDocumentProperties.Set_GridOriginVertical(prop: Single);
  24635. begin
  24636.   DefaultInterface.Set_GridOriginVertical(prop);
  24637. end;
  24638.  
  24639. function  TWordDocumentProperties.Get_GridSpaceBetweenHorizontalLines: Integer;
  24640. begin
  24641.   Result := DefaultInterface.Get_GridSpaceBetweenHorizontalLines;
  24642. end;
  24643.  
  24644. procedure TWordDocumentProperties.Set_GridSpaceBetweenHorizontalLines(prop: Integer);
  24645. begin
  24646.   DefaultInterface.Set_GridSpaceBetweenHorizontalLines(prop);
  24647. end;
  24648.  
  24649. function  TWordDocumentProperties.Get_GridSpaceBetweenVerticalLines: Integer;
  24650. begin
  24651.   Result := DefaultInterface.Get_GridSpaceBetweenVerticalLines;
  24652. end;
  24653.  
  24654. procedure TWordDocumentProperties.Set_GridSpaceBetweenVerticalLines(prop: Integer);
  24655. begin
  24656.   DefaultInterface.Set_GridSpaceBetweenVerticalLines(prop);
  24657. end;
  24658.  
  24659. function  TWordDocumentProperties.Get_GridOriginFromMargin: WordBool;
  24660. begin
  24661.   Result := DefaultInterface.Get_GridOriginFromMargin;
  24662. end;
  24663.  
  24664. procedure TWordDocumentProperties.Set_GridOriginFromMargin(prop: WordBool);
  24665. begin
  24666.   DefaultInterface.Set_GridOriginFromMargin(prop);
  24667. end;
  24668.  
  24669. function  TWordDocumentProperties.Get_KerningByAlgorithm: WordBool;
  24670. begin
  24671.   Result := DefaultInterface.Get_KerningByAlgorithm;
  24672. end;
  24673.  
  24674. procedure TWordDocumentProperties.Set_KerningByAlgorithm(prop: WordBool);
  24675. begin
  24676.   DefaultInterface.Set_KerningByAlgorithm(prop);
  24677. end;
  24678.  
  24679. function  TWordDocumentProperties.Get_JustificationMode: WdJustificationMode;
  24680. begin
  24681.   Result := DefaultInterface.Get_JustificationMode;
  24682. end;
  24683.  
  24684. procedure TWordDocumentProperties.Set_JustificationMode(prop: WdJustificationMode);
  24685. begin
  24686.   DefaultInterface.Set_JustificationMode(prop);
  24687. end;
  24688.  
  24689. function  TWordDocumentProperties.Get_FarEastLineBreakLevel: WdFarEastLineBreakLevel;
  24690. begin
  24691.   Result := DefaultInterface.Get_FarEastLineBreakLevel;
  24692. end;
  24693.  
  24694. procedure TWordDocumentProperties.Set_FarEastLineBreakLevel(prop: WdFarEastLineBreakLevel);
  24695. begin
  24696.   DefaultInterface.Set_FarEastLineBreakLevel(prop);
  24697. end;
  24698.  
  24699. function  TWordDocumentProperties.Get_NoLineBreakBefore: WideString;
  24700. begin
  24701.   Result := DefaultInterface.Get_NoLineBreakBefore;
  24702. end;
  24703.  
  24704. procedure TWordDocumentProperties.Set_NoLineBreakBefore(const prop: WideString);
  24705. begin
  24706.   DefaultInterface.Set_NoLineBreakBefore(prop);
  24707. end;
  24708.  
  24709. function  TWordDocumentProperties.Get_NoLineBreakAfter: WideString;
  24710. begin
  24711.   Result := DefaultInterface.Get_NoLineBreakAfter;
  24712. end;
  24713.  
  24714. procedure TWordDocumentProperties.Set_NoLineBreakAfter(const prop: WideString);
  24715. begin
  24716.   DefaultInterface.Set_NoLineBreakAfter(prop);
  24717. end;
  24718.  
  24719. function  TWordDocumentProperties.Get_TrackRevisions: WordBool;
  24720. begin
  24721.   Result := DefaultInterface.Get_TrackRevisions;
  24722. end;
  24723.  
  24724. procedure TWordDocumentProperties.Set_TrackRevisions(prop: WordBool);
  24725. begin
  24726.   DefaultInterface.Set_TrackRevisions(prop);
  24727. end;
  24728.  
  24729. function  TWordDocumentProperties.Get_PrintRevisions: WordBool;
  24730. begin
  24731.   Result := DefaultInterface.Get_PrintRevisions;
  24732. end;
  24733.  
  24734. procedure TWordDocumentProperties.Set_PrintRevisions(prop: WordBool);
  24735. begin
  24736.   DefaultInterface.Set_PrintRevisions(prop);
  24737. end;
  24738.  
  24739. function  TWordDocumentProperties.Get_ShowRevisions: WordBool;
  24740. begin
  24741.   Result := DefaultInterface.Get_ShowRevisions;
  24742. end;
  24743.  
  24744. procedure TWordDocumentProperties.Set_ShowRevisions(prop: WordBool);
  24745. begin
  24746.   DefaultInterface.Set_ShowRevisions(prop);
  24747. end;
  24748.  
  24749. {$ENDIF}
  24750.  
  24751. class function CoWordFont.Create: _Font;
  24752. begin
  24753.   Result := CreateComObject(CLASS_WordFont) as _Font;
  24754. end;
  24755.  
  24756. class function CoWordFont.CreateRemote(const MachineName: string): _Font;
  24757. begin
  24758.   Result := CreateRemoteComObject(MachineName, CLASS_WordFont) as _Font;
  24759. end;
  24760.  
  24761. procedure TWordFont.InitServerData;
  24762. const
  24763.   CServerData: TServerData = (
  24764.     ClassID:   '{000209F5-0000-0000-C000-000000000046}';
  24765.     IntfIID:   '{00020952-0000-0000-C000-000000000046}';
  24766.     EventIID:  '';
  24767.     LicenseKey: nil;
  24768.     Version: 500);
  24769. begin
  24770.   ServerData := @CServerData;
  24771. end;
  24772.  
  24773. procedure TWordFont.Connect;
  24774. var
  24775.   punk: IUnknown;
  24776. begin
  24777.   if FIntf = nil then
  24778.   begin
  24779.     punk := GetServer;
  24780.     Fintf:= punk as _Font;
  24781.   end;
  24782. end;
  24783.  
  24784. procedure TWordFont.ConnectTo(svrIntf: _Font);
  24785. begin
  24786.   Disconnect;
  24787.   FIntf := svrIntf;
  24788. end;
  24789.  
  24790. procedure TWordFont.DisConnect;
  24791. begin
  24792.   if Fintf <> nil then
  24793.   begin
  24794.     FIntf := nil;
  24795.   end;
  24796. end;
  24797.  
  24798. function TWordFont.GetDefaultInterface: _Font;
  24799. begin
  24800.   if FIntf = nil then
  24801.     Connect;
  24802.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  24803.   Result := FIntf;
  24804. end;
  24805.  
  24806. constructor TWordFont.Create(AOwner: TComponent);
  24807. begin
  24808.   inherited Create(AOwner);
  24809. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  24810.   FProps := TWordFontProperties.Create(Self);
  24811. {$ENDIF}
  24812. end;
  24813.  
  24814. destructor TWordFont.Destroy;
  24815. begin
  24816. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  24817.   FProps.Free;
  24818. {$ENDIF}
  24819.   inherited Destroy;
  24820. end;
  24821.  
  24822. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  24823. function TWordFont.GetServerProperties: TWordFontProperties;
  24824. begin
  24825.   Result := FProps;
  24826. end;
  24827. {$ENDIF}
  24828.  
  24829. function  TWordFont.Get_Application: WordApplication;
  24830. begin
  24831.   Result := DefaultInterface.Get_Application;
  24832. end;
  24833.  
  24834. function  TWordFont.Get_Creator: Integer;
  24835. begin
  24836.   Result := DefaultInterface.Get_Creator;
  24837. end;
  24838.  
  24839. function  TWordFont.Get_Parent: IDispatch;
  24840. begin
  24841.   Result := DefaultInterface.Get_Parent;
  24842. end;
  24843.  
  24844. function  TWordFont.Get_Duplicate: WordFont;
  24845. begin
  24846.   Result := DefaultInterface.Get_Duplicate;
  24847. end;
  24848.  
  24849. function  TWordFont.Get_Bold: Integer;
  24850. begin
  24851.   Result := DefaultInterface.Get_Bold;
  24852. end;
  24853.  
  24854. procedure TWordFont.Set_Bold(prop: Integer);
  24855. begin
  24856.   DefaultInterface.Set_Bold(prop);
  24857. end;
  24858.  
  24859. function  TWordFont.Get_Italic: Integer;
  24860. begin
  24861.   Result := DefaultInterface.Get_Italic;
  24862. end;
  24863.  
  24864. procedure TWordFont.Set_Italic(prop: Integer);
  24865. begin
  24866.   DefaultInterface.Set_Italic(prop);
  24867. end;
  24868.  
  24869. function  TWordFont.Get_Hidden: Integer;
  24870. begin
  24871.   Result := DefaultInterface.Get_Hidden;
  24872. end;
  24873.  
  24874. procedure TWordFont.Set_Hidden(prop: Integer);
  24875. begin
  24876.   DefaultInterface.Set_Hidden(prop);
  24877. end;
  24878.  
  24879. function  TWordFont.Get_SmallCaps: Integer;
  24880. begin
  24881.   Result := DefaultInterface.Get_SmallCaps;
  24882. end;
  24883.  
  24884. procedure TWordFont.Set_SmallCaps(prop: Integer);
  24885. begin
  24886.   DefaultInterface.Set_SmallCaps(prop);
  24887. end;
  24888.  
  24889. function  TWordFont.Get_AllCaps: Integer;
  24890. begin
  24891.   Result := DefaultInterface.Get_AllCaps;
  24892. end;
  24893.  
  24894. procedure TWordFont.Set_AllCaps(prop: Integer);
  24895. begin
  24896.   DefaultInterface.Set_AllCaps(prop);
  24897. end;
  24898.  
  24899. function  TWordFont.Get_StrikeThrough: Integer;
  24900. begin
  24901.   Result := DefaultInterface.Get_StrikeThrough;
  24902. end;
  24903.  
  24904. procedure TWordFont.Set_StrikeThrough(prop: Integer);
  24905. begin
  24906.   DefaultInterface.Set_StrikeThrough(prop);
  24907. end;
  24908.  
  24909. function  TWordFont.Get_DoubleStrikeThrough: Integer;
  24910. begin
  24911.   Result := DefaultInterface.Get_DoubleStrikeThrough;
  24912. end;
  24913.  
  24914. procedure TWordFont.Set_DoubleStrikeThrough(prop: Integer);
  24915. begin
  24916.   DefaultInterface.Set_DoubleStrikeThrough(prop);
  24917. end;
  24918.  
  24919. function  TWordFont.Get_ColorIndex: WdColorIndex;
  24920. begin
  24921.   Result := DefaultInterface.Get_ColorIndex;
  24922. end;
  24923.  
  24924. procedure TWordFont.Set_ColorIndex(prop: WdColorIndex);
  24925. begin
  24926.   DefaultInterface.Set_ColorIndex(prop);
  24927. end;
  24928.  
  24929. function  TWordFont.Get_Subscript: Integer;
  24930. begin
  24931.   Result := DefaultInterface.Get_Subscript;
  24932. end;
  24933.  
  24934. procedure TWordFont.Set_Subscript(prop: Integer);
  24935. begin
  24936.   DefaultInterface.Set_Subscript(prop);
  24937. end;
  24938.  
  24939. function  TWordFont.Get_Superscript: Integer;
  24940. begin
  24941.   Result := DefaultInterface.Get_Superscript;
  24942. end;
  24943.  
  24944. procedure TWordFont.Set_Superscript(prop: Integer);
  24945. begin
  24946.   DefaultInterface.Set_Superscript(prop);
  24947. end;
  24948.  
  24949. function  TWordFont.Get_Underline: WdUnderline;
  24950. begin
  24951.   Result := DefaultInterface.Get_Underline;
  24952. end;
  24953.  
  24954. procedure TWordFont.Set_Underline(prop: WdUnderline);
  24955. begin
  24956.   DefaultInterface.Set_Underline(prop);
  24957. end;
  24958.  
  24959. function  TWordFont.Get_Size: Single;
  24960. begin
  24961.   Result := DefaultInterface.Get_Size;
  24962. end;
  24963.  
  24964. procedure TWordFont.Set_Size(prop: Single);
  24965. begin
  24966.   DefaultInterface.Set_Size(prop);
  24967. end;
  24968.  
  24969. function  TWordFont.Get_Name: WideString;
  24970. begin
  24971.   Result := DefaultInterface.Get_Name;
  24972. end;
  24973.  
  24974. procedure TWordFont.Set_Name(const prop: WideString);
  24975. begin
  24976.   DefaultInterface.Set_Name(prop);
  24977. end;
  24978.  
  24979. function  TWordFont.Get_Position: Integer;
  24980. begin
  24981.   Result := DefaultInterface.Get_Position;
  24982. end;
  24983.  
  24984. procedure TWordFont.Set_Position(prop: Integer);
  24985. begin
  24986.   DefaultInterface.Set_Position(prop);
  24987. end;
  24988.  
  24989. function  TWordFont.Get_Spacing: Single;
  24990. begin
  24991.   Result := DefaultInterface.Get_Spacing;
  24992. end;
  24993.  
  24994. procedure TWordFont.Set_Spacing(prop: Single);
  24995. begin
  24996.   DefaultInterface.Set_Spacing(prop);
  24997. end;
  24998.  
  24999. function  TWordFont.Get_Scaling: Integer;
  25000. begin
  25001.   Result := DefaultInterface.Get_Scaling;
  25002. end;
  25003.  
  25004. procedure TWordFont.Set_Scaling(prop: Integer);
  25005. begin
  25006.   DefaultInterface.Set_Scaling(prop);
  25007. end;
  25008.  
  25009. function  TWordFont.Get_Shadow: Integer;
  25010. begin
  25011.   Result := DefaultInterface.Get_Shadow;
  25012. end;
  25013.  
  25014. procedure TWordFont.Set_Shadow(prop: Integer);
  25015. begin
  25016.   DefaultInterface.Set_Shadow(prop);
  25017. end;
  25018.  
  25019. function  TWordFont.Get_Outline: Integer;
  25020. begin
  25021.   Result := DefaultInterface.Get_Outline;
  25022. end;
  25023.  
  25024. procedure TWordFont.Set_Outline(prop: Integer);
  25025. begin
  25026.   DefaultInterface.Set_Outline(prop);
  25027. end;
  25028.  
  25029. function  TWordFont.Get_Emboss: Integer;
  25030. begin
  25031.   Result := DefaultInterface.Get_Emboss;
  25032. end;
  25033.  
  25034. procedure TWordFont.Set_Emboss(prop: Integer);
  25035. begin
  25036.   DefaultInterface.Set_Emboss(prop);
  25037. end;
  25038.  
  25039. function  TWordFont.Get_Kerning: Single;
  25040. begin
  25041.   Result := DefaultInterface.Get_Kerning;
  25042. end;
  25043.  
  25044. procedure TWordFont.Set_Kerning(prop: Single);
  25045. begin
  25046.   DefaultInterface.Set_Kerning(prop);
  25047. end;
  25048.  
  25049. function  TWordFont.Get_Engrave: Integer;
  25050. begin
  25051.   Result := DefaultInterface.Get_Engrave;
  25052. end;
  25053.  
  25054. procedure TWordFont.Set_Engrave(prop: Integer);
  25055. begin
  25056.   DefaultInterface.Set_Engrave(prop);
  25057. end;
  25058.  
  25059. function  TWordFont.Get_Animation: WdAnimation;
  25060. begin
  25061.   Result := DefaultInterface.Get_Animation;
  25062. end;
  25063.  
  25064. procedure TWordFont.Set_Animation(prop: WdAnimation);
  25065. begin
  25066.   DefaultInterface.Set_Animation(prop);
  25067. end;
  25068.  
  25069. function  TWordFont.Get_Borders: Borders;
  25070. begin
  25071.   Result := DefaultInterface.Get_Borders;
  25072. end;
  25073.  
  25074. procedure TWordFont.Set_Borders(const prop: Borders);
  25075. begin
  25076.   DefaultInterface.Set_Borders(prop);
  25077. end;
  25078.  
  25079. function  TWordFont.Get_Shading: Shading;
  25080. begin
  25081.   Result := DefaultInterface.Get_Shading;
  25082. end;
  25083.  
  25084. function  TWordFont.Get_EmphasisMark: WdEmphasisMark;
  25085. begin
  25086.   Result := DefaultInterface.Get_EmphasisMark;
  25087. end;
  25088.  
  25089. procedure TWordFont.Set_EmphasisMark(prop: WdEmphasisMark);
  25090. begin
  25091.   DefaultInterface.Set_EmphasisMark(prop);
  25092. end;
  25093.  
  25094. function  TWordFont.Get_DisableCharacterSpaceGrid: WordBool;
  25095. begin
  25096.   Result := DefaultInterface.Get_DisableCharacterSpaceGrid;
  25097. end;
  25098.  
  25099. procedure TWordFont.Set_DisableCharacterSpaceGrid(prop: WordBool);
  25100. begin
  25101.   DefaultInterface.Set_DisableCharacterSpaceGrid(prop);
  25102. end;
  25103.  
  25104. function  TWordFont.Get_NameFarEast: WideString;
  25105. begin
  25106.   Result := DefaultInterface.Get_NameFarEast;
  25107. end;
  25108.  
  25109. procedure TWordFont.Set_NameFarEast(const prop: WideString);
  25110. begin
  25111.   DefaultInterface.Set_NameFarEast(prop);
  25112. end;
  25113.  
  25114. function  TWordFont.Get_NameAscii: WideString;
  25115. begin
  25116.   Result := DefaultInterface.Get_NameAscii;
  25117. end;
  25118.  
  25119. procedure TWordFont.Set_NameAscii(const prop: WideString);
  25120. begin
  25121.   DefaultInterface.Set_NameAscii(prop);
  25122. end;
  25123.  
  25124. function  TWordFont.Get_NameOther: WideString;
  25125. begin
  25126.   Result := DefaultInterface.Get_NameOther;
  25127. end;
  25128.  
  25129. procedure TWordFont.Set_NameOther(const prop: WideString);
  25130. begin
  25131.   DefaultInterface.Set_NameOther(prop);
  25132. end;
  25133.  
  25134. procedure TWordFont.Grow;
  25135. begin
  25136.   DefaultInterface.Grow;
  25137. end;
  25138.  
  25139. procedure TWordFont.Shrink;
  25140. begin
  25141.   DefaultInterface.Shrink;
  25142. end;
  25143.  
  25144. procedure TWordFont.Reset;
  25145. begin
  25146.   DefaultInterface.Reset;
  25147. end;
  25148.  
  25149. procedure TWordFont.SetAsTemplateDefault;
  25150. begin
  25151.   DefaultInterface.SetAsTemplateDefault;
  25152. end;
  25153.  
  25154. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  25155. constructor TWordFontProperties.Create(AServer: TWordFont);
  25156. begin
  25157.   inherited Create;
  25158.   FServer := AServer;
  25159. end;
  25160.  
  25161. function TWordFontProperties.GetDefaultInterface: _Font;
  25162. begin
  25163.   Result := FServer.DefaultInterface;
  25164. end;
  25165.  
  25166. function  TWordFontProperties.Get_Application: WordApplication;
  25167. begin
  25168.   Result := DefaultInterface.Get_Application;
  25169. end;
  25170.  
  25171. function  TWordFontProperties.Get_Creator: Integer;
  25172. begin
  25173.   Result := DefaultInterface.Get_Creator;
  25174. end;
  25175.  
  25176. function  TWordFontProperties.Get_Parent: IDispatch;
  25177. begin
  25178.   Result := DefaultInterface.Get_Parent;
  25179. end;
  25180.  
  25181. function  TWordFontProperties.Get_Duplicate: WordFont;
  25182. begin
  25183.   Result := DefaultInterface.Get_Duplicate;
  25184. end;
  25185.  
  25186. function  TWordFontProperties.Get_Bold: Integer;
  25187. begin
  25188.   Result := DefaultInterface.Get_Bold;
  25189. end;
  25190.  
  25191. procedure TWordFontProperties.Set_Bold(prop: Integer);
  25192. begin
  25193.   DefaultInterface.Set_Bold(prop);
  25194. end;
  25195.  
  25196. function  TWordFontProperties.Get_Italic: Integer;
  25197. begin
  25198.   Result := DefaultInterface.Get_Italic;
  25199. end;
  25200.  
  25201. procedure TWordFontProperties.Set_Italic(prop: Integer);
  25202. begin
  25203.   DefaultInterface.Set_Italic(prop);
  25204. end;
  25205.  
  25206. function  TWordFontProperties.Get_Hidden: Integer;
  25207. begin
  25208.   Result := DefaultInterface.Get_Hidden;
  25209. end;
  25210.  
  25211. procedure TWordFontProperties.Set_Hidden(prop: Integer);
  25212. begin
  25213.   DefaultInterface.Set_Hidden(prop);
  25214. end;
  25215.  
  25216. function  TWordFontProperties.Get_SmallCaps: Integer;
  25217. begin
  25218.   Result := DefaultInterface.Get_SmallCaps;
  25219. end;
  25220.  
  25221. procedure TWordFontProperties.Set_SmallCaps(prop: Integer);
  25222. begin
  25223.   DefaultInterface.Set_SmallCaps(prop);
  25224. end;
  25225.  
  25226. function  TWordFontProperties.Get_AllCaps: Integer;
  25227. begin
  25228.   Result := DefaultInterface.Get_AllCaps;
  25229. end;
  25230.  
  25231. procedure TWordFontProperties.Set_AllCaps(prop: Integer);
  25232. begin
  25233.   DefaultInterface.Set_AllCaps(prop);
  25234. end;
  25235.  
  25236. function  TWordFontProperties.Get_StrikeThrough: Integer;
  25237. begin
  25238.   Result := DefaultInterface.Get_StrikeThrough;
  25239. end;
  25240.  
  25241. procedure TWordFontProperties.Set_StrikeThrough(prop: Integer);
  25242. begin
  25243.   DefaultInterface.Set_StrikeThrough(prop);
  25244. end;
  25245.  
  25246. function  TWordFontProperties.Get_DoubleStrikeThrough: Integer;
  25247. begin
  25248.   Result := DefaultInterface.Get_DoubleStrikeThrough;
  25249. end;
  25250.  
  25251. procedure TWordFontProperties.Set_DoubleStrikeThrough(prop: Integer);
  25252. begin
  25253.   DefaultInterface.Set_DoubleStrikeThrough(prop);
  25254. end;
  25255.  
  25256. function  TWordFontProperties.Get_ColorIndex: WdColorIndex;
  25257. begin
  25258.   Result := DefaultInterface.Get_ColorIndex;
  25259. end;
  25260.  
  25261. procedure TWordFontProperties.Set_ColorIndex(prop: WdColorIndex);
  25262. begin
  25263.   DefaultInterface.Set_ColorIndex(prop);
  25264. end;
  25265.  
  25266. function  TWordFontProperties.Get_Subscript: Integer;
  25267. begin
  25268.   Result := DefaultInterface.Get_Subscript;
  25269. end;
  25270.  
  25271. procedure TWordFontProperties.Set_Subscript(prop: Integer);
  25272. begin
  25273.   DefaultInterface.Set_Subscript(prop);
  25274. end;
  25275.  
  25276. function  TWordFontProperties.Get_Superscript: Integer;
  25277. begin
  25278.   Result := DefaultInterface.Get_Superscript;
  25279. end;
  25280.  
  25281. procedure TWordFontProperties.Set_Superscript(prop: Integer);
  25282. begin
  25283.   DefaultInterface.Set_Superscript(prop);
  25284. end;
  25285.  
  25286. function  TWordFontProperties.Get_Underline: WdUnderline;
  25287. begin
  25288.   Result := DefaultInterface.Get_Underline;
  25289. end;
  25290.  
  25291. procedure TWordFontProperties.Set_Underline(prop: WdUnderline);
  25292. begin
  25293.   DefaultInterface.Set_Underline(prop);
  25294. end;
  25295.  
  25296. function  TWordFontProperties.Get_Size: Single;
  25297. begin
  25298.   Result := DefaultInterface.Get_Size;
  25299. end;
  25300.  
  25301. procedure TWordFontProperties.Set_Size(prop: Single);
  25302. begin
  25303.   DefaultInterface.Set_Size(prop);
  25304. end;
  25305.  
  25306. function  TWordFontProperties.Get_Name: WideString;
  25307. begin
  25308.   Result := DefaultInterface.Get_Name;
  25309. end;
  25310.  
  25311. procedure TWordFontProperties.Set_Name(const prop: WideString);
  25312. begin
  25313.   DefaultInterface.Set_Name(prop);
  25314. end;
  25315.  
  25316. function  TWordFontProperties.Get_Position: Integer;
  25317. begin
  25318.   Result := DefaultInterface.Get_Position;
  25319. end;
  25320.  
  25321. procedure TWordFontProperties.Set_Position(prop: Integer);
  25322. begin
  25323.   DefaultInterface.Set_Position(prop);
  25324. end;
  25325.  
  25326. function  TWordFontProperties.Get_Spacing: Single;
  25327. begin
  25328.   Result := DefaultInterface.Get_Spacing;
  25329. end;
  25330.  
  25331. procedure TWordFontProperties.Set_Spacing(prop: Single);
  25332. begin
  25333.   DefaultInterface.Set_Spacing(prop);
  25334. end;
  25335.  
  25336. function  TWordFontProperties.Get_Scaling: Integer;
  25337. begin
  25338.   Result := DefaultInterface.Get_Scaling;
  25339. end;
  25340.  
  25341. procedure TWordFontProperties.Set_Scaling(prop: Integer);
  25342. begin
  25343.   DefaultInterface.Set_Scaling(prop);
  25344. end;
  25345.  
  25346. function  TWordFontProperties.Get_Shadow: Integer;
  25347. begin
  25348.   Result := DefaultInterface.Get_Shadow;
  25349. end;
  25350.  
  25351. procedure TWordFontProperties.Set_Shadow(prop: Integer);
  25352. begin
  25353.   DefaultInterface.Set_Shadow(prop);
  25354. end;
  25355.  
  25356. function  TWordFontProperties.Get_Outline: Integer;
  25357. begin
  25358.   Result := DefaultInterface.Get_Outline;
  25359. end;
  25360.  
  25361. procedure TWordFontProperties.Set_Outline(prop: Integer);
  25362. begin
  25363.   DefaultInterface.Set_Outline(prop);
  25364. end;
  25365.  
  25366. function  TWordFontProperties.Get_Emboss: Integer;
  25367. begin
  25368.   Result := DefaultInterface.Get_Emboss;
  25369. end;
  25370.  
  25371. procedure TWordFontProperties.Set_Emboss(prop: Integer);
  25372. begin
  25373.   DefaultInterface.Set_Emboss(prop);
  25374. end;
  25375.  
  25376. function  TWordFontProperties.Get_Kerning: Single;
  25377. begin
  25378.   Result := DefaultInterface.Get_Kerning;
  25379. end;
  25380.  
  25381. procedure TWordFontProperties.Set_Kerning(prop: Single);
  25382. begin
  25383.   DefaultInterface.Set_Kerning(prop);
  25384. end;
  25385.  
  25386. function  TWordFontProperties.Get_Engrave: Integer;
  25387. begin
  25388.   Result := DefaultInterface.Get_Engrave;
  25389. end;
  25390.  
  25391. procedure TWordFontProperties.Set_Engrave(prop: Integer);
  25392. begin
  25393.   DefaultInterface.Set_Engrave(prop);
  25394. end;
  25395.  
  25396. function  TWordFontProperties.Get_Animation: WdAnimation;
  25397. begin
  25398.   Result := DefaultInterface.Get_Animation;
  25399. end;
  25400.  
  25401. procedure TWordFontProperties.Set_Animation(prop: WdAnimation);
  25402. begin
  25403.   DefaultInterface.Set_Animation(prop);
  25404. end;
  25405.  
  25406. function  TWordFontProperties.Get_Borders: Borders;
  25407. begin
  25408.   Result := DefaultInterface.Get_Borders;
  25409. end;
  25410.  
  25411. procedure TWordFontProperties.Set_Borders(const prop: Borders);
  25412. begin
  25413.   DefaultInterface.Set_Borders(prop);
  25414. end;
  25415.  
  25416. function  TWordFontProperties.Get_Shading: Shading;
  25417. begin
  25418.   Result := DefaultInterface.Get_Shading;
  25419. end;
  25420.  
  25421. function  TWordFontProperties.Get_EmphasisMark: WdEmphasisMark;
  25422. begin
  25423.   Result := DefaultInterface.Get_EmphasisMark;
  25424. end;
  25425.  
  25426. procedure TWordFontProperties.Set_EmphasisMark(prop: WdEmphasisMark);
  25427. begin
  25428.   DefaultInterface.Set_EmphasisMark(prop);
  25429. end;
  25430.  
  25431. function  TWordFontProperties.Get_DisableCharacterSpaceGrid: WordBool;
  25432. begin
  25433.   Result := DefaultInterface.Get_DisableCharacterSpaceGrid;
  25434. end;
  25435.  
  25436. procedure TWordFontProperties.Set_DisableCharacterSpaceGrid(prop: WordBool);
  25437. begin
  25438.   DefaultInterface.Set_DisableCharacterSpaceGrid(prop);
  25439. end;
  25440.  
  25441. function  TWordFontProperties.Get_NameFarEast: WideString;
  25442. begin
  25443.   Result := DefaultInterface.Get_NameFarEast;
  25444. end;
  25445.  
  25446. procedure TWordFontProperties.Set_NameFarEast(const prop: WideString);
  25447. begin
  25448.   DefaultInterface.Set_NameFarEast(prop);
  25449. end;
  25450.  
  25451. function  TWordFontProperties.Get_NameAscii: WideString;
  25452. begin
  25453.   Result := DefaultInterface.Get_NameAscii;
  25454. end;
  25455.  
  25456. procedure TWordFontProperties.Set_NameAscii(const prop: WideString);
  25457. begin
  25458.   DefaultInterface.Set_NameAscii(prop);
  25459. end;
  25460.  
  25461. function  TWordFontProperties.Get_NameOther: WideString;
  25462. begin
  25463.   Result := DefaultInterface.Get_NameOther;
  25464. end;
  25465.  
  25466. procedure TWordFontProperties.Set_NameOther(const prop: WideString);
  25467. begin
  25468.   DefaultInterface.Set_NameOther(prop);
  25469. end;
  25470.  
  25471. {$ENDIF}
  25472.  
  25473. class function CoWordParagraphFormat.Create: _ParagraphFormat;
  25474. begin
  25475.   Result := CreateComObject(CLASS_WordParagraphFormat) as _ParagraphFormat;
  25476. end;
  25477.  
  25478. class function CoWordParagraphFormat.CreateRemote(const MachineName: string): _ParagraphFormat;
  25479. begin
  25480.   Result := CreateRemoteComObject(MachineName, CLASS_WordParagraphFormat) as _ParagraphFormat;
  25481. end;
  25482.  
  25483. procedure TWordParagraphFormat.InitServerData;
  25484. const
  25485.   CServerData: TServerData = (
  25486.     ClassID:   '{000209F4-0000-0000-C000-000000000046}';
  25487.     IntfIID:   '{00020953-0000-0000-C000-000000000046}';
  25488.     EventIID:  '';
  25489.     LicenseKey: nil;
  25490.     Version: 500);
  25491. begin
  25492.   ServerData := @CServerData;
  25493. end;
  25494.  
  25495. procedure TWordParagraphFormat.Connect;
  25496. var
  25497.   punk: IUnknown;
  25498. begin
  25499.   if FIntf = nil then
  25500.   begin
  25501.     punk := GetServer;
  25502.     Fintf:= punk as _ParagraphFormat;
  25503.   end;
  25504. end;
  25505.  
  25506. procedure TWordParagraphFormat.ConnectTo(svrIntf: _ParagraphFormat);
  25507. begin
  25508.   Disconnect;
  25509.   FIntf := svrIntf;
  25510. end;
  25511.  
  25512. procedure TWordParagraphFormat.DisConnect;
  25513. begin
  25514.   if Fintf <> nil then
  25515.   begin
  25516.     FIntf := nil;
  25517.   end;
  25518. end;
  25519.  
  25520. function TWordParagraphFormat.GetDefaultInterface: _ParagraphFormat;
  25521. begin
  25522.   if FIntf = nil then
  25523.     Connect;
  25524.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  25525.   Result := FIntf;
  25526. end;
  25527.  
  25528. constructor TWordParagraphFormat.Create(AOwner: TComponent);
  25529. begin
  25530.   inherited Create(AOwner);
  25531. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  25532.   FProps := TWordParagraphFormatProperties.Create(Self);
  25533. {$ENDIF}
  25534. end;
  25535.  
  25536. destructor TWordParagraphFormat.Destroy;
  25537. begin
  25538. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  25539.   FProps.Free;
  25540. {$ENDIF}
  25541.   inherited Destroy;
  25542. end;
  25543.  
  25544. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  25545. function TWordParagraphFormat.GetServerProperties: TWordParagraphFormatProperties;
  25546. begin
  25547.   Result := FProps;
  25548. end;
  25549. {$ENDIF}
  25550.  
  25551. function  TWordParagraphFormat.Get_Application: WordApplication;
  25552. begin
  25553.   Result := DefaultInterface.Get_Application;
  25554. end;
  25555.  
  25556. function  TWordParagraphFormat.Get_Creator: Integer;
  25557. begin
  25558.   Result := DefaultInterface.Get_Creator;
  25559. end;
  25560.  
  25561. function  TWordParagraphFormat.Get_Parent: IDispatch;
  25562. begin
  25563.   Result := DefaultInterface.Get_Parent;
  25564. end;
  25565.  
  25566. function  TWordParagraphFormat.Get_Duplicate: WordParagraphFormat;
  25567. begin
  25568.   Result := DefaultInterface.Get_Duplicate;
  25569. end;
  25570.  
  25571. function  TWordParagraphFormat.Get_Style: OleVariant;
  25572. begin
  25573.   Result := DefaultInterface.Get_Style;
  25574. end;
  25575.  
  25576. procedure TWordParagraphFormat.Set_Style(var prop: OleVariant);
  25577. begin
  25578.   DefaultInterface.Set_Style(prop);
  25579. end;
  25580.  
  25581. function  TWordParagraphFormat.Get_Alignment: WdParagraphAlignment;
  25582. begin
  25583.   Result := DefaultInterface.Get_Alignment;
  25584. end;
  25585.  
  25586. procedure TWordParagraphFormat.Set_Alignment(prop: WdParagraphAlignment);
  25587. begin
  25588.   DefaultInterface.Set_Alignment(prop);
  25589. end;
  25590.  
  25591. function  TWordParagraphFormat.Get_KeepTogether: Integer;
  25592. begin
  25593.   Result := DefaultInterface.Get_KeepTogether;
  25594. end;
  25595.  
  25596. procedure TWordParagraphFormat.Set_KeepTogether(prop: Integer);
  25597. begin
  25598.   DefaultInterface.Set_KeepTogether(prop);
  25599. end;
  25600.  
  25601. function  TWordParagraphFormat.Get_KeepWithNext: Integer;
  25602. begin
  25603.   Result := DefaultInterface.Get_KeepWithNext;
  25604. end;
  25605.  
  25606. procedure TWordParagraphFormat.Set_KeepWithNext(prop: Integer);
  25607. begin
  25608.   DefaultInterface.Set_KeepWithNext(prop);
  25609. end;
  25610.  
  25611. function  TWordParagraphFormat.Get_PageBreakBefore: Integer;
  25612. begin
  25613.   Result := DefaultInterface.Get_PageBreakBefore;
  25614. end;
  25615.  
  25616. procedure TWordParagraphFormat.Set_PageBreakBefore(prop: Integer);
  25617. begin
  25618.   DefaultInterface.Set_PageBreakBefore(prop);
  25619. end;
  25620.  
  25621. function  TWordParagraphFormat.Get_NoLineNumber: Integer;
  25622. begin
  25623.   Result := DefaultInterface.Get_NoLineNumber;
  25624. end;
  25625.  
  25626. procedure TWordParagraphFormat.Set_NoLineNumber(prop: Integer);
  25627. begin
  25628.   DefaultInterface.Set_NoLineNumber(prop);
  25629. end;
  25630.  
  25631. function  TWordParagraphFormat.Get_RightIndent: Single;
  25632. begin
  25633.   Result := DefaultInterface.Get_RightIndent;
  25634. end;
  25635.  
  25636. procedure TWordParagraphFormat.Set_RightIndent(prop: Single);
  25637. begin
  25638.   DefaultInterface.Set_RightIndent(prop);
  25639. end;
  25640.  
  25641. function  TWordParagraphFormat.Get_LeftIndent: Single;
  25642. begin
  25643.   Result := DefaultInterface.Get_LeftIndent;
  25644. end;
  25645.  
  25646. procedure TWordParagraphFormat.Set_LeftIndent(prop: Single);
  25647. begin
  25648.   DefaultInterface.Set_LeftIndent(prop);
  25649. end;
  25650.  
  25651. function  TWordParagraphFormat.Get_FirstLineIndent: Single;
  25652. begin
  25653.   Result := DefaultInterface.Get_FirstLineIndent;
  25654. end;
  25655.  
  25656. procedure TWordParagraphFormat.Set_FirstLineIndent(prop: Single);
  25657. begin
  25658.   DefaultInterface.Set_FirstLineIndent(prop);
  25659. end;
  25660.  
  25661. function  TWordParagraphFormat.Get_LineSpacing: Single;
  25662. begin
  25663.   Result := DefaultInterface.Get_LineSpacing;
  25664. end;
  25665.  
  25666. procedure TWordParagraphFormat.Set_LineSpacing(prop: Single);
  25667. begin
  25668.   DefaultInterface.Set_LineSpacing(prop);
  25669. end;
  25670.  
  25671. function  TWordParagraphFormat.Get_LineSpacingRule: WdLineSpacing;
  25672. begin
  25673.   Result := DefaultInterface.Get_LineSpacingRule;
  25674. end;
  25675.  
  25676. procedure TWordParagraphFormat.Set_LineSpacingRule(prop: WdLineSpacing);
  25677. begin
  25678.   DefaultInterface.Set_LineSpacingRule(prop);
  25679. end;
  25680.  
  25681. function  TWordParagraphFormat.Get_SpaceBefore: Single;
  25682. begin
  25683.   Result := DefaultInterface.Get_SpaceBefore;
  25684. end;
  25685.  
  25686. procedure TWordParagraphFormat.Set_SpaceBefore(prop: Single);
  25687. begin
  25688.   DefaultInterface.Set_SpaceBefore(prop);
  25689. end;
  25690.  
  25691. function  TWordParagraphFormat.Get_SpaceAfter: Single;
  25692. begin
  25693.   Result := DefaultInterface.Get_SpaceAfter;
  25694. end;
  25695.  
  25696. procedure TWordParagraphFormat.Set_SpaceAfter(prop: Single);
  25697. begin
  25698.   DefaultInterface.Set_SpaceAfter(prop);
  25699. end;
  25700.  
  25701. function  TWordParagraphFormat.Get_Hyphenation: Integer;
  25702. begin
  25703.   Result := DefaultInterface.Get_Hyphenation;
  25704. end;
  25705.  
  25706. procedure TWordParagraphFormat.Set_Hyphenation(prop: Integer);
  25707. begin
  25708.   DefaultInterface.Set_Hyphenation(prop);
  25709. end;
  25710.  
  25711. function  TWordParagraphFormat.Get_WidowControl: Integer;
  25712. begin
  25713.   Result := DefaultInterface.Get_WidowControl;
  25714. end;
  25715.  
  25716. procedure TWordParagraphFormat.Set_WidowControl(prop: Integer);
  25717. begin
  25718.   DefaultInterface.Set_WidowControl(prop);
  25719. end;
  25720.  
  25721. function  TWordParagraphFormat.Get_FarEastLineBreakControl: Integer;
  25722. begin
  25723.   Result := DefaultInterface.Get_FarEastLineBreakControl;
  25724. end;
  25725.  
  25726. procedure TWordParagraphFormat.Set_FarEastLineBreakControl(prop: Integer);
  25727. begin
  25728.   DefaultInterface.Set_FarEastLineBreakControl(prop);
  25729. end;
  25730.  
  25731. function  TWordParagraphFormat.Get_WordWrap: Integer;
  25732. begin
  25733.   Result := DefaultInterface.Get_WordWrap;
  25734. end;
  25735.  
  25736. procedure TWordParagraphFormat.Set_WordWrap(prop: Integer);
  25737. begin
  25738.   DefaultInterface.Set_WordWrap(prop);
  25739. end;
  25740.  
  25741. function  TWordParagraphFormat.Get_HangingPunctuation: Integer;
  25742. begin
  25743.   Result := DefaultInterface.Get_HangingPunctuation;
  25744. end;
  25745.  
  25746. procedure TWordParagraphFormat.Set_HangingPunctuation(prop: Integer);
  25747. begin
  25748.   DefaultInterface.Set_HangingPunctuation(prop);
  25749. end;
  25750.  
  25751. function  TWordParagraphFormat.Get_HalfWidthPunctuationOnTopOfLine: Integer;
  25752. begin
  25753.   Result := DefaultInterface.Get_HalfWidthPunctuationOnTopOfLine;
  25754. end;
  25755.  
  25756. procedure TWordParagraphFormat.Set_HalfWidthPunctuationOnTopOfLine(prop: Integer);
  25757. begin
  25758.   DefaultInterface.Set_HalfWidthPunctuationOnTopOfLine(prop);
  25759. end;
  25760.  
  25761. function  TWordParagraphFormat.Get_AddSpaceBetweenFarEastAndAlpha: Integer;
  25762. begin
  25763.   Result := DefaultInterface.Get_AddSpaceBetweenFarEastAndAlpha;
  25764. end;
  25765.  
  25766. procedure TWordParagraphFormat.Set_AddSpaceBetweenFarEastAndAlpha(prop: Integer);
  25767. begin
  25768.   DefaultInterface.Set_AddSpaceBetweenFarEastAndAlpha(prop);
  25769. end;
  25770.  
  25771. function  TWordParagraphFormat.Get_AddSpaceBetweenFarEastAndDigit: Integer;
  25772. begin
  25773.   Result := DefaultInterface.Get_AddSpaceBetweenFarEastAndDigit;
  25774. end;
  25775.  
  25776. procedure TWordParagraphFormat.Set_AddSpaceBetweenFarEastAndDigit(prop: Integer);
  25777. begin
  25778.   DefaultInterface.Set_AddSpaceBetweenFarEastAndDigit(prop);
  25779. end;
  25780.  
  25781. function  TWordParagraphFormat.Get_BaseLineAlignment: WdBaselineAlignment;
  25782. begin
  25783.   Result := DefaultInterface.Get_BaseLineAlignment;
  25784. end;
  25785.  
  25786. procedure TWordParagraphFormat.Set_BaseLineAlignment(prop: WdBaselineAlignment);
  25787. begin
  25788.   DefaultInterface.Set_BaseLineAlignment(prop);
  25789. end;
  25790.  
  25791. function  TWordParagraphFormat.Get_AutoAdjustRightIndent: Integer;
  25792. begin
  25793.   Result := DefaultInterface.Get_AutoAdjustRightIndent;
  25794. end;
  25795.  
  25796. procedure TWordParagraphFormat.Set_AutoAdjustRightIndent(prop: Integer);
  25797. begin
  25798.   DefaultInterface.Set_AutoAdjustRightIndent(prop);
  25799. end;
  25800.  
  25801. function  TWordParagraphFormat.Get_DisableLineHeightGrid: Integer;
  25802. begin
  25803.   Result := DefaultInterface.Get_DisableLineHeightGrid;
  25804. end;
  25805.  
  25806. procedure TWordParagraphFormat.Set_DisableLineHeightGrid(prop: Integer);
  25807. begin
  25808.   DefaultInterface.Set_DisableLineHeightGrid(prop);
  25809. end;
  25810.  
  25811. function  TWordParagraphFormat.Get_TabStops: TabStops;
  25812. begin
  25813.   Result := DefaultInterface.Get_TabStops;
  25814. end;
  25815.  
  25816. procedure TWordParagraphFormat.Set_TabStops(const prop: TabStops);
  25817. begin
  25818.   DefaultInterface.Set_TabStops(prop);
  25819. end;
  25820.  
  25821. function  TWordParagraphFormat.Get_Borders: Borders;
  25822. begin
  25823.   Result := DefaultInterface.Get_Borders;
  25824. end;
  25825.  
  25826. procedure TWordParagraphFormat.Set_Borders(const prop: Borders);
  25827. begin
  25828.   DefaultInterface.Set_Borders(prop);
  25829. end;
  25830.  
  25831. function  TWordParagraphFormat.Get_Shading: Shading;
  25832. begin
  25833.   Result := DefaultInterface.Get_Shading;
  25834. end;
  25835.  
  25836. function  TWordParagraphFormat.Get_OutlineLevel: WdOutlineLevel;
  25837. begin
  25838.   Result := DefaultInterface.Get_OutlineLevel;
  25839. end;
  25840.  
  25841. procedure TWordParagraphFormat.Set_OutlineLevel(prop: WdOutlineLevel);
  25842. begin
  25843.   DefaultInterface.Set_OutlineLevel(prop);
  25844. end;
  25845.  
  25846. procedure TWordParagraphFormat.CloseUp;
  25847. begin
  25848.   DefaultInterface.CloseUp;
  25849. end;
  25850.  
  25851. procedure TWordParagraphFormat.OpenUp;
  25852. begin
  25853.   DefaultInterface.OpenUp;
  25854. end;
  25855.  
  25856. procedure TWordParagraphFormat.OpenOrCloseUp;
  25857. begin
  25858.   DefaultInterface.OpenOrCloseUp;
  25859. end;
  25860.  
  25861. procedure TWordParagraphFormat.TabHangingIndent(Count: Smallint);
  25862. begin
  25863.   DefaultInterface.TabHangingIndent(Count);
  25864. end;
  25865.  
  25866. procedure TWordParagraphFormat.TabIndent(Count: Smallint);
  25867. begin
  25868.   DefaultInterface.TabIndent(Count);
  25869. end;
  25870.  
  25871. procedure TWordParagraphFormat.Reset;
  25872. begin
  25873.   DefaultInterface.Reset;
  25874. end;
  25875.  
  25876. procedure TWordParagraphFormat.Space1;
  25877. begin
  25878.   DefaultInterface.Space1;
  25879. end;
  25880.  
  25881. procedure TWordParagraphFormat.Space15;
  25882. begin
  25883.   DefaultInterface.Space15;
  25884. end;
  25885.  
  25886. procedure TWordParagraphFormat.Space2;
  25887. begin
  25888.   DefaultInterface.Space2;
  25889. end;
  25890.  
  25891. procedure TWordParagraphFormat.IndentCharWidth(Count: Smallint);
  25892. begin
  25893.   DefaultInterface.IndentCharWidth(Count);
  25894. end;
  25895.  
  25896. procedure TWordParagraphFormat.IndentFirstLineCharWidth(Count: Smallint);
  25897. begin
  25898.   DefaultInterface.IndentFirstLineCharWidth(Count);
  25899. end;
  25900.  
  25901. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  25902. constructor TWordParagraphFormatProperties.Create(AServer: TWordParagraphFormat);
  25903. begin
  25904.   inherited Create;
  25905.   FServer := AServer;
  25906. end;
  25907.  
  25908. function TWordParagraphFormatProperties.GetDefaultInterface: _ParagraphFormat;
  25909. begin
  25910.   Result := FServer.DefaultInterface;
  25911. end;
  25912.  
  25913. function  TWordParagraphFormatProperties.Get_Application: WordApplication;
  25914. begin
  25915.   Result := DefaultInterface.Get_Application;
  25916. end;
  25917.  
  25918. function  TWordParagraphFormatProperties.Get_Creator: Integer;
  25919. begin
  25920.   Result := DefaultInterface.Get_Creator;
  25921. end;
  25922.  
  25923. function  TWordParagraphFormatProperties.Get_Parent: IDispatch;
  25924. begin
  25925.   Result := DefaultInterface.Get_Parent;
  25926. end;
  25927.  
  25928. function  TWordParagraphFormatProperties.Get_Duplicate: WordParagraphFormat;
  25929. begin
  25930.   Result := DefaultInterface.Get_Duplicate;
  25931. end;
  25932.  
  25933. function  TWordParagraphFormatProperties.Get_Style: OleVariant;
  25934. begin
  25935.   Result := DefaultInterface.Get_Style;
  25936. end;
  25937.  
  25938. procedure TWordParagraphFormatProperties.Set_Style(var prop: OleVariant);
  25939. begin
  25940.   DefaultInterface.Set_Style(prop);
  25941. end;
  25942.  
  25943. function  TWordParagraphFormatProperties.Get_Alignment: WdParagraphAlignment;
  25944. begin
  25945.   Result := DefaultInterface.Get_Alignment;
  25946. end;
  25947.  
  25948. procedure TWordParagraphFormatProperties.Set_Alignment(prop: WdParagraphAlignment);
  25949. begin
  25950.   DefaultInterface.Set_Alignment(prop);
  25951. end;
  25952.  
  25953. function  TWordParagraphFormatProperties.Get_KeepTogether: Integer;
  25954. begin
  25955.   Result := DefaultInterface.Get_KeepTogether;
  25956. end;
  25957.  
  25958. procedure TWordParagraphFormatProperties.Set_KeepTogether(prop: Integer);
  25959. begin
  25960.   DefaultInterface.Set_KeepTogether(prop);
  25961. end;
  25962.  
  25963. function  TWordParagraphFormatProperties.Get_KeepWithNext: Integer;
  25964. begin
  25965.   Result := DefaultInterface.Get_KeepWithNext;
  25966. end;
  25967.  
  25968. procedure TWordParagraphFormatProperties.Set_KeepWithNext(prop: Integer);
  25969. begin
  25970.   DefaultInterface.Set_KeepWithNext(prop);
  25971. end;
  25972.  
  25973. function  TWordParagraphFormatProperties.Get_PageBreakBefore: Integer;
  25974. begin
  25975.   Result := DefaultInterface.Get_PageBreakBefore;
  25976. end;
  25977.  
  25978. procedure TWordParagraphFormatProperties.Set_PageBreakBefore(prop: Integer);
  25979. begin
  25980.   DefaultInterface.Set_PageBreakBefore(prop);
  25981. end;
  25982.  
  25983. function  TWordParagraphFormatProperties.Get_NoLineNumber: Integer;
  25984. begin
  25985.   Result := DefaultInterface.Get_NoLineNumber;
  25986. end;
  25987.  
  25988. procedure TWordParagraphFormatProperties.Set_NoLineNumber(prop: Integer);
  25989. begin
  25990.   DefaultInterface.Set_NoLineNumber(prop);
  25991. end;
  25992.  
  25993. function  TWordParagraphFormatProperties.Get_RightIndent: Single;
  25994. begin
  25995.   Result := DefaultInterface.Get_RightIndent;
  25996. end;
  25997.  
  25998. procedure TWordParagraphFormatProperties.Set_RightIndent(prop: Single);
  25999. begin
  26000.   DefaultInterface.Set_RightIndent(prop);
  26001. end;
  26002.  
  26003. function  TWordParagraphFormatProperties.Get_LeftIndent: Single;
  26004. begin
  26005.   Result := DefaultInterface.Get_LeftIndent;
  26006. end;
  26007.  
  26008. procedure TWordParagraphFormatProperties.Set_LeftIndent(prop: Single);
  26009. begin
  26010.   DefaultInterface.Set_LeftIndent(prop);
  26011. end;
  26012.  
  26013. function  TWordParagraphFormatProperties.Get_FirstLineIndent: Single;
  26014. begin
  26015.   Result := DefaultInterface.Get_FirstLineIndent;
  26016. end;
  26017.  
  26018. procedure TWordParagraphFormatProperties.Set_FirstLineIndent(prop: Single);
  26019. begin
  26020.   DefaultInterface.Set_FirstLineIndent(prop);
  26021. end;
  26022.  
  26023. function  TWordParagraphFormatProperties.Get_LineSpacing: Single;
  26024. begin
  26025.   Result := DefaultInterface.Get_LineSpacing;
  26026. end;
  26027.  
  26028. procedure TWordParagraphFormatProperties.Set_LineSpacing(prop: Single);
  26029. begin
  26030.   DefaultInterface.Set_LineSpacing(prop);
  26031. end;
  26032.  
  26033. function  TWordParagraphFormatProperties.Get_LineSpacingRule: WdLineSpacing;
  26034. begin
  26035.   Result := DefaultInterface.Get_LineSpacingRule;
  26036. end;
  26037.  
  26038. procedure TWordParagraphFormatProperties.Set_LineSpacingRule(prop: WdLineSpacing);
  26039. begin
  26040.   DefaultInterface.Set_LineSpacingRule(prop);
  26041. end;
  26042.  
  26043. function  TWordParagraphFormatProperties.Get_SpaceBefore: Single;
  26044. begin
  26045.   Result := DefaultInterface.Get_SpaceBefore;
  26046. end;
  26047.  
  26048. procedure TWordParagraphFormatProperties.Set_SpaceBefore(prop: Single);
  26049. begin
  26050.   DefaultInterface.Set_SpaceBefore(prop);
  26051. end;
  26052.  
  26053. function  TWordParagraphFormatProperties.Get_SpaceAfter: Single;
  26054. begin
  26055.   Result := DefaultInterface.Get_SpaceAfter;
  26056. end;
  26057.  
  26058. procedure TWordParagraphFormatProperties.Set_SpaceAfter(prop: Single);
  26059. begin
  26060.   DefaultInterface.Set_SpaceAfter(prop);
  26061. end;
  26062.  
  26063. function  TWordParagraphFormatProperties.Get_Hyphenation: Integer;
  26064. begin
  26065.   Result := DefaultInterface.Get_Hyphenation;
  26066. end;
  26067.  
  26068. procedure TWordParagraphFormatProperties.Set_Hyphenation(prop: Integer);
  26069. begin
  26070.   DefaultInterface.Set_Hyphenation(prop);
  26071. end;
  26072.  
  26073. function  TWordParagraphFormatProperties.Get_WidowControl: Integer;
  26074. begin
  26075.   Result := DefaultInterface.Get_WidowControl;
  26076. end;
  26077.  
  26078. procedure TWordParagraphFormatProperties.Set_WidowControl(prop: Integer);
  26079. begin
  26080.   DefaultInterface.Set_WidowControl(prop);
  26081. end;
  26082.  
  26083. function  TWordParagraphFormatProperties.Get_FarEastLineBreakControl: Integer;
  26084. begin
  26085.   Result := DefaultInterface.Get_FarEastLineBreakControl;
  26086. end;
  26087.  
  26088. procedure TWordParagraphFormatProperties.Set_FarEastLineBreakControl(prop: Integer);
  26089. begin
  26090.   DefaultInterface.Set_FarEastLineBreakControl(prop);
  26091. end;
  26092.  
  26093. function  TWordParagraphFormatProperties.Get_WordWrap: Integer;
  26094. begin
  26095.   Result := DefaultInterface.Get_WordWrap;
  26096. end;
  26097.  
  26098. procedure TWordParagraphFormatProperties.Set_WordWrap(prop: Integer);
  26099. begin
  26100.   DefaultInterface.Set_WordWrap(prop);
  26101. end;
  26102.  
  26103. function  TWordParagraphFormatProperties.Get_HangingPunctuation: Integer;
  26104. begin
  26105.   Result := DefaultInterface.Get_HangingPunctuation;
  26106. end;
  26107.  
  26108. procedure TWordParagraphFormatProperties.Set_HangingPunctuation(prop: Integer);
  26109. begin
  26110.   DefaultInterface.Set_HangingPunctuation(prop);
  26111. end;
  26112.  
  26113. function  TWordParagraphFormatProperties.Get_HalfWidthPunctuationOnTopOfLine: Integer;
  26114. begin
  26115.   Result := DefaultInterface.Get_HalfWidthPunctuationOnTopOfLine;
  26116. end;
  26117.  
  26118. procedure TWordParagraphFormatProperties.Set_HalfWidthPunctuationOnTopOfLine(prop: Integer);
  26119. begin
  26120.   DefaultInterface.Set_HalfWidthPunctuationOnTopOfLine(prop);
  26121. end;
  26122.  
  26123. function  TWordParagraphFormatProperties.Get_AddSpaceBetweenFarEastAndAlpha: Integer;
  26124. begin
  26125.   Result := DefaultInterface.Get_AddSpaceBetweenFarEastAndAlpha;
  26126. end;
  26127.  
  26128. procedure TWordParagraphFormatProperties.Set_AddSpaceBetweenFarEastAndAlpha(prop: Integer);
  26129. begin
  26130.   DefaultInterface.Set_AddSpaceBetweenFarEastAndAlpha(prop);
  26131. end;
  26132.  
  26133. function  TWordParagraphFormatProperties.Get_AddSpaceBetweenFarEastAndDigit: Integer;
  26134. begin
  26135.   Result := DefaultInterface.Get_AddSpaceBetweenFarEastAndDigit;
  26136. end;
  26137.  
  26138. procedure TWordParagraphFormatProperties.Set_AddSpaceBetweenFarEastAndDigit(prop: Integer);
  26139. begin
  26140.   DefaultInterface.Set_AddSpaceBetweenFarEastAndDigit(prop);
  26141. end;
  26142.  
  26143. function  TWordParagraphFormatProperties.Get_BaseLineAlignment: WdBaselineAlignment;
  26144. begin
  26145.   Result := DefaultInterface.Get_BaseLineAlignment;
  26146. end;
  26147.  
  26148. procedure TWordParagraphFormatProperties.Set_BaseLineAlignment(prop: WdBaselineAlignment);
  26149. begin
  26150.   DefaultInterface.Set_BaseLineAlignment(prop);
  26151. end;
  26152.  
  26153. function  TWordParagraphFormatProperties.Get_AutoAdjustRightIndent: Integer;
  26154. begin
  26155.   Result := DefaultInterface.Get_AutoAdjustRightIndent;
  26156. end;
  26157.  
  26158. procedure TWordParagraphFormatProperties.Set_AutoAdjustRightIndent(prop: Integer);
  26159. begin
  26160.   DefaultInterface.Set_AutoAdjustRightIndent(prop);
  26161. end;
  26162.  
  26163. function  TWordParagraphFormatProperties.Get_DisableLineHeightGrid: Integer;
  26164. begin
  26165.   Result := DefaultInterface.Get_DisableLineHeightGrid;
  26166. end;
  26167.  
  26168. procedure TWordParagraphFormatProperties.Set_DisableLineHeightGrid(prop: Integer);
  26169. begin
  26170.   DefaultInterface.Set_DisableLineHeightGrid(prop);
  26171. end;
  26172.  
  26173. function  TWordParagraphFormatProperties.Get_TabStops: TabStops;
  26174. begin
  26175.   Result := DefaultInterface.Get_TabStops;
  26176. end;
  26177.  
  26178. procedure TWordParagraphFormatProperties.Set_TabStops(const prop: TabStops);
  26179. begin
  26180.   DefaultInterface.Set_TabStops(prop);
  26181. end;
  26182.  
  26183. function  TWordParagraphFormatProperties.Get_Borders: Borders;
  26184. begin
  26185.   Result := DefaultInterface.Get_Borders;
  26186. end;
  26187.  
  26188. procedure TWordParagraphFormatProperties.Set_Borders(const prop: Borders);
  26189. begin
  26190.   DefaultInterface.Set_Borders(prop);
  26191. end;
  26192.  
  26193. function  TWordParagraphFormatProperties.Get_Shading: Shading;
  26194. begin
  26195.   Result := DefaultInterface.Get_Shading;
  26196. end;
  26197.  
  26198. function  TWordParagraphFormatProperties.Get_OutlineLevel: WdOutlineLevel;
  26199. begin
  26200.   Result := DefaultInterface.Get_OutlineLevel;
  26201. end;
  26202.  
  26203. procedure TWordParagraphFormatProperties.Set_OutlineLevel(prop: WdOutlineLevel);
  26204. begin
  26205.   DefaultInterface.Set_OutlineLevel(prop);
  26206. end;
  26207.  
  26208. {$ENDIF}
  26209.  
  26210. class function CoWordOLEControl.Create: _OLEControl;
  26211. begin
  26212.   Result := CreateComObject(CLASS_WordOLEControl) as _OLEControl;
  26213. end;
  26214.  
  26215. class function CoWordOLEControl.CreateRemote(const MachineName: string): _OLEControl;
  26216. begin
  26217.   Result := CreateRemoteComObject(MachineName, CLASS_WordOLEControl) as _OLEControl;
  26218. end;
  26219.  
  26220. class function CoWordLetterContent.Create: _LetterContent;
  26221. begin
  26222.   Result := CreateComObject(CLASS_WordLetterContent) as _LetterContent;
  26223. end;
  26224.  
  26225. class function CoWordLetterContent.CreateRemote(const MachineName: string): _LetterContent;
  26226. begin
  26227.   Result := CreateRemoteComObject(MachineName, CLASS_WordLetterContent) as _LetterContent;
  26228. end;
  26229.  
  26230. procedure TWordLetterContent.InitServerData;
  26231. const
  26232.   CServerData: TServerData = (
  26233.     ClassID:   '{000209F1-0000-0000-C000-000000000046}';
  26234.     IntfIID:   '{000209A1-0000-0000-C000-000000000046}';
  26235.     EventIID:  '';
  26236.     LicenseKey: nil;
  26237.     Version: 500);
  26238. begin
  26239.   ServerData := @CServerData;
  26240. end;
  26241.  
  26242. procedure TWordLetterContent.Connect;
  26243. var
  26244.   punk: IUnknown;
  26245. begin
  26246.   if FIntf = nil then
  26247.   begin
  26248.     punk := GetServer;
  26249.     Fintf:= punk as _LetterContent;
  26250.   end;
  26251. end;
  26252.  
  26253. procedure TWordLetterContent.ConnectTo(svrIntf: _LetterContent);
  26254. begin
  26255.   Disconnect;
  26256.   FIntf := svrIntf;
  26257. end;
  26258.  
  26259. procedure TWordLetterContent.DisConnect;
  26260. begin
  26261.   if Fintf <> nil then
  26262.   begin
  26263.     FIntf := nil;
  26264.   end;
  26265. end;
  26266.  
  26267. function TWordLetterContent.GetDefaultInterface: _LetterContent;
  26268. begin
  26269.   if FIntf = nil then
  26270.     Connect;
  26271.   Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  26272.   Result := FIntf;
  26273. end;
  26274.  
  26275. constructor TWordLetterContent.Create(AOwner: TComponent);
  26276. begin
  26277.   inherited Create(AOwner);
  26278. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  26279.   FProps := TWordLetterContentProperties.Create(Self);
  26280. {$ENDIF}
  26281. end;
  26282.  
  26283. destructor TWordLetterContent.Destroy;
  26284. begin
  26285. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  26286.   FProps.Free;
  26287. {$ENDIF}
  26288.   inherited Destroy;
  26289. end;
  26290.  
  26291. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  26292. function TWordLetterContent.GetServerProperties: TWordLetterContentProperties;
  26293. begin
  26294.   Result := FProps;
  26295. end;
  26296. {$ENDIF}
  26297.  
  26298. function  TWordLetterContent.Get_Application: WordApplication;
  26299. begin
  26300.   Result := DefaultInterface.Get_Application;
  26301. end;
  26302.  
  26303. function  TWordLetterContent.Get_Creator: Integer;
  26304. begin
  26305.   Result := DefaultInterface.Get_Creator;
  26306. end;
  26307.  
  26308. function  TWordLetterContent.Get_Parent: IDispatch;
  26309. begin
  26310.   Result := DefaultInterface.Get_Parent;
  26311. end;
  26312.  
  26313. function  TWordLetterContent.Get_Duplicate: WordLetterContent;
  26314. begin
  26315.   Result := DefaultInterface.Get_Duplicate;
  26316. end;
  26317.  
  26318. function  TWordLetterContent.Get_DateFormat: WideString;
  26319. begin
  26320.   Result := DefaultInterface.Get_DateFormat;
  26321. end;
  26322.  
  26323. procedure TWordLetterContent.Set_DateFormat(const prop: WideString);
  26324. begin
  26325.   DefaultInterface.Set_DateFormat(prop);
  26326. end;
  26327.  
  26328. function  TWordLetterContent.Get_IncludeHeaderFooter: WordBool;
  26329. begin
  26330.   Result := DefaultInterface.Get_IncludeHeaderFooter;
  26331. end;
  26332.  
  26333. procedure TWordLetterContent.Set_IncludeHeaderFooter(prop: WordBool);
  26334. begin
  26335.   DefaultInterface.Set_IncludeHeaderFooter(prop);
  26336. end;
  26337.  
  26338. function  TWordLetterContent.Get_PageDesign: WideString;
  26339. begin
  26340.   Result := DefaultInterface.Get_PageDesign;
  26341. end;
  26342.  
  26343. procedure TWordLetterContent.Set_PageDesign(const prop: WideString);
  26344. begin
  26345.   DefaultInterface.Set_PageDesign(prop);
  26346. end;
  26347.  
  26348. function  TWordLetterContent.Get_LetterStyle: WdLetterStyle;
  26349. begin
  26350.   Result := DefaultInterface.Get_LetterStyle;
  26351. end;
  26352.  
  26353. procedure TWordLetterContent.Set_LetterStyle(prop: WdLetterStyle);
  26354. begin
  26355.   DefaultInterface.Set_LetterStyle(prop);
  26356. end;
  26357.  
  26358. function  TWordLetterContent.Get_Letterhead: WordBool;
  26359. begin
  26360.   Result := DefaultInterface.Get_Letterhead;
  26361. end;
  26362.  
  26363. procedure TWordLetterContent.Set_Letterhead(prop: WordBool);
  26364. begin
  26365.   DefaultInterface.Set_Letterhead(prop);
  26366. end;
  26367.  
  26368. function  TWordLetterContent.Get_LetterheadLocation: WdLetterheadLocation;
  26369. begin
  26370.   Result := DefaultInterface.Get_LetterheadLocation;
  26371. end;
  26372.  
  26373. procedure TWordLetterContent.Set_LetterheadLocation(prop: WdLetterheadLocation);
  26374. begin
  26375.   DefaultInterface.Set_LetterheadLocation(prop);
  26376. end;
  26377.  
  26378. function  TWordLetterContent.Get_LetterheadSize: Single;
  26379. begin
  26380.   Result := DefaultInterface.Get_LetterheadSize;
  26381. end;
  26382.  
  26383. procedure TWordLetterContent.Set_LetterheadSize(prop: Single);
  26384. begin
  26385.   DefaultInterface.Set_LetterheadSize(prop);
  26386. end;
  26387.  
  26388. function  TWordLetterContent.Get_RecipientName: WideString;
  26389. begin
  26390.   Result := DefaultInterface.Get_RecipientName;
  26391. end;
  26392.  
  26393. procedure TWordLetterContent.Set_RecipientName(const prop: WideString);
  26394. begin
  26395.   DefaultInterface.Set_RecipientName(prop);
  26396. end;
  26397.  
  26398. function  TWordLetterContent.Get_RecipientAddress: WideString;
  26399. begin
  26400.   Result := DefaultInterface.Get_RecipientAddress;
  26401. end;
  26402.  
  26403. procedure TWordLetterContent.Set_RecipientAddress(const prop: WideString);
  26404. begin
  26405.   DefaultInterface.Set_RecipientAddress(prop);
  26406. end;
  26407.  
  26408. function  TWordLetterContent.Get_Salutation: WideString;
  26409. begin
  26410.   Result := DefaultInterface.Get_Salutation;
  26411. end;
  26412.  
  26413. procedure TWordLetterContent.Set_Salutation(const prop: WideString);
  26414. begin
  26415.   DefaultInterface.Set_Salutation(prop);
  26416. end;
  26417.  
  26418. function  TWordLetterContent.Get_SalutationType: WdSalutationType;
  26419. begin
  26420.   Result := DefaultInterface.Get_SalutationType;
  26421. end;
  26422.  
  26423. procedure TWordLetterContent.Set_SalutationType(prop: WdSalutationType);
  26424. begin
  26425.   DefaultInterface.Set_SalutationType(prop);
  26426. end;
  26427.  
  26428. function  TWordLetterContent.Get_RecipientReference: WideString;
  26429. begin
  26430.   Result := DefaultInterface.Get_RecipientReference;
  26431. end;
  26432.  
  26433. procedure TWordLetterContent.Set_RecipientReference(const prop: WideString);
  26434. begin
  26435.   DefaultInterface.Set_RecipientReference(prop);
  26436. end;
  26437.  
  26438. function  TWordLetterContent.Get_MailingInstructions: WideString;
  26439. begin
  26440.   Result := DefaultInterface.Get_MailingInstructions;
  26441. end;
  26442.  
  26443. procedure TWordLetterContent.Set_MailingInstructions(const prop: WideString);
  26444. begin
  26445.   DefaultInterface.Set_MailingInstructions(prop);
  26446. end;
  26447.  
  26448. function  TWordLetterContent.Get_AttentionLine: WideString;
  26449. begin
  26450.   Result := DefaultInterface.Get_AttentionLine;
  26451. end;
  26452.  
  26453. procedure TWordLetterContent.Set_AttentionLine(const prop: WideString);
  26454. begin
  26455.   DefaultInterface.Set_AttentionLine(prop);
  26456. end;
  26457.  
  26458. function  TWordLetterContent.Get_Subject: WideString;
  26459. begin
  26460.   Result := DefaultInterface.Get_Subject;
  26461. end;
  26462.  
  26463. procedure TWordLetterContent.Set_Subject(const prop: WideString);
  26464. begin
  26465.   DefaultInterface.Set_Subject(prop);
  26466. end;
  26467.  
  26468. function  TWordLetterContent.Get_EnclosureNumber: Integer;
  26469. begin
  26470.   Result := DefaultInterface.Get_EnclosureNumber;
  26471. end;
  26472.  
  26473. procedure TWordLetterContent.Set_EnclosureNumber(prop: Integer);
  26474. begin
  26475.   DefaultInterface.Set_EnclosureNumber(prop);
  26476. end;
  26477.  
  26478. function  TWordLetterContent.Get_CCList: WideString;
  26479. begin
  26480.   Result := DefaultInterface.Get_CCList;
  26481. end;
  26482.  
  26483. procedure TWordLetterContent.Set_CCList(const prop: WideString);
  26484. begin
  26485.   DefaultInterface.Set_CCList(prop);
  26486. end;
  26487.  
  26488. function  TWordLetterContent.Get_ReturnAddress: WideString;
  26489. begin
  26490.   Result := DefaultInterface.Get_ReturnAddress;
  26491. end;
  26492.  
  26493. procedure TWordLetterContent.Set_ReturnAddress(const prop: WideString);
  26494. begin
  26495.   DefaultInterface.Set_ReturnAddress(prop);
  26496. end;
  26497.  
  26498. function  TWordLetterContent.Get_SenderName: WideString;
  26499. begin
  26500.   Result := DefaultInterface.Get_SenderName;
  26501. end;
  26502.  
  26503. procedure TWordLetterContent.Set_SenderName(const prop: WideString);
  26504. begin
  26505.   DefaultInterface.Set_SenderName(prop);
  26506. end;
  26507.  
  26508. function  TWordLetterContent.Get_Closing: WideString;
  26509. begin
  26510.   Result := DefaultInterface.Get_Closing;
  26511. end;
  26512.  
  26513. procedure TWordLetterContent.Set_Closing(const prop: WideString);
  26514. begin
  26515.   DefaultInterface.Set_Closing(prop);
  26516. end;
  26517.  
  26518. function  TWordLetterContent.Get_SenderCompany: WideString;
  26519. begin
  26520.   Result := DefaultInterface.Get_SenderCompany;
  26521. end;
  26522.  
  26523. procedure TWordLetterContent.Set_SenderCompany(const prop: WideString);
  26524. begin
  26525.   DefaultInterface.Set_SenderCompany(prop);
  26526. end;
  26527.  
  26528. function  TWordLetterContent.Get_SenderJobTitle: WideString;
  26529. begin
  26530.   Result := DefaultInterface.Get_SenderJobTitle;
  26531. end;
  26532.  
  26533. procedure TWordLetterContent.Set_SenderJobTitle(const prop: WideString);
  26534. begin
  26535.   DefaultInterface.Set_SenderJobTitle(prop);
  26536. end;
  26537.  
  26538. function  TWordLetterContent.Get_SenderInitials: WideString;
  26539. begin
  26540.   Result := DefaultInterface.Get_SenderInitials;
  26541. end;
  26542.  
  26543. procedure TWordLetterContent.Set_SenderInitials(const prop: WideString);
  26544. begin
  26545.   DefaultInterface.Set_SenderInitials(prop);
  26546. end;
  26547.  
  26548. function  TWordLetterContent.Get_InfoBlock: WordBool;
  26549. begin
  26550.   Result := DefaultInterface.Get_InfoBlock;
  26551. end;
  26552.  
  26553. procedure TWordLetterContent.Set_InfoBlock(prop: WordBool);
  26554. begin
  26555.   DefaultInterface.Set_InfoBlock(prop);
  26556. end;
  26557.  
  26558. function  TWordLetterContent.Get_RecipientCode: WideString;
  26559. begin
  26560.   Result := DefaultInterface.Get_RecipientCode;
  26561. end;
  26562.  
  26563. procedure TWordLetterContent.Set_RecipientCode(const prop: WideString);
  26564. begin
  26565.   DefaultInterface.Set_RecipientCode(prop);
  26566. end;
  26567.  
  26568. function  TWordLetterContent.Get_RecipientGender: WdSalutationGender;
  26569. begin
  26570.   Result := DefaultInterface.Get_RecipientGender;
  26571. end;
  26572.  
  26573. procedure TWordLetterContent.Set_RecipientGender(prop: WdSalutationGender);
  26574. begin
  26575.   DefaultInterface.Set_RecipientGender(prop);
  26576. end;
  26577.  
  26578. function  TWordLetterContent.Get_ReturnAddressShortForm: WideString;
  26579. begin
  26580.   Result := DefaultInterface.Get_ReturnAddressShortForm;
  26581. end;
  26582.  
  26583. procedure TWordLetterContent.Set_ReturnAddressShortForm(const prop: WideString);
  26584. begin
  26585.   DefaultInterface.Set_ReturnAddressShortForm(prop);
  26586. end;
  26587.  
  26588. function  TWordLetterContent.Get_SenderCity: WideString;
  26589. begin
  26590.   Result := DefaultInterface.Get_SenderCity;
  26591. end;
  26592.  
  26593. procedure TWordLetterContent.Set_SenderCity(const prop: WideString);
  26594. begin
  26595.   DefaultInterface.Set_SenderCity(prop);
  26596. end;
  26597.  
  26598. function  TWordLetterContent.Get_SenderCode: WideString;
  26599. begin
  26600.   Result := DefaultInterface.Get_SenderCode;
  26601. end;
  26602.  
  26603. procedure TWordLetterContent.Set_SenderCode(const prop: WideString);
  26604. begin
  26605.   DefaultInterface.Set_SenderCode(prop);
  26606. end;
  26607.  
  26608. function  TWordLetterContent.Get_SenderGender: WdSalutationGender;
  26609. begin
  26610.   Result := DefaultInterface.Get_SenderGender;
  26611. end;
  26612.  
  26613. procedure TWordLetterContent.Set_SenderGender(prop: WdSalutationGender);
  26614. begin
  26615.   DefaultInterface.Set_SenderGender(prop);
  26616. end;
  26617.  
  26618. function  TWordLetterContent.Get_SenderReference: WideString;
  26619. begin
  26620.   Result := DefaultInterface.Get_SenderReference;
  26621. end;
  26622.  
  26623. procedure TWordLetterContent.Set_SenderReference(const prop: WideString);
  26624. begin
  26625.   DefaultInterface.Set_SenderReference(prop);
  26626. end;
  26627.  
  26628. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  26629. constructor TWordLetterContentProperties.Create(AServer: TWordLetterContent);
  26630. begin
  26631.   inherited Create;
  26632.   FServer := AServer;
  26633. end;
  26634.  
  26635. function TWordLetterContentProperties.GetDefaultInterface: _LetterContent;
  26636. begin
  26637.   Result := FServer.DefaultInterface;
  26638. end;
  26639.  
  26640. function  TWordLetterContentProperties.Get_Application: WordApplication;
  26641. begin
  26642.   Result := DefaultInterface.Get_Application;
  26643. end;
  26644.  
  26645. function  TWordLetterContentProperties.Get_Creator: Integer;
  26646. begin
  26647.   Result := DefaultInterface.Get_Creator;
  26648. end;
  26649.  
  26650. function  TWordLetterContentProperties.Get_Parent: IDispatch;
  26651. begin
  26652.   Result := DefaultInterface.Get_Parent;
  26653. end;
  26654.  
  26655. function  TWordLetterContentProperties.Get_Duplicate: WordLetterContent;
  26656. begin
  26657.   Result := DefaultInterface.Get_Duplicate;
  26658. end;
  26659.  
  26660. function  TWordLetterContentProperties.Get_DateFormat: WideString;
  26661. begin
  26662.   Result := DefaultInterface.Get_DateFormat;
  26663. end;
  26664.  
  26665. procedure TWordLetterContentProperties.Set_DateFormat(const prop: WideString);
  26666. begin
  26667.   DefaultInterface.Set_DateFormat(prop);
  26668. end;
  26669.  
  26670. function  TWordLetterContentProperties.Get_IncludeHeaderFooter: WordBool;
  26671. begin
  26672.   Result := DefaultInterface.Get_IncludeHeaderFooter;
  26673. end;
  26674.  
  26675. procedure TWordLetterContentProperties.Set_IncludeHeaderFooter(prop: WordBool);
  26676. begin
  26677.   DefaultInterface.Set_IncludeHeaderFooter(prop);
  26678. end;
  26679.  
  26680. function  TWordLetterContentProperties.Get_PageDesign: WideString;
  26681. begin
  26682.   Result := DefaultInterface.Get_PageDesign;
  26683. end;
  26684.  
  26685. procedure TWordLetterContentProperties.Set_PageDesign(const prop: WideString);
  26686. begin
  26687.   DefaultInterface.Set_PageDesign(prop);
  26688. end;
  26689.  
  26690. function  TWordLetterContentProperties.Get_LetterStyle: WdLetterStyle;
  26691. begin
  26692.   Result := DefaultInterface.Get_LetterStyle;
  26693. end;
  26694.  
  26695. procedure TWordLetterContentProperties.Set_LetterStyle(prop: WdLetterStyle);
  26696. begin
  26697.   DefaultInterface.Set_LetterStyle(prop);
  26698. end;
  26699.  
  26700. function  TWordLetterContentProperties.Get_Letterhead: WordBool;
  26701. begin
  26702.   Result := DefaultInterface.Get_Letterhead;
  26703. end;
  26704.  
  26705. procedure TWordLetterContentProperties.Set_Letterhead(prop: WordBool);
  26706. begin
  26707.   DefaultInterface.Set_Letterhead(prop);
  26708. end;
  26709.  
  26710. function  TWordLetterContentProperties.Get_LetterheadLocation: WdLetterheadLocation;
  26711. begin
  26712.   Result := DefaultInterface.Get_LetterheadLocation;
  26713. end;
  26714.  
  26715. procedure TWordLetterContentProperties.Set_LetterheadLocation(prop: WdLetterheadLocation);
  26716. begin
  26717.   DefaultInterface.Set_LetterheadLocation(prop);
  26718. end;
  26719.  
  26720. function  TWordLetterContentProperties.Get_LetterheadSize: Single;
  26721. begin
  26722.   Result := DefaultInterface.Get_LetterheadSize;
  26723. end;
  26724.  
  26725. procedure TWordLetterContentProperties.Set_LetterheadSize(prop: Single);
  26726. begin
  26727.   DefaultInterface.Set_LetterheadSize(prop);
  26728. end;
  26729.  
  26730. function  TWordLetterContentProperties.Get_RecipientName: WideString;
  26731. begin
  26732.   Result := DefaultInterface.Get_RecipientName;
  26733. end;
  26734.  
  26735. procedure TWordLetterContentProperties.Set_RecipientName(const prop: WideString);
  26736. begin
  26737.   DefaultInterface.Set_RecipientName(prop);
  26738. end;
  26739.  
  26740. function  TWordLetterContentProperties.Get_RecipientAddress: WideString;
  26741. begin
  26742.   Result := DefaultInterface.Get_RecipientAddress;
  26743. end;
  26744.  
  26745. procedure TWordLetterContentProperties.Set_RecipientAddress(const prop: WideString);
  26746. begin
  26747.   DefaultInterface.Set_RecipientAddress(prop);
  26748. end;
  26749.  
  26750. function  TWordLetterContentProperties.Get_Salutation: WideString;
  26751. begin
  26752.   Result := DefaultInterface.Get_Salutation;
  26753. end;
  26754.  
  26755. procedure TWordLetterContentProperties.Set_Salutation(const prop: WideString);
  26756. begin
  26757.   DefaultInterface.Set_Salutation(prop);
  26758. end;
  26759.  
  26760. function  TWordLetterContentProperties.Get_SalutationType: WdSalutationType;
  26761. begin
  26762.   Result := DefaultInterface.Get_SalutationType;
  26763. end;
  26764.  
  26765. procedure TWordLetterContentProperties.Set_SalutationType(prop: WdSalutationType);
  26766. begin
  26767.   DefaultInterface.Set_SalutationType(prop);
  26768. end;
  26769.  
  26770. function  TWordLetterContentProperties.Get_RecipientReference: WideString;
  26771. begin
  26772.   Result := DefaultInterface.Get_RecipientReference;
  26773. end;
  26774.  
  26775. procedure TWordLetterContentProperties.Set_RecipientReference(const prop: WideString);
  26776. begin
  26777.   DefaultInterface.Set_RecipientReference(prop);
  26778. end;
  26779.  
  26780. function  TWordLetterContentProperties.Get_MailingInstructions: WideString;
  26781. begin
  26782.   Result := DefaultInterface.Get_MailingInstructions;
  26783. end;
  26784.  
  26785. procedure TWordLetterContentProperties.Set_MailingInstructions(const prop: WideString);
  26786. begin
  26787.   DefaultInterface.Set_MailingInstructions(prop);
  26788. end;
  26789.  
  26790. function  TWordLetterContentProperties.Get_AttentionLine: WideString;
  26791. begin
  26792.   Result := DefaultInterface.Get_AttentionLine;
  26793. end;
  26794.  
  26795. procedure TWordLetterContentProperties.Set_AttentionLine(const prop: WideString);
  26796. begin
  26797.   DefaultInterface.Set_AttentionLine(prop);
  26798. end;
  26799.  
  26800. function  TWordLetterContentProperties.Get_Subject: WideString;
  26801. begin
  26802.   Result := DefaultInterface.Get_Subject;
  26803. end;
  26804.  
  26805. procedure TWordLetterContentProperties.Set_Subject(const prop: WideString);
  26806. begin
  26807.   DefaultInterface.Set_Subject(prop);
  26808. end;
  26809.  
  26810. function  TWordLetterContentProperties.Get_EnclosureNumber: Integer;
  26811. begin
  26812.   Result := DefaultInterface.Get_EnclosureNumber;
  26813. end;
  26814.  
  26815. procedure TWordLetterContentProperties.Set_EnclosureNumber(prop: Integer);
  26816. begin
  26817.   DefaultInterface.Set_EnclosureNumber(prop);
  26818. end;
  26819.  
  26820. function  TWordLetterContentProperties.Get_CCList: WideString;
  26821. begin
  26822.   Result := DefaultInterface.Get_CCList;
  26823. end;
  26824.  
  26825. procedure TWordLetterContentProperties.Set_CCList(const prop: WideString);
  26826. begin
  26827.   DefaultInterface.Set_CCList(prop);
  26828. end;
  26829.  
  26830. function  TWordLetterContentProperties.Get_ReturnAddress: WideString;
  26831. begin
  26832.   Result := DefaultInterface.Get_ReturnAddress;
  26833. end;
  26834.  
  26835. procedure TWordLetterContentProperties.Set_ReturnAddress(const prop: WideString);
  26836. begin
  26837.   DefaultInterface.Set_ReturnAddress(prop);
  26838. end;
  26839.  
  26840. function  TWordLetterContentProperties.Get_SenderName: WideString;
  26841. begin
  26842.   Result := DefaultInterface.Get_SenderName;
  26843. end;
  26844.  
  26845. procedure TWordLetterContentProperties.Set_SenderName(const prop: WideString);
  26846. begin
  26847.   DefaultInterface.Set_SenderName(prop);
  26848. end;
  26849.  
  26850. function  TWordLetterContentProperties.Get_Closing: WideString;
  26851. begin
  26852.   Result := DefaultInterface.Get_Closing;
  26853. end;
  26854.  
  26855. procedure TWordLetterContentProperties.Set_Closing(const prop: WideString);
  26856. begin
  26857.   DefaultInterface.Set_Closing(prop);
  26858. end;
  26859.  
  26860. function  TWordLetterContentProperties.Get_SenderCompany: WideString;
  26861. begin
  26862.   Result := DefaultInterface.Get_SenderCompany;
  26863. end;
  26864.  
  26865. procedure TWordLetterContentProperties.Set_SenderCompany(const prop: WideString);
  26866. begin
  26867.   DefaultInterface.Set_SenderCompany(prop);
  26868. end;
  26869.  
  26870. function  TWordLetterContentProperties.Get_SenderJobTitle: WideString;
  26871. begin
  26872.   Result := DefaultInterface.Get_SenderJobTitle;
  26873. end;
  26874.  
  26875. procedure TWordLetterContentProperties.Set_SenderJobTitle(const prop: WideString);
  26876. begin
  26877.   DefaultInterface.Set_SenderJobTitle(prop);
  26878. end;
  26879.  
  26880. function  TWordLetterContentProperties.Get_SenderInitials: WideString;
  26881. begin
  26882.   Result := DefaultInterface.Get_SenderInitials;
  26883. end;
  26884.  
  26885. procedure TWordLetterContentProperties.Set_SenderInitials(const prop: WideString);
  26886. begin
  26887.   DefaultInterface.Set_SenderInitials(prop);
  26888. end;
  26889.  
  26890. function  TWordLetterContentProperties.Get_InfoBlock: WordBool;
  26891. begin
  26892.   Result := DefaultInterface.Get_InfoBlock;
  26893. end;
  26894.  
  26895. procedure TWordLetterContentProperties.Set_InfoBlock(prop: WordBool);
  26896. begin
  26897.   DefaultInterface.Set_InfoBlock(prop);
  26898. end;
  26899.  
  26900. function  TWordLetterContentProperties.Get_RecipientCode: WideString;
  26901. begin
  26902.   Result := DefaultInterface.Get_RecipientCode;
  26903. end;
  26904.  
  26905. procedure TWordLetterContentProperties.Set_RecipientCode(const prop: WideString);
  26906. begin
  26907.   DefaultInterface.Set_RecipientCode(prop);
  26908. end;
  26909.  
  26910. function  TWordLetterContentProperties.Get_RecipientGender: WdSalutationGender;
  26911. begin
  26912.   Result := DefaultInterface.Get_RecipientGender;
  26913. end;
  26914.  
  26915. procedure TWordLetterContentProperties.Set_RecipientGender(prop: WdSalutationGender);
  26916. begin
  26917.   DefaultInterface.Set_RecipientGender(prop);
  26918. end;
  26919.  
  26920. function  TWordLetterContentProperties.Get_ReturnAddressShortForm: WideString;
  26921. begin
  26922.   Result := DefaultInterface.Get_ReturnAddressShortForm;
  26923. end;
  26924.  
  26925. procedure TWordLetterContentProperties.Set_ReturnAddressShortForm(const prop: WideString);
  26926. begin
  26927.   DefaultInterface.Set_ReturnAddressShortForm(prop);
  26928. end;
  26929.  
  26930. function  TWordLetterContentProperties.Get_SenderCity: WideString;
  26931. begin
  26932.   Result := DefaultInterface.Get_SenderCity;
  26933. end;
  26934.  
  26935. procedure TWordLetterContentProperties.Set_SenderCity(const prop: WideString);
  26936. begin
  26937.   DefaultInterface.Set_SenderCity(prop);
  26938. end;
  26939.  
  26940. function  TWordLetterContentProperties.Get_SenderCode: WideString;
  26941. begin
  26942.   Result := DefaultInterface.Get_SenderCode;
  26943. end;
  26944.  
  26945. procedure TWordLetterContentProperties.Set_SenderCode(const prop: WideString);
  26946. begin
  26947.   DefaultInterface.Set_SenderCode(prop);
  26948. end;
  26949.  
  26950. function  TWordLetterContentProperties.Get_SenderGender: WdSalutationGender;
  26951. begin
  26952.   Result := DefaultInterface.Get_SenderGender;
  26953. end;
  26954.  
  26955. procedure TWordLetterContentProperties.Set_SenderGender(prop: WdSalutationGender);
  26956. begin
  26957.   DefaultInterface.Set_SenderGender(prop);
  26958. end;
  26959.  
  26960. function  TWordLetterContentProperties.Get_SenderReference: WideString;
  26961. begin
  26962.   Result := DefaultInterface.Get_SenderReference;
  26963. end;
  26964.  
  26965. procedure TWordLetterContentProperties.Set_SenderReference(const prop: WideString);
  26966. begin
  26967.   DefaultInterface.Set_SenderReference(prop);
  26968. end;
  26969.  
  26970. {$ENDIF}
  26971.  
  26972. procedure Register;
  26973. begin
  26974.   RegisterComponents('Servers',[TWordApplication, TWordDocument, TWordFont, TWordParagraphFormat, 
  26975.     TWordLetterContent]);
  26976. end;
  26977.  
  26978. end.
  26979.