unit Word_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// PASTLWTR : 1.2
// File generated on 30.05.2006 21:07:48 from Type Library described below.

// ************************************************************************  //
// Type Lib: D:\Program Files\MSOfficeXP\Office10\MSWORD.OLB (1)
// LIBID: {00020905-0000-0000-C000-000000000046}
// LCID: 0
// Helpfile: D:\Program Files\MSOfficeXP\Office10\VBAWD10.CHM
// HelpString: Microsoft Word 10.0 Object Library
// DepndLst: 
//   (1) v2.0 stdole, (D:\WINDOWS.000\SYSTEM\stdole2.tlb)
//   (2) v2.2 Office, (D:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL)
//   (3) v5.3 VBIDE, (D:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB)
// Errors:
//   Hint: Symbol 'Selection' renamed to 'WordSelection'
//   Hint: Symbol 'Global' renamed to 'WordGlobal'
//   Hint: Symbol 'Application' renamed to 'WordApplication'
//   Hint: Symbol 'Document' renamed to 'WordDocument'
//   Hint: Symbol 'Font' renamed to 'WordFont'
//   Hint: Symbol 'ParagraphFormat' renamed to 'WordParagraphFormat'
//   Hint: Symbol 'OLEControl' renamed to 'WordOLEControl'
//   Hint: Symbol 'LetterContent' renamed to 'WordLetterContent'
//   Hint: Enum Member 'emptyenum' of 'WdCharacterCaseHID' changed to 'emptyenum_'
//   Hint: Enum Member 'emptyenum' of 'WdParagraphAlignmentHID' changed to 'emptyenum__'
//   Hint: Enum Member 'emptyenum' of 'WdListNumberStyleHID' changed to 'emptyenum___'
//   Hint: Enum Member 'emptyenum' of 'WdNoteNumberStyleHID' changed to 'emptyenum____'
//   Hint: Enum Member 'emptyenum' of 'WdCaptionNumberStyleHID' changed to 'emptyenum_____'
//   Hint: Enum Member 'emptyenum' of 'WdPageNumberStyleHID' changed to 'emptyenum______'
//   Hint: Enum Member 'emptyenum' of 'WdStatisticHID' changed to 'emptyenum_______'
//   Hint: Enum Member 'emptyenum' of 'WdTabLeaderHID' changed to 'emptyenum________'
//   Hint: Enum Member 'emptyenum' of 'WdMeasurementUnitsHID' changed to 'emptyenum_________'
//   Hint: Enum Member 'emptyenum' of 'WdSortFieldTypeHID' changed to 'emptyenum__________'
//   Hint: Enum Member 'emptyenum' of 'WdWordDialogHID' changed to 'emptyenum___________'
//   Hint: Enum Member 'emptyenum' of 'WdHelpTypeHID' changed to 'emptyenum____________'
//   Hint: Enum Member 'emptyenum' of 'WdDictionaryTypeHID' changed to 'emptyenum_____________'
//   Hint: Enum Member 'emptyenum' of 'WdTextOrientationHID' changed to 'emptyenum______________'
//   Hint: Symbol 'System' renamed to 'System_'
//   Hint: Parameter 'Object' of _Application.IsObjectValid changed to 'Object_'
//   Hint: Parameter 'To' of _Application.PrintOutOld changed to 'To_'
//   Hint: Member 'Repeat' of '_Application' changed to 'Repeat_'
//   Hint: Parameter 'Object' of _Application.OrganizerCopy changed to 'Object_'
//   Hint: Parameter 'Object' of _Application.OrganizerDelete changed to 'Object_'
//   Hint: Parameter 'Object' of _Application.OrganizerRename changed to 'Object_'
//   Hint: Parameter 'String' of _Application.CheckGrammar changed to 'String_'
//   Hint: Parameter 'String' of _Application.CleanString changed to 'String_'
//   Hint: Parameter 'To' of _Application.PrintOut2000 changed to 'To_'
//   Hint: Parameter 'To' of _Application.PrintOut changed to 'To_'
//   Hint: Symbol 'System' renamed to 'System_'
//   Hint: Parameter 'Object' of _Global.IsObjectValid changed to 'Object_'
//   Hint: Member 'Repeat' of '_Global' changed to 'Repeat_'
//   Hint: Parameter 'String' of _Global.CleanString changed to 'String_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Parameter 'Type' of _Document.Compatibility changed to 'Type_'
//   Hint: Parameter 'Type' of _Document.Compatibility changed to 'Type_'
//   Hint: Parameter 'To' of _Document.PrintOutOld changed to 'To_'
//   Hint: Parameter 'End' of _Document.Range changed to 'End_'
//   Hint: Member 'GoTo' of '_Document' changed to 'GoTo_'
//   Hint: Parameter 'Type' of _Document.Protect changed to 'Type_'
//   Hint: Parameter 'Type' of _Document.EditionOptions changed to 'Type_'
//   Hint: Parameter 'To' of _Document.PrintOut2000 changed to 'To_'
//   Hint: Parameter 'To' of _Document.PrintOut changed to 'To_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Member 'End' of 'Bookmark' changed to 'End_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Parameter 'To' of Window.PrintOutOld changed to 'To_'
//   Hint: Parameter 'To' of Window.PrintOut2000 changed to 'To_'
//   Hint: Parameter 'To' of Window.PrintOut changed to 'To_'
//   Hint: Member 'End' of 'Range' changed to 'End_'
//   Hint: Member 'Case' of 'Range' changed to 'Case_'
//   Hint: Parameter 'Type' of Range.Information changed to 'Type_'
//   Hint: Parameter 'End' of Range.SetRange changed to 'End_'
//   Hint: Parameter 'Unit' of Range.Next changed to 'Unit_'
//   Hint: Parameter 'Unit' of Range.Previous changed to 'Unit_'
//   Hint: Parameter 'Unit' of Range.StartOf changed to 'Unit_'
//   Hint: Parameter 'Unit' of Range.EndOf changed to 'Unit_'
//   Hint: Parameter 'Unit' of Range.Move changed to 'Unit_'
//   Hint: Parameter 'Unit' of Range.MoveStart changed to 'Unit_'
//   Hint: Parameter 'Unit' of Range.MoveEnd changed to 'Unit_'
//   Hint: Parameter 'Type' of Range.InsertBreak changed to 'Type_'
//   Hint: Parameter 'Unit' of Range.Delete changed to 'Unit_'
//   Hint: Parameter 'Unit' of Range.Expand changed to 'Unit_'
//   Hint: Parameter 'Label' of Range.InsertCaption changed to 'Label_'
//   Hint: Member 'GoTo' of 'Range' changed to 'GoTo_'
//   Hint: Parameter 'To' of Range.InsertDatabase changed to 'To_'
//   Hint: Parameter 'Raise' of Range.PhoneticGuide changed to 'Raise_'
//   Hint: Parameter 'Type' of Range.PasteAndFormat changed to 'Type_'
//   Hint: Member 'Label' of 'OLEFormat' changed to 'Label_'
//   Hint: Member 'Object' of 'OLEFormat' changed to 'Object_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Parameter 'Type' of Fields.Add changed to 'Type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Parameter 'Type' of Styles.Add changed to 'Type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Parameter 'Type' of FormFields.Add changed to 'Type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Parameter 'Type' of TextInput.EditType changed to 'Type_'
//   Hint: Parameter 'Type' of MailMerge.UseAddressBook changed to 'Type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Member 'End' of 'Selection' changed to 'End_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Parameter 'Type' of Selection.Information changed to 'Type_'
//   Hint: Parameter 'End' of Selection.SetRange changed to 'End_'
//   Hint: Parameter 'Unit' of Selection.Next changed to 'Unit_'
//   Hint: Parameter 'Unit' of Selection.Previous changed to 'Unit_'
//   Hint: Parameter 'Unit' of Selection.StartOf changed to 'Unit_'
//   Hint: Parameter 'Unit' of Selection.EndOf changed to 'Unit_'
//   Hint: Parameter 'Unit' of Selection.Move changed to 'Unit_'
//   Hint: Parameter 'Unit' of Selection.MoveStart changed to 'Unit_'
//   Hint: Parameter 'Unit' of Selection.MoveEnd changed to 'Unit_'
//   Hint: Parameter 'Type' of Selection.InsertBreak changed to 'Type_'
//   Hint: Parameter 'Unit' of Selection.Delete changed to 'Unit_'
//   Hint: Parameter 'Unit' of Selection.Expand changed to 'Unit_'
//   Hint: Parameter 'Label' of Selection.InsertCaption changed to 'Label_'
//   Hint: Member 'GoTo' of 'Selection' changed to 'GoTo_'
//   Hint: Parameter 'Unit' of Selection.MoveLeft changed to 'Unit_'
//   Hint: Parameter 'Unit' of Selection.MoveRight changed to 'Unit_'
//   Hint: Parameter 'Unit' of Selection.MoveUp changed to 'Unit_'
//   Hint: Parameter 'Unit' of Selection.MoveDown changed to 'Unit_'
//   Hint: Parameter 'Unit' of Selection.HomeKey changed to 'Unit_'
//   Hint: Parameter 'Unit' of Selection.EndKey changed to 'Unit_'
//   Hint: Parameter 'Type' of Selection.PasteAndFormat changed to 'Type_'
//   Hint: Parameter 'Type' of Indexes.AddOld changed to 'Type_'
//   Hint: Parameter 'Type' of Indexes.Add changed to 'Type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Member 'Protected' of 'KeyBinding' changed to 'Protected_'
//   Hint: Symbol 'ClassName' renamed to '_className'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Parameter 'Type' of Shapes.AddCallout changed to 'Type_'
//   Hint: Parameter 'Type' of Shapes.AddConnector changed to 'Type_'
//   Hint: Parameter 'Type' of Shapes.AddShape changed to 'Type_'
//   Hint: Parameter 'Type' of Shapes.AddDiagram changed to 'Type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Parameter 'Type' of Diagram.Convert changed to 'Type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Symbol 'Type' renamed to 'type_'
//   Hint: Parameter 'Type' of CanvasShapes.AddCallout changed to 'Type_'
//   Hint: Parameter 'Type' of CanvasShapes.AddConnector changed to 'Type_'
//   Hint: Parameter 'Type' of CanvasShapes.AddShape changed to 'Type_'
// ************************************************************************ //
// *************************************************************************//
// NOTE:                                                                      
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
// which return objects that may need to be explicitly created via a function 
// call prior to any access via the property. These items have been disabled  
// in order to prevent accidental use from within the object inspector. You   
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively   
// removing them from the $IFDEF blocks. However, such items must still be    
// programmatically created via a method of the appropriate CoClass before    
// they can be used.                                                          
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, Office_TLB, OleServer, StdVCL, Variants, 
VBIDE_TLB;
  

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  WordMajorVersion = 8;
  WordMinorVersion = 2;

  LIBID_Word: TGUID = '{00020905-0000-0000-C000-000000000046}';

  IID__Application: TGUID = '{00020970-0000-0000-C000-000000000046}';
  IID__Global: TGUID = '{000209B9-0000-0000-C000-000000000046}';
  IID_FontNames: TGUID = '{0002096F-0000-0000-C000-000000000046}';
  IID_Languages: TGUID = '{0002096E-0000-0000-C000-000000000046}';
  IID_Language: TGUID = '{0002096D-0000-0000-C000-000000000046}';
  IID_Documents: TGUID = '{0002096C-0000-0000-C000-000000000046}';
  IID__Document: TGUID = '{0002096B-0000-0000-C000-000000000046}';
  IID_Template: TGUID = '{0002096A-0000-0000-C000-000000000046}';
  IID_Templates: TGUID = '{000209A2-0000-0000-C000-000000000046}';
  IID_RoutingSlip: TGUID = '{00020969-0000-0000-C000-000000000046}';
  IID_Bookmark: TGUID = '{00020968-0000-0000-C000-000000000046}';
  IID_Bookmarks: TGUID = '{00020967-0000-0000-C000-000000000046}';
  IID_Variable: TGUID = '{00020966-0000-0000-C000-000000000046}';
  IID_Variables: TGUID = '{00020965-0000-0000-C000-000000000046}';
  IID_RecentFile: TGUID = '{00020964-0000-0000-C000-000000000046}';
  IID_RecentFiles: TGUID = '{00020963-0000-0000-C000-000000000046}';
  IID_Window: TGUID = '{00020962-0000-0000-C000-000000000046}';
  IID_Windows: TGUID = '{00020961-0000-0000-C000-000000000046}';
  IID_Pane: TGUID = '{00020960-0000-0000-C000-000000000046}';
  IID_Panes: TGUID = '{0002095F-0000-0000-C000-000000000046}';
  IID_Range: TGUID = '{0002095E-0000-0000-C000-000000000046}';
  IID_ListFormat: TGUID = '{000209C0-0000-0000-C000-000000000046}';
  IID_Find: TGUID = '{000209B0-0000-0000-C000-000000000046}';
  IID_Replacement: TGUID = '{000209B1-0000-0000-C000-000000000046}';
  IID_Characters: TGUID = '{0002095D-0000-0000-C000-000000000046}';
  IID_Words: TGUID = '{0002095C-0000-0000-C000-000000000046}';
  IID_Sentences: TGUID = '{0002095B-0000-0000-C000-000000000046}';
  IID_Sections: TGUID = '{0002095A-0000-0000-C000-000000000046}';
  IID_Section: TGUID = '{00020959-0000-0000-C000-000000000046}';
  IID_Paragraphs: TGUID = '{00020958-0000-0000-C000-000000000046}';
  IID_Paragraph: TGUID = '{00020957-0000-0000-C000-000000000046}';
  IID_DropCap: TGUID = '{00020956-0000-0000-C000-000000000046}';
  IID_TabStops: TGUID = '{00020955-0000-0000-C000-000000000046}';
  IID_TabStop: TGUID = '{00020954-0000-0000-C000-000000000046}';
  IID__ParagraphFormat: TGUID = '{00020953-0000-0000-C000-000000000046}';
  IID__Font: TGUID = '{00020952-0000-0000-C000-000000000046}';
  IID_Table: TGUID = '{00020951-0000-0000-C000-000000000046}';
  IID_Row: TGUID = '{00020950-0000-0000-C000-000000000046}';
  IID_Column: TGUID = '{0002094F-0000-0000-C000-000000000046}';
  IID_Cell: TGUID = '{0002094E-0000-0000-C000-000000000046}';
  IID_Tables: TGUID = '{0002094D-0000-0000-C000-000000000046}';
  IID_Rows: TGUID = '{0002094C-0000-0000-C000-000000000046}';
  IID_Columns: TGUID = '{0002094B-0000-0000-C000-000000000046}';
  IID_Cells: TGUID = '{0002094A-0000-0000-C000-000000000046}';
  IID_AutoCorrect: TGUID = '{00020949-0000-0000-C000-000000000046}';
  IID_AutoCorrectEntries: TGUID = '{00020948-0000-0000-C000-000000000046}';
  IID_AutoCorrectEntry: TGUID = '{00020947-0000-0000-C000-000000000046}';
  IID_FirstLetterExceptions: TGUID = '{00020946-0000-0000-C000-000000000046}';
  IID_FirstLetterException: TGUID = '{00020945-0000-0000-C000-000000000046}';
  IID_TwoInitialCapsExceptions: TGUID = '{00020944-0000-0000-C000-000000000046}';
  IID_TwoInitialCapsException: TGUID = '{00020943-0000-0000-C000-000000000046}';
  IID_Footnotes: TGUID = '{00020942-0000-0000-C000-000000000046}';
  IID_Endnotes: TGUID = '{00020941-0000-0000-C000-000000000046}';
  IID_Comments: TGUID = '{00020940-0000-0000-C000-000000000046}';
  IID_Footnote: TGUID = '{0002093F-0000-0000-C000-000000000046}';
  IID_Endnote: TGUID = '{0002093E-0000-0000-C000-000000000046}';
  IID_Comment: TGUID = '{0002093D-0000-0000-C000-000000000046}';
  IID_Borders: TGUID = '{0002093C-0000-0000-C000-000000000046}';
  IID_Border: TGUID = '{0002093B-0000-0000-C000-000000000046}';
  IID_Shading: TGUID = '{0002093A-0000-0000-C000-000000000046}';
  IID_TextRetrievalMode: TGUID = '{00020939-0000-0000-C000-000000000046}';
  IID_AutoTextEntries: TGUID = '{00020937-0000-0000-C000-000000000046}';
  IID_AutoTextEntry: TGUID = '{00020936-0000-0000-C000-000000000046}';
  IID_System: TGUID = '{00020935-0000-0000-C000-000000000046}';
  IID_OLEFormat: TGUID = '{00020933-0000-0000-C000-000000000046}';
  IID_LinkFormat: TGUID = '{00020931-0000-0000-C000-000000000046}';
  IID__OLEControl: TGUID = '{000209A4-0000-0000-C000-000000000046}';
  IID_Fields: TGUID = '{00020930-0000-0000-C000-000000000046}';
  IID_Field: TGUID = '{0002092F-0000-0000-C000-000000000046}';
  IID_Browser: TGUID = '{0002092E-0000-0000-C000-000000000046}';
  IID_Styles: TGUID = '{0002092D-0000-0000-C000-000000000046}';
  IID_Style: TGUID = '{0002092C-0000-0000-C000-000000000046}';
  IID_Frames: TGUID = '{0002092B-0000-0000-C000-000000000046}';
  IID_Frame: TGUID = '{0002092A-0000-0000-C000-000000000046}';
  IID_FormFields: TGUID = '{00020929-0000-0000-C000-000000000046}';
  IID_FormField: TGUID = '{00020928-0000-0000-C000-000000000046}';
  IID_TextInput: TGUID = '{00020927-0000-0000-C000-000000000046}';
  IID_CheckBox: TGUID = '{00020926-0000-0000-C000-000000000046}';
  IID_DropDown: TGUID = '{00020925-0000-0000-C000-000000000046}';
  IID_ListEntries: TGUID = '{00020924-0000-0000-C000-000000000046}';
  IID_ListEntry: TGUID = '{00020923-0000-0000-C000-000000000046}';
  IID_TablesOfFigures: TGUID = '{00020922-0000-0000-C000-000000000046}';
  IID_TableOfFigures: TGUID = '{00020921-0000-0000-C000-000000000046}';
  IID_MailMerge: TGUID = '{00020920-0000-0000-C000-000000000046}';
  IID_MailMergeFields: TGUID = '{0002091F-0000-0000-C000-000000000046}';
  IID_MailMergeField: TGUID = '{0002091E-0000-0000-C000-000000000046}';
  IID_MailMergeDataSource: TGUID = '{0002091D-0000-0000-C000-000000000046}';
  IID_MailMergeFieldNames: TGUID = '{0002091C-0000-0000-C000-000000000046}';
  IID_MailMergeFieldName: TGUID = '{0002091B-0000-0000-C000-000000000046}';
  IID_MailMergeDataFields: TGUID = '{0002091A-0000-0000-C000-000000000046}';
  IID_MailMergeDataField: TGUID = '{00020919-0000-0000-C000-000000000046}';
  IID_Envelope: TGUID = '{00020918-0000-0000-C000-000000000046}';
  IID_MailingLabel: TGUID = '{00020917-0000-0000-C000-000000000046}';
  IID_CustomLabels: TGUID = '{00020916-0000-0000-C000-000000000046}';
  IID_CustomLabel: TGUID = '{00020915-0000-0000-C000-000000000046}';
  IID_TablesOfContents: TGUID = '{00020914-0000-0000-C000-000000000046}';
  IID_TableOfContents: TGUID = '{00020913-0000-0000-C000-000000000046}';
  IID_TablesOfAuthorities: TGUID = '{00020912-0000-0000-C000-000000000046}';
  IID_TableOfAuthorities: TGUID = '{00020911-0000-0000-C000-000000000046}';
  IID_Dialogs: TGUID = '{00020910-0000-0000-C000-000000000046}';
  IID_Dialog: TGUID = '{000209B8-0000-0000-C000-000000000046}';
  IID_PageSetup: TGUID = '{00020971-0000-0000-C000-000000000046}';
  IID_LineNumbering: TGUID = '{00020972-0000-0000-C000-000000000046}';
  IID_TextColumns: TGUID = '{00020973-0000-0000-C000-000000000046}';
  IID_TextColumn: TGUID = '{00020974-0000-0000-C000-000000000046}';
  IID_WordSelection: TGUID = '{00020975-0000-0000-C000-000000000046}';
  IID_TablesOfAuthoritiesCategories: TGUID = '{00020976-0000-0000-C000-000000000046}';
  IID_TableOfAuthoritiesCategory: TGUID = '{00020977-0000-0000-C000-000000000046}';
  IID_CaptionLabels: TGUID = '{00020978-0000-0000-C000-000000000046}';
  IID_CaptionLabel: TGUID = '{00020979-0000-0000-C000-000000000046}';
  IID_AutoCaptions: TGUID = '{0002097A-0000-0000-C000-000000000046}';
  IID_AutoCaption: TGUID = '{0002097B-0000-0000-C000-000000000046}';
  IID_Indexes: TGUID = '{0002097C-0000-0000-C000-000000000046}';
  IID_Index: TGUID = '{0002097D-0000-0000-C000-000000000046}';
  IID_AddIn: TGUID = '{0002097E-0000-0000-C000-000000000046}';
  IID_AddIns: TGUID = '{0002097F-0000-0000-C000-000000000046}';
  IID_Revisions: TGUID = '{00020980-0000-0000-C000-000000000046}';
  IID_Revision: TGUID = '{00020981-0000-0000-C000-000000000046}';
  IID_Task: TGUID = '{00020982-0000-0000-C000-000000000046}';
  IID_Tasks: TGUID = '{00020983-0000-0000-C000-000000000046}';
  IID_HeadersFooters: TGUID = '{00020984-0000-0000-C000-000000000046}';
  IID_HeaderFooter: TGUID = '{00020985-0000-0000-C000-000000000046}';
  IID_PageNumbers: TGUID = '{00020986-0000-0000-C000-000000000046}';
  IID_PageNumber: TGUID = '{00020987-0000-0000-C000-000000000046}';
  IID_Subdocuments: TGUID = '{00020988-0000-0000-C000-000000000046}';
  IID_Subdocument: TGUID = '{00020989-0000-0000-C000-000000000046}';
  IID_HeadingStyles: TGUID = '{0002098A-0000-0000-C000-000000000046}';
  IID_HeadingStyle: TGUID = '{0002098B-0000-0000-C000-000000000046}';
  IID_StoryRanges: TGUID = '{0002098C-0000-0000-C000-000000000046}';
  IID_ListLevel: TGUID = '{0002098D-0000-0000-C000-000000000046}';
  IID_ListLevels: TGUID = '{0002098E-0000-0000-C000-000000000046}';
  IID_ListTemplate: TGUID = '{0002098F-0000-0000-C000-000000000046}';
  IID_ListTemplates: TGUID = '{00020990-0000-0000-C000-000000000046}';
  IID_ListParagraphs: TGUID = '{00020991-0000-0000-C000-000000000046}';
  IID_List: TGUID = '{00020992-0000-0000-C000-000000000046}';
  IID_Lists: TGUID = '{00020993-0000-0000-C000-000000000046}';
  IID_ListGallery: TGUID = '{00020994-0000-0000-C000-000000000046}';
  IID_ListGalleries: TGUID = '{00020995-0000-0000-C000-000000000046}';
  IID_KeyBindings: TGUID = '{00020996-0000-0000-C000-000000000046}';
  IID_KeysBoundTo: TGUID = '{00020997-0000-0000-C000-000000000046}';
  IID_KeyBinding: TGUID = '{00020998-0000-0000-C000-000000000046}';
  IID_FileConverter: TGUID = '{00020999-0000-0000-C000-000000000046}';
  IID_FileConverters: TGUID = '{0002099A-0000-0000-C000-000000000046}';
  IID_SynonymInfo: TGUID = '{0002099B-0000-0000-C000-000000000046}';
  IID_Hyperlinks: TGUID = '{0002099C-0000-0000-C000-000000000046}';
  IID_Hyperlink: TGUID = '{0002099D-0000-0000-C000-000000000046}';
  IID_Shapes: TGUID = '{0002099F-0000-0000-C000-000000000046}';
  IID_ShapeRange: TGUID = '{000209B5-0000-0000-C000-000000000046}';
  IID_GroupShapes: TGUID = '{000209B6-0000-0000-C000-000000000046}';
  IID_Shape: TGUID = '{000209A0-0000-0000-C000-000000000046}';
  IID_TextFrame: TGUID = '{000209B2-0000-0000-C000-000000000046}';
  IID__LetterContent: TGUID = '{000209A1-0000-0000-C000-000000000046}';
  IID_View: TGUID = '{000209A5-0000-0000-C000-000000000046}';
  IID_Zoom: TGUID = '{000209A6-0000-0000-C000-000000000046}';
  IID_Zooms: TGUID = '{000209A7-0000-0000-C000-000000000046}';
  IID_InlineShape: TGUID = '{000209A8-0000-0000-C000-000000000046}';
  IID_InlineShapes: TGUID = '{000209A9-0000-0000-C000-000000000046}';
  IID_SpellingSuggestions: TGUID = '{000209AA-0000-0000-C000-000000000046}';
  IID_SpellingSuggestion: TGUID = '{000209AB-0000-0000-C000-000000000046}';
  IID_Dictionaries: TGUID = '{000209AC-0000-0000-C000-000000000046}';
  IID_HangulHanjaConversionDictionaries: TGUID = '{000209E0-0000-0000-C000-000000000046}';
  IID_Dictionary: TGUID = '{000209AD-0000-0000-C000-000000000046}';
  IID_ReadabilityStatistics: TGUID = '{000209AE-0000-0000-C000-000000000046}';
  IID_ReadabilityStatistic: TGUID = '{000209AF-0000-0000-C000-000000000046}';
  IID_Versions: TGUID = '{000209B3-0000-0000-C000-000000000046}';
  IID_Version: TGUID = '{000209B4-0000-0000-C000-000000000046}';
  IID_Options: TGUID = '{000209B7-0000-0000-C000-000000000046}';
  IID_MailMessage: TGUID = '{000209BA-0000-0000-C000-000000000046}';
  IID_ProofreadingErrors: TGUID = '{000209BB-0000-0000-C000-000000000046}';
  IID_Mailer: TGUID = '{000209BD-0000-0000-C000-000000000046}';
  IID_WrapFormat: TGUID = '{000209C3-0000-0000-C000-000000000046}';
  IID_HangulAndAlphabetExceptions: TGUID = '{000209D1-0000-0000-C000-000000000046}';
  IID_HangulAndAlphabetException: TGUID = '{000209D2-0000-0000-C000-000000000046}';
  IID_Adjustments: TGUID = '{000209C4-0000-0000-C000-000000000046}';
  IID_CalloutFormat: TGUID = '{000209C5-0000-0000-C000-000000000046}';
  IID_ColorFormat: TGUID = '{000209C6-0000-0000-C000-000000000046}';
  IID_ConnectorFormat: TGUID = '{000209C7-0000-0000-C000-000000000046}';
  IID_FillFormat: TGUID = '{000209C8-0000-0000-C000-000000000046}';
  IID_FreeformBuilder: TGUID = '{000209C9-0000-0000-C000-000000000046}';
  IID_LineFormat: TGUID = '{000209CA-0000-0000-C000-000000000046}';
  IID_PictureFormat: TGUID = '{000209CB-0000-0000-C000-000000000046}';
  IID_ShadowFormat: TGUID = '{000209CC-0000-0000-C000-000000000046}';
  IID_ShapeNode: TGUID = '{000209CD-0000-0000-C000-000000000046}';
  IID_ShapeNodes: TGUID = '{000209CE-0000-0000-C000-000000000046}';
  IID_TextEffectFormat: TGUID = '{000209CF-0000-0000-C000-000000000046}';
  IID_ThreeDFormat: TGUID = '{000209D0-0000-0000-C000-000000000046}';
  DIID_ApplicationEvents: TGUID = '{000209F7-0000-0000-C000-000000000046}';
  CLASS_WordGlobal: TGUID = '{000209F0-0000-0000-C000-000000000046}';
  DIID_ApplicationEvents2: TGUID = '{000209FE-0000-0000-C000-000000000046}';
  DIID_DocumentEvents: TGUID = '{000209F6-0000-0000-C000-000000000046}';
  CLASS_WordDocument: TGUID = '{00020906-0000-0000-C000-000000000046}';
  CLASS_WordFont: TGUID = '{000209F5-0000-0000-C000-000000000046}';
  CLASS_WordParagraphFormat: TGUID = '{000209F4-0000-0000-C000-000000000046}';
  DIID_OCXEvents: TGUID = '{000209F3-0000-0000-C000-000000000046}';
  CLASS_WordOLEControl: TGUID = '{000209F2-0000-0000-C000-000000000046}';
  CLASS_WordLetterContent: TGUID = '{000209F1-0000-0000-C000-000000000046}';
  IID_IApplicationEvents: TGUID = '{000209F7-0001-0000-C000-000000000046}';
  IID_IApplicationEvents2: TGUID = '{000209FE-0001-0000-C000-000000000046}';
  DIID_ApplicationEvents3: TGUID = '{00020A00-0000-0000-C000-000000000046}';
  IID_EmailAuthor: TGUID = '{000209D7-0000-0000-C000-000000000046}';
  IID_EmailOptions: TGUID = '{000209DB-0000-0000-C000-000000000046}';
  IID_EmailSignature: TGUID = '{000209DC-0000-0000-C000-000000000046}';
  IID_Email: TGUID = '{000209DD-0000-0000-C000-000000000046}';
  IID_HorizontalLineFormat: TGUID = '{000209DE-0000-0000-C000-000000000046}';
  IID_Frameset: TGUID = '{000209E2-0000-0000-C000-000000000046}';
  IID_DefaultWebOptions: TGUID = '{000209E3-0000-0000-C000-000000000046}';
  IID_WebOptions: TGUID = '{000209E4-0000-0000-C000-000000000046}';
  IID_OtherCorrectionsExceptions: TGUID = '{000209DF-0000-0000-C000-000000000046}';
  IID_OtherCorrectionsException: TGUID = '{000209E1-0000-0000-C000-000000000046}';
  IID_EmailSignatureEntries: TGUID = '{000209E5-0000-0000-C000-000000000046}';
  IID_EmailSignatureEntry: TGUID = '{000209E6-0000-0000-C000-000000000046}';
  IID_HTMLDivision: TGUID = '{000209E7-0000-0000-C000-000000000046}';
  IID_HTMLDivisions: TGUID = '{000209E8-0000-0000-C000-000000000046}';
  IID_DiagramNode: TGUID = '{000209E9-0000-0000-C000-000000000046}';
  IID_DiagramNodeChildren: TGUID = '{000209EA-0000-0000-C000-000000000046}';
  IID_DiagramNodes: TGUID = '{000209EB-0000-0000-C000-000000000046}';
  IID_Diagram: TGUID = '{000209EC-0000-0000-C000-000000000046}';
  IID_CustomProperty: TGUID = '{B923FDE0-F08C-11D3-91B0-00105A0A19FD}';
  IID_CustomProperties: TGUID = '{B923FDE1-F08C-11D3-91B0-00105A0A19FD}';
  IID_SmartTag: TGUID = '{000209ED-0000-0000-C000-000000000046}';
  IID_SmartTags: TGUID = '{000209EE-0000-0000-C000-000000000046}';
  IID_StyleSheet: TGUID = '{000209EF-0000-0000-C000-000000000046}';
  IID_StyleSheets: TGUID = '{07B7CC7E-E66C-11D3-9454-00105AA31A08}';
  IID_MappedDataField: TGUID = '{5D311669-EA51-11D3-87CC-00105AA31A34}';
  IID_MappedDataFields: TGUID = '{799A6814-EA41-11D3-87CC-00105AA31A34}';
  IID_CanvasShapes: TGUID = '{396F9073-F9FD-11D3-8EA0-0050049A1A01}';
  IID_TableStyle: TGUID = '{B7564E97-0519-4C68-B400-3803E7C63242}';
  IID_ConditionalStyle: TGUID = '{1498F56D-ED33-41F9-B37B-EF30E50B08AC}';
  IID_FootnoteOptions: TGUID = '{BEA85A24-D7DA-4F3D-B58C-ED90FB01D615}';
  IID_EndnoteOptions: TGUID = '{BF043168-F4DE-4E7C-B206-741A8B3EF71A}';
  IID_Reviewers: TGUID = '{12DCDC9A-5418-48A3-BBE6-EB57BAE275E8}';
  IID_Reviewer: TGUID = '{47CEF4AE-DC32-4220-8AA5-19CCC0E6633A}';
  IID_TaskPane: TGUID = '{B9F1A4E2-0D0A-43B7-8495-139E7ACBD840}';
  IID_TaskPanes: TGUID = '{E6AAEC05-E543-4085-BA92-9BF7D2474F5C}';
  IID_IApplicationEvents3: TGUID = '{00020A00-0001-0000-C000-000000000046}';
  CLASS_WordApplication: TGUID = '{000209FF-0000-0000-C000-000000000046}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
// Constants for enum WdMailSystem
type
  WdMailSystem = TOleEnum;
const
  wdNoMailSystem = $00000000;
  wdMAPI = $00000001;
  wdPowerTalk = $00000002;
  wdMAPIandPowerTalk = $00000003;

// Constants for enum WdTemplateType
type
  WdTemplateType = TOleEnum;
const
  wdNormalTemplate = $00000000;
  wdGlobalTemplate = $00000001;
  wdAttachedTemplate = $00000002;

// Constants for enum WdContinue
type
  WdContinue = TOleEnum;
const
  wdContinueDisabled = $00000000;
  wdResetList = $00000001;
  wdContinueList = $00000002;

// Constants for enum WdIMEMode
type
  WdIMEMode = TOleEnum;
const
  wdIMEModeNoControl = $00000000;
  wdIMEModeOn = $00000001;
  wdIMEModeOff = $00000002;
  wdIMEModeHiragana = $00000004;
  wdIMEModeKatakana = $00000005;
  wdIMEModeKatakanaHalf = $00000006;
  wdIMEModeAlphaFull = $00000007;
  wdIMEModeAlpha = $00000008;
  wdIMEModeHangulFull = $00000009;
  wdIMEModeHangul = $0000000A;

// Constants for enum WdBaselineAlignment
type
  WdBaselineAlignment = TOleEnum;
const
  wdBaselineAlignTop = $00000000;
  wdBaselineAlignCenter = $00000001;
  wdBaselineAlignBaseline = $00000002;
  wdBaselineAlignFarEast50 = $00000003;
  wdBaselineAlignAuto = $00000004;

// Constants for enum WdIndexFilter
type
  WdIndexFilter = TOleEnum;
const
  wdIndexFilterNone = $00000000;
  wdIndexFilterAiueo = $00000001;
  wdIndexFilterAkasatana = $00000002;
  wdIndexFilterChosung = $00000003;
  wdIndexFilterLow = $00000004;
  wdIndexFilterMedium = $00000005;
  wdIndexFilterFull = $00000006;

// Constants for enum WdIndexSortBy
type
  WdIndexSortBy = TOleEnum;
const
  wdIndexSortByStroke = $00000000;
  wdIndexSortBySyllable = $00000001;

// Constants for enum WdJustificationMode
type
  WdJustificationMode = TOleEnum;
const
  wdJustificationModeExpand = $00000000;
  wdJustificationModeCompress = $00000001;
  wdJustificationModeCompressKana = $00000002;

// Constants for enum WdFarEastLineBreakLevel
type
  WdFarEastLineBreakLevel = TOleEnum;
const
  wdFarEastLineBreakLevelNormal = $00000000;
  wdFarEastLineBreakLevelStrict = $00000001;
  wdFarEastLineBreakLevelCustom = $00000002;

// Constants for enum WdMultipleWordConversionsMode
type
  WdMultipleWordConversionsMode = TOleEnum;
const
  wdHangulToHanja = $00000000;
  wdHanjaToHangul = $00000001;

// Constants for enum WdColorIndex
type
  WdColorIndex = TOleEnum;
const
  wdAuto = $00000000;
  wdBlack = $00000001;
  wdBlue = $00000002;
  wdTurquoise = $00000003;
  wdBrightGreen = $00000004;
  wdPink = $00000005;
  wdRed = $00000006;
  wdYellow = $00000007;
  wdWhite = $00000008;
  wdDarkBlue = $00000009;
  wdTeal = $0000000A;
  wdGreen = $0000000B;
  wdViolet = $0000000C;
  wdDarkRed = $0000000D;
  wdDarkYellow = $0000000E;
  wdGray50 = $0000000F;
  wdGray25 = $00000010;
  wdByAuthor = $FFFFFFFF;
  wdNoHighlight = $00000000;

// Constants for enum WdTextureIndex
type
  WdTextureIndex = TOleEnum;
const
  wdTextureNone = $00000000;
  wdTexture2Pt5Percent = $00000019;
  wdTexture5Percent = $00000032;
  wdTexture7Pt5Percent = $0000004B;
  wdTexture10Percent = $00000064;
  wdTexture12Pt5Percent = $0000007D;
  wdTexture15Percent = $00000096;
  wdTexture17Pt5Percent = $000000AF;
  wdTexture20Percent = $000000C8;
  wdTexture22Pt5Percent = $000000E1;
  wdTexture25Percent = $000000FA;
  wdTexture27Pt5Percent = $00000113;
  wdTexture30Percent = $0000012C;
  wdTexture32Pt5Percent = $00000145;
  wdTexture35Percent = $0000015E;
  wdTexture37Pt5Percent = $00000177;
  wdTexture40Percent = $00000190;
  wdTexture42Pt5Percent = $000001A9;
  wdTexture45Percent = $000001C2;
  wdTexture47Pt5Percent = $000001DB;
  wdTexture50Percent = $000001F4;
  wdTexture52Pt5Percent = $0000020D;
  wdTexture55Percent = $00000226;
  wdTexture57Pt5Percent = $0000023F;
  wdTexture60Percent = $00000258;
  wdTexture62Pt5Percent = $00000271;
  wdTexture65Percent = $0000028A;
  wdTexture67Pt5Percent = $000002A3;
  wdTexture70Percent = $000002BC;
  wdTexture72Pt5Percent = $000002D5;
  wdTexture75Percent = $000002EE;
  wdTexture77Pt5Percent = $00000307;
  wdTexture80Percent = $00000320;
  wdTexture82Pt5Percent = $00000339;
  wdTexture85Percent = $00000352;
  wdTexture87Pt5Percent = $0000036B;
  wdTexture90Percent = $00000384;
  wdTexture92Pt5Percent = $0000039D;
  wdTexture95Percent = $000003B6;
  wdTexture97Pt5Percent = $000003CF;
  wdTextureSolid = $000003E8;
  wdTextureDarkHorizontal = $FFFFFFFF;
  wdTextureDarkVertical = $FFFFFFFE;
  wdTextureDarkDiagonalDown = $FFFFFFFD;
  wdTextureDarkDiagonalUp = $FFFFFFFC;
  wdTextureDarkCross = $FFFFFFFB;
  wdTextureDarkDiagonalCross = $FFFFFFFA;
  wdTextureHorizontal = $FFFFFFF9;
  wdTextureVertical = $FFFFFFF8;
  wdTextureDiagonalDown = $FFFFFFF7;
  wdTextureDiagonalUp = $FFFFFFF6;
  wdTextureCross = $FFFFFFF5;
  wdTextureDiagonalCross = $FFFFFFF4;

// Constants for enum WdUnderline
type
  WdUnderline = TOleEnum;
const
  wdUnderlineNone = $00000000;
  wdUnderlineSingle = $00000001;
  wdUnderlineWords = $00000002;
  wdUnderlineDouble = $00000003;
  wdUnderlineDotted = $00000004;
  wdUnderlineThick = $00000006;
  wdUnderlineDash = $00000007;
  wdUnderlineDotDash = $00000009;
  wdUnderlineDotDotDash = $0000000A;
  wdUnderlineWavy = $0000000B;
  wdUnderlineWavyHeavy = $0000001B;
  wdUnderlineDottedHeavy = $00000014;
  wdUnderlineDashHeavy = $00000017;
  wdUnderlineDotDashHeavy = $00000019;
  wdUnderlineDotDotDashHeavy = $0000001A;
  wdUnderlineDashLong = $00000027;
  wdUnderlineDashLongHeavy = $00000037;
  wdUnderlineWavyDouble = $0000002B;

// Constants for enum WdEmphasisMark
type
  WdEmphasisMark = TOleEnum;
const
  wdEmphasisMarkNone = $00000000;
  wdEmphasisMarkOverSolidCircle = $00000001;
  wdEmphasisMarkOverComma = $00000002;
  wdEmphasisMarkOverWhiteCircle = $00000003;
  wdEmphasisMarkUnderSolidCircle = $00000004;

// Constants for enum WdInternationalIndex
type
  WdInternationalIndex = TOleEnum;
const
  wdListSeparator = $00000011;
  wdDecimalSeparator = $00000012;
  wdThousandsSeparator = $00000013;
  wdCurrencyCode = $00000014;
  wd24HourClock = $00000015;
  wdInternationalAM = $00000016;
  wdInternationalPM = $00000017;
  wdTimeSeparator = $00000018;
  wdDateSeparator = $00000019;
  wdProductLanguageID = $0000001A;

// Constants for enum WdAutoMacros
type
  WdAutoMacros = TOleEnum;
const
  wdAutoExec = $00000000;
  wdAutoNew = $00000001;
  wdAutoOpen = $00000002;
  wdAutoClose = $00000003;
  wdAutoExit = $00000004;

// Constants for enum WdCaptionPosition
type
  WdCaptionPosition = TOleEnum;
const
  wdCaptionPositionAbove = $00000000;
  wdCaptionPositionBelow = $00000001;

// Constants for enum WdCountry
type
  WdCountry = TOleEnum;
const
  wdUS = $00000001;
  wdCanada = $00000002;
  wdLatinAmerica = $00000003;
  wdNetherlands = $0000001F;
  wdFrance = $00000021;
  wdSpain = $00000022;
  wdItaly = $00000027;
  wdUK = $0000002C;
  wdDenmark = $0000002D;
  wdSweden = $0000002E;
  wdNorway = $0000002F;
  wdGermany = $00000031;
  wdPeru = $00000033;
  wdMexico = $00000034;
  wdArgentina = $00000036;
  wdBrazil = $00000037;
  wdChile = $00000038;
  wdVenezuela = $0000003A;
  wdJapan = $00000051;
  wdTaiwan = $00000376;
  wdChina = $00000056;
  wdKorea = $00000052;
  wdFinland = $00000166;
  wdIceland = $00000162;

// Constants for enum WdHeadingSeparator
type
  WdHeadingSeparator = TOleEnum;
const
  wdHeadingSeparatorNone = $00000000;
  wdHeadingSeparatorBlankLine = $00000001;
  wdHeadingSeparatorLetter = $00000002;
  wdHeadingSeparatorLetterLow = $00000003;
  wdHeadingSeparatorLetterFull = $00000004;

// Constants for enum WdSeparatorType
type
  WdSeparatorType = TOleEnum;
const
  wdSeparatorHyphen = $00000000;
  wdSeparatorPeriod = $00000001;
  wdSeparatorColon = $00000002;
  wdSeparatorEmDash = $00000003;
  wdSeparatorEnDash = $00000004;

// Constants for enum WdPageNumberAlignment
type
  WdPageNumberAlignment = TOleEnum;
const
  wdAlignPageNumberLeft = $00000000;
  wdAlignPageNumberCenter = $00000001;
  wdAlignPageNumberRight = $00000002;
  wdAlignPageNumberInside = $00000003;
  wdAlignPageNumberOutside = $00000004;

// Constants for enum WdBorderType
type
  WdBorderType = TOleEnum;
const
  wdBorderTop = $FFFFFFFF;
  wdBorderLeft = $FFFFFFFE;
  wdBorderBottom = $FFFFFFFD;
  wdBorderRight = $FFFFFFFC;
  wdBorderHorizontal = $FFFFFFFB;
  wdBorderVertical = $FFFFFFFA;
  wdBorderDiagonalDown = $FFFFFFF9;
  wdBorderDiagonalUp = $FFFFFFF8;

// Constants for enum WdBorderTypeHID
type
  WdBorderTypeHID = TOleEnum;
const
  emptyenum = $00000000;

// Constants for enum WdFramePosition
type
  WdFramePosition = TOleEnum;
const
  wdFrameTop = $FFF0BDC1;
  wdFrameLeft = $FFF0BDC2;
  wdFrameBottom = $FFF0BDC3;
  wdFrameRight = $FFF0BDC4;
  wdFrameCenter = $FFF0BDC5;
  wdFrameInside = $FFF0BDC6;
  wdFrameOutside = $FFF0BDC7;

// Constants for enum WdAnimation
type
  WdAnimation = TOleEnum;
const
  wdAnimationNone = $00000000;
  wdAnimationLasVegasLights = $00000001;
  wdAnimationBlinkingBackground = $00000002;
  wdAnimationSparkleText = $00000003;
  wdAnimationMarchingBlackAnts = $00000004;
  wdAnimationMarchingRedAnts = $00000005;
  wdAnimationShimmer = $00000006;

// Constants for enum WdCharacterCase
type
  WdCharacterCase = TOleEnum;
const
  wdNextCase = $FFFFFFFF;
  wdLowerCase = $00000000;
  wdUpperCase = $00000001;
  wdTitleWord = $00000002;
  wdTitleSentence = $00000004;
  wdToggleCase = $00000005;
  wdHalfWidth = $00000006;
  wdFullWidth = $00000007;
  wdKatakana = $00000008;
  wdHiragana = $00000009;

// Constants for enum WdCharacterCaseHID
type
  WdCharacterCaseHID = TOleEnum;
const
  emptyenum_ = $00000000;

// Constants for enum WdSummaryMode
type
  WdSummaryMode = TOleEnum;
const
  wdSummaryModeHighlight = $00000000;
  wdSummaryModeHideAllButSummary = $00000001;
  wdSummaryModeInsert = $00000002;
  wdSummaryModeCreateNew = $00000003;

// Constants for enum WdSummaryLength
type
  WdSummaryLength = TOleEnum;
const
  wd10Sentences = $FFFFFFFE;
  wd20Sentences = $FFFFFFFD;
  wd100Words = $FFFFFFFC;
  wd500Words = $FFFFFFFB;
  wd10Percent = $FFFFFFFA;
  wd25Percent = $FFFFFFF9;
  wd50Percent = $FFFFFFF8;
  wd75Percent = $FFFFFFF7;

// Constants for enum WdStyleType
type
  WdStyleType = TOleEnum;
const
  wdStyleTypeParagraph = $00000001;
  wdStyleTypeCharacter = $00000002;
  wdStyleTypeTable = $00000003;
  wdStyleTypeList = $00000004;

// Constants for enum WdUnits
type
  WdUnits = TOleEnum;
const
  wdCharacter = $00000001;
  wdWord = $00000002;
  wdSentence = $00000003;
  wdParagraph = $00000004;
  wdLine = $00000005;
  wdStory = $00000006;
  wdScreen = $00000007;
  wdSection = $00000008;
  wdColumn = $00000009;
  wdRow = $0000000A;
  wdWindow = $0000000B;
  wdCell = $0000000C;
  wdCharacterFormatting = $0000000D;
  wdParagraphFormatting = $0000000E;
  wdTable = $0000000F;
  wdItem = $00000010;

// Constants for enum WdGoToItem
type
  WdGoToItem = TOleEnum;
const
  wdGoToBookmark = $FFFFFFFF;
  wdGoToSection = $00000000;
  wdGoToPage = $00000001;
  wdGoToTable = $00000002;
  wdGoToLine = $00000003;
  wdGoToFootnote = $00000004;
  wdGoToEndnote = $00000005;
  wdGoToComment = $00000006;
  wdGoToField = $00000007;
  wdGoToGraphic = $00000008;
  wdGoToObject = $00000009;
  wdGoToEquation = $0000000A;
  wdGoToHeading = $0000000B;
  wdGoToPercent = $0000000C;
  wdGoToSpellingError = $0000000D;
  wdGoToGrammaticalError = $0000000E;
  wdGoToProofreadingError = $0000000F;

// Constants for enum WdGoToDirection
type
  WdGoToDirection = TOleEnum;
const
  wdGoToFirst = $00000001;
  wdGoToLast = $FFFFFFFF;
  wdGoToNext = $00000002;
  wdGoToRelative = $00000002;
  wdGoToPrevious = $00000003;
  wdGoToAbsolute = $00000001;

// Constants for enum WdCollapseDirection
type
  WdCollapseDirection = TOleEnum;
const
  wdCollapseStart = $00000001;
  wdCollapseEnd = $00000000;

// Constants for enum WdRowHeightRule
type
  WdRowHeightRule = TOleEnum;
const
  wdRowHeightAuto = $00000000;
  wdRowHeightAtLeast = $00000001;
  wdRowHeightExactly = $00000002;

// Constants for enum WdFrameSizeRule
type
  WdFrameSizeRule = TOleEnum;
const
  wdFrameAuto = $00000000;
  wdFrameAtLeast = $00000001;
  wdFrameExact = $00000002;

// Constants for enum WdInsertCells
type
  WdInsertCells = TOleEnum;
const
  wdInsertCellsShiftRight = $00000000;
  wdInsertCellsShiftDown = $00000001;
  wdInsertCellsEntireRow = $00000002;
  wdInsertCellsEntireColumn = $00000003;

// Constants for enum WdDeleteCells
type
  WdDeleteCells = TOleEnum;
const
  wdDeleteCellsShiftLeft = $00000000;
  wdDeleteCellsShiftUp = $00000001;
  wdDeleteCellsEntireRow = $00000002;
  wdDeleteCellsEntireColumn = $00000003;

// Constants for enum WdListApplyTo
type
  WdListApplyTo = TOleEnum;
const
  wdListApplyToWholeList = $00000000;
  wdListApplyToThisPointForward = $00000001;
  wdListApplyToSelection = $00000002;

// Constants for enum WdAlertLevel
type
  WdAlertLevel = TOleEnum;
const
  wdAlertsNone = $00000000;
  wdAlertsMessageBox = $FFFFFFFE;
  wdAlertsAll = $FFFFFFFF;

// Constants for enum WdCursorType
type
  WdCursorType = TOleEnum;
const
  wdCursorWait = $00000000;
  wdCursorIBeam = $00000001;
  wdCursorNormal = $00000002;
  wdCursorNorthwestArrow = $00000003;

// Constants for enum WdEnableCancelKey
type
  WdEnableCancelKey = TOleEnum;
const
  wdCancelDisabled = $00000000;
  wdCancelInterrupt = $00000001;

// Constants for enum WdRulerStyle
type
  WdRulerStyle = TOleEnum;
const
  wdAdjustNone = $00000000;
  wdAdjustProportional = $00000001;
  wdAdjustFirstColumn = $00000002;
  wdAdjustSameWidth = $00000003;

// Constants for enum WdParagraphAlignment
type
  WdParagraphAlignment = TOleEnum;
const
  wdAlignParagraphLeft = $00000000;
  wdAlignParagraphCenter = $00000001;
  wdAlignParagraphRight = $00000002;
  wdAlignParagraphJustify = $00000003;
  wdAlignParagraphDistribute = $00000004;
  wdAlignParagraphJustifyMed = $00000005;
  wdAlignParagraphJustifyHi = $00000007;
  wdAlignParagraphJustifyLow = $00000008;
  wdAlignParagraphThaiJustify = $00000009;

// Constants for enum WdParagraphAlignmentHID
type
  WdParagraphAlignmentHID = TOleEnum;
const
  emptyenum__ = $00000000;

// Constants for enum WdListLevelAlignment
type
  WdListLevelAlignment = TOleEnum;
const
  wdListLevelAlignLeft = $00000000;
  wdListLevelAlignCenter = $00000001;
  wdListLevelAlignRight = $00000002;

// Constants for enum WdRowAlignment
type
  WdRowAlignment = TOleEnum;
const
  wdAlignRowLeft = $00000000;
  wdAlignRowCenter = $00000001;
  wdAlignRowRight = $00000002;

// Constants for enum WdTabAlignment
type
  WdTabAlignment = TOleEnum;
const
  wdAlignTabLeft = $00000000;
  wdAlignTabCenter = $00000001;
  wdAlignTabRight = $00000002;
  wdAlignTabDecimal = $00000003;
  wdAlignTabBar = $00000004;
  wdAlignTabList = $00000006;

// Constants for enum WdVerticalAlignment
type
  WdVerticalAlignment = TOleEnum;
const
  wdAlignVerticalTop = $00000000;
  wdAlignVerticalCenter = $00000001;
  wdAlignVerticalJustify = $00000002;
  wdAlignVerticalBottom = $00000003;

// Constants for enum WdCellVerticalAlignment
type
  WdCellVerticalAlignment = TOleEnum;
const
  wdCellAlignVerticalTop = $00000000;
  wdCellAlignVerticalCenter = $00000001;
  wdCellAlignVerticalBottom = $00000003;

// Constants for enum WdTrailingCharacter
type
  WdTrailingCharacter = TOleEnum;
const
  wdTrailingTab = $00000000;
  wdTrailingSpace = $00000001;
  wdTrailingNone = $00000002;

// Constants for enum WdListGalleryType
type
  WdListGalleryType = TOleEnum;
const
  wdBulletGallery = $00000001;
  wdNumberGallery = $00000002;
  wdOutlineNumberGallery = $00000003;

// Constants for enum WdListNumberStyle
type
  WdListNumberStyle = TOleEnum;
const
  wdListNumberStyleArabic = $00000000;
  wdListNumberStyleUppercaseRoman = $00000001;
  wdListNumberStyleLowercaseRoman = $00000002;
  wdListNumberStyleUppercaseLetter = $00000003;
  wdListNumberStyleLowercaseLetter = $00000004;
  wdListNumberStyleOrdinal = $00000005;
  wdListNumberStyleCardinalText = $00000006;
  wdListNumberStyleOrdinalText = $00000007;
  wdListNumberStyleKanji = $0000000A;
  wdListNumberStyleKanjiDigit = $0000000B;
  wdListNumberStyleAiueoHalfWidth = $0000000C;
  wdListNumberStyleIrohaHalfWidth = $0000000D;
  wdListNumberStyleArabicFullWidth = $0000000E;
  wdListNumberStyleKanjiTraditional = $00000010;
  wdListNumberStyleKanjiTraditional2 = $00000011;
  wdListNumberStyleNumberInCircle = $00000012;
  wdListNumberStyleAiueo = $00000014;
  wdListNumberStyleIroha = $00000015;
  wdListNumberStyleArabicLZ = $00000016;
  wdListNumberStyleBullet = $00000017;
  wdListNumberStyleGanada = $00000018;
  wdListNumberStyleChosung = $00000019;
  wdListNumberStyleGBNum1 = $0000001A;
  wdListNumberStyleGBNum2 = $0000001B;
  wdListNumberStyleGBNum3 = $0000001C;
  wdListNumberStyleGBNum4 = $0000001D;
  wdListNumberStyleZodiac1 = $0000001E;
  wdListNumberStyleZodiac2 = $0000001F;
  wdListNumberStyleZodiac3 = $00000020;
  wdListNumberStyleTradChinNum1 = $00000021;
  wdListNumberStyleTradChinNum2 = $00000022;
  wdListNumberStyleTradChinNum3 = $00000023;
  wdListNumberStyleTradChinNum4 = $00000024;
  wdListNumberStyleSimpChinNum1 = $00000025;
  wdListNumberStyleSimpChinNum2 = $00000026;
  wdListNumberStyleSimpChinNum3 = $00000027;
  wdListNumberStyleSimpChinNum4 = $00000028;
  wdListNumberStyleHanjaRead = $00000029;
  wdListNumberStyleHanjaReadDigit = $0000002A;
  wdListNumberStyleHangul = $0000002B;
  wdListNumberStyleHanja = $0000002C;
  wdListNumberStyleHebrew1 = $0000002D;
  wdListNumberStyleArabic1 = $0000002E;
  wdListNumberStyleHebrew2 = $0000002F;
  wdListNumberStyleArabic2 = $00000030;
  wdListNumberStyleHindiLetter1 = $00000031;
  wdListNumberStyleHindiLetter2 = $00000032;
  wdListNumberStyleHindiArabic = $00000033;
  wdListNumberStyleHindiCardinalText = $00000034;
  wdListNumberStyleThaiLetter = $00000035;
  wdListNumberStyleThaiArabic = $00000036;
  wdListNumberStyleThaiCardinalText = $00000037;
  wdListNumberStyleVietCardinalText = $00000038;
  wdListNumberStyleLowercaseRussian = $0000003A;
  wdListNumberStyleUppercaseRussian = $0000003B;
  wdListNumberStylePictureBullet = $000000F9;
  wdListNumberStyleLegal = $000000FD;
  wdListNumberStyleLegalLZ = $000000FE;
  wdListNumberStyleNone = $000000FF;

// Constants for enum WdListNumberStyleHID
type
  WdListNumberStyleHID = TOleEnum;
const
  emptyenum___ = $00000000;

// Constants for enum WdNoteNumberStyle
type
  WdNoteNumberStyle = TOleEnum;
const
  wdNoteNumberStyleArabic = $00000000;
  wdNoteNumberStyleUppercaseRoman = $00000001;
  wdNoteNumberStyleLowercaseRoman = $00000002;
  wdNoteNumberStyleUppercaseLetter = $00000003;
  wdNoteNumberStyleLowercaseLetter = $00000004;
  wdNoteNumberStyleSymbol = $00000009;
  wdNoteNumberStyleArabicFullWidth = $0000000E;
  wdNoteNumberStyleKanji = $0000000A;
  wdNoteNumberStyleKanjiDigit = $0000000B;
  wdNoteNumberStyleKanjiTraditional = $00000010;
  wdNoteNumberStyleNumberInCircle = $00000012;
  wdNoteNumberStyleHanjaRead = $00000029;
  wdNoteNumberStyleHanjaReadDigit = $0000002A;
  wdNoteNumberStyleTradChinNum1 = $00000021;
  wdNoteNumberStyleTradChinNum2 = $00000022;
  wdNoteNumberStyleSimpChinNum1 = $00000025;
  wdNoteNumberStyleSimpChinNum2 = $00000026;
  wdNoteNumberStyleHebrewLetter1 = $0000002D;
  wdNoteNumberStyleArabicLetter1 = $0000002E;
  wdNoteNumberStyleHebrewLetter2 = $0000002F;
  wdNoteNumberStyleArabicLetter2 = $00000030;
  wdNoteNumberStyleHindiLetter1 = $00000031;
  wdNoteNumberStyleHindiLetter2 = $00000032;
  wdNoteNumberStyleHindiArabic = $00000033;
  wdNoteNumberStyleHindiCardinalText = $00000034;
  wdNoteNumberStyleThaiLetter = $00000035;
  wdNoteNumberStyleThaiArabic = $00000036;
  wdNoteNumberStyleThaiCardinalText = $00000037;
  wdNoteNumberStyleVietCardinalText = $00000038;

// Constants for enum WdNoteNumberStyleHID
type
  WdNoteNumberStyleHID = TOleEnum;
const
  emptyenum____ = $00000000;

// Constants for enum WdCaptionNumberStyle
type
  WdCaptionNumberStyle = TOleEnum;
const
  wdCaptionNumberStyleArabic = $00000000;
  wdCaptionNumberStyleUppercaseRoman = $00000001;
  wdCaptionNumberStyleLowercaseRoman = $00000002;
  wdCaptionNumberStyleUppercaseLetter = $00000003;
  wdCaptionNumberStyleLowercaseLetter = $00000004;
  wdCaptionNumberStyleArabicFullWidth = $0000000E;
  wdCaptionNumberStyleKanji = $0000000A;
  wdCaptionNumberStyleKanjiDigit = $0000000B;
  wdCaptionNumberStyleKanjiTraditional = $00000010;
  wdCaptionNumberStyleNumberInCircle = $00000012;
  wdCaptionNumberStyleGanada = $00000018;
  wdCaptionNumberStyleChosung = $00000019;
  wdCaptionNumberStyleZodiac1 = $0000001E;
  wdCaptionNumberStyleZodiac2 = $0000001F;
  wdCaptionNumberStyleHanjaRead = $00000029;
  wdCaptionNumberStyleHanjaReadDigit = $0000002A;
  wdCaptionNumberStyleTradChinNum2 = $00000022;
  wdCaptionNumberStyleTradChinNum3 = $00000023;
  wdCaptionNumberStyleSimpChinNum2 = $00000026;
  wdCaptionNumberStyleSimpChinNum3 = $00000027;
  wdCaptionNumberStyleHebrewLetter1 = $0000002D;
  wdCaptionNumberStyleArabicLetter1 = $0000002E;
  wdCaptionNumberStyleHebrewLetter2 = $0000002F;
  wdCaptionNumberStyleArabicLetter2 = $00000030;
  wdCaptionNumberStyleHindiLetter1 = $00000031;
  wdCaptionNumberStyleHindiLetter2 = $00000032;
  wdCaptionNumberStyleHindiArabic = $00000033;
  wdCaptionNumberStyleHindiCardinalText = $00000034;
  wdCaptionNumberStyleThaiLetter = $00000035;
  wdCaptionNumberStyleThaiArabic = $00000036;
  wdCaptionNumberStyleThaiCardinalText = $00000037;
  wdCaptionNumberStyleVietCardinalText = $00000038;

// Constants for enum WdCaptionNumberStyleHID
type
  WdCaptionNumberStyleHID = TOleEnum;
const
  emptyenum_____ = $00000000;

// Constants for enum WdPageNumberStyle
type
  WdPageNumberStyle = TOleEnum;
const
  wdPageNumberStyleArabic = $00000000;
  wdPageNumberStyleUppercaseRoman = $00000001;
  wdPageNumberStyleLowercaseRoman = $00000002;
  wdPageNumberStyleUppercaseLetter = $00000003;
  wdPageNumberStyleLowercaseLetter = $00000004;
  wdPageNumberStyleArabicFullWidth = $0000000E;
  wdPageNumberStyleKanji = $0000000A;
  wdPageNumberStyleKanjiDigit = $0000000B;
  wdPageNumberStyleKanjiTraditional = $00000010;
  wdPageNumberStyleNumberInCircle = $00000012;
  wdPageNumberStyleHanjaRead = $00000029;
  wdPageNumberStyleHanjaReadDigit = $0000002A;
  wdPageNumberStyleTradChinNum1 = $00000021;
  wdPageNumberStyleTradChinNum2 = $00000022;
  wdPageNumberStyleSimpChinNum1 = $00000025;
  wdPageNumberStyleSimpChinNum2 = $00000026;
  wdPageNumberStyleHebrewLetter1 = $0000002D;
  wdPageNumberStyleArabicLetter1 = $0000002E;
  wdPageNumberStyleHebrewLetter2 = $0000002F;
  wdPageNumberStyleArabicLetter2 = $00000030;
  wdPageNumberStyleHindiLetter1 = $00000031;
  wdPageNumberStyleHindiLetter2 = $00000032;
  wdPageNumberStyleHindiArabic = $00000033;
  wdPageNumberStyleHindiCardinalText = $00000034;
  wdPageNumberStyleThaiLetter = $00000035;
  wdPageNumberStyleThaiArabic = $00000036;
  wdPageNumberStyleThaiCardinalText = $00000037;
  wdPageNumberStyleVietCardinalText = $00000038;
  wdPageNumberStyleNumberInDash = $00000039;

// Constants for enum WdPageNumberStyleHID
type
  WdPageNumberStyleHID = TOleEnum;
const
  emptyenum______ = $00000000;

// Constants for enum WdStatistic
type
  WdStatistic = TOleEnum;
const
  wdStatisticWords = $00000000;
  wdStatisticLines = $00000001;
  wdStatisticPages = $00000002;
  wdStatisticCharacters = $00000003;
  wdStatisticParagraphs = $00000004;
  wdStatisticCharactersWithSpaces = $00000005;
  wdStatisticFarEastCharacters = $00000006;

// Constants for enum WdStatisticHID
type
  WdStatisticHID = TOleEnum;
const
  emptyenum_______ = $00000000;

// Constants for enum WdBuiltInProperty
type
  WdBuiltInProperty = TOleEnum;
const
  wdPropertyTitle = $00000001;
  wdPropertySubject = $00000002;
  wdPropertyAuthor = $00000003;
  wdPropertyKeywords = $00000004;
  wdPropertyComments = $00000005;
  wdPropertyTemplate = $00000006;
  wdPropertyLastAuthor = $00000007;
  wdPropertyRevision = $00000008;
  wdPropertyAppName = $00000009;
  wdPropertyTimeLastPrinted = $0000000A;
  wdPropertyTimeCreated = $0000000B;
  wdPropertyTimeLastSaved = $0000000C;
  wdPropertyVBATotalEdit = $0000000D;
  wdPropertyPages = $0000000E;
  wdPropertyWords = $0000000F;
  wdPropertyCharacters = $00000010;
  wdPropertySecurity = $00000011;
  wdPropertyCategory = $00000012;
  wdPropertyFormat = $00000013;
  wdPropertyManager = $00000014;
  wdPropertyCompany = $00000015;
  wdPropertyBytes = $00000016;
  wdPropertyLines = $00000017;
  wdPropertyParas = $00000018;
  wdPropertySlides = $00000019;
  wdPropertyNotes = $0000001A;
  wdPropertyHiddenSlides = $0000001B;
  wdPropertyMMClips = $0000001C;
  wdPropertyHyperlinkBase = $0000001D;
  wdPropertyCharsWSpaces = $0000001E;

// Constants for enum WdLineSpacing
type
  WdLineSpacing = TOleEnum;
const
  wdLineSpaceSingle = $00000000;
  wdLineSpace1pt5 = $00000001;
  wdLineSpaceDouble = $00000002;
  wdLineSpaceAtLeast = $00000003;
  wdLineSpaceExactly = $00000004;
  wdLineSpaceMultiple = $00000005;

// Constants for enum WdNumberType
type
  WdNumberType = TOleEnum;
const
  wdNumberParagraph = $00000001;
  wdNumberListNum = $00000002;
  wdNumberAllNumbers = $00000003;

// Constants for enum WdListType
type
  WdListType = TOleEnum;
const
  wdListNoNumbering = $00000000;
  wdListListNumOnly = $00000001;
  wdListBullet = $00000002;
  wdListSimpleNumbering = $00000003;
  wdListOutlineNumbering = $00000004;
  wdListMixedNumbering = $00000005;
  wdListPictureBullet = $00000006;

// Constants for enum WdStoryType
type
  WdStoryType = TOleEnum;
const
  wdMainTextStory = $00000001;
  wdFootnotesStory = $00000002;
  wdEndnotesStory = $00000003;
  wdCommentsStory = $00000004;
  wdTextFrameStory = $00000005;
  wdEvenPagesHeaderStory = $00000006;
  wdPrimaryHeaderStory = $00000007;
  wdEvenPagesFooterStory = $00000008;
  wdPrimaryFooterStory = $00000009;
  wdFirstPageHeaderStory = $0000000A;
  wdFirstPageFooterStory = $0000000B;

// Constants for enum WdSaveFormat
type
  WdSaveFormat = TOleEnum;
const
  wdFormatDocument = $00000000;
  wdFormatTemplate = $00000001;
  wdFormatText = $00000002;
  wdFormatTextLineBreaks = $00000003;
  wdFormatDOSText = $00000004;
  wdFormatDOSTextLineBreaks = $00000005;
  wdFormatRTF = $00000006;
  wdFormatUnicodeText = $00000007;
  wdFormatEncodedText = $00000007;
  wdFormatHTML = $00000008;
  wdFormatWebArchive = $00000009;
  wdFormatFilteredHTML = $0000000A;

// Constants for enum WdOpenFormat
type
  WdOpenFormat = TOleEnum;
const
  wdOpenFormatAuto = $00000000;
  wdOpenFormatDocument = $00000001;
  wdOpenFormatTemplate = $00000002;
  wdOpenFormatRTF = $00000003;
  wdOpenFormatText = $00000004;
  wdOpenFormatUnicodeText = $00000005;
  wdOpenFormatEncodedText = $00000005;
  wdOpenFormatAllWord = $00000006;
  wdOpenFormatWebPages = $00000007;

// Constants for enum WdHeaderFooterIndex
type
  WdHeaderFooterIndex = TOleEnum;
const
  wdHeaderFooterPrimary = $00000001;
  wdHeaderFooterFirstPage = $00000002;
  wdHeaderFooterEvenPages = $00000003;

// Constants for enum WdTocFormat
type
  WdTocFormat = TOleEnum;
const
  wdTOCTemplate = $00000000;
  wdTOCClassic = $00000001;
  wdTOCDistinctive = $00000002;
  wdTOCFancy = $00000003;
  wdTOCModern = $00000004;
  wdTOCFormal = $00000005;
  wdTOCSimple = $00000006;

// Constants for enum WdTofFormat
type
  WdTofFormat = TOleEnum;
const
  wdTOFTemplate = $00000000;
  wdTOFClassic = $00000001;
  wdTOFDistinctive = $00000002;
  wdTOFCentered = $00000003;
  wdTOFFormal = $00000004;
  wdTOFSimple = $00000005;

// Constants for enum WdToaFormat
type
  WdToaFormat = TOleEnum;
const
  wdTOATemplate = $00000000;
  wdTOAClassic = $00000001;
  wdTOADistinctive = $00000002;
  wdTOAFormal = $00000003;
  wdTOASimple = $00000004;

// Constants for enum WdLineStyle
type
  WdLineStyle = TOleEnum;
const
  wdLineStyleNone = $00000000;
  wdLineStyleSingle = $00000001;
  wdLineStyleDot = $00000002;
  wdLineStyleDashSmallGap = $00000003;
  wdLineStyleDashLargeGap = $00000004;
  wdLineStyleDashDot = $00000005;
  wdLineStyleDashDotDot = $00000006;
  wdLineStyleDouble = $00000007;
  wdLineStyleTriple = $00000008;
  wdLineStyleThinThickSmallGap = $00000009;
  wdLineStyleThickThinSmallGap = $0000000A;
  wdLineStyleThinThickThinSmallGap = $0000000B;
  wdLineStyleThinThickMedGap = $0000000C;
  wdLineStyleThickThinMedGap = $0000000D;
  wdLineStyleThinThickThinMedGap = $0000000E;
  wdLineStyleThinThickLargeGap = $0000000F;
  wdLineStyleThickThinLargeGap = $00000010;
  wdLineStyleThinThickThinLargeGap = $00000011;
  wdLineStyleSingleWavy = $00000012;
  wdLineStyleDoubleWavy = $00000013;
  wdLineStyleDashDotStroked = $00000014;
  wdLineStyleEmboss3D = $00000015;
  wdLineStyleEngrave3D = $00000016;
  wdLineStyleOutset = $00000017;
  wdLineStyleInset = $00000018;

// Constants for enum WdLineWidth
type
  WdLineWidth = TOleEnum;
const
  wdLineWidth025pt = $00000002;
  wdLineWidth050pt = $00000004;
  wdLineWidth075pt = $00000006;
  wdLineWidth100pt = $00000008;
  wdLineWidth150pt = $0000000C;
  wdLineWidth225pt = $00000012;
  wdLineWidth300pt = $00000018;
  wdLineWidth450pt = $00000024;
  wdLineWidth600pt = $00000030;

// Constants for enum WdBreakType
type
  WdBreakType = TOleEnum;
const
  wdSectionBreakNextPage = $00000002;
  wdSectionBreakContinuous = $00000003;
  wdSectionBreakEvenPage = $00000004;
  wdSectionBreakOddPage = $00000005;
  wdLineBreak = $00000006;
  wdPageBreak = $00000007;
  wdColumnBreak = $00000008;
  wdLineBreakClearLeft = $00000009;
  wdLineBreakClearRight = $0000000A;
  wdTextWrappingBreak = $0000000B;

// Constants for enum WdTabLeader
type
  WdTabLeader = TOleEnum;
const
  wdTabLeaderSpaces = $00000000;
  wdTabLeaderDots = $00000001;
  wdTabLeaderDashes = $00000002;
  wdTabLeaderLines = $00000003;
  wdTabLeaderHeavy = $00000004;
  wdTabLeaderMiddleDot = $00000005;

// Constants for enum WdTabLeaderHID
type
  WdTabLeaderHID = TOleEnum;
const
  emptyenum________ = $00000000;

// Constants for enum WdMeasurementUnits
type
  WdMeasurementUnits = TOleEnum;
const
  wdInches = $00000000;
  wdCentimeters = $00000001;
  wdMillimeters = $00000002;
  wdPoints = $00000003;
  wdPicas = $00000004;

// Constants for enum WdMeasurementUnitsHID
type
  WdMeasurementUnitsHID = TOleEnum;
const
  emptyenum_________ = $00000000;

// Constants for enum WdDropPosition
type
  WdDropPosition = TOleEnum;
const
  wdDropNone = $00000000;
  wdDropNormal = $00000001;
  wdDropMargin = $00000002;

// Constants for enum WdNumberingRule
type
  WdNumberingRule = TOleEnum;
const
  wdRestartContinuous = $00000000;
  wdRestartSection = $00000001;
  wdRestartPage = $00000002;

// Constants for enum WdFootnoteLocation
type
  WdFootnoteLocation = TOleEnum;
const
  wdBottomOfPage = $00000000;
  wdBeneathText = $00000001;

// Constants for enum WdEndnoteLocation
type
  WdEndnoteLocation = TOleEnum;
const
  wdEndOfSection = $00000000;
  wdEndOfDocument = $00000001;

// Constants for enum WdSortSeparator
type
  WdSortSeparator = TOleEnum;
const
  wdSortSeparateByTabs = $00000000;
  wdSortSeparateByCommas = $00000001;
  wdSortSeparateByDefaultTableSeparator = $00000002;

// Constants for enum WdTableFieldSeparator
type
  WdTableFieldSeparator = TOleEnum;
const
  wdSeparateByParagraphs = $00000000;
  wdSeparateByTabs = $00000001;
  wdSeparateByCommas = $00000002;
  wdSeparateByDefaultListSeparator = $00000003;

// Constants for enum WdSortFieldType
type
  WdSortFieldType = TOleEnum;
const
  wdSortFieldAlphanumeric = $00000000;
  wdSortFieldNumeric = $00000001;
  wdSortFieldDate = $00000002;
  wdSortFieldSyllable = $00000003;
  wdSortFieldJapanJIS = $00000004;
  wdSortFieldStroke = $00000005;
  wdSortFieldKoreaKS = $00000006;

// Constants for enum WdSortFieldTypeHID
type
  WdSortFieldTypeHID = TOleEnum;
const
  emptyenum__________ = $00000000;

// Constants for enum WdSortOrder
type
  WdSortOrder = TOleEnum;
const
  wdSortOrderAscending = $00000000;
  wdSortOrderDescending = $00000001;

// Constants for enum WdTableFormat
type
  WdTableFormat = TOleEnum;
const
  wdTableFormatNone = $00000000;
  wdTableFormatSimple1 = $00000001;
  wdTableFormatSimple2 = $00000002;
  wdTableFormatSimple3 = $00000003;
  wdTableFormatClassic1 = $00000004;
  wdTableFormatClassic2 = $00000005;
  wdTableFormatClassic3 = $00000006;
  wdTableFormatClassic4 = $00000007;
  wdTableFormatColorful1 = $00000008;
  wdTableFormatColorful2 = $00000009;
  wdTableFormatColorful3 = $0000000A;
  wdTableFormatColumns1 = $0000000B;
  wdTableFormatColumns2 = $0000000C;
  wdTableFormatColumns3 = $0000000D;
  wdTableFormatColumns4 = $0000000E;
  wdTableFormatColumns5 = $0000000F;
  wdTableFormatGrid1 = $00000010;
  wdTableFormatGrid2 = $00000011;
  wdTableFormatGrid3 = $00000012;
  wdTableFormatGrid4 = $00000013;
  wdTableFormatGrid5 = $00000014;
  wdTableFormatGrid6 = $00000015;
  wdTableFormatGrid7 = $00000016;
  wdTableFormatGrid8 = $00000017;
  wdTableFormatList1 = $00000018;
  wdTableFormatList2 = $00000019;
  wdTableFormatList3 = $0000001A;
  wdTableFormatList4 = $0000001B;
  wdTableFormatList5 = $0000001C;
  wdTableFormatList6 = $0000001D;
  wdTableFormatList7 = $0000001E;
  wdTableFormatList8 = $0000001F;
  wdTableFormat3DEffects1 = $00000020;
  wdTableFormat3DEffects2 = $00000021;
  wdTableFormat3DEffects3 = $00000022;
  wdTableFormatContemporary = $00000023;
  wdTableFormatElegant = $00000024;
  wdTableFormatProfessional = $00000025;
  wdTableFormatSubtle1 = $00000026;
  wdTableFormatSubtle2 = $00000027;
  wdTableFormatWeb1 = $00000028;
  wdTableFormatWeb2 = $00000029;
  wdTableFormatWeb3 = $0000002A;

// Constants for enum WdTableFormatApply
type
  WdTableFormatApply = TOleEnum;
const
  wdTableFormatApplyBorders = $00000001;
  wdTableFormatApplyShading = $00000002;
  wdTableFormatApplyFont = $00000004;
  wdTableFormatApplyColor = $00000008;
  wdTableFormatApplyAutoFit = $00000010;
  wdTableFormatApplyHeadingRows = $00000020;
  wdTableFormatApplyLastRow = $00000040;
  wdTableFormatApplyFirstColumn = $00000080;
  wdTableFormatApplyLastColumn = $00000100;

// Constants for enum WdLanguageID
type
  WdLanguageID = TOleEnum;
const
  wdLanguageNone = $00000000;
  wdNoProofing = $00000400;
  wdAfrikaans = $00000436;
  wdAlbanian = $0000041C;
  wdAmharic = $0000045E;
  wdArabicAlgeria = $00001401;
  wdArabicBahrain = $00003C01;
  wdArabicEgypt = $00000C01;
  wdArabicIraq = $00000801;
  wdArabicJordan = $00002C01;
  wdArabicKuwait = $00003401;
  wdArabicLebanon = $00003001;
  wdArabicLibya = $00001001;
  wdArabicMorocco = $00001801;
  wdArabicOman = $00002001;
  wdArabicQatar = $00004001;
  wdArabic = $00000401;
  wdArabicSyria = $00002801;
  wdArabicTunisia = $00001C01;
  wdArabicUAE = $00003801;
  wdArabicYemen = $00002401;
  wdArmenian = $0000042B;
  wdAssamese = $0000044D;
  wdAzeriCyrillic = $0000082C;
  wdAzeriLatin = $0000042C;
  wdBasque = $0000042D;
  wdByelorussian = $00000423;
  wdBengali = $00000445;
  wdBulgarian = $00000402;
  wdBurmese = $00000455;
  wdCatalan = $00000403;
  wdCherokee = $0000045C;
  wdChineseHongKongSAR = $00000C04;
  wdChineseMacaoSAR = $00001404;
  wdSimplifiedChinese = $00000804;
  wdChineseSingapore = $00001004;
  wdTraditionalChinese = $00000404;
  wdCroatian = $0000041A;
  wdCzech = $00000405;
  wdDanish = $00000406;
  wdDivehi = $00000465;
  wdBelgianDutch = $00000813;
  wdDutch = $00000413;
  wdDzongkhaBhutan = $00000851;
  wdEdo = $00000466;
  wdEnglishAUS = $00000C09;
  wdEnglishBelize = $00002809;
  wdEnglishCanadian = $00001009;
  wdEnglishCaribbean = $00002409;
  wdEnglishIreland = $00001809;
  wdEnglishJamaica = $00002009;
  wdEnglishNewZealand = $00001409;
  wdEnglishPhilippines = $00003409;
  wdEnglishSouthAfrica = $00001C09;
  wdEnglishTrinidadTobago = $00002C09;
  wdEnglishUK = $00000809;
  wdEnglishUS = $00000409;
  wdEnglishZimbabwe = $00003009;
  wdEnglishIndonesia = $00003809;
  wdEstonian = $00000425;
  wdFaeroese = $00000438;
  wdFarsi = $00000429;
  wdFilipino = $00000464;
  wdFinnish = $0000040B;
  wdFulfulde = $00000467;
  wdBelgianFrench = $0000080C;
  wdFrenchCameroon = $00002C0C;
  wdFrenchCanadian = $00000C0C;
  wdFrenchCotedIvoire = $0000300C;
  wdFrench = $0000040C;
  wdFrenchLuxembourg = $0000140C;
  wdFrenchMali = $0000340C;
  wdFrenchMonaco = $0000180C;
  wdFrenchReunion = $0000200C;
  wdFrenchSenegal = $0000280C;
  wdFrenchMorocco = $0000380C;
  wdFrenchHaiti = $00003C0C;
  wdSwissFrench = $0000100C;
  wdFrenchWestIndies = $00001C0C;
  wdFrenchZaire = $0000240C;
  wdFrisianNetherlands = $00000462;
  wdGaelicIreland = $0000083C;
  wdGaelicScotland = $0000043C;
  wdGalician = $00000456;
  wdGeorgian = $00000437;
  wdGermanAustria = $00000C07;
  wdGerman = $00000407;
  wdGermanLiechtenstein = $00001407;
  wdGermanLuxembourg = $00001007;
  wdSwissGerman = $00000807;
  wdGreek = $00000408;
  wdGuarani = $00000474;
  wdGujarati = $00000447;
  wdHausa = $00000468;
  wdHawaiian = $00000475;
  wdHebrew = $0000040D;
  wdHindi = $00000439;
  wdHungarian = $0000040E;
  wdIbibio = $00000469;
  wdIcelandic = $0000040F;
  wdIgbo = $00000470;
  wdIndonesian = $00000421;
  wdInuktitut = $0000045D;
  wdItalian = $00000410;
  wdSwissItalian = $00000810;
  wdJapanese = $00000411;
  wdKannada = $0000044B;
  wdKanuri = $00000471;
  wdKashmiri = $00000460;
  wdKazakh = $0000043F;
  wdKhmer = $00000453;
  wdKirghiz = $00000440;
  wdKonkani = $00000457;
  wdKorean = $00000412;
  wdKyrgyz = $00000440;
  wdLao = $00000454;
  wdLatin = $00000476;
  wdLatvian = $00000426;
  wdLithuanian = $00000427;
  wdMacedonian = $0000042F;
  wdMalaysian = $0000043E;
  wdMalayBruneiDarussalam = $0000083E;
  wdMalayalam = $0000044C;
  wdMaltese = $0000043A;
  wdManipuri = $00000458;
  wdMarathi = $0000044E;
  wdMongolian = $00000450;
  wdNepali = $00000461;
  wdNorwegianBokmol = $00000414;
  wdNorwegianNynorsk = $00000814;
  wdOriya = $00000448;
  wdOromo = $00000472;
  wdPashto = $00000463;
  wdPolish = $00000415;
  wdBrazilianPortuguese = $00000416;
  wdPortuguese = $00000816;
  wdPunjabi = $00000446;
  wdRhaetoRomanic = $00000417;
  wdRomanianMoldova = $00000818;
  wdRomanian = $00000418;
  wdRussianMoldova = $00000819;
  wdRussian = $00000419;
  wdSamiLappish = $0000043B;
  wdSanskrit = $0000044F;
  wdSerbianCyrillic = $00000C1A;
  wdSerbianLatin = $0000081A;
  wdSinhalese = $0000045B;
  wdSindhi = $00000459;
  wdSindhiPakistan = $00000859;
  wdSlovak = $0000041B;
  wdSlovenian = $00000424;
  wdSomali = $00000477;
  wdSorbian = $0000042E;
  wdSpanishArgentina = $00002C0A;
  wdSpanishBolivia = $0000400A;
  wdSpanishChile = $0000340A;
  wdSpanishColombia = $0000240A;
  wdSpanishCostaRica = $0000140A;
  wdSpanishDominicanRepublic = $00001C0A;
  wdSpanishEcuador = $0000300A;
  wdSpanishElSalvador = $0000440A;
  wdSpanishGuatemala = $0000100A;
  wdSpanishHonduras = $0000480A;
  wdMexicanSpanish = $0000080A;
  wdSpanishNicaragua = $00004C0A;
  wdSpanishPanama = $0000180A;
  wdSpanishParaguay = $00003C0A;
  wdSpanishPeru = $0000280A;
  wdSpanishPuertoRico = $0000500A;
  wdSpanishModernSort = $00000C0A;
  wdSpanish = $0000040A;
  wdSpanishUruguay = $0000380A;
  wdSpanishVenezuela = $0000200A;
  wdSesotho = $00000430;
  wdSutu = $00000430;
  wdSwahili = $00000441;
  wdSwedishFinland = $0000081D;
  wdSwedish = $0000041D;
  wdSyriac = $0000045A;
  wdTajik = $00000428;
  wdTamazight = $0000045F;
  wdTamazightLatin = $0000085F;
  wdTamil = $00000449;
  wdTatar = $00000444;
  wdTelugu = $0000044A;
  wdThai = $0000041E;
  wdTibetan = $00000451;
  wdTigrignaEthiopic = $00000473;
  wdTigrignaEritrea = $00000873;
  wdTsonga = $00000431;
  wdTswana = $00000432;
  wdTurkish = $0000041F;
  wdTurkmen = $00000442;
  wdUkrainian = $00000422;
  wdUrdu = $00000420;
  wdUzbekCyrillic = $00000843;
  wdUzbekLatin = $00000443;
  wdVenda = $00000433;
  wdVietnamese = $0000042A;
  wdWelsh = $00000452;
  wdXhosa = $00000434;
  wdYi = $00000478;
  wdYiddish = $0000043D;
  wdYoruba = $0000046A;
  wdZulu = $00000435;

// Constants for enum WdFieldType
type
  WdFieldType = TOleEnum;
const
  wdFieldEmpty = $FFFFFFFF;
  wdFieldRef = $00000003;
  wdFieldIndexEntry = $00000004;
  wdFieldFootnoteRef = $00000005;
  wdFieldSet = $00000006;
  wdFieldIf = $00000007;
  wdFieldIndex = $00000008;
  wdFieldTOCEntry = $00000009;
  wdFieldStyleRef = $0000000A;
  wdFieldRefDoc = $0000000B;
  wdFieldSequence = $0000000C;
  wdFieldTOC = $0000000D;
  wdFieldInfo = $0000000E;
  wdFieldTitle = $0000000F;
  wdFieldSubject = $00000010;
  wdFieldAuthor = $00000011;
  wdFieldKeyWord = $00000012;
  wdFieldComments = $00000013;
  wdFieldLastSavedBy = $00000014;
  wdFieldCreateDate = $00000015;
  wdFieldSaveDate = $00000016;
  wdFieldPrintDate = $00000017;
  wdFieldRevisionNum = $00000018;
  wdFieldEditTime = $00000019;
  wdFieldNumPages = $0000001A;
  wdFieldNumWords = $0000001B;
  wdFieldNumChars = $0000001C;
  wdFieldFileName = $0000001D;
  wdFieldTemplate = $0000001E;
  wdFieldDate = $0000001F;
  wdFieldTime = $00000020;
  wdFieldPage = $00000021;
  wdFieldExpression = $00000022;
  wdFieldQuote = $00000023;
  wdFieldInclude = $00000024;
  wdFieldPageRef = $00000025;
  wdFieldAsk = $00000026;
  wdFieldFillIn = $00000027;
  wdFieldData = $00000028;
  wdFieldNext = $00000029;
  wdFieldNextIf = $0000002A;
  wdFieldSkipIf = $0000002B;
  wdFieldMergeRec = $0000002C;
  wdFieldDDE = $0000002D;
  wdFieldDDEAuto = $0000002E;
  wdFieldGlossary = $0000002F;
  wdFieldPrint = $00000030;
  wdFieldFormula = $00000031;
  wdFieldGoToButton = $00000032;
  wdFieldMacroButton = $00000033;
  wdFieldAutoNumOutline = $00000034;
  wdFieldAutoNumLegal = $00000035;
  wdFieldAutoNum = $00000036;
  wdFieldImport = $00000037;
  wdFieldLink = $00000038;
  wdFieldSymbol = $00000039;
  wdFieldEmbed = $0000003A;
  wdFieldMergeField = $0000003B;
  wdFieldUserName = $0000003C;
  wdFieldUserInitials = $0000003D;
  wdFieldUserAddress = $0000003E;
  wdFieldBarCode = $0000003F;
  wdFieldDocVariable = $00000040;
  wdFieldSection = $00000041;
  wdFieldSectionPages = $00000042;
  wdFieldIncludePicture = $00000043;
  wdFieldIncludeText = $00000044;
  wdFieldFileSize = $00000045;
  wdFieldFormTextInput = $00000046;
  wdFieldFormCheckBox = $00000047;
  wdFieldNoteRef = $00000048;
  wdFieldTOA = $00000049;
  wdFieldTOAEntry = $0000004A;
  wdFieldMergeSeq = $0000004B;
  wdFieldPrivate = $0000004D;
  wdFieldDatabase = $0000004E;
  wdFieldAutoText = $0000004F;
  wdFieldCompare = $00000050;
  wdFieldAddin = $00000051;
  wdFieldSubscriber = $00000052;
  wdFieldFormDropDown = $00000053;
  wdFieldAdvance = $00000054;
  wdFieldDocProperty = $00000055;
  wdFieldOCX = $00000057;
  wdFieldHyperlink = $00000058;
  wdFieldAutoTextList = $00000059;
  wdFieldListNum = $0000005A;
  wdFieldHTMLActiveX = $0000005B;
  wdFieldBidiOutline = $0000005C;
  wdFieldAddressBlock = $0000005D;
  wdFieldGreetingLine = $0000005E;
  wdFieldShape = $0000005F;

// Constants for enum WdBuiltinStyle
type
  WdBuiltinStyle = TOleEnum;
const
  wdStyleNormal = $FFFFFFFF;
  wdStyleEnvelopeAddress = $FFFFFFDB;
  wdStyleEnvelopeReturn = $FFFFFFDA;
  wdStyleBodyText = $FFFFFFBD;
  wdStyleHeading1 = $FFFFFFFE;
  wdStyleHeading2 = $FFFFFFFD;
  wdStyleHeading3 = $FFFFFFFC;
  wdStyleHeading4 = $FFFFFFFB;
  wdStyleHeading5 = $FFFFFFFA;
  wdStyleHeading6 = $FFFFFFF9;
  wdStyleHeading7 = $FFFFFFF8;
  wdStyleHeading8 = $FFFFFFF7;
  wdStyleHeading9 = $FFFFFFF6;
  wdStyleIndex1 = $FFFFFFF5;
  wdStyleIndex2 = $FFFFFFF4;
  wdStyleIndex3 = $FFFFFFF3;
  wdStyleIndex4 = $FFFFFFF2;
  wdStyleIndex5 = $FFFFFFF1;
  wdStyleIndex6 = $FFFFFFF0;
  wdStyleIndex7 = $FFFFFFEF;
  wdStyleIndex8 = $FFFFFFEE;
  wdStyleIndex9 = $FFFFFFED;
  wdStyleTOC1 = $FFFFFFEC;
  wdStyleTOC2 = $FFFFFFEB;
  wdStyleTOC3 = $FFFFFFEA;
  wdStyleTOC4 = $FFFFFFE9;
  wdStyleTOC5 = $FFFFFFE8;
  wdStyleTOC6 = $FFFFFFE7;
  wdStyleTOC7 = $FFFFFFE6;
  wdStyleTOC8 = $FFFFFFE5;
  wdStyleTOC9 = $FFFFFFE4;
  wdStyleNormalIndent = $FFFFFFE3;
  wdStyleFootnoteText = $FFFFFFE2;
  wdStyleCommentText = $FFFFFFE1;
  wdStyleHeader = $FFFFFFE0;
  wdStyleFooter = $FFFFFFDF;
  wdStyleIndexHeading = $FFFFFFDE;
  wdStyleCaption = $FFFFFFDD;
  wdStyleTableOfFigures = $FFFFFFDC;
  wdStyleFootnoteReference = $FFFFFFD9;
  wdStyleCommentReference = $FFFFFFD8;
  wdStyleLineNumber = $FFFFFFD7;
  wdStylePageNumber = $FFFFFFD6;
  wdStyleEndnoteReference = $FFFFFFD5;
  wdStyleEndnoteText = $FFFFFFD4;
  wdStyleTableOfAuthorities = $FFFFFFD3;
  wdStyleMacroText = $FFFFFFD2;
  wdStyleTOAHeading = $FFFFFFD1;
  wdStyleList = $FFFFFFD0;
  wdStyleListBullet = $FFFFFFCF;
  wdStyleListNumber = $FFFFFFCE;
  wdStyleList2 = $FFFFFFCD;
  wdStyleList3 = $FFFFFFCC;
  wdStyleList4 = $FFFFFFCB;
  wdStyleList5 = $FFFFFFCA;
  wdStyleListBullet2 = $FFFFFFC9;
  wdStyleListBullet3 = $FFFFFFC8;
  wdStyleListBullet4 = $FFFFFFC7;
  wdStyleListBullet5 = $FFFFFFC6;
  wdStyleListNumber2 = $FFFFFFC5;
  wdStyleListNumber3 = $FFFFFFC4;
  wdStyleListNumber4 = $FFFFFFC3;
  wdStyleListNumber5 = $FFFFFFC2;
  wdStyleTitle = $FFFFFFC1;
  wdStyleClosing = $FFFFFFC0;
  wdStyleSignature = $FFFFFFBF;
  wdStyleDefaultParagraphFont = $FFFFFFBE;
  wdStyleBodyTextIndent = $FFFFFFBC;
  wdStyleListContinue = $FFFFFFBB;
  wdStyleListContinue2 = $FFFFFFBA;
  wdStyleListContinue3 = $FFFFFFB9;
  wdStyleListContinue4 = $FFFFFFB8;
  wdStyleListContinue5 = $FFFFFFB7;
  wdStyleMessageHeader = $FFFFFFB6;
  wdStyleSubtitle = $FFFFFFB5;
  wdStyleSalutation = $FFFFFFB4;
  wdStyleDate = $FFFFFFB3;
  wdStyleBodyTextFirstIndent = $FFFFFFB2;
  wdStyleBodyTextFirstIndent2 = $FFFFFFB1;
  wdStyleNoteHeading = $FFFFFFB0;
  wdStyleBodyText2 = $FFFFFFAF;
  wdStyleBodyText3 = $FFFFFFAE;
  wdStyleBodyTextIndent2 = $FFFFFFAD;
  wdStyleBodyTextIndent3 = $FFFFFFAC;
  wdStyleBlockQuotation = $FFFFFFAB;
  wdStyleHyperlink = $FFFFFFAA;
  wdStyleHyperlinkFollowed = $FFFFFFA9;
  wdStyleStrong = $FFFFFFA8;
  wdStyleEmphasis = $FFFFFFA7;
  wdStyleNavPane = $FFFFFFA6;
  wdStylePlainText = $FFFFFFA5;
  wdStyleHtmlNormal = $FFFFFFA1;
  wdStyleHtmlAcronym = $FFFFFFA0;
  wdStyleHtmlAddress = $FFFFFF9F;
  wdStyleHtmlCite = $FFFFFF9E;
  wdStyleHtmlCode = $FFFFFF9D;
  wdStyleHtmlDfn = $FFFFFF9C;
  wdStyleHtmlKbd = $FFFFFF9B;
  wdStyleHtmlPre = $FFFFFF9A;
  wdStyleHtmlSamp = $FFFFFF99;
  wdStyleHtmlTt = $FFFFFF98;
  wdStyleHtmlVar = $FFFFFF97;
  wdStyleNormalTable = $FFFFFF96;

// Constants for enum WdWordDialogTab
type
  WdWordDialogTab = TOleEnum;
const
  wdDialogToolsOptionsTabView = $000000CC;
  wdDialogToolsOptionsTabGeneral = $000000CB;
  wdDialogToolsOptionsTabEdit = $000000E0;
  wdDialogToolsOptionsTabPrint = $000000D0;
  wdDialogToolsOptionsTabSave = $000000D1;
  wdDialogToolsOptionsTabProofread = $000000D3;
  wdDialogToolsOptionsTabTrackChanges = $00000182;
  wdDialogToolsOptionsTabUserInfo = $000000D5;
  wdDialogToolsOptionsTabCompatibility = $0000020D;
  wdDialogToolsOptionsTabTypography = $000002E3;
  wdDialogToolsOptionsTabFileLocations = $000000E1;
  wdDialogToolsOptionsTabFuzzy = $00000316;
  wdDialogToolsOptionsTabHangulHanjaConversion = $00000312;
  wdDialogToolsOptionsTabBidi = $00000405;
  wdDialogToolsOptionsTabSecurity = $00000551;
  wdDialogFilePageSetupTabMargins = $000249F0;
  wdDialogFilePageSetupTabPaper = $000249F1;
  wdDialogFilePageSetupTabLayout = $000249F3;
  wdDialogFilePageSetupTabCharsLines = $000249F4;
  wdDialogInsertSymbolTabSymbols = $00030D40;
  wdDialogInsertSymbolTabSpecialCharacters = $00030D41;
  wdDialogNoteOptionsTabAllFootnotes = $000493E0;
  wdDialogNoteOptionsTabAllEndnotes = $000493E1;
  wdDialogInsertIndexAndTablesTabIndex = $00061A80;
  wdDialogInsertIndexAndTablesTabTableOfContents = $00061A81;
  wdDialogInsertIndexAndTablesTabTableOfFigures = $00061A82;
  wdDialogInsertIndexAndTablesTabTableOfAuthorities = $00061A83;
  wdDialogOrganizerTabStyles = $0007A120;
  wdDialogOrganizerTabAutoText = $0007A121;
  wdDialogOrganizerTabCommandBars = $0007A122;
  wdDialogOrganizerTabMacros = $0007A123;
  wdDialogFormatFontTabFont = $000927C0;
  wdDialogFormatFontTabCharacterSpacing = $000927C1;
  wdDialogFormatFontTabAnimation = $000927C2;
  wdDialogFormatBordersAndShadingTabBorders = $000AAE60;
  wdDialogFormatBordersAndShadingTabPageBorder = $000AAE61;
  wdDialogFormatBordersAndShadingTabShading = $000AAE62;
  wdDialogToolsEnvelopesAndLabelsTabEnvelopes = $000C3500;
  wdDialogToolsEnvelopesAndLabelsTabLabels = $000C3501;
  wdDialogFormatParagraphTabIndentsAndSpacing = $000F4240;
  wdDialogFormatParagraphTabTextFlow = $000F4241;
  wdDialogFormatParagraphTabTeisai = $000F4242;
  wdDialogFormatDrawingObjectTabColorsAndLines = $00124F80;
  wdDialogFormatDrawingObjectTabSize = $00124F81;
  wdDialogFormatDrawingObjectTabPosition = $00124F82;
  wdDialogFormatDrawingObjectTabWrapping = $00124F83;
  wdDialogFormatDrawingObjectTabPicture = $00124F84;
  wdDialogFormatDrawingObjectTabTextbox = $00124F85;
  wdDialogFormatDrawingObjectTabWeb = $00124F86;
  wdDialogFormatDrawingObjectTabHR = $00124F87;
  wdDialogToolsAutoCorrectExceptionsTabFirstLetter = $00155CC0;
  wdDialogToolsAutoCorrectExceptionsTabInitialCaps = $00155CC1;
  wdDialogToolsAutoCorrectExceptionsTabHangulAndAlphabet = $00155CC2;
  wdDialogToolsAutoCorrectExceptionsTabIac = $00155CC3;
  wdDialogFormatBulletsAndNumberingTabBulleted = $0016E360;
  wdDialogFormatBulletsAndNumberingTabNumbered = $0016E361;
  wdDialogFormatBulletsAndNumberingTabOutlineNumbered = $0016E362;
  wdDialogLetterWizardTabLetterFormat = $00186A00;
  wdDialogLetterWizardTabRecipientInfo = $00186A01;
  wdDialogLetterWizardTabOtherElements = $00186A02;
  wdDialogLetterWizardTabSenderInfo = $00186A03;
  wdDialogToolsAutoManagerTabAutoCorrect = $0019F0A0;
  wdDialogToolsAutoManagerTabAutoFormatAsYouType = $0019F0A1;
  wdDialogToolsAutoManagerTabAutoText = $0019F0A2;
  wdDialogToolsAutoManagerTabAutoFormat = $0019F0A3;
  wdDialogToolsAutoManagerTabSmartTags = $0019F0A4;
  wdDialogTablePropertiesTabTable = $001B7740;
  wdDialogTablePropertiesTabRow = $001B7741;
  wdDialogTablePropertiesTabColumn = $001B7742;
  wdDialogTablePropertiesTabCell = $001B7743;
  wdDialogEmailOptionsTabSignature = $001CFDE0;
  wdDialogEmailOptionsTabStationary = $001CFDE1;
  wdDialogEmailOptionsTabQuoting = $001CFDE2;
  wdDialogWebOptionsBrowsers = $001E8480;
  wdDialogWebOptionsGeneral = $001E8480;
  wdDialogWebOptionsFiles = $001E8481;
  wdDialogWebOptionsPictures = $001E8482;
  wdDialogWebOptionsEncoding = $001E8483;
  wdDialogWebOptionsFonts = $001E8484;
  wdDialogToolsOptionsTabAcetate = $000004F2;

// Constants for enum WdWordDialogTabHID
type
  WdWordDialogTabHID = TOleEnum;
const
  wdDialogFilePageSetupTabPaperSize = $000249F1;
  wdDialogFilePageSetupTabPaperSource = $000249F2;

// Constants for enum WdWordDialog
type
  WdWordDialog = TOleEnum;
const
  wdDialogHelpAbout = $00000009;
  wdDialogHelpWordPerfectHelp = $0000000A;
  wdDialogDocumentStatistics = $0000004E;
  wdDialogFileNew = $0000004F;
  wdDialogFileOpen = $00000050;
  wdDialogMailMergeOpenDataSource = $00000051;
  wdDialogMailMergeOpenHeaderSource = $00000052;
  wdDialogFileSaveAs = $00000054;
  wdDialogFileSummaryInfo = $00000056;
  wdDialogToolsTemplates = $00000057;
  wdDialogFilePrint = $00000058;
  wdDialogFilePrintSetup = $00000061;
  wdDialogFileFind = $00000063;
  wdDialogFormatAddrFonts = $00000067;
  wdDialogEditPasteSpecial = $0000006F;
  wdDialogEditFind = $00000070;
  wdDialogEditReplace = $00000075;
  wdDialogEditStyle = $00000078;
  wdDialogEditLinks = $0000007C;
  wdDialogEditObject = $0000007D;
  wdDialogTableToText = $00000080;
  wdDialogTextToTable = $0000007F;
  wdDialogTableInsertTable = $00000081;
  wdDialogTableInsertCells = $00000082;
  wdDialogTableInsertRow = $00000083;
  wdDialogTableDeleteCells = $00000085;
  wdDialogTableSplitCells = $00000089;
  wdDialogTableRowHeight = $0000008E;
  wdDialogTableColumnWidth = $0000008F;
  wdDialogToolsCustomize = $00000098;
  wdDialogInsertBreak = $0000009F;
  wdDialogInsertSymbol = $000000A2;
  wdDialogInsertPicture = $000000A3;
  wdDialogInsertFile = $000000A4;
  wdDialogInsertDateTime = $000000A5;
  wdDialogInsertField = $000000A6;
  wdDialogInsertMergeField = $000000A7;
  wdDialogInsertBookmark = $000000A8;
  wdDialogMarkIndexEntry = $000000A9;
  wdDialogInsertIndex = $000000AA;
  wdDialogInsertTableOfContents = $000000AB;
  wdDialogInsertObject = $000000AC;
  wdDialogToolsCreateEnvelope = $000000AD;
  wdDialogFormatFont = $000000AE;
  wdDialogFormatParagraph = $000000AF;
  wdDialogFormatSectionLayout = $000000B0;
  wdDialogFormatColumns = $000000B1;
  wdDialogFileDocumentLayout = $000000B2;
  wdDialogFilePageSetup = $000000B2;
  wdDialogFormatTabs = $000000B3;
  wdDialogFormatStyle = $000000B4;
  wdDialogFormatDefineStyleFont = $000000B5;
  wdDialogFormatDefineStylePara = $000000B6;
  wdDialogFormatDefineStyleTabs = $000000B7;
  wdDialogFormatDefineStyleFrame = $000000B8;
  wdDialogFormatDefineStyleBorders = $000000B9;
  wdDialogFormatDefineStyleLang = $000000BA;
  wdDialogFormatPicture = $000000BB;
  wdDialogToolsLanguage = $000000BC;
  wdDialogFormatBordersAndShading = $000000BD;
  wdDialogFormatFrame = $000000BE;
  wdDialogToolsThesaurus = $000000C2;
  wdDialogToolsHyphenation = $000000C3;
  wdDialogToolsBulletsNumbers = $000000C4;
  wdDialogToolsHighlightChanges = $000000C5;
  wdDialogToolsRevisions = $000000C5;
  wdDialogToolsCompareDocuments = $000000C6;
  wdDialogTableSort = $000000C7;
  wdDialogToolsOptionsGeneral = $000000CB;
  wdDialogToolsOptionsView = $000000CC;
  wdDialogToolsAdvancedSettings = $000000CE;
  wdDialogToolsOptionsPrint = $000000D0;
  wdDialogToolsOptionsSave = $000000D1;
  wdDialogToolsOptionsSpellingAndGrammar = $000000D3;
  wdDialogToolsOptionsUserInfo = $000000D5;
  wdDialogToolsMacroRecord = $000000D6;
  wdDialogToolsMacro = $000000D7;
  wdDialogWindowActivate = $000000DC;
  wdDialogFormatRetAddrFonts = $000000DD;
  wdDialogOrganizer = $000000DE;
  wdDialogToolsOptionsEdit = $000000E0;
  wdDialogToolsOptionsFileLocations = $000000E1;
  wdDialogToolsWordCount = $000000E4;
  wdDialogControlRun = $000000EB;
  wdDialogInsertPageNumbers = $00000126;
  wdDialogFormatPageNumber = $0000012A;
  wdDialogCopyFile = $0000012C;
  wdDialogFormatChangeCase = $00000142;
  wdDialogUpdateTOC = $0000014B;
  wdDialogInsertDatabase = $00000155;
  wdDialogTableFormula = $0000015C;
  wdDialogFormFieldOptions = $00000161;
  wdDialogInsertCaption = $00000165;
  wdDialogInsertCaptionNumbering = $00000166;
  wdDialogInsertAutoCaption = $00000167;
  wdDialogFormFieldHelp = $00000169;
  wdDialogInsertCrossReference = $0000016F;
  wdDialogInsertFootnote = $00000172;
  wdDialogNoteOptions = $00000175;
  wdDialogToolsAutoCorrect = $0000017A;
  wdDialogToolsOptionsTrackChanges = $00000182;
  wdDialogConvertObject = $00000188;
  wdDialogInsertAddCaption = $00000192;
  wdDialogConnect = $000001A4;
  wdDialogToolsCustomizeKeyboard = $000001B0;
  wdDialogToolsCustomizeMenus = $000001B1;
  wdDialogToolsMergeDocuments = $000001B3;
  wdDialogMarkTableOfContentsEntry = $000001BA;
  wdDialogFileMacPageSetupGX = $000001BC;
  wdDialogFilePrintOneCopy = $000001BD;
  wdDialogEditFrame = $000001CA;
  wdDialogMarkCitation = $000001CF;
  wdDialogTableOfContentsOptions = $000001D6;
  wdDialogInsertTableOfAuthorities = $000001D7;
  wdDialogInsertTableOfFigures = $000001D8;
  wdDialogInsertIndexAndTables = $000001D9;
  wdDialogInsertFormField = $000001E3;
  wdDialogFormatDropCap = $000001E8;
  wdDialogToolsCreateLabels = $000001E9;
  wdDialogToolsProtectDocument = $000001F7;
  wdDialogFormatStyleGallery = $000001F9;
  wdDialogToolsAcceptRejectChanges = $000001FA;
  wdDialogHelpWordPerfectHelpOptions = $000001FF;
  wdDialogToolsUnprotectDocument = $00000209;
  wdDialogToolsOptionsCompatibility = $0000020D;
  wdDialogTableOfCaptionsOptions = $00000227;
  wdDialogTableAutoFormat = $00000233;
  wdDialogMailMergeFindRecord = $00000239;
  wdDialogReviewAfmtRevisions = $0000023A;
  wdDialogViewZoom = $00000241;
  wdDialogToolsProtectSection = $00000242;
  wdDialogFontSubstitution = $00000245;
  wdDialogInsertSubdocument = $00000247;
  wdDialogNewToolbar = $0000024A;
  wdDialogToolsEnvelopesAndLabels = $0000025F;
  wdDialogFormatCallout = $00000262;
  wdDialogTableFormatCell = $00000264;
  wdDialogToolsCustomizeMenuBar = $00000267;
  wdDialogFileRoutingSlip = $00000270;
  wdDialogEditTOACategory = $00000271;
  wdDialogToolsManageFields = $00000277;
  wdDialogDrawSnapToGrid = $00000279;
  wdDialogDrawAlign = $0000027A;
  wdDialogMailMergeCreateDataSource = $00000282;
  wdDialogMailMergeCreateHeaderSource = $00000283;
  wdDialogMailMerge = $000002A4;
  wdDialogMailMergeCheck = $000002A5;
  wdDialogMailMergeHelper = $000002A8;
  wdDialogMailMergeQueryOptions = $000002A9;
  wdDialogFileMacPageSetup = $000002AD;
  wdDialogListCommands = $000002D3;
  wdDialogEditCreatePublisher = $000002DC;
  wdDialogEditSubscribeTo = $000002DD;
  wdDialogEditPublishOptions = $000002DF;
  wdDialogEditSubscribeOptions = $000002E0;
  wdDialogFileMacCustomPageSetupGX = $000002E1;
  wdDialogToolsOptionsTypography = $000002E3;
  wdDialogToolsAutoCorrectExceptions = $000002FA;
  wdDialogToolsOptionsAutoFormatAsYouType = $0000030A;
  wdDialogMailMergeUseAddressBook = $0000030B;
  wdDialogToolsHangulHanjaConversion = $00000310;
  wdDialogToolsOptionsFuzzy = $00000316;
  wdDialogEditGoToOld = $0000032B;
  wdDialogInsertNumber = $0000032C;
  wdDialogLetterWizard = $00000335;
  wdDialogFormatBulletsAndNumbering = $00000338;
  wdDialogToolsSpellingAndGrammar = $0000033C;
  wdDialogToolsCreateDirectory = $00000341;
  wdDialogTableWrapping = $00000356;
  wdDialogFormatTheme = $00000357;
  wdDialogTableProperties = $0000035D;
  wdDialogEmailOptions = $0000035F;
  wdDialogCreateAutoText = $00000368;
  wdDialogToolsAutoSummarize = $0000036A;
  wdDialogToolsGrammarSettings = $00000375;
  wdDialogEditGoTo = $00000380;
  wdDialogWebOptions = $00000382;
  wdDialogInsertHyperlink = $0000039D;
  wdDialogToolsAutoManager = $00000393;
  wdDialogFileVersions = $000003B1;
  wdDialogToolsOptionsAutoFormat = $000003BF;
  wdDialogFormatDrawingObject = $000003C0;
  wdDialogToolsOptions = $000003CE;
  wdDialogFitText = $000003D7;
  wdDialogEditAutoText = $000003D9;
  wdDialogPhoneticGuide = $000003DA;
  wdDialogToolsDictionary = $000003DD;
  wdDialogFileSaveVersion = $000003EF;
  wdDialogToolsOptionsBidi = $00000405;
  wdDialogFrameSetProperties = $00000432;
  wdDialogTableTableOptions = $00000438;
  wdDialogTableCellOptions = $00000439;
  wdDialogIMESetDefault = $00000446;
  wdDialogTCSCTranslator = $00000484;
  wdDialogHorizontalInVertical = $00000488;
  wdDialogTwoLinesInOne = $00000489;
  wdDialogFormatEncloseCharacters = $0000048A;
  wdDialogConsistencyChecker = $00000461;
  wdDialogToolsOptionsSmartTag = $00000573;
  wdDialogFormatStylesCustom = $000004E0;
  wdDialogCSSLinks = $000004ED;
  wdDialogInsertWebComponent = $0000052C;
  wdDialogToolsOptionsEditCopyPaste = $0000054C;
  wdDialogToolsOptionsSecurity = $00000551;
  wdDialogSearch = $00000553;
  wdDialogShowRepairs = $00000565;
  wdDialogMailMergeInsertAsk = $00000FCF;
  wdDialogMailMergeInsertFillIn = $00000FD0;
  wdDialogMailMergeInsertIf = $00000FD1;
  wdDialogMailMergeInsertNextIf = $00000FD5;
  wdDialogMailMergeInsertSet = $00000FD6;
  wdDialogMailMergeInsertSkipIf = $00000FD7;
  wdDialogMailMergeFieldMapping = $00000518;
  wdDialogMailMergeInsertAddressBlock = $00000519;
  wdDialogMailMergeInsertGreetingLine = $0000051A;
  wdDialogMailMergeInsertFields = $0000051B;
  wdDialogMailMergeRecipients = $0000051C;
  wdDialogMailMergeFindRecipient = $0000052E;
  wdDialogMailMergeSetDocumentType = $0000053B;

// Constants for enum WdWordDialogHID
type
  WdWordDialogHID = TOleEnum;
const
  emptyenum___________ = $00000000;

// Constants for enum WdFieldKind
type
  WdFieldKind = TOleEnum;
const
  wdFieldKindNone = $00000000;
  wdFieldKindHot = $00000001;
  wdFieldKindWarm = $00000002;
  wdFieldKindCold = $00000003;

// Constants for enum WdTextFormFieldType
type
  WdTextFormFieldType = TOleEnum;
const
  wdRegularText = $00000000;
  wdNumberText = $00000001;
  wdDateText = $00000002;
  wdCurrentDateText = $00000003;
  wdCurrentTimeText = $00000004;
  wdCalculationText = $00000005;

// Constants for enum WdChevronConvertRule
type
  WdChevronConvertRule = TOleEnum;
const
  wdNeverConvert = $00000000;
  wdAlwaysConvert = $00000001;
  wdAskToNotConvert = $00000002;
  wdAskToConvert = $00000003;

// Constants for enum WdMailMergeMainDocType
type
  WdMailMergeMainDocType = TOleEnum;
const
  wdNotAMergeDocument = $FFFFFFFF;
  wdFormLetters = $00000000;
  wdMailingLabels = $00000001;
  wdEnvelopes = $00000002;
  wdCatalog = $00000003;
  wdEMail = $00000004;
  wdFax = $00000005;
  wdDirectory = $00000003;

// Constants for enum WdMailMergeState
type
  WdMailMergeState = TOleEnum;
const
  wdNormalDocument = $00000000;
  wdMainDocumentOnly = $00000001;
  wdMainAndDataSource = $00000002;
  wdMainAndHeader = $00000003;
  wdMainAndSourceAndHeader = $00000004;
  wdDataSource = $00000005;

// Constants for enum WdMailMergeDestination
type
  WdMailMergeDestination = TOleEnum;
const
  wdSendToNewDocument = $00000000;
  wdSendToPrinter = $00000001;
  wdSendToEmail = $00000002;
  wdSendToFax = $00000003;

// Constants for enum WdMailMergeActiveRecord
type
  WdMailMergeActiveRecord = TOleEnum;
const
  wdNoActiveRecord = $FFFFFFFF;
  wdNextRecord = $FFFFFFFE;
  wdPreviousRecord = $FFFFFFFD;
  wdFirstRecord = $FFFFFFFC;
  wdLastRecord = $FFFFFFFB;
  wdFirstDataSourceRecord = $FFFFFFFA;
  wdLastDataSourceRecord = $FFFFFFF9;
  wdNextDataSourceRecord = $FFFFFFF8;
  wdPreviousDataSourceRecord = $FFFFFFF7;

// Constants for enum WdMailMergeDefaultRecord
type
  WdMailMergeDefaultRecord = TOleEnum;
const
  wdDefaultFirstRecord = $00000001;
  wdDefaultLastRecord = $FFFFFFF0;

// Constants for enum WdMailMergeDataSource
type
  WdMailMergeDataSource = TOleEnum;
const
  wdNoMergeInfo = $FFFFFFFF;
  wdMergeInfoFromWord = $00000000;
  wdMergeInfoFromAccessDDE = $00000001;
  wdMergeInfoFromExcelDDE = $00000002;
  wdMergeInfoFromMSQueryDDE = $00000003;
  wdMergeInfoFromODBC = $00000004;
  wdMergeInfoFromODSO = $00000005;

// Constants for enum WdMailMergeComparison
type
  WdMailMergeComparison = TOleEnum;
const
  wdMergeIfEqual = $00000000;
  wdMergeIfNotEqual = $00000001;
  wdMergeIfLessThan = $00000002;
  wdMergeIfGreaterThan = $00000003;
  wdMergeIfLessThanOrEqual = $00000004;
  wdMergeIfGreaterThanOrEqual = $00000005;
  wdMergeIfIsBlank = $00000006;
  wdMergeIfIsNotBlank = $00000007;

// Constants for enum WdBookmarkSortBy
type
  WdBookmarkSortBy = TOleEnum;
const
  wdSortByName = $00000000;
  wdSortByLocation = $00000001;

// Constants for enum WdWindowState
type
  WdWindowState = TOleEnum;
const
  wdWindowStateNormal = $00000000;
  wdWindowStateMaximize = $00000001;
  wdWindowStateMinimize = $00000002;

// Constants for enum WdPictureLinkType
type
  WdPictureLinkType = TOleEnum;
const
  wdLinkNone = $00000000;
  wdLinkDataInDoc = $00000001;
  wdLinkDataOnDisk = $00000002;

// Constants for enum WdLinkType
type
  WdLinkType = TOleEnum;
const
  wdLinkTypeOLE = $00000000;
  wdLinkTypePicture = $00000001;
  wdLinkTypeText = $00000002;
  wdLinkTypeReference = $00000003;
  wdLinkTypeInclude = $00000004;
  wdLinkTypeImport = $00000005;
  wdLinkTypeDDE = $00000006;
  wdLinkTypeDDEAuto = $00000007;

// Constants for enum WdWindowType
type
  WdWindowType = TOleEnum;
const
  wdWindowDocument = $00000000;
  wdWindowTemplate = $00000001;

// Constants for enum WdViewType
type
  WdViewType = TOleEnum;
const
  wdNormalView = $00000001;
  wdOutlineView = $00000002;
  wdPrintView = $00000003;
  wdPrintPreview = $00000004;
  wdMasterView = $00000005;
  wdWebView = $00000006;

// Constants for enum WdSeekView
type
  WdSeekView = TOleEnum;
const
  wdSeekMainDocument = $00000000;
  wdSeekPrimaryHeader = $00000001;
  wdSeekFirstPageHeader = $00000002;
  wdSeekEvenPagesHeader = $00000003;
  wdSeekPrimaryFooter = $00000004;
  wdSeekFirstPageFooter = $00000005;
  wdSeekEvenPagesFooter = $00000006;
  wdSeekFootnotes = $00000007;
  wdSeekEndnotes = $00000008;
  wdSeekCurrentPageHeader = $00000009;
  wdSeekCurrentPageFooter = $0000000A;

// Constants for enum WdSpecialPane
type
  WdSpecialPane = TOleEnum;
const
  wdPaneNone = $00000000;
  wdPanePrimaryHeader = $00000001;
  wdPaneFirstPageHeader = $00000002;
  wdPaneEvenPagesHeader = $00000003;
  wdPanePrimaryFooter = $00000004;
  wdPaneFirstPageFooter = $00000005;
  wdPaneEvenPagesFooter = $00000006;
  wdPaneFootnotes = $00000007;
  wdPaneEndnotes = $00000008;
  wdPaneFootnoteContinuationNotice = $00000009;
  wdPaneFootnoteContinuationSeparator = $0000000A;
  wdPaneFootnoteSeparator = $0000000B;
  wdPaneEndnoteContinuationNotice = $0000000C;
  wdPaneEndnoteContinuationSeparator = $0000000D;
  wdPaneEndnoteSeparator = $0000000E;
  wdPaneComments = $0000000F;
  wdPaneCurrentPageHeader = $00000010;
  wdPaneCurrentPageFooter = $00000011;
  wdPaneRevisions = $00000012;

// Constants for enum WdPageFit
type
  WdPageFit = TOleEnum;
const
  wdPageFitNone = $00000000;
  wdPageFitFullPage = $00000001;
  wdPageFitBestFit = $00000002;
  wdPageFitTextFit = $00000003;

// Constants for enum WdBrowseTarget
type
  WdBrowseTarget = TOleEnum;
const
  wdBrowsePage = $00000001;
  wdBrowseSection = $00000002;
  wdBrowseComment = $00000003;
  wdBrowseFootnote = $00000004;
  wdBrowseEndnote = $00000005;
  wdBrowseField = $00000006;
  wdBrowseTable = $00000007;
  wdBrowseGraphic = $00000008;
  wdBrowseHeading = $00000009;
  wdBrowseEdit = $0000000A;
  wdBrowseFind = $0000000B;
  wdBrowseGoTo = $0000000C;

// Constants for enum WdPaperTray
type
  WdPaperTray = TOleEnum;
const
  wdPrinterDefaultBin = $00000000;
  wdPrinterUpperBin = $00000001;
  wdPrinterOnlyBin = $00000001;
  wdPrinterLowerBin = $00000002;
  wdPrinterMiddleBin = $00000003;
  wdPrinterManualFeed = $00000004;
  wdPrinterEnvelopeFeed = $00000005;
  wdPrinterManualEnvelopeFeed = $00000006;
  wdPrinterAutomaticSheetFeed = $00000007;
  wdPrinterTractorFeed = $00000008;
  wdPrinterSmallFormatBin = $00000009;
  wdPrinterLargeFormatBin = $0000000A;
  wdPrinterLargeCapacityBin = $0000000B;
  wdPrinterPaperCassette = $0000000E;
  wdPrinterFormSource = $0000000F;

// Constants for enum WdOrientation
type
  WdOrientation = TOleEnum;
const
  wdOrientPortrait = $00000000;
  wdOrientLandscape = $00000001;

// Constants for enum WdSelectionType
type
  WdSelectionType = TOleEnum;
const
  wdNoSelection = $00000000;
  wdSelectionIP = $00000001;
  wdSelectionNormal = $00000002;
  wdSelectionFrame = $00000003;
  wdSelectionColumn = $00000004;
  wdSelectionRow = $00000005;
  wdSelectionBlock = $00000006;
  wdSelectionInlineShape = $00000007;
  wdSelectionShape = $00000008;

// Constants for enum WdCaptionLabelID
type
  WdCaptionLabelID = TOleEnum;
const
  wdCaptionFigure = $FFFFFFFF;
  wdCaptionTable = $FFFFFFFE;
  wdCaptionEquation = $FFFFFFFD;

// Constants for enum WdReferenceType
type
  WdReferenceType = TOleEnum;
const
  wdRefTypeNumberedItem = $00000000;
  wdRefTypeHeading = $00000001;
  wdRefTypeBookmark = $00000002;
  wdRefTypeFootnote = $00000003;
  wdRefTypeEndnote = $00000004;

// Constants for enum WdReferenceKind
type
  WdReferenceKind = TOleEnum;
const
  wdContentText = $FFFFFFFF;
  wdNumberRelativeContext = $FFFFFFFE;
  wdNumberNoContext = $FFFFFFFD;
  wdNumberFullContext = $FFFFFFFC;
  wdEntireCaption = $00000002;
  wdOnlyLabelAndNumber = $00000003;
  wdOnlyCaptionText = $00000004;
  wdFootnoteNumber = $00000005;
  wdEndnoteNumber = $00000006;
  wdPageNumber = $00000007;
  wdPosition = $0000000F;
  wdFootnoteNumberFormatted = $00000010;
  wdEndnoteNumberFormatted = $00000011;

// Constants for enum WdIndexFormat
type
  WdIndexFormat = TOleEnum;
const
  wdIndexTemplate = $00000000;
  wdIndexClassic = $00000001;
  wdIndexFancy = $00000002;
  wdIndexModern = $00000003;
  wdIndexBulleted = $00000004;
  wdIndexFormal = $00000005;
  wdIndexSimple = $00000006;

// Constants for enum WdIndexType
type
  WdIndexType = TOleEnum;
const
  wdIndexIndent = $00000000;
  wdIndexRunin = $00000001;

// Constants for enum WdRevisionsWrap
type
  WdRevisionsWrap = TOleEnum;
const
  wdWrapNever = $00000000;
  wdWrapAlways = $00000001;
  wdWrapAsk = $00000002;

// Constants for enum WdRevisionType
type
  WdRevisionType = TOleEnum;
const
  wdNoRevision = $00000000;
  wdRevisionInsert = $00000001;
  wdRevisionDelete = $00000002;
  wdRevisionProperty = $00000003;
  wdRevisionParagraphNumber = $00000004;
  wdRevisionDisplayField = $00000005;
  wdRevisionReconcile = $00000006;
  wdRevisionConflict = $00000007;
  wdRevisionStyle = $00000008;
  wdRevisionReplace = $00000009;
  wdRevisionParagraphProperty = $0000000A;
  wdRevisionTableProperty = $0000000B;
  wdRevisionSectionProperty = $0000000C;
  wdRevisionStyleDefinition = $0000000D;

// Constants for enum WdRoutingSlipDelivery
type
  WdRoutingSlipDelivery = TOleEnum;
const
  wdOneAfterAnother = $00000000;
  wdAllAtOnce = $00000001;

// Constants for enum WdRoutingSlipStatus
type
  WdRoutingSlipStatus = TOleEnum;
const
  wdNotYetRouted = $00000000;
  wdRouteInProgress = $00000001;
  wdRouteComplete = $00000002;

// Constants for enum WdSectionStart
type
  WdSectionStart = TOleEnum;
const
  wdSectionContinuous = $00000000;
  wdSectionNewColumn = $00000001;
  wdSectionNewPage = $00000002;
  wdSectionEvenPage = $00000003;
  wdSectionOddPage = $00000004;

// Constants for enum WdSaveOptions
type
  WdSaveOptions = TOleEnum;
const
  wdDoNotSaveChanges = $00000000;
  wdSaveChanges = $FFFFFFFF;
  wdPromptToSaveChanges = $FFFFFFFE;

// Constants for enum WdDocumentKind
type
  WdDocumentKind = TOleEnum;
const
  wdDocumentNotSpecified = $00000000;
  wdDocumentLetter = $00000001;
  wdDocumentEmail = $00000002;

// Constants for enum WdDocumentType
type
  WdDocumentType = TOleEnum;
const
  wdTypeDocument = $00000000;
  wdTypeTemplate = $00000001;
  wdTypeFrameset = $00000002;

// Constants for enum WdOriginalFormat
type
  WdOriginalFormat = TOleEnum;
const
  wdWordDocument = $00000000;
  wdOriginalDocumentFormat = $00000001;
  wdPromptUser = $00000002;

// Constants for enum WdRelocate
type
  WdRelocate = TOleEnum;
const
  wdRelocateUp = $00000000;
  wdRelocateDown = $00000001;

// Constants for enum WdInsertedTextMark
type
  WdInsertedTextMark = TOleEnum;
const
  wdInsertedTextMarkNone = $00000000;
  wdInsertedTextMarkBold = $00000001;
  wdInsertedTextMarkItalic = $00000002;
  wdInsertedTextMarkUnderline = $00000003;
  wdInsertedTextMarkDoubleUnderline = $00000004;
  wdInsertedTextMarkColorOnly = $00000005;
  wdInsertedTextMarkStrikeThrough = $00000006;

// Constants for enum WdRevisedLinesMark
type
  WdRevisedLinesMark = TOleEnum;
const
  wdRevisedLinesMarkNone = $00000000;
  wdRevisedLinesMarkLeftBorder = $00000001;
  wdRevisedLinesMarkRightBorder = $00000002;
  wdRevisedLinesMarkOutsideBorder = $00000003;

// Constants for enum WdDeletedTextMark
type
  WdDeletedTextMark = TOleEnum;
const
  wdDeletedTextMarkHidden = $00000000;
  wdDeletedTextMarkStrikeThrough = $00000001;
  wdDeletedTextMarkCaret = $00000002;
  wdDeletedTextMarkPound = $00000003;
  wdDeletedTextMarkNone = $00000004;
  wdDeletedTextMarkBold = $00000005;
  wdDeletedTextMarkItalic = $00000006;
  wdDeletedTextMarkUnderline = $00000007;
  wdDeletedTextMarkDoubleUnderline = $00000008;
  wdDeletedTextMarkColorOnly = $00000009;

// Constants for enum WdRevisedPropertiesMark
type
  WdRevisedPropertiesMark = TOleEnum;
const
  wdRevisedPropertiesMarkNone = $00000000;
  wdRevisedPropertiesMarkBold = $00000001;
  wdRevisedPropertiesMarkItalic = $00000002;
  wdRevisedPropertiesMarkUnderline = $00000003;
  wdRevisedPropertiesMarkDoubleUnderline = $00000004;
  wdRevisedPropertiesMarkColorOnly = $00000005;
  wdRevisedPropertiesMarkStrikeThrough = $00000006;

// Constants for enum WdFieldShading
type
  WdFieldShading = TOleEnum;
const
  wdFieldShadingNever = $00000000;
  wdFieldShadingAlways = $00000001;
  wdFieldShadingWhenSelected = $00000002;

// Constants for enum WdDefaultFilePath
type
  WdDefaultFilePath = TOleEnum;
const
  wdDocumentsPath = $00000000;
  wdPicturesPath = $00000001;
  wdUserTemplatesPath = $00000002;
  wdWorkgroupTemplatesPath = $00000003;
  wdUserOptionsPath = $00000004;
  wdAutoRecoverPath = $00000005;
  wdToolsPath = $00000006;
  wdTutorialPath = $00000007;
  wdStartupPath = $00000008;
  wdProgramPath = $00000009;
  wdGraphicsFiltersPath = $0000000A;
  wdTextConvertersPath = $0000000B;
  wdProofingToolsPath = $0000000C;
  wdTempFilePath = $0000000D;
  wdCurrentFolderPath = $0000000E;
  wdStyleGalleryPath = $0000000F;
  wdBorderArtPath = $00000013;

// Constants for enum WdCompatibility
type
  WdCompatibility = TOleEnum;
const
  wdNoTabHangIndent = $00000001;
  wdNoSpaceRaiseLower = $00000002;
  wdPrintColBlack = $00000003;
  wdWrapTrailSpaces = $00000004;
  wdNoColumnBalance = $00000005;
  wdConvMailMergeEsc = $00000006;
  wdSuppressSpBfAfterPgBrk = $00000007;
  wdSuppressTopSpacing = $00000008;
  wdOrigWordTableRules = $00000009;
  wdTransparentMetafiles = $0000000A;
  wdShowBreaksInFrames = $0000000B;
  wdSwapBordersFacingPages = $0000000C;
  wdLeaveBackslashAlone = $0000000D;
  wdExpandShiftReturn = $0000000E;
  wdDontULTrailSpace = $0000000F;
  wdDontBalanceSingleByteDoubleByteWidth = $00000010;
  wdSuppressTopSpacingMac5 = $00000011;
  wdSpacingInWholePoints = $00000012;
  wdPrintBodyTextBeforeHeader = $00000013;
  wdNoLeading = $00000014;
  wdNoSpaceForUL = $00000015;
  wdMWSmallCaps = $00000016;
  wdNoExtraLineSpacing = $00000017;
  wdTruncateFontHeight = $00000018;
  wdSubFontBySize = $00000019;
  wdUsePrinterMetrics = $0000001A;
  wdWW6BorderRules = $0000001B;
  wdExactOnTop = $0000001C;
  wdSuppressBottomSpacing = $0000001D;
  wdWPSpaceWidth = $0000001E;
  wdWPJustification = $0000001F;
  wdLineWrapLikeWord6 = $00000020;
  wdShapeLayoutLikeWW8 = $00000021;
  wdFootnoteLayoutLikeWW8 = $00000022;
  wdDontUseHTMLParagraphAutoSpacing = $00000023;
  wdDontAdjustLineHeightInTable = $00000024;
  wdForgetLastTabAlignment = $00000025;
  wdAutospaceLikeWW7 = $00000026;
  wdAlignTablesRowByRow = $00000027;
  wdLayoutRawTableWidth = $00000028;
  wdLayoutTableRowsApart = $00000029;
  wdUseWord97LineBreakingRules = $0000002A;
  wdDontBreakWrappedTables = $0000002B;
  wdDontSnapTextToGridInTableWithObjects = $0000002C;
  wdSelectFieldWithFirstOrLastCharacter = $0000002D;
  wdApplyBreakingRules = $0000002E;
  wdDontWrapTextWithPunctuation = $0000002F;
  wdDontUseAsianBreakRulesInGrid = $00000030;

// Constants for enum WdPaperSize
type
  WdPaperSize = TOleEnum;
const
  wdPaper10x14 = $00000000;
  wdPaper11x17 = $00000001;
  wdPaperLetter = $00000002;
  wdPaperLetterSmall = $00000003;
  wdPaperLegal = $00000004;
  wdPaperExecutive = $00000005;
  wdPaperA3 = $00000006;
  wdPaperA4 = $00000007;
  wdPaperA4Small = $00000008;
  wdPaperA5 = $00000009;
  wdPaperB4 = $0000000A;
  wdPaperB5 = $0000000B;
  wdPaperCSheet = $0000000C;
  wdPaperDSheet = $0000000D;
  wdPaperESheet = $0000000E;
  wdPaperFanfoldLegalGerman = $0000000F;
  wdPaperFanfoldStdGerman = $00000010;
  wdPaperFanfoldUS = $00000011;
  wdPaperFolio = $00000012;
  wdPaperLedger = $00000013;
  wdPaperNote = $00000014;
  wdPaperQuarto = $00000015;
  wdPaperStatement = $00000016;
  wdPaperTabloid = $00000017;
  wdPaperEnvelope9 = $00000018;
  wdPaperEnvelope10 = $00000019;
  wdPaperEnvelope11 = $0000001A;
  wdPaperEnvelope12 = $0000001B;
  wdPaperEnvelope14 = $0000001C;
  wdPaperEnvelopeB4 = $0000001D;
  wdPaperEnvelopeB5 = $0000001E;
  wdPaperEnvelopeB6 = $0000001F;
  wdPaperEnvelopeC3 = $00000020;
  wdPaperEnvelopeC4 = $00000021;
  wdPaperEnvelopeC5 = $00000022;
  wdPaperEnvelopeC6 = $00000023;
  wdPaperEnvelopeC65 = $00000024;
  wdPaperEnvelopeDL = $00000025;
  wdPaperEnvelopeItaly = $00000026;
  wdPaperEnvelopeMonarch = $00000027;
  wdPaperEnvelopePersonal = $00000028;
  wdPaperCustom = $00000029;

// Constants for enum WdCustomLabelPageSize
type
  WdCustomLabelPageSize = TOleEnum;
const
  wdCustomLabelLetter = $00000000;
  wdCustomLabelLetterLS = $00000001;
  wdCustomLabelA4 = $00000002;
  wdCustomLabelA4LS = $00000003;
  wdCustomLabelA5 = $00000004;
  wdCustomLabelA5LS = $00000005;
  wdCustomLabelB5 = $00000006;
  wdCustomLabelMini = $00000007;
  wdCustomLabelFanfold = $00000008;
  wdCustomLabelVertHalfSheet = $00000009;
  wdCustomLabelVertHalfSheetLS = $0000000A;
  wdCustomLabelHigaki = $0000000B;
  wdCustomLabelHigakiLS = $0000000C;
  wdCustomLabelB4JIS = $0000000D;

// Constants for enum WdProtectionType
type
  WdProtectionType = TOleEnum;
const
  wdNoProtection = $FFFFFFFF;
  wdAllowOnlyRevisions = $00000000;
  wdAllowOnlyComments = $00000001;
  wdAllowOnlyFormFields = $00000002;

// Constants for enum WdPartOfSpeech
type
  WdPartOfSpeech = TOleEnum;
const
  wdAdjective = $00000000;
  wdNoun = $00000001;
  wdAdverb = $00000002;
  wdVerb = $00000003;
  wdPronoun = $00000004;
  wdConjunction = $00000005;
  wdPreposition = $00000006;
  wdInterjection = $00000007;
  wdIdiom = $00000008;
  wdOther = $00000009;

// Constants for enum WdSubscriberFormats
type
  WdSubscriberFormats = TOleEnum;
const
  wdSubscriberBestFormat = $00000000;
  wdSubscriberRTF = $00000001;
  wdSubscriberText = $00000002;
  wdSubscriberPict = $00000004;

// Constants for enum WdEditionType
type
  WdEditionType = TOleEnum;
const
  wdPublisher = $00000000;
  wdSubscriber = $00000001;

// Constants for enum WdEditionOption
type
  WdEditionOption = TOleEnum;
const
  wdCancelPublisher = $00000000;
  wdSendPublisher = $00000001;
  wdSelectPublisher = $00000002;
  wdAutomaticUpdate = $00000003;
  wdManualUpdate = $00000004;
  wdChangeAttributes = $00000005;
  wdUpdateSubscriber = $00000006;
  wdOpenSource = $00000007;

// Constants for enum WdRelativeHorizontalPosition
type
  WdRelativeHorizontalPosition = TOleEnum;
const
  wdRelativeHorizontalPositionMargin = $00000000;
  wdRelativeHorizontalPositionPage = $00000001;
  wdRelativeHorizontalPositionColumn = $00000002;
  wdRelativeHorizontalPositionCharacter = $00000003;

// Constants for enum WdRelativeVerticalPosition
type
  WdRelativeVerticalPosition = TOleEnum;
const
  wdRelativeVerticalPositionMargin = $00000000;
  wdRelativeVerticalPositionPage = $00000001;
  wdRelativeVerticalPositionParagraph = $00000002;
  wdRelativeVerticalPositionLine = $00000003;

// Constants for enum WdHelpType
type
  WdHelpType = TOleEnum;
const
  wdHelp = $00000000;
  wdHelpAbout = $00000001;
  wdHelpActiveWindow = $00000002;
  wdHelpContents = $00000003;
  wdHelpExamplesAndDemos = $00000004;
  wdHelpIndex = $00000005;
  wdHelpKeyboard = $00000006;
  wdHelpPSSHelp = $00000007;
  wdHelpQuickPreview = $00000008;
  wdHelpSearch = $00000009;
  wdHelpUsingHelp = $0000000A;
  wdHelpIchitaro = $0000000B;
  wdHelpPE2 = $0000000C;
  wdHelpHWP = $0000000D;

// Constants for enum WdHelpTypeHID
type
  WdHelpTypeHID = TOleEnum;
const
  emptyenum____________ = $00000000;

// Constants for enum WdKeyCategory
type
  WdKeyCategory = TOleEnum;
const
  wdKeyCategoryNil = $FFFFFFFF;
  wdKeyCategoryDisable = $00000000;
  wdKeyCategoryCommand = $00000001;
  wdKeyCategoryMacro = $00000002;
  wdKeyCategoryFont = $00000003;
  wdKeyCategoryAutoText = $00000004;
  wdKeyCategoryStyle = $00000005;
  wdKeyCategorySymbol = $00000006;
  wdKeyCategoryPrefix = $00000007;

// Constants for enum WdKey
type
  WdKey = TOleEnum;
const
  wdNoKey = $000000FF;
  wdKeyShift = $00000100;
  wdKeyControl = $00000200;
  wdKeyCommand = $00000200;
  wdKeyAlt = $00000400;
  wdKeyOption = $00000400;
  wdKeyA = $00000041;
  wdKeyB = $00000042;
  wdKeyC = $00000043;
  wdKeyD = $00000044;
  wdKeyE = $00000045;
  wdKeyF = $00000046;
  wdKeyG = $00000047;
  wdKeyH = $00000048;
  wdKeyI = $00000049;
  wdKeyJ = $0000004A;
  wdKeyK = $0000004B;
  wdKeyL = $0000004C;
  wdKeyM = $0000004D;
  wdKeyN = $0000004E;
  wdKeyO = $0000004F;
  wdKeyP = $00000050;
  wdKeyQ = $00000051;
  wdKeyR = $00000052;
  wdKeyS = $00000053;
  wdKeyT = $00000054;
  wdKeyU = $00000055;
  wdKeyV = $00000056;
  wdKeyW = $00000057;
  wdKeyX = $00000058;
  wdKeyY = $00000059;
  wdKeyZ = $0000005A;
  wdKey0 = $00000030;
  wdKey1 = $00000031;
  wdKey2 = $00000032;
  wdKey3 = $00000033;
  wdKey4 = $00000034;
  wdKey5 = $00000035;
  wdKey6 = $00000036;
  wdKey7 = $00000037;
  wdKey8 = $00000038;
  wdKey9 = $00000039;
  wdKeyBackspace = $00000008;
  wdKeyTab = $00000009;
  wdKeyNumeric5Special = $0000000C;
  wdKeyReturn = $0000000D;
  wdKeyPause = $00000013;
  wdKeyEsc = $0000001B;
  wdKeySpacebar = $00000020;
  wdKeyPageUp = $00000021;
  wdKeyPageDown = $00000022;
  wdKeyEnd = $00000023;
  wdKeyHome = $00000024;
  wdKeyInsert = $0000002D;
  wdKeyDelete = $0000002E;
  wdKeyNumeric0 = $00000060;
  wdKeyNumeric1 = $00000061;
  wdKeyNumeric2 = $00000062;
  wdKeyNumeric3 = $00000063;
  wdKeyNumeric4 = $00000064;
  wdKeyNumeric5 = $00000065;
  wdKeyNumeric6 = $00000066;
  wdKeyNumeric7 = $00000067;
  wdKeyNumeric8 = $00000068;
  wdKeyNumeric9 = $00000069;
  wdKeyNumericMultiply = $0000006A;
  wdKeyNumericAdd = $0000006B;
  wdKeyNumericSubtract = $0000006D;
  wdKeyNumericDecimal = $0000006E;
  wdKeyNumericDivide = $0000006F;
  wdKeyF1 = $00000070;
  wdKeyF2 = $00000071;
  wdKeyF3 = $00000072;
  wdKeyF4 = $00000073;
  wdKeyF5 = $00000074;
  wdKeyF6 = $00000075;
  wdKeyF7 = $00000076;
  wdKeyF8 = $00000077;
  wdKeyF9 = $00000078;
  wdKeyF10 = $00000079;
  wdKeyF11 = $0000007A;
  wdKeyF12 = $0000007B;
  wdKeyF13 = $0000007C;
  wdKeyF14 = $0000007D;
  wdKeyF15 = $0000007E;
  wdKeyF16 = $0000007F;
  wdKeyScrollLock = $00000091;
  wdKeySemiColon = $000000BA;
  wdKeyEquals = $000000BB;
  wdKeyComma = $000000BC;
  wdKeyHyphen = $000000BD;
  wdKeyPeriod = $000000BE;
  wdKeySlash = $000000BF;
  wdKeyBackSingleQuote = $000000C0;
  wdKeyOpenSquareBrace = $000000DB;
  wdKeyBackSlash = $000000DC;
  wdKeyCloseSquareBrace = $000000DD;
  wdKeySingleQuote = $000000DE;

// Constants for enum WdOLEType
type
  WdOLEType = TOleEnum;
const
  wdOLELink = $00000000;
  wdOLEEmbed = $00000001;
  wdOLEControl = $00000002;

// Constants for enum WdOLEVerb
type
  WdOLEVerb = TOleEnum;
const
  wdOLEVerbPrimary = $00000000;
  wdOLEVerbShow = $FFFFFFFF;
  wdOLEVerbOpen = $FFFFFFFE;
  wdOLEVerbHide = $FFFFFFFD;
  wdOLEVerbUIActivate = $FFFFFFFC;
  wdOLEVerbInPlaceActivate = $FFFFFFFB;
  wdOLEVerbDiscardUndoState = $FFFFFFFA;

// Constants for enum WdOLEPlacement
type
  WdOLEPlacement = TOleEnum;
const
  wdInLine = $00000000;
  wdFloatOverText = $00000001;

// Constants for enum WdEnvelopeOrientation
type
  WdEnvelopeOrientation = TOleEnum;
const
  wdLeftPortrait = $00000000;
  wdCenterPortrait = $00000001;
  wdRightPortrait = $00000002;
  wdLeftLandscape = $00000003;
  wdCenterLandscape = $00000004;
  wdRightLandscape = $00000005;
  wdLeftClockwise = $00000006;
  wdCenterClockwise = $00000007;
  wdRightClockwise = $00000008;

// Constants for enum WdLetterStyle
type
  WdLetterStyle = TOleEnum;
const
  wdFullBlock = $00000000;
  wdModifiedBlock = $00000001;
  wdSemiBlock = $00000002;

// Constants for enum WdLetterheadLocation
type
  WdLetterheadLocation = TOleEnum;
const
  wdLetterTop = $00000000;
  wdLetterBottom = $00000001;
  wdLetterLeft = $00000002;
  wdLetterRight = $00000003;

// Constants for enum WdSalutationType
type
  WdSalutationType = TOleEnum;
const
  wdSalutationInformal = $00000000;
  wdSalutationFormal = $00000001;
  wdSalutationBusiness = $00000002;
  wdSalutationOther = $00000003;

// Constants for enum WdSalutationGender
type
  WdSalutationGender = TOleEnum;
const
  wdGenderFemale = $00000000;
  wdGenderMale = $00000001;
  wdGenderNeutral = $00000002;
  wdGenderUnknown = $00000003;

// Constants for enum WdMovementType
type
  WdMovementType = TOleEnum;
const
  wdMove = $00000000;
  wdExtend = $00000001;

// Constants for enum WdConstants
type
  WdConstants = TOleEnum;
const
  wdUndefined = $0098967F;
  wdToggle = $0098967E;
  wdForward = $3FFFFFFF;
  wdBackward = $C0000001;
  wdAutoPosition = $00000000;
  wdFirst = $00000001;
  wdCreatorCode = $4D535744;

// Constants for enum WdPasteDataType
type
  WdPasteDataType = TOleEnum;
const
  wdPasteOLEObject = $00000000;
  wdPasteRTF = $00000001;
  wdPasteText = $00000002;
  wdPasteMetafilePicture = $00000003;
  wdPasteBitmap = $00000004;
  wdPasteDeviceIndependentBitmap = $00000005;
  wdPasteHyperlink = $00000007;
  wdPasteShape = $00000008;
  wdPasteEnhancedMetafile = $00000009;
  wdPasteHTML = $0000000A;

// Constants for enum WdPrintOutItem
type
  WdPrintOutItem = TOleEnum;
const
  wdPrintDocumentContent = $00000000;
  wdPrintProperties = $00000001;
  wdPrintComments = $00000002;
  wdPrintMarkup = $00000002;
  wdPrintStyles = $00000003;
  wdPrintAutoTextEntries = $00000004;
  wdPrintKeyAssignments = $00000005;
  wdPrintEnvelope = $00000006;
  wdPrintDocumentWithMarkup = $00000007;

// Constants for enum WdPrintOutPages
type
  WdPrintOutPages = TOleEnum;
const
  wdPrintAllPages = $00000000;
  wdPrintOddPagesOnly = $00000001;
  wdPrintEvenPagesOnly = $00000002;

// Constants for enum WdPrintOutRange
type
  WdPrintOutRange = TOleEnum;
const
  wdPrintAllDocument = $00000000;
  wdPrintSelection = $00000001;
  wdPrintCurrentPage = $00000002;
  wdPrintFromTo = $00000003;
  wdPrintRangeOfPages = $00000004;

// Constants for enum WdDictionaryType
type
  WdDictionaryType = TOleEnum;
const
  wdSpelling = $00000000;
  wdGrammar = $00000001;
  wdThesaurus = $00000002;
  wdHyphenation = $00000003;
  wdSpellingComplete = $00000004;
  wdSpellingCustom = $00000005;
  wdSpellingLegal = $00000006;
  wdSpellingMedical = $00000007;
  wdHangulHanjaConversion = $00000008;
  wdHangulHanjaConversionCustom = $00000009;

// Constants for enum WdDictionaryTypeHID
type
  WdDictionaryTypeHID = TOleEnum;
const
  emptyenum_____________ = $00000000;

// Constants for enum WdSpellingWordType
type
  WdSpellingWordType = TOleEnum;
const
  wdSpellword = $00000000;
  wdWildcard = $00000001;
  wdAnagram = $00000002;

// Constants for enum WdSpellingErrorType
type
  WdSpellingErrorType = TOleEnum;
const
  wdSpellingCorrect = $00000000;
  wdSpellingNotInDictionary = $00000001;
  wdSpellingCapitalization = $00000002;

// Constants for enum WdProofreadingErrorType
type
  WdProofreadingErrorType = TOleEnum;
const
  wdSpellingError = $00000000;
  wdGrammaticalError = $00000001;

// Constants for enum WdInlineShapeType
type
  WdInlineShapeType = TOleEnum;
const
  wdInlineShapeEmbeddedOLEObject = $00000001;
  wdInlineShapeLinkedOLEObject = $00000002;
  wdInlineShapePicture = $00000003;
  wdInlineShapeLinkedPicture = $00000004;
  wdInlineShapeOLEControlObject = $00000005;
  wdInlineShapeHorizontalLine = $00000006;
  wdInlineShapePictureHorizontalLine = $00000007;
  wdInlineShapeLinkedPictureHorizontalLine = $00000008;
  wdInlineShapePictureBullet = $00000009;
  wdInlineShapeScriptAnchor = $0000000A;
  wdInlineShapeOWSAnchor = $0000000B;

// Constants for enum WdArrangeStyle
type
  WdArrangeStyle = TOleEnum;
const
  wdTiled = $00000000;
  wdIcons = $00000001;

// Constants for enum WdSelectionFlags
type
  WdSelectionFlags = TOleEnum;
const
  wdSelStartActive = $00000001;
  wdSelAtEOL = $00000002;
  wdSelOvertype = $00000004;
  wdSelActive = $00000008;
  wdSelReplace = $00000010;

// Constants for enum WdAutoVersions
type
  WdAutoVersions = TOleEnum;
const
  wdAutoVersionOff = $00000000;
  wdAutoVersionOnClose = $00000001;

// Constants for enum WdOrganizerObject
type
  WdOrganizerObject = TOleEnum;
const
  wdOrganizerObjectStyles = $00000000;
  wdOrganizerObjectAutoText = $00000001;
  wdOrganizerObjectCommandBars = $00000002;
  wdOrganizerObjectProjectItems = $00000003;

// Constants for enum WdFindMatch
type
  WdFindMatch = TOleEnum;
const
  wdMatchParagraphMark = $0001000F;
  wdMatchTabCharacter = $00000009;
  wdMatchCommentMark = $00000005;
  wdMatchAnyCharacter = $0001003F;
  wdMatchAnyDigit = $0001001F;
  wdMatchAnyLetter = $0001002F;
  wdMatchCaretCharacter = $0000000B;
  wdMatchColumnBreak = $0000000E;
  wdMatchEmDash = $00002014;
  wdMatchEnDash = $00002013;
  wdMatchEndnoteMark = $00010013;
  wdMatchField = $00000013;
  wdMatchFootnoteMark = $00010012;
  wdMatchGraphic = $00000001;
  wdMatchManualLineBreak = $0001000F;
  wdMatchManualPageBreak = $0001001C;
  wdMatchNonbreakingHyphen = $0000001E;
  wdMatchNonbreakingSpace = $000000A0;
  wdMatchOptionalHyphen = $0000001F;
  wdMatchSectionBreak = $0001002C;
  wdMatchWhiteSpace = $00010077;

// Constants for enum WdFindWrap
type
  WdFindWrap = TOleEnum;
const
  wdFindStop = $00000000;
  wdFindContinue = $00000001;
  wdFindAsk = $00000002;

// Constants for enum WdInformation
type
  WdInformation = TOleEnum;
const
  wdActiveEndAdjustedPageNumber = $00000001;
  wdActiveEndSectionNumber = $00000002;
  wdActiveEndPageNumber = $00000003;
  wdNumberOfPagesInDocument = $00000004;
  wdHorizontalPositionRelativeToPage = $00000005;
  wdVerticalPositionRelativeToPage = $00000006;
  wdHorizontalPositionRelativeToTextBoundary = $00000007;
  wdVerticalPositionRelativeToTextBoundary = $00000008;
  wdFirstCharacterColumnNumber = $00000009;
  wdFirstCharacterLineNumber = $0000000A;
  wdFrameIsSelected = $0000000B;
  wdWithInTable = $0000000C;
  wdStartOfRangeRowNumber = $0000000D;
  wdEndOfRangeRowNumber = $0000000E;
  wdMaximumNumberOfRows = $0000000F;
  wdStartOfRangeColumnNumber = $00000010;
  wdEndOfRangeColumnNumber = $00000011;
  wdMaximumNumberOfColumns = $00000012;
  wdZoomPercentage = $00000013;
  wdSelectionMode = $00000014;
  wdCapsLock = $00000015;
  wdNumLock = $00000016;
  wdOverType = $00000017;
  wdRevisionMarking = $00000018;
  wdInFootnoteEndnotePane = $00000019;
  wdInCommentPane = $0000001A;
  wdInHeaderFooter = $0000001C;
  wdAtEndOfRowMarker = $0000001F;
  wdReferenceOfType = $00000020;
  wdHeaderFooterType = $00000021;
  wdInMasterDocument = $00000022;
  wdInFootnote = $00000023;
  wdInEndnote = $00000024;
  wdInWordMail = $00000025;
  wdInClipboard = $00000026;

// Constants for enum WdWrapType
type
  WdWrapType = TOleEnum;
const
  wdWrapSquare = $00000000;
  wdWrapTight = $00000001;
  wdWrapThrough = $00000002;
  wdWrapNone = $00000003;
  wdWrapTopBottom = $00000004;
  wdWrapInline = $00000007;

// Constants for enum WdWrapSideType
type
  WdWrapSideType = TOleEnum;
const
  wdWrapBoth = $00000000;
  wdWrapLeft = $00000001;
  wdWrapRight = $00000002;
  wdWrapLargest = $00000003;

// Constants for enum WdOutlineLevel
type
  WdOutlineLevel = TOleEnum;
const
  wdOutlineLevel1 = $00000001;
  wdOutlineLevel2 = $00000002;
  wdOutlineLevel3 = $00000003;
  wdOutlineLevel4 = $00000004;
  wdOutlineLevel5 = $00000005;
  wdOutlineLevel6 = $00000006;
  wdOutlineLevel7 = $00000007;
  wdOutlineLevel8 = $00000008;
  wdOutlineLevel9 = $00000009;
  wdOutlineLevelBodyText = $0000000A;

// Constants for enum WdTextOrientation
type
  WdTextOrientation = TOleEnum;
const
  wdTextOrientationHorizontal = $00000000;
  wdTextOrientationUpward = $00000002;
  wdTextOrientationDownward = $00000003;
  wdTextOrientationVerticalFarEast = $00000001;
  wdTextOrientationHorizontalRotatedFarEast = $00000004;

// Constants for enum WdTextOrientationHID
type
  WdTextOrientationHID = TOleEnum;
const
  emptyenum______________ = $00000000;

// Constants for enum WdPageBorderArt
type
  WdPageBorderArt = TOleEnum;
const
  wdArtApples = $00000001;
  wdArtMapleMuffins = $00000002;
  wdArtCakeSlice = $00000003;
  wdArtCandyCorn = $00000004;
  wdArtIceCreamCones = $00000005;
  wdArtChampagneBottle = $00000006;
  wdArtPartyGlass = $00000007;
  wdArtChristmasTree = $00000008;
  wdArtTrees = $00000009;
  wdArtPalmsColor = $0000000A;
  wdArtBalloons3Colors = $0000000B;
  wdArtBalloonsHotAir = $0000000C;
  wdArtPartyFavor = $0000000D;
  wdArtConfettiStreamers = $0000000E;
  wdArtHearts = $0000000F;
  wdArtHeartBalloon = $00000010;
  wdArtStars3D = $00000011;
  wdArtStarsShadowed = $00000012;
  wdArtStars = $00000013;
  wdArtSun = $00000014;
  wdArtEarth2 = $00000015;
  wdArtEarth1 = $00000016;
  wdArtPeopleHats = $00000017;
  wdArtSombrero = $00000018;
  wdArtPencils = $00000019;
  wdArtPackages = $0000001A;
  wdArtClocks = $0000001B;
  wdArtFirecrackers = $0000001C;
  wdArtRings = $0000001D;
  wdArtMapPins = $0000001E;
  wdArtConfetti = $0000001F;
  wdArtCreaturesButterfly = $00000020;
  wdArtCreaturesLadyBug = $00000021;
  wdArtCreaturesFish = $00000022;
  wdArtBirdsFlight = $00000023;
  wdArtScaredCat = $00000024;
  wdArtBats = $00000025;
  wdArtFlowersRoses = $00000026;
  wdArtFlowersRedRose = $00000027;
  wdArtPoinsettias = $00000028;
  wdArtHolly = $00000029;
  wdArtFlowersTiny = $0000002A;
  wdArtFlowersPansy = $0000002B;
  wdArtFlowersModern2 = $0000002C;
  wdArtFlowersModern1 = $0000002D;
  wdArtWhiteFlowers = $0000002E;
  wdArtVine = $0000002F;
  wdArtFlowersDaisies = $00000030;
  wdArtFlowersBlockPrint = $00000031;
  wdArtDecoArchColor = $00000032;
  wdArtFans = $00000033;
  wdArtFilm = $00000034;
  wdArtLightning1 = $00000035;
  wdArtCompass = $00000036;
  wdArtDoubleD = $00000037;
  wdArtClassicalWave = $00000038;
  wdArtShadowedSquares = $00000039;
  wdArtTwistedLines1 = $0000003A;
  wdArtWaveline = $0000003B;
  wdArtQuadrants = $0000003C;
  wdArtCheckedBarColor = $0000003D;
  wdArtSwirligig = $0000003E;
  wdArtPushPinNote1 = $0000003F;
  wdArtPushPinNote2 = $00000040;
  wdArtPumpkin1 = $00000041;
  wdArtEggsBlack = $00000042;
  wdArtCup = $00000043;
  wdArtHeartGray = $00000044;
  wdArtGingerbreadMan = $00000045;
  wdArtBabyPacifier = $00000046;
  wdArtBabyRattle = $00000047;
  wdArtCabins = $00000048;
  wdArtHouseFunky = $00000049;
  wdArtStarsBlack = $0000004A;
  wdArtSnowflakes = $0000004B;
  wdArtSnowflakeFancy = $0000004C;
  wdArtSkyrocket = $0000004D;
  wdArtSeattle = $0000004E;
  wdArtMusicNotes = $0000004F;
  wdArtPalmsBlack = $00000050;
  wdArtMapleLeaf = $00000051;
  wdArtPaperClips = $00000052;
  wdArtShorebirdTracks = $00000053;
  wdArtPeople = $00000054;
  wdArtPeopleWaving = $00000055;
  wdArtEclipsingSquares2 = $00000056;
  wdArtHypnotic = $00000057;
  wdArtDiamondsGray = $00000058;
  wdArtDecoArch = $00000059;
  wdArtDecoBlocks = $0000005A;
  wdArtCirclesLines = $0000005B;
  wdArtPapyrus = $0000005C;
  wdArtWoodwork = $0000005D;
  wdArtWeavingBraid = $0000005E;
  wdArtWeavingRibbon = $0000005F;
  wdArtWeavingAngles = $00000060;
  wdArtArchedScallops = $00000061;
  wdArtSafari = $00000062;
  wdArtCelticKnotwork = $00000063;
  wdArtCrazyMaze = $00000064;
  wdArtEclipsingSquares1 = $00000065;
  wdArtBirds = $00000066;
  wdArtFlowersTeacup = $00000067;
  wdArtNorthwest = $00000068;
  wdArtSouthwest = $00000069;
  wdArtTribal6 = $0000006A;
  wdArtTribal4 = $0000006B;
  wdArtTribal3 = $0000006C;
  wdArtTribal2 = $0000006D;
  wdArtTribal5 = $0000006E;
  wdArtXIllusions = $0000006F;
  wdArtZanyTriangles = $00000070;
  wdArtPyramids = $00000071;
  wdArtPyramidsAbove = $00000072;
  wdArtConfettiGrays = $00000073;
  wdArtConfettiOutline = $00000074;
  wdArtConfettiWhite = $00000075;
  wdArtMosaic = $00000076;
  wdArtLightning2 = $00000077;
  wdArtHeebieJeebies = $00000078;
  wdArtLightBulb = $00000079;
  wdArtGradient = $0000007A;
  wdArtTriangleParty = $0000007B;
  wdArtTwistedLines2 = $0000007C;
  wdArtMoons = $0000007D;
  wdArtOvals = $0000007E;
  wdArtDoubleDiamonds = $0000007F;
  wdArtChainLink = $00000080;
  wdArtTriangles = $00000081;
  wdArtTribal1 = $00000082;
  wdArtMarqueeToothed = $00000083;
  wdArtSharksTeeth = $00000084;
  wdArtSawtooth = $00000085;
  wdArtSawtoothGray = $00000086;
  wdArtPostageStamp = $00000087;
  wdArtWeavingStrips = $00000088;
  wdArtZigZag = $00000089;
  wdArtCrossStitch = $0000008A;
  wdArtGems = $0000008B;
  wdArtCirclesRectangles = $0000008C;
  wdArtCornerTriangles = $0000008D;
  wdArtCreaturesInsects = $0000008E;
  wdArtZigZagStitch = $0000008F;
  wdArtCheckered = $00000090;
  wdArtCheckedBarBlack = $00000091;
  wdArtMarquee = $00000092;
  wdArtBasicWhiteDots = $00000093;
  wdArtBasicWideMidline = $00000094;
  wdArtBasicWideOutline = $00000095;
  wdArtBasicWideInline = $00000096;
  wdArtBasicThinLines = $00000097;
  wdArtBasicWhiteDashes = $00000098;
  wdArtBasicWhiteSquares = $00000099;
  wdArtBasicBlackSquares = $0000009A;
  wdArtBasicBlackDashes = $0000009B;
  wdArtBasicBlackDots = $0000009C;
  wdArtStarsTop = $0000009D;
  wdArtCertificateBanner = $0000009E;
  wdArtHandmade1 = $0000009F;
  wdArtHandmade2 = $000000A0;
  wdArtTornPaper = $000000A1;
  wdArtTornPaperBlack = $000000A2;
  wdArtCouponCutoutDashes = $000000A3;
  wdArtCouponCutoutDots = $000000A4;

// Constants for enum WdBorderDistanceFrom
type
  WdBorderDistanceFrom = TOleEnum;
const
  wdBorderDistanceFromText = $00000000;
  wdBorderDistanceFromPageEdge = $00000001;

// Constants for enum WdReplace
type
  WdReplace = TOleEnum;
const
  wdReplaceNone = $00000000;
  wdReplaceOne = $00000001;
  wdReplaceAll = $00000002;

// Constants for enum WdFontBias
type
  WdFontBias = TOleEnum;
const
  wdFontBiasDontCare = $000000FF;
  wdFontBiasDefault = $00000000;
  wdFontBiasFareast = $00000001;

// Constants for enum WdBrowserLevel
type
  WdBrowserLevel = TOleEnum;
const
  wdBrowserLevelV4 = $00000000;
  wdBrowserLevelMicrosoftInternetExplorer5 = $00000001;
  wdBrowserLevelMicrosoftInternetExplorer6 = $00000002;

// Constants for enum WdEnclosureType
type
  WdEnclosureType = TOleEnum;
const
  wdEnclosureCircle = $00000000;
  wdEnclosureSquare = $00000001;
  wdEnclosureTriangle = $00000002;
  wdEnclosureDiamond = $00000003;

// Constants for enum WdEncloseStyle
type
  WdEncloseStyle = TOleEnum;
const
  wdEncloseStyleNone = $00000000;
  wdEncloseStyleSmall = $00000001;
  wdEncloseStyleLarge = $00000002;

// Constants for enum WdHighAnsiText
type
  WdHighAnsiText = TOleEnum;
const
  wdHighAnsiIsFarEast = $00000000;
  wdHighAnsiIsHighAnsi = $00000001;
  wdAutoDetectHighAnsiFarEast = $00000002;

// Constants for enum WdLayoutMode
type
  WdLayoutMode = TOleEnum;
const
  wdLayoutModeDefault = $00000000;
  wdLayoutModeGrid = $00000001;
  wdLayoutModeLineGrid = $00000002;
  wdLayoutModeGenko = $00000003;

// Constants for enum WdDocumentMedium
type
  WdDocumentMedium = TOleEnum;
const
  wdEmailMessage = $00000000;
  wdDocument = $00000001;
  wdWebPage = $00000002;

// Constants for enum WdMailerPriority
type
  WdMailerPriority = TOleEnum;
const
  wdPriorityNormal = $00000001;
  wdPriorityLow = $00000002;
  wdPriorityHigh = $00000003;

// Constants for enum WdDocumentViewDirection
type
  WdDocumentViewDirection = TOleEnum;
const
  wdDocumentViewRtl = $00000000;
  wdDocumentViewLtr = $00000001;

// Constants for enum WdArabicNumeral
type
  WdArabicNumeral = TOleEnum;
const
  wdNumeralArabic = $00000000;
  wdNumeralHindi = $00000001;
  wdNumeralContext = $00000002;
  wdNumeralSystem = $00000003;

// Constants for enum WdMonthNames
type
  WdMonthNames = TOleEnum;
const
  wdMonthNamesArabic = $00000000;
  wdMonthNamesEnglish = $00000001;
  wdMonthNamesFrench = $00000002;

// Constants for enum WdCursorMovement
type
  WdCursorMovement = TOleEnum;
const
  wdCursorMovementLogical = $00000000;
  wdCursorMovementVisual = $00000001;

// Constants for enum WdVisualSelection
type
  WdVisualSelection = TOleEnum;
const
  wdVisualSelectionBlock = $00000000;
  wdVisualSelectionContinuous = $00000001;

// Constants for enum WdTableDirection
type
  WdTableDirection = TOleEnum;
const
  wdTableDirectionRtl = $00000000;
  wdTableDirectionLtr = $00000001;

// Constants for enum WdFlowDirection
type
  WdFlowDirection = TOleEnum;
const
  wdFlowLtr = $00000000;
  wdFlowRtl = $00000001;

// Constants for enum WdDiacriticColor
type
  WdDiacriticColor = TOleEnum;
const
  wdDiacriticColorBidi = $00000000;
  wdDiacriticColorLatin = $00000001;

// Constants for enum WdGutterStyle
type
  WdGutterStyle = TOleEnum;
const
  wdGutterPosLeft = $00000000;
  wdGutterPosTop = $00000001;
  wdGutterPosRight = $00000002;

// Constants for enum WdGutterStyleOld
type
  WdGutterStyleOld = TOleEnum;
const
  wdGutterStyleLatin = $FFFFFFF6;
  wdGutterStyleBidi = $00000002;

// Constants for enum WdSectionDirection
type
  WdSectionDirection = TOleEnum;
const
  wdSectionDirectionRtl = $00000000;
  wdSectionDirectionLtr = $00000001;

// Constants for enum WdDateLanguage
type
  WdDateLanguage = TOleEnum;
const
  wdDateLanguageBidi = $0000000A;
  wdDateLanguageLatin = $00000409;

// Constants for enum WdCalendarTypeBi
type
  WdCalendarTypeBi = TOleEnum;
const
  wdCalendarTypeBidi = $00000063;
  wdCalendarTypeGregorian = $00000064;

// Constants for enum WdCalendarType
type
  WdCalendarType = TOleEnum;
const
  wdCalendarWestern = $00000000;
  wdCalendarArabic = $00000001;
  wdCalendarHebrew = $00000002;
  wdCalendarChina = $00000003;
  wdCalendarJapan = $00000004;
  wdCalendarThai = $00000005;
  wdCalendarKorean = $00000006;
  wdCalendarSakaEra = $00000007;

// Constants for enum WdReadingOrder
type
  WdReadingOrder = TOleEnum;
const
  wdReadingOrderRtl = $00000000;
  wdReadingOrderLtr = $00000001;

// Constants for enum WdHebSpellStart
type
  WdHebSpellStart = TOleEnum;
const
  wdFullScript = $00000000;
  wdPartialScript = $00000001;
  wdMixedScript = $00000002;
  wdMixedAuthorizedScript = $00000003;

// Constants for enum WdAraSpeller
type
  WdAraSpeller = TOleEnum;
const
  wdNone = $00000000;
  wdInitialAlef = $00000001;
  wdFinalYaa = $00000002;
  wdBoth = $00000003;

// Constants for enum WdColor
type
  WdColor = TOleEnum;
const
  wdColorAutomatic = $FF000000;
  wdColorBlack = $00000000;
  wdColorBlue = $00FF0000;
  wdColorTurquoise = $00FFFF00;
  wdColorBrightGreen = $0000FF00;
  wdColorPink = $00FF00FF;
  wdColorRed = $000000FF;
  wdColorYellow = $0000FFFF;
  wdColorWhite = $00FFFFFF;
  wdColorDarkBlue = $00800000;
  wdColorTeal = $00808000;
  wdColorGreen = $00008000;
  wdColorViolet = $00800080;
  wdColorDarkRed = $00000080;
  wdColorDarkYellow = $00008080;
  wdColorBrown = $00003399;
  wdColorOliveGreen = $00003333;
  wdColorDarkGreen = $00003300;
  wdColorDarkTeal = $00663300;
  wdColorIndigo = $00993333;
  wdColorOrange = $000066FF;
  wdColorBlueGray = $00996666;
  wdColorLightOrange = $000099FF;
  wdColorLime = $0000CC99;
  wdColorSeaGreen = $00669933;
  wdColorAqua = $00CCCC33;
  wdColorLightBlue = $00FF6633;
  wdColorGold = $0000CCFF;
  wdColorSkyBlue = $00FFCC00;
  wdColorPlum = $00663399;
  wdColorRose = $00CC99FF;
  wdColorTan = $0099CCFF;
  wdColorLightYellow = $0099FFFF;
  wdColorLightGreen = $00CCFFCC;
  wdColorLightTurquoise = $00FFFFCC;
  wdColorPaleBlue = $00FFCC99;
  wdColorLavender = $00FF99CC;
  wdColorGray05 = $00F3F3F3;
  wdColorGray10 = $00E6E6E6;
  wdColorGray125 = $00E0E0E0;
  wdColorGray15 = $00D9D9D9;
  wdColorGray20 = $00CCCCCC;
  wdColorGray25 = $00C0C0C0;
  wdColorGray30 = $00B3B3B3;
  wdColorGray35 = $00A6A6A6;
  wdColorGray375 = $00A0A0A0;
  wdColorGray40 = $00999999;
  wdColorGray45 = $008C8C8C;
  wdColorGray50 = $00808080;
  wdColorGray55 = $00737373;
  wdColorGray60 = $00666666;
  wdColorGray625 = $00606060;
  wdColorGray65 = $00595959;
  wdColorGray70 = $004C4C4C;
  wdColorGray75 = $00404040;
  wdColorGray80 = $00333333;
  wdColorGray85 = $00262626;
  wdColorGray875 = $00202020;
  wdColorGray90 = $00191919;
  wdColorGray95 = $000C0C0C;

// Constants for enum WdShapePosition
type
  WdShapePosition = TOleEnum;
const
  wdShapeTop = $FFF0BDC1;
  wdShapeLeft = $FFF0BDC2;
  wdShapeBottom = $FFF0BDC3;
  wdShapeRight = $FFF0BDC4;
  wdShapeCenter = $FFF0BDC5;
  wdShapeInside = $FFF0BDC6;
  wdShapeOutside = $FFF0BDC7;

// Constants for enum WdTablePosition
type
  WdTablePosition = TOleEnum;
const
  wdTableTop = $FFF0BDC1;
  wdTableLeft = $FFF0BDC2;
  wdTableBottom = $FFF0BDC3;
  wdTableRight = $FFF0BDC4;
  wdTableCenter = $FFF0BDC5;
  wdTableInside = $FFF0BDC6;
  wdTableOutside = $FFF0BDC7;

// Constants for enum WdDefaultListBehavior
type
  WdDefaultListBehavior = TOleEnum;
const
  wdWord8ListBehavior = $00000000;
  wdWord9ListBehavior = $00000001;
  wdWord10ListBehavior = $00000002;

// Constants for enum WdDefaultTableBehavior
type
  WdDefaultTableBehavior = TOleEnum;
const
  wdWord8TableBehavior = $00000000;
  wdWord9TableBehavior = $00000001;

// Constants for enum WdAutoFitBehavior
type
  WdAutoFitBehavior = TOleEnum;
const
  wdAutoFitFixed = $00000000;
  wdAutoFitContent = $00000001;
  wdAutoFitWindow = $00000002;

// Constants for enum WdPreferredWidthType
type
  WdPreferredWidthType = TOleEnum;
const
  wdPreferredWidthAuto = $00000001;
  wdPreferredWidthPercent = $00000002;
  wdPreferredWidthPoints = $00000003;

// Constants for enum WdFarEastLineBreakLanguageID
type
  WdFarEastLineBreakLanguageID = TOleEnum;
const
  wdLineBreakJapanese = $00000411;
  wdLineBreakKorean = $00000412;
  wdLineBreakSimplifiedChinese = $00000804;
  wdLineBreakTraditionalChinese = $00000404;

// Constants for enum WdViewTypeOld
type
  WdViewTypeOld = TOleEnum;
const
  wdPageView = $00000003;
  wdOnlineView = $00000006;

// Constants for enum WdFramesetType
type
  WdFramesetType = TOleEnum;
const
  wdFramesetTypeFrameset = $00000000;
  wdFramesetTypeFrame = $00000001;

// Constants for enum WdFramesetSizeType
type
  WdFramesetSizeType = TOleEnum;
const
  wdFramesetSizeTypePercent = $00000000;
  wdFramesetSizeTypeFixed = $00000001;
  wdFramesetSizeTypeRelative = $00000002;

// Constants for enum WdFramesetNewFrameLocation
type
  WdFramesetNewFrameLocation = TOleEnum;
const
  wdFramesetNewFrameAbove = $00000000;
  wdFramesetNewFrameBelow = $00000001;
  wdFramesetNewFrameRight = $00000002;
  wdFramesetNewFrameLeft = $00000003;

// Constants for enum WdScrollbarType
type
  WdScrollbarType = TOleEnum;
const
  wdScrollbarTypeAuto = $00000000;
  wdScrollbarTypeYes = $00000001;
  wdScrollbarTypeNo = $00000002;

// Constants for enum WdTwoLinesInOneType
type
  WdTwoLinesInOneType = TOleEnum;
const
  wdTwoLinesInOneNone = $00000000;
  wdTwoLinesInOneNoBrackets = $00000001;
  wdTwoLinesInOneParentheses = $00000002;
  wdTwoLinesInOneSquareBrackets = $00000003;
  wdTwoLinesInOneAngleBrackets = $00000004;
  wdTwoLinesInOneCurlyBrackets = $00000005;

// Constants for enum WdHorizontalInVerticalType
type
  WdHorizontalInVerticalType = TOleEnum;
const
  wdHorizontalInVerticalNone = $00000000;
  wdHorizontalInVerticalFitInLine = $00000001;
  wdHorizontalInVerticalResizeLine = $00000002;

// Constants for enum WdHorizontalLineAlignment
type
  WdHorizontalLineAlignment = TOleEnum;
const
  wdHorizontalLineAlignLeft = $00000000;
  wdHorizontalLineAlignCenter = $00000001;
  wdHorizontalLineAlignRight = $00000002;

// Constants for enum WdHorizontalLineWidthType
type
  WdHorizontalLineWidthType = TOleEnum;
const
  wdHorizontalLinePercentWidth = $FFFFFFFF;
  wdHorizontalLineFixedWidth = $FFFFFFFE;

// Constants for enum WdPhoneticGuideAlignmentType
type
  WdPhoneticGuideAlignmentType = TOleEnum;
const
  wdPhoneticGuideAlignmentCenter = $00000000;
  wdPhoneticGuideAlignmentZeroOneZero = $00000001;
  wdPhoneticGuideAlignmentOneTwoOne = $00000002;
  wdPhoneticGuideAlignmentLeft = $00000003;
  wdPhoneticGuideAlignmentRight = $00000004;
  wdPhoneticGuideAlignmentRightVertical = $00000005;

// Constants for enum WdNewDocumentType
type
  WdNewDocumentType = TOleEnum;
const
  wdNewBlankDocument = $00000000;
  wdNewWebPage = $00000001;
  wdNewEmailMessage = $00000002;
  wdNewFrameset = $00000003;

// Constants for enum WdKana
type
  WdKana = TOleEnum;
const
  wdKanaKatakana = $00000008;
  wdKanaHiragana = $00000009;

// Constants for enum WdCharacterWidth
type
  WdCharacterWidth = TOleEnum;
const
  wdWidthHalfWidth = $00000006;
  wdWidthFullWidth = $00000007;

// Constants for enum WdNumberStyleWordBasicBiDi
type
  WdNumberStyleWordBasicBiDi = TOleEnum;
const
  wdListNumberStyleBidi1 = $00000031;
  wdListNumberStyleBidi2 = $00000032;
  wdCaptionNumberStyleBidiLetter1 = $00000031;
  wdCaptionNumberStyleBidiLetter2 = $00000032;
  wdNoteNumberStyleBidiLetter1 = $00000031;
  wdNoteNumberStyleBidiLetter2 = $00000032;
  wdPageNumberStyleBidiLetter1 = $00000031;
  wdPageNumberStyleBidiLetter2 = $00000032;

// Constants for enum WdTCSCConverterDirection
type
  WdTCSCConverterDirection = TOleEnum;
const
  wdTCSCConverterDirectionSCTC = $00000000;
  wdTCSCConverterDirectionTCSC = $00000001;
  wdTCSCConverterDirectionAuto = $00000002;

// Constants for enum WdDisableFeaturesIntroducedAfter
type
  WdDisableFeaturesIntroducedAfter = TOleEnum;
const
  wd70 = $00000000;
  wd70FE = $00000001;
  wd80 = $00000002;

// Constants for enum WdWrapTypeMerged
type
  WdWrapTypeMerged = TOleEnum;
const
  wdWrapMergeInline = $00000000;
  wdWrapMergeSquare = $00000001;
  wdWrapMergeTight = $00000002;
  wdWrapMergeBehind = $00000003;
  wdWrapMergeFront = $00000004;
  wdWrapMergeThrough = $00000005;
  wdWrapMergeTopBottom = $00000006;

// Constants for enum WdRecoveryType
type
  WdRecoveryType = TOleEnum;
const
  wdPasteDefault = $00000000;
  wdSingleCellText = $00000005;
  wdSingleCellTable = $00000006;
  wdListContinueNumbering = $00000007;
  wdListRestartNumbering = $00000008;
  wdTableInsertAsRows = $0000000B;
  wdTableAppendTable = $0000000A;
  wdTableOriginalFormatting = $0000000C;
  wdChartPicture = $0000000D;
  wdChart = $0000000E;
  wdChartLinked = $0000000F;
  wdFormatOriginalFormatting = $00000010;
  wdFormatSurroundingFormattingWithEmphasis = $00000014;
  wdFormatPlainText = $00000016;
  wdTableOverwriteCells = $00000017;
  wdListCombineWithExistingList = $00000018;
  wdListDontMerge = $00000019;

// Constants for enum WdLineEndingType
type
  WdLineEndingType = TOleEnum;
const
  wdCRLF = $00000000;
  wdCROnly = $00000001;
  wdLFOnly = $00000002;
  wdLFCR = $00000003;
  wdLSPS = $00000004;

// Constants for enum WdStyleSheetLinkType
type
  WdStyleSheetLinkType = TOleEnum;
const
  wdStyleSheetLinkTypeLinked = $00000000;
  wdStyleSheetLinkTypeImported = $00000001;

// Constants for enum WdStyleSheetPrecedence
type
  WdStyleSheetPrecedence = TOleEnum;
const
  wdStyleSheetPrecedenceHigher = $FFFFFFFF;
  wdStyleSheetPrecedenceLower = $FFFFFFFE;
  wdStyleSheetPrecedenceHighest = $00000001;
  wdStyleSheetPrecedenceLowest = $00000000;

// Constants for enum WdEmailHTMLFidelity
type
  WdEmailHTMLFidelity = TOleEnum;
const
  wdEmailHTMLFidelityLow = $00000001;
  wdEmailHTMLFidelityMedium = $00000002;
  wdEmailHTMLFidelityHigh = $00000003;

// Constants for enum WdMailMergeMailFormat
type
  WdMailMergeMailFormat = TOleEnum;
const
  wdMailFormatPlainText = $00000000;
  wdMailFormatHTML = $00000001;

// Constants for enum WdMappedDataFields
type
  WdMappedDataFields = TOleEnum;
const
  wdUniqueIdentifier = $00000001;
  wdCourtesyTitle = $00000002;
  wdFirstName = $00000003;
  wdMiddleName = $00000004;
  wdLastName = $00000005;
  wdSuffix = $00000006;
  wdNickname = $00000007;
  wdJobTitle = $00000008;
  wdCompany = $00000009;
  wdAddress1 = $0000000A;
  wdAddress2 = $0000000B;
  wdCity = $0000000C;
  wdState = $0000000D;
  wdPostalCode = $0000000E;
  wdCountryRegion = $0000000F;
  wdBusinessPhone = $00000010;
  wdBusinessFax = $00000011;
  wdHomePhone = $00000012;
  wdHomeFax = $00000013;
  wdEmailAddress = $00000014;
  wdWebPageURL = $00000015;
  wdSpouseCourtesyTitle = $00000016;
  wdSpouseFirstName = $00000017;
  wdSpouseMiddleName = $00000018;
  wdSpouseLastName = $00000019;
  wdSpouseNickname = $0000001A;
  wdRubyFirstName = $0000001B;
  wdRubyLastName = $0000001C;
  wdAddress3 = $0000001D;
  wdDepartment = $0000001E;

// Constants for enum WdConditionCode
type
  WdConditionCode = TOleEnum;
const
  wdFirstRow = $00000000;
  wdLastRow = $00000001;
  wdOddRowBanding = $00000002;
  wdEvenRowBanding = $00000003;
  wdFirstColumn = $00000004;
  wdLastColumn = $00000005;
  wdOddColumnBanding = $00000006;
  wdEvenColumnBanding = $00000007;
  wdNECell = $00000008;
  wdNWCell = $00000009;
  wdSECell = $0000000A;
  wdSWCell = $0000000B;

// Constants for enum WdCompareTarget
type
  WdCompareTarget = TOleEnum;
const
  wdCompareTargetSelected = $00000000;
  wdCompareTargetCurrent = $00000001;
  wdCompareTargetNew = $00000002;

// Constants for enum WdMergeTarget
type
  WdMergeTarget = TOleEnum;
const
  wdMergeTargetSelected = $00000000;
  wdMergeTargetCurrent = $00000001;
  wdMergeTargetNew = $00000002;

// Constants for enum WdUseFormattingFrom
type
  WdUseFormattingFrom = TOleEnum;
const
  wdFormattingFromCurrent = $00000000;
  wdFormattingFromSelected = $00000001;
  wdFormattingFromPrompt = $00000002;

// Constants for enum WdRevisionsView
type
  WdRevisionsView = TOleEnum;
const
  wdRevisionsViewFinal = $00000000;
  wdRevisionsViewOriginal = $00000001;

// Constants for enum WdRevisionsMode
type
  WdRevisionsMode = TOleEnum;
const
  wdBalloonRevisions = $00000000;
  wdInLineRevisions = $00000001;

// Constants for enum WdRevisionsBalloonWidthType
type
  WdRevisionsBalloonWidthType = TOleEnum;
const
  wdBalloonWidthPercent = $00000000;
  wdBalloonWidthPoints = $00000001;

// Constants for enum WdRevisionsBalloonPrintOrientation
type
  WdRevisionsBalloonPrintOrientation = TOleEnum;
const
  wdBalloonPrintOrientationAuto = $00000000;
  wdBalloonPrintOrientationPreserve = $00000001;
  wdBalloonPrintOrientationForceLandscape = $00000002;

// Constants for enum WdRevisionsBalloonMargin
type
  WdRevisionsBalloonMargin = TOleEnum;
const
  wdLeftMargin = $00000000;
  wdRightMargin = $00000001;

// Constants for enum WdTaskPanes
type
  WdTaskPanes = TOleEnum;
const
  wdTaskPaneFormatting = $00000000;
  wdTaskPaneRevealFormatting = $00000001;
  wdTaskPaneMailMerge = $00000002;
  wdTaskPaneTranslate = $00000003;
  wdTaskPaneSearch = $00000004;

// Constants for enum WdShowFilter
type
  WdShowFilter = TOleEnum;
const
  wdShowFilterStylesAvailable = $00000000;
  wdShowFilterStylesInUse = $00000001;
  wdShowFilterStylesAll = $00000002;
  wdShowFilterFormattingInUse = $00000003;
  wdShowFilterFormattingAvailable = $00000004;

// Constants for enum WdMergeSubType
type
  WdMergeSubType = TOleEnum;
const
  wdMergeSubTypeOther = $00000000;
  wdMergeSubTypeAccess = $00000001;
  wdMergeSubTypeOAL = $00000002;
  wdMergeSubTypeOLEDBWord = $00000003;
  wdMergeSubTypeWorks = $00000004;
  wdMergeSubTypeOLEDBText = $00000005;
  wdMergeSubTypeOutlook = $00000006;
  wdMergeSubTypeWord = $00000007;
  wdMergeSubTypeWord2000 = $00000008;

// Constants for enum WdDocumentDirection
type
  WdDocumentDirection = TOleEnum;
const
  wdLeftToRight = $00000000;
  wdRightToLeft = $00000001;

// Constants for enum WdLanguageID2000
type
  WdLanguageID2000 = TOleEnum;
const
  wdChineseHongKong = $00000C04;
  wdChineseMacao = $00001404;
  wdEnglishTrinidad = $00002C09;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  _Application = interface;
  _ApplicationDisp = dispinterface;
  _Global = interface;
  _GlobalDisp = dispinterface;
  FontNames = interface;
  FontNamesDisp = dispinterface;
  Languages = interface;
  LanguagesDisp = dispinterface;
  Language = interface;
  LanguageDisp = dispinterface;
  Documents = interface;
  DocumentsDisp = dispinterface;
  _Document = interface;
  _DocumentDisp = dispinterface;
  Template = interface;
  TemplateDisp = dispinterface;
  Templates = interface;
  TemplatesDisp = dispinterface;
  RoutingSlip = interface;
  RoutingSlipDisp = dispinterface;
  Bookmark = interface;
  BookmarkDisp = dispinterface;
  Bookmarks = interface;
  BookmarksDisp = dispinterface;
  Variable = interface;
  VariableDisp = dispinterface;
  Variables = interface;
  VariablesDisp = dispinterface;
  RecentFile = interface;
  RecentFileDisp = dispinterface;
  RecentFiles = interface;
  RecentFilesDisp = dispinterface;
  Window = interface;
  WindowDisp = dispinterface;
  Windows = interface;
  WindowsDisp = dispinterface;
  Pane = interface;
  PaneDisp = dispinterface;
  Panes = interface;
  PanesDisp = dispinterface;
  Range = interface;
  RangeDisp = dispinterface;
  ListFormat = interface;
  ListFormatDisp = dispinterface;
  Find = interface;
  FindDisp = dispinterface;
  Replacement = interface;
  ReplacementDisp = dispinterface;
  Characters = interface;
  CharactersDisp = dispinterface;
  Words = interface;
  WordsDisp = dispinterface;
  Sentences = interface;
  SentencesDisp = dispinterface;
  Sections = interface;
  SectionsDisp = dispinterface;
  Section = interface;
  SectionDisp = dispinterface;
  Paragraphs = interface;
  ParagraphsDisp = dispinterface;
  Paragraph = interface;
  ParagraphDisp = dispinterface;
  DropCap = interface;
  DropCapDisp = dispinterface;
  TabStops = interface;
  TabStopsDisp = dispinterface;
  TabStop = interface;
  TabStopDisp = dispinterface;
  _ParagraphFormat = interface;
  _ParagraphFormatDisp = dispinterface;
  _Font = interface;
  _FontDisp = dispinterface;
  Table = interface;
  TableDisp = dispinterface;
  Row = interface;
  RowDisp = dispinterface;
  Column = interface;
  ColumnDisp = dispinterface;
  Cell = interface;
  CellDisp = dispinterface;
  Tables = interface;
  TablesDisp = dispinterface;
  Rows = interface;
  RowsDisp = dispinterface;
  Columns = interface;
  ColumnsDisp = dispinterface;
  Cells = interface;
  CellsDisp = dispinterface;
  AutoCorrect = interface;
  AutoCorrectDisp = dispinterface;
  AutoCorrectEntries = interface;
  AutoCorrectEntriesDisp = dispinterface;
  AutoCorrectEntry = interface;
  AutoCorrectEntryDisp = dispinterface;
  FirstLetterExceptions = interface;
  FirstLetterExceptionsDisp = dispinterface;
  FirstLetterException = interface;
  FirstLetterExceptionDisp = dispinterface;
  TwoInitialCapsExceptions = interface;
  TwoInitialCapsExceptionsDisp = dispinterface;
  TwoInitialCapsException = interface;
  TwoInitialCapsExceptionDisp = dispinterface;
  Footnotes = interface;
  FootnotesDisp = dispinterface;
  Endnotes = interface;
  EndnotesDisp = dispinterface;
  Comments = interface;
  CommentsDisp = dispinterface;
  Footnote = interface;
  FootnoteDisp = dispinterface;
  Endnote = interface;
  EndnoteDisp = dispinterface;
  Comment = interface;
  CommentDisp = dispinterface;
  Borders = interface;
  BordersDisp = dispinterface;
  Border = interface;
  BorderDisp = dispinterface;
  Shading = interface;
  ShadingDisp = dispinterface;
  TextRetrievalMode = interface;
  TextRetrievalModeDisp = dispinterface;
  AutoTextEntries = interface;
  AutoTextEntriesDisp = dispinterface;
  AutoTextEntry = interface;
  AutoTextEntryDisp = dispinterface;
  System = interface;
  SystemDisp = dispinterface;
  OLEFormat = interface;
  OLEFormatDisp = dispinterface;
  LinkFormat = interface;
  LinkFormatDisp = dispinterface;
  _OLEControl = interface;
  _OLEControlDisp = dispinterface;
  Fields = interface;
  FieldsDisp = dispinterface;
  Field = interface;
  FieldDisp = dispinterface;
  Browser = interface;
  BrowserDisp = dispinterface;
  Styles = interface;
  StylesDisp = dispinterface;
  Style = interface;
  StyleDisp = dispinterface;
  Frames = interface;
  FramesDisp = dispinterface;
  Frame = interface;
  FrameDisp = dispinterface;
  FormFields = interface;
  FormFieldsDisp = dispinterface;
  FormField = interface;
  FormFieldDisp = dispinterface;
  TextInput = interface;
  TextInputDisp = dispinterface;
  CheckBox = interface;
  CheckBoxDisp = dispinterface;
  DropDown = interface;
  DropDownDisp = dispinterface;
  ListEntries = interface;
  ListEntriesDisp = dispinterface;
  ListEntry = interface;
  ListEntryDisp = dispinterface;
  TablesOfFigures = interface;
  TablesOfFiguresDisp = dispinterface;
  TableOfFigures = interface;
  TableOfFiguresDisp = dispinterface;
  MailMerge = interface;
  MailMergeDisp = dispinterface;
  MailMergeFields = interface;
  MailMergeFieldsDisp = dispinterface;
  MailMergeField = interface;
  MailMergeFieldDisp = dispinterface;
  MailMergeDataSource = interface;
  MailMergeDataSourceDisp = dispinterface;
  MailMergeFieldNames = interface;
  MailMergeFieldNamesDisp = dispinterface;
  MailMergeFieldName = interface;
  MailMergeFieldNameDisp = dispinterface;
  MailMergeDataFields = interface;
  MailMergeDataFieldsDisp = dispinterface;
  MailMergeDataField = interface;
  MailMergeDataFieldDisp = dispinterface;
  Envelope = interface;
  EnvelopeDisp = dispinterface;
  MailingLabel = interface;
  MailingLabelDisp = dispinterface;
  CustomLabels = interface;
  CustomLabelsDisp = dispinterface;
  CustomLabel = interface;
  CustomLabelDisp = dispinterface;
  TablesOfContents = interface;
  TablesOfContentsDisp = dispinterface;
  TableOfContents = interface;
  TableOfContentsDisp = dispinterface;
  TablesOfAuthorities = interface;
  TablesOfAuthoritiesDisp = dispinterface;
  TableOfAuthorities = interface;
  TableOfAuthoritiesDisp = dispinterface;
  Dialogs = interface;
  DialogsDisp = dispinterface;
  Dialog = interface;
  DialogDisp = dispinterface;
  PageSetup = interface;
  PageSetupDisp = dispinterface;
  LineNumbering = interface;
  LineNumberingDisp = dispinterface;
  TextColumns = interface;
  TextColumnsDisp = dispinterface;
  TextColumn = interface;
  TextColumnDisp = dispinterface;
  WordSelection = interface;
  WordSelectionDisp = dispinterface;
  TablesOfAuthoritiesCategories = interface;
  TablesOfAuthoritiesCategoriesDisp = dispinterface;
  TableOfAuthoritiesCategory = interface;
  TableOfAuthoritiesCategoryDisp = dispinterface;
  CaptionLabels = interface;
  CaptionLabelsDisp = dispinterface;
  CaptionLabel = interface;
  CaptionLabelDisp = dispinterface;
  AutoCaptions = interface;
  AutoCaptionsDisp = dispinterface;
  AutoCaption = interface;
  AutoCaptionDisp = dispinterface;
  Indexes = interface;
  IndexesDisp = dispinterface;
  Index = interface;
  IndexDisp = dispinterface;
  AddIn = interface;
  AddInDisp = dispinterface;
  AddIns = interface;
  AddInsDisp = dispinterface;
  Revisions = interface;
  RevisionsDisp = dispinterface;
  Revision = interface;
  RevisionDisp = dispinterface;
  Task = interface;
  TaskDisp = dispinterface;
  Tasks = interface;
  TasksDisp = dispinterface;
  HeadersFooters = interface;
  HeadersFootersDisp = dispinterface;
  HeaderFooter = interface;
  HeaderFooterDisp = dispinterface;
  PageNumbers = interface;
  PageNumbersDisp = dispinterface;
  PageNumber = interface;
  PageNumberDisp = dispinterface;
  Subdocuments = interface;
  SubdocumentsDisp = dispinterface;
  Subdocument = interface;
  SubdocumentDisp = dispinterface;
  HeadingStyles = interface;
  HeadingStylesDisp = dispinterface;
  HeadingStyle = interface;
  HeadingStyleDisp = dispinterface;
  StoryRanges = interface;
  StoryRangesDisp = dispinterface;
  ListLevel = interface;
  ListLevelDisp = dispinterface;
  ListLevels = interface;
  ListLevelsDisp = dispinterface;
  ListTemplate = interface;
  ListTemplateDisp = dispinterface;
  ListTemplates = interface;
  ListTemplatesDisp = dispinterface;
  ListParagraphs = interface;
  ListParagraphsDisp = dispinterface;
  List = interface;
  ListDisp = dispinterface;
  Lists = interface;
  ListsDisp = dispinterface;
  ListGallery = interface;
  ListGalleryDisp = dispinterface;
  ListGalleries = interface;
  ListGalleriesDisp = dispinterface;
  KeyBindings = interface;
  KeyBindingsDisp = dispinterface;
  KeysBoundTo = interface;
  KeysBoundToDisp = dispinterface;
  KeyBinding = interface;
  KeyBindingDisp = dispinterface;
  FileConverter = interface;
  FileConverterDisp = dispinterface;
  FileConverters = interface;
  FileConvertersDisp = dispinterface;
  SynonymInfo = interface;
  SynonymInfoDisp = dispinterface;
  Hyperlinks = interface;
  HyperlinksDisp = dispinterface;
  Hyperlink = interface;
  HyperlinkDisp = dispinterface;
  Shapes = interface;
  ShapesDisp = dispinterface;
  ShapeRange = interface;
  ShapeRangeDisp = dispinterface;
  GroupShapes = interface;
  GroupShapesDisp = dispinterface;
  Shape = interface;
  ShapeDisp = dispinterface;
  TextFrame = interface;
  TextFrameDisp = dispinterface;
  _LetterContent = interface;
  _LetterContentDisp = dispinterface;
  View = interface;
  ViewDisp = dispinterface;
  Zoom = interface;
  ZoomDisp = dispinterface;
  Zooms = interface;
  ZoomsDisp = dispinterface;
  InlineShape = interface;
  InlineShapeDisp = dispinterface;
  InlineShapes = interface;
  InlineShapesDisp = dispinterface;
  SpellingSuggestions = interface;
  SpellingSuggestionsDisp = dispinterface;
  SpellingSuggestion = interface;
  SpellingSuggestionDisp = dispinterface;
  Dictionaries = interface;
  DictionariesDisp = dispinterface;
  HangulHanjaConversionDictionaries = interface;
  HangulHanjaConversionDictionariesDisp = dispinterface;
  Dictionary = interface;
  DictionaryDisp = dispinterface;
  ReadabilityStatistics = interface;
  ReadabilityStatisticsDisp = dispinterface;
  ReadabilityStatistic = interface;
  ReadabilityStatisticDisp = dispinterface;
  Versions = interface;
  VersionsDisp = dispinterface;
  Version = interface;
  VersionDisp = dispinterface;
  Options = interface;
  OptionsDisp = dispinterface;
  MailMessage = interface;
  MailMessageDisp = dispinterface;
  ProofreadingErrors = interface;
  ProofreadingErrorsDisp = dispinterface;
  Mailer = interface;
  MailerDisp = dispinterface;
  WrapFormat = interface;
  WrapFormatDisp = dispinterface;
  HangulAndAlphabetExceptions = interface;
  HangulAndAlphabetExceptionsDisp = dispinterface;
  HangulAndAlphabetException = interface;
  HangulAndAlphabetExceptionDisp = dispinterface;
  Adjustments = interface;
  AdjustmentsDisp = dispinterface;
  CalloutFormat = interface;
  CalloutFormatDisp = dispinterface;
  ColorFormat = interface;
  ColorFormatDisp = dispinterface;
  ConnectorFormat = interface;
  ConnectorFormatDisp = dispinterface;
  FillFormat = interface;
  FillFormatDisp = dispinterface;
  FreeformBuilder = interface;
  FreeformBuilderDisp = dispinterface;
  LineFormat = interface;
  LineFormatDisp = dispinterface;
  PictureFormat = interface;
  PictureFormatDisp = dispinterface;
  ShadowFormat = interface;
  ShadowFormatDisp = dispinterface;
  ShapeNode = interface;
  ShapeNodeDisp = dispinterface;
  ShapeNodes = interface;
  ShapeNodesDisp = dispinterface;
  TextEffectFormat = interface;
  TextEffectFormatDisp = dispinterface;
  ThreeDFormat = interface;
  ThreeDFormatDisp = dispinterface;
  ApplicationEvents = dispinterface;
  ApplicationEvents2 = dispinterface;
  DocumentEvents = dispinterface;
  OCXEvents = dispinterface;
  IApplicationEvents = interface;
  IApplicationEventsDisp = dispinterface;
  IApplicationEvents2 = interface;
  IApplicationEvents2Disp = dispinterface;
  ApplicationEvents3 = dispinterface;
  EmailAuthor = interface;
  EmailAuthorDisp = dispinterface;
  EmailOptions = interface;
  EmailOptionsDisp = dispinterface;
  EmailSignature = interface;
  EmailSignatureDisp = dispinterface;
  Email = interface;
  EmailDisp = dispinterface;
  HorizontalLineFormat = interface;
  HorizontalLineFormatDisp = dispinterface;
  Frameset = interface;
  FramesetDisp = dispinterface;
  DefaultWebOptions = interface;
  DefaultWebOptionsDisp = dispinterface;
  WebOptions = interface;
  WebOptionsDisp = dispinterface;
  OtherCorrectionsExceptions = interface;
  OtherCorrectionsExceptionsDisp = dispinterface;
  OtherCorrectionsException = interface;
  OtherCorrectionsExceptionDisp = dispinterface;
  EmailSignatureEntries = interface;
  EmailSignatureEntriesDisp = dispinterface;
  EmailSignatureEntry = interface;
  EmailSignatureEntryDisp = dispinterface;
  HTMLDivision = interface;
  HTMLDivisionDisp = dispinterface;
  HTMLDivisions = interface;
  HTMLDivisionsDisp = dispinterface;
  DiagramNode = interface;
  DiagramNodeDisp = dispinterface;
  DiagramNodeChildren = interface;
  DiagramNodeChildrenDisp = dispinterface;
  DiagramNodes = interface;
  DiagramNodesDisp = dispinterface;
  Diagram = interface;
  DiagramDisp = dispinterface;
  CustomProperty = interface;
  CustomPropertyDisp = dispinterface;
  CustomProperties = interface;
  CustomPropertiesDisp = dispinterface;
  SmartTag = interface;
  SmartTagDisp = dispinterface;
  SmartTags = interface;
  SmartTagsDisp = dispinterface;
  StyleSheet = interface;
  StyleSheetDisp = dispinterface;
  StyleSheets = interface;
  StyleSheetsDisp = dispinterface;
  MappedDataField = interface;
  MappedDataFieldDisp = dispinterface;
  MappedDataFields = interface;
  MappedDataFieldsDisp = dispinterface;
  CanvasShapes = interface;
  CanvasShapesDisp = dispinterface;
  TableStyle = interface;
  TableStyleDisp = dispinterface;
  ConditionalStyle = interface;
  ConditionalStyleDisp = dispinterface;
  FootnoteOptions = interface;
  FootnoteOptionsDisp = dispinterface;
  EndnoteOptions = interface;
  EndnoteOptionsDisp = dispinterface;
  Reviewers = interface;
  ReviewersDisp = dispinterface;
  Reviewer = interface;
  ReviewerDisp = dispinterface;
  TaskPane = interface;
  TaskPaneDisp = dispinterface;
  TaskPanes = interface;
  TaskPanesDisp = dispinterface;
  IApplicationEvents3 = interface;
  IApplicationEvents3Disp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  WordGlobal = _Global;
  WordDocument = _Document;
  WordFont = _Font;
  WordParagraphFormat = _ParagraphFormat;
  WordOLEControl = _OLEControl;
  WordLetterContent = _LetterContent;
  WordApplication = _Application;


// *********************************************************************//
// Declaration of structures, unions and aliases.                         
// *********************************************************************//
  POleVariant1 = ^OleVariant; {*}
  PPSafeArray1 = ^PSafeArray; {*}
  PWordBool1 = ^WordBool; {*}
  PUserType1 = ^TGUID; {*}
  PShortint1 = ^Shortint; {*}
  PPShortint1 = ^PShortint1; {*}
  PUserType2 = ^DISPPARAMS; {*}
  PSYSINT1 = ^SYSINT; {*}


// *********************************************************************//
// Interface: _Application
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020970-0000-0000-C000-000000000046}
// *********************************************************************//
  _Application = interface(IDispatch)
    ['{00020970-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    function Get_Documents: Documents; safecall;
    function Get_Windows: Windows; safecall;
    function Get_ActiveDocument: WordDocument; safecall;
    function Get_ActiveWindow: Window; safecall;
    function Get_Selection: WordSelection; safecall;
    function Get_WordBasic: IDispatch; safecall;
    function Get_RecentFiles: RecentFiles; safecall;
    function Get_NormalTemplate: Template; safecall;
    function Get_System_: System; safecall;
    function Get_AutoCorrect: AutoCorrect; safecall;
    function Get_FontNames: FontNames; safecall;
    function Get_LandscapeFontNames: FontNames; safecall;
    function Get_PortraitFontNames: FontNames; safecall;
    function Get_Languages: Languages; safecall;
    function Get_Assistant: Assistant; safecall;
    function Get_Browser: Browser; safecall;
    function Get_FileConverters: FileConverters; safecall;
    function Get_MailingLabel: MailingLabel; safecall;
    function Get_Dialogs: Dialogs; safecall;
    function Get_CaptionLabels: CaptionLabels; safecall;
    function Get_AutoCaptions: AutoCaptions; safecall;
    function Get_AddIns: AddIns; safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Visible(prop: WordBool); safecall;
    function Get_Version: WideString; safecall;
    function Get_ScreenUpdating: WordBool; safecall;
    procedure Set_ScreenUpdating(prop: WordBool); safecall;
    function Get_PrintPreview: WordBool; safecall;
    procedure Set_PrintPreview(prop: WordBool); safecall;
    function Get_Tasks: Tasks; safecall;
    function Get_DisplayStatusBar: WordBool; safecall;
    procedure Set_DisplayStatusBar(prop: WordBool); safecall;
    function Get_SpecialMode: WordBool; safecall;
    function Get_UsableWidth: Integer; safecall;
    function Get_UsableHeight: Integer; safecall;
    function Get_MathCoprocessorAvailable: WordBool; safecall;
    function Get_MouseAvailable: WordBool; safecall;
    function Get_International(Index: WdInternationalIndex): OleVariant; safecall;
    function Get_Build: WideString; safecall;
    function Get_CapsLock: WordBool; safecall;
    function Get_NumLock: WordBool; safecall;
    function Get_UserName: WideString; safecall;
    procedure Set_UserName(const prop: WideString); safecall;
    function Get_UserInitials: WideString; safecall;
    procedure Set_UserInitials(const prop: WideString); safecall;
    function Get_UserAddress: WideString; safecall;
    procedure Set_UserAddress(const prop: WideString); safecall;
    function Get_MacroContainer: IDispatch; safecall;
    function Get_DisplayRecentFiles: WordBool; safecall;
    procedure Set_DisplayRecentFiles(prop: WordBool); safecall;
    function Get_CommandBars: CommandBars; safecall;
    function Get_SynonymInfo(const Word: WideString; var LanguageID: OleVariant): SynonymInfo; safecall;
    function Get_VBE: VBE; safecall;
    function Get_DefaultSaveFormat: WideString; safecall;
    procedure Set_DefaultSaveFormat(const prop: WideString); safecall;
    function Get_ListGalleries: ListGalleries; safecall;
    function Get_ActivePrinter: WideString; safecall;
    procedure Set_ActivePrinter(const prop: WideString); safecall;
    function Get_Templates: Templates; safecall;
    function Get_CustomizationContext: IDispatch; safecall;
    procedure Set_CustomizationContext(const prop: IDispatch); safecall;
    function Get_KeyBindings: KeyBindings; safecall;
    function Get_KeysBoundTo(KeyCategory: WdKeyCategory; const Command: WideString; 
                             var CommandParameter: OleVariant): KeysBoundTo; safecall;
    function Get_FindKey(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding; safecall;
    function Get_Caption: WideString; safecall;
    procedure Set_Caption(const prop: WideString); safecall;
    function Get_Path: WideString; safecall;
    function Get_DisplayScrollBars: WordBool; safecall;
    procedure Set_DisplayScrollBars(prop: WordBool); safecall;
    function Get_StartupPath: WideString; safecall;
    procedure Set_StartupPath(const prop: WideString); safecall;
    function Get_BackgroundSavingStatus: Integer; safecall;
    function Get_BackgroundPrintingStatus: Integer; safecall;
    function Get_Left: Integer; safecall;
    procedure Set_Left(prop: Integer); safecall;
    function Get_Top: Integer; safecall;
    procedure Set_Top(prop: Integer); safecall;
    function Get_Width: Integer; safecall;
    procedure Set_Width(prop: Integer); safecall;
    function Get_Height: Integer; safecall;
    procedure Set_Height(prop: Integer); safecall;
    function Get_WindowState: WdWindowState; safecall;
    procedure Set_WindowState(prop: WdWindowState); safecall;
    function Get_DisplayAutoCompleteTips: WordBool; safecall;
    procedure Set_DisplayAutoCompleteTips(prop: WordBool); safecall;
    function Get_Options: Options; safecall;
    function Get_DisplayAlerts: WdAlertLevel; safecall;
    procedure Set_DisplayAlerts(prop: WdAlertLevel); safecall;
    function Get_CustomDictionaries: Dictionaries; safecall;
    function Get_PathSeparator: WideString; safecall;
    procedure Set_StatusBar(const Param1: WideString); safecall;
    function Get_MAPIAvailable: WordBool; safecall;
    function Get_DisplayScreenTips: WordBool; safecall;
    procedure Set_DisplayScreenTips(prop: WordBool); safecall;
    function Get_EnableCancelKey: WdEnableCancelKey; safecall;
    procedure Set_EnableCancelKey(prop: WdEnableCancelKey); safecall;
    function Get_UserControl: WordBool; safecall;
    function Get_FileSearch: FileSearch; safecall;
    function Get_MailSystem: WdMailSystem; safecall;
    function Get_DefaultTableSeparator: WideString; safecall;
    procedure Set_DefaultTableSeparator(const prop: WideString); safecall;
    function Get_ShowVisualBasicEditor: WordBool; safecall;
    procedure Set_ShowVisualBasicEditor(prop: WordBool); safecall;
    function Get_BrowseExtraFileTypes: WideString; safecall;
    procedure Set_BrowseExtraFileTypes(const prop: WideString); safecall;
    function Get_IsObjectValid(const Object_: IDispatch): WordBool; safecall;
    function Get_HangulHanjaDictionaries: HangulHanjaConversionDictionaries; safecall;
    function Get_MailMessage: MailMessage; safecall;
    function Get_FocusInMailHeader: WordBool; safecall;
    procedure Quit(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
                   var RouteDocument: OleVariant); safecall;
    procedure ScreenRefresh; safecall;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant; var Collate: OleVariant; 
                          var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                          var ManualDuplexPrint: OleVariant); safecall;
    procedure LookupNameProperties(const Name: WideString); safecall;
    procedure SubstituteFont(const UnavailableFont: WideString; const SubstituteFont: WideString); safecall;
    function Repeat_(var Times: OleVariant): WordBool; safecall;
    procedure DDEExecute(Channel: Integer; const Command: WideString); safecall;
    function DDEInitiate(const App: WideString; const Topic: WideString): Integer; safecall;
    procedure DDEPoke(Channel: Integer; const Item: WideString; const Data: WideString); safecall;
    function DDERequest(Channel: Integer; const Item: WideString): WideString; safecall;
    procedure DDETerminate(Channel: Integer); safecall;
    procedure DDETerminateAll; safecall;
    function BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant; 
                          var Arg4: OleVariant): Integer; safecall;
    function KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString; safecall;
    procedure OrganizerCopy(const Source: WideString; const Destination: WideString; 
                            const Name: WideString; Object_: WdOrganizerObject); safecall;
    procedure OrganizerDelete(const Source: WideString; const Name: WideString; 
                              Object_: WdOrganizerObject); safecall;
    procedure OrganizerRename(const Source: WideString; const Name: WideString; 
                              const NewName: WideString; Object_: WdOrganizerObject); safecall;
    procedure AddAddress(var TagID: PSafeArray; var Value: PSafeArray); safecall;
    function GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
                        var UseAutoText: OleVariant; var DisplaySelectDialog: OleVariant; 
                        var SelectDialog: OleVariant; var CheckNamesDialog: OleVariant; 
                        var RecentAddressesChoice: OleVariant; var UpdateRecentAddresses: OleVariant): WideString; safecall;
    function CheckGrammar(const String_: WideString): WordBool; safecall;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
                           var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
                           var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
                           var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
                           var CustomDictionary8: OleVariant; var CustomDictionary9: OleVariant; 
                           var CustomDictionary10: OleVariant): WordBool; safecall;
    procedure ResetIgnoreAll; safecall;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant; 
                                    var CustomDictionary3: OleVariant; 
                                    var CustomDictionary4: OleVariant; 
                                    var CustomDictionary5: OleVariant; 
                                    var CustomDictionary6: OleVariant; 
                                    var CustomDictionary7: OleVariant; 
                                    var CustomDictionary8: OleVariant; 
                                    var CustomDictionary9: OleVariant; 
                                    var CustomDictionary10: OleVariant): SpellingSuggestions; safecall;
    procedure GoBack; safecall;
    procedure Help(var HelpType: OleVariant); safecall;
    procedure AutomaticChange; safecall;
    procedure ShowMe; safecall;
    procedure HelpTool; safecall;
    function NewWindow: Window; safecall;
    procedure ListCommands(ListAllCommands: WordBool); safecall;
    procedure ShowClipboard; safecall;
    procedure OnTime(var When: OleVariant; const Name: WideString; var Tolerance: OleVariant); safecall;
    procedure NextLetter; safecall;
    function MountVolume(const Zone: WideString; const Server: WideString; 
                         const Volume: WideString; var User: OleVariant; 
                         var UserPassword: OleVariant; var VolumePassword: OleVariant): Smallint; safecall;
    function CleanString(const String_: WideString): WideString; safecall;
    procedure SendFax; safecall;
    procedure ChangeFileOpenDirectory(const Path: WideString); safecall;
    procedure RunOld(const MacroName: WideString); safecall;
    procedure GoForward; safecall;
    procedure Move(Left: Integer; Top: Integer); safecall;
    procedure Resize(Width: Integer; Height: Integer); safecall;
    function InchesToPoints(Inches: Single): Single; safecall;
    function CentimetersToPoints(Centimeters: Single): Single; safecall;
    function MillimetersToPoints(Millimeters: Single): Single; safecall;
    function PicasToPoints(Picas: Single): Single; safecall;
    function LinesToPoints(Lines: Single): Single; safecall;
    function PointsToInches(Points: Single): Single; safecall;
    function PointsToCentimeters(Points: Single): Single; safecall;
    function PointsToMillimeters(Points: Single): Single; safecall;
    function PointsToPicas(Points: Single): Single; safecall;
    function PointsToLines(Points: Single): Single; safecall;
    procedure Activate; safecall;
    function PointsToPixels(Points: Single; var fVertical: OleVariant): Single; safecall;
    function PixelsToPoints(Pixels: Single; var fVertical: OleVariant): Single; safecall;
    procedure KeyboardLatin; safecall;
    procedure KeyboardBidi; safecall;
    procedure ToggleKeyboard; safecall;
    function Keyboard(LangId: Integer): Integer; safecall;
    function ProductCode: WideString; safecall;
    function DefaultWebOptions: DefaultWebOptions; safecall;
    procedure DiscussionSupport(var Range: OleVariant; var cid: OleVariant; var piCSE: OleVariant); safecall;
    procedure SetDefaultTheme(const Name: WideString; DocumentType: WdDocumentMedium); safecall;
    function GetDefaultTheme(DocumentType: WdDocumentMedium): WideString; safecall;
    function Get_EmailOptions: EmailOptions; safecall;
    function Get_Language: MsoLanguageID; safecall;
    function Get_COMAddIns: COMAddIns; safecall;
    function Get_CheckLanguage: WordBool; safecall;
    procedure Set_CheckLanguage(prop: WordBool); safecall;
    function Get_LanguageSettings: LanguageSettings; safecall;
    function Get_Dummy1: WordBool; safecall;
    function Get_AnswerWizard: AnswerWizard; safecall;
    function Get_FeatureInstall: MsoFeatureInstall; safecall;
    procedure Set_FeatureInstall(prop: MsoFeatureInstall); safecall;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                           var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant; 
                           var PrintZoomRow: OleVariant; var PrintZoomPaperWidth: OleVariant; 
                           var PrintZoomPaperHeight: OleVariant); safecall;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant; var varg19: OleVariant; var varg20: OleVariant; 
                 var varg21: OleVariant; var varg22: OleVariant; var varg23: OleVariant; 
                 var varg24: OleVariant; var varg25: OleVariant; var varg26: OleVariant; 
                 var varg27: OleVariant; var varg28: OleVariant; var varg29: OleVariant; 
                 var varg30: OleVariant): OleVariant; safecall;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var FileName: OleVariant; 
                       var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant; 
                       var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                       var PrintZoomPaperWidth: OleVariant; var PrintZoomPaperHeight: OleVariant); safecall;
    function Get_AutomationSecurity: MsoAutomationSecurity; safecall;
    procedure Set_AutomationSecurity(prop: MsoAutomationSecurity); safecall;
    function Get_FileDialog(FileDialogType: MsoFileDialogType): FileDialog; safecall;
    function Get_EmailTemplate: WideString; safecall;
    procedure Set_EmailTemplate(const prop: WideString); safecall;
    function Get_ShowWindowsInTaskbar: WordBool; safecall;
    procedure Set_ShowWindowsInTaskbar(prop: WordBool); safecall;
    function Get_NewDocument: NewFile; safecall;
    function Get_ShowStartupDialog: WordBool; safecall;
    procedure Set_ShowStartupDialog(prop: WordBool); safecall;
    function Get_AutoCorrectEmail: AutoCorrect; safecall;
    function Get_TaskPanes: TaskPanes; safecall;
    function Get_DefaultLegalBlackline: WordBool; safecall;
    procedure Set_DefaultLegalBlackline(prop: WordBool); safecall;
    function Dummy2: WordBool; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
    property Documents: Documents read Get_Documents;
    property Windows: Windows read Get_Windows;
    property ActiveDocument: WordDocument read Get_ActiveDocument;
    property ActiveWindow: Window read Get_ActiveWindow;
    property Selection: WordSelection read Get_Selection;
    property WordBasic: IDispatch read Get_WordBasic;
    property RecentFiles: RecentFiles read Get_RecentFiles;
    property NormalTemplate: Template read Get_NormalTemplate;
    property System_: System read Get_System_;
    property AutoCorrect: AutoCorrect read Get_AutoCorrect;
    property FontNames: FontNames read Get_FontNames;
    property LandscapeFontNames: FontNames read Get_LandscapeFontNames;
    property PortraitFontNames: FontNames read Get_PortraitFontNames;
    property Languages: Languages read Get_Languages;
    property Assistant: Assistant read Get_Assistant;
    property Browser: Browser read Get_Browser;
    property FileConverters: FileConverters read Get_FileConverters;
    property MailingLabel: MailingLabel read Get_MailingLabel;
    property Dialogs: Dialogs read Get_Dialogs;
    property CaptionLabels: CaptionLabels read Get_CaptionLabels;
    property AutoCaptions: AutoCaptions read Get_AutoCaptions;
    property AddIns: AddIns read Get_AddIns;
    property Visible: WordBool read Get_Visible write Set_Visible;
    property Version: WideString read Get_Version;
    property ScreenUpdating: WordBool read Get_ScreenUpdating write Set_ScreenUpdating;
    property PrintPreview: WordBool read Get_PrintPreview write Set_PrintPreview;
    property Tasks: Tasks read Get_Tasks;
    property DisplayStatusBar: WordBool read Get_DisplayStatusBar write Set_DisplayStatusBar;
    property SpecialMode: WordBool read Get_SpecialMode;
    property UsableWidth: Integer read Get_UsableWidth;
    property UsableHeight: Integer read Get_UsableHeight;
    property MathCoprocessorAvailable: WordBool read Get_MathCoprocessorAvailable;
    property MouseAvailable: WordBool read Get_MouseAvailable;
    property International[Index: WdInternationalIndex]: OleVariant read Get_International;
    property Build: WideString read Get_Build;
    property CapsLock: WordBool read Get_CapsLock;
    property NumLock: WordBool read Get_NumLock;
    property UserName: WideString read Get_UserName write Set_UserName;
    property UserInitials: WideString read Get_UserInitials write Set_UserInitials;
    property UserAddress: WideString read Get_UserAddress write Set_UserAddress;
    property MacroContainer: IDispatch read Get_MacroContainer;
    property DisplayRecentFiles: WordBool read Get_DisplayRecentFiles write Set_DisplayRecentFiles;
    property CommandBars: CommandBars read Get_CommandBars;
    property SynonymInfo[const Word: WideString; var LanguageID: OleVariant]: SynonymInfo read Get_SynonymInfo;
    property VBE: VBE read Get_VBE;
    property DefaultSaveFormat: WideString read Get_DefaultSaveFormat write Set_DefaultSaveFormat;
    property ListGalleries: ListGalleries read Get_ListGalleries;
    property ActivePrinter: WideString read Get_ActivePrinter write Set_ActivePrinter;
    property Templates: Templates read Get_Templates;
    property CustomizationContext: IDispatch read Get_CustomizationContext write Set_CustomizationContext;
    property KeyBindings: KeyBindings read Get_KeyBindings;
    property KeysBoundTo[KeyCategory: WdKeyCategory; const Command: WideString; 
                         var CommandParameter: OleVariant]: KeysBoundTo read Get_KeysBoundTo;
    property FindKey[KeyCode: Integer; var KeyCode2: OleVariant]: KeyBinding read Get_FindKey;
    property Caption: WideString read Get_Caption write Set_Caption;
    property Path: WideString read Get_Path;
    property DisplayScrollBars: WordBool read Get_DisplayScrollBars write Set_DisplayScrollBars;
    property StartupPath: WideString read Get_StartupPath write Set_StartupPath;
    property BackgroundSavingStatus: Integer read Get_BackgroundSavingStatus;
    property BackgroundPrintingStatus: Integer read Get_BackgroundPrintingStatus;
    property Left: Integer read Get_Left write Set_Left;
    property Top: Integer read Get_Top write Set_Top;
    property Width: Integer read Get_Width write Set_Width;
    property Height: Integer read Get_Height write Set_Height;
    property WindowState: WdWindowState read Get_WindowState write Set_WindowState;
    property DisplayAutoCompleteTips: WordBool read Get_DisplayAutoCompleteTips write Set_DisplayAutoCompleteTips;
    property Options: Options read Get_Options;
    property DisplayAlerts: WdAlertLevel read Get_DisplayAlerts write Set_DisplayAlerts;
    property CustomDictionaries: Dictionaries read Get_CustomDictionaries;
    property PathSeparator: WideString read Get_PathSeparator;
    property StatusBar: WideString write Set_StatusBar;
    property MAPIAvailable: WordBool read Get_MAPIAvailable;
    property DisplayScreenTips: WordBool read Get_DisplayScreenTips write Set_DisplayScreenTips;
    property EnableCancelKey: WdEnableCancelKey read Get_EnableCancelKey write Set_EnableCancelKey;
    property UserControl: WordBool read Get_UserControl;
    property FileSearch: FileSearch read Get_FileSearch;
    property MailSystem: WdMailSystem read Get_MailSystem;
    property DefaultTableSeparator: WideString read Get_DefaultTableSeparator write Set_DefaultTableSeparator;
    property ShowVisualBasicEditor: WordBool read Get_ShowVisualBasicEditor write Set_ShowVisualBasicEditor;
    property BrowseExtraFileTypes: WideString read Get_BrowseExtraFileTypes write Set_BrowseExtraFileTypes;
    property IsObjectValid[const Object_: IDispatch]: WordBool read Get_IsObjectValid;
    property HangulHanjaDictionaries: HangulHanjaConversionDictionaries read Get_HangulHanjaDictionaries;
    property MailMessage: MailMessage read Get_MailMessage;
    property FocusInMailHeader: WordBool read Get_FocusInMailHeader;
    property EmailOptions: EmailOptions read Get_EmailOptions;
    property Language: MsoLanguageID read Get_Language;
    property COMAddIns: COMAddIns read Get_COMAddIns;
    property CheckLanguage: WordBool read Get_CheckLanguage write Set_CheckLanguage;
    property LanguageSettings: LanguageSettings read Get_LanguageSettings;
    property Dummy1: WordBool read Get_Dummy1;
    property AnswerWizard: AnswerWizard read Get_AnswerWizard;
    property FeatureInstall: MsoFeatureInstall read Get_FeatureInstall write Set_FeatureInstall;
    property AutomationSecurity: MsoAutomationSecurity read Get_AutomationSecurity write Set_AutomationSecurity;
    property FileDialog[FileDialogType: MsoFileDialogType]: FileDialog read Get_FileDialog;
    property EmailTemplate: WideString read Get_EmailTemplate write Set_EmailTemplate;
    property ShowWindowsInTaskbar: WordBool read Get_ShowWindowsInTaskbar write Set_ShowWindowsInTaskbar;
    property NewDocument: NewFile read Get_NewDocument;
    property ShowStartupDialog: WordBool read Get_ShowStartupDialog write Set_ShowStartupDialog;
    property AutoCorrectEmail: AutoCorrect read Get_AutoCorrectEmail;
    property TaskPanes: TaskPanes read Get_TaskPanes;
    property DefaultLegalBlackline: WordBool read Get_DefaultLegalBlackline write Set_DefaultLegalBlackline;
  end;

// *********************************************************************//
// DispIntf:  _ApplicationDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020970-0000-0000-C000-000000000046}
// *********************************************************************//
  _ApplicationDisp = dispinterface
    ['{00020970-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString readonly dispid 0;
    property Documents: Documents readonly dispid 6;
    property Windows: Windows readonly dispid 2;
    property ActiveDocument: WordDocument readonly dispid 3;
    property ActiveWindow: Window readonly dispid 4;
    property Selection: WordSelection readonly dispid 5;
    property WordBasic: IDispatch readonly dispid 1;
    property RecentFiles: RecentFiles readonly dispid 7;
    property NormalTemplate: Template readonly dispid 8;
    property System_: System readonly dispid 9;
    property AutoCorrect: AutoCorrect readonly dispid 10;
    property FontNames: FontNames readonly dispid 11;
    property LandscapeFontNames: FontNames readonly dispid 12;
    property PortraitFontNames: FontNames readonly dispid 13;
    property Languages: Languages readonly dispid 14;
    property Assistant: Assistant readonly dispid 15;
    property Browser: Browser readonly dispid 16;
    property FileConverters: FileConverters readonly dispid 17;
    property MailingLabel: MailingLabel readonly dispid 18;
    property Dialogs: Dialogs readonly dispid 19;
    property CaptionLabels: CaptionLabels readonly dispid 20;
    property AutoCaptions: AutoCaptions readonly dispid 21;
    property AddIns: AddIns readonly dispid 22;
    property Visible: WordBool dispid 23;
    property Version: WideString readonly dispid 24;
    property ScreenUpdating: WordBool dispid 26;
    property PrintPreview: WordBool dispid 27;
    property Tasks: Tasks readonly dispid 28;
    property DisplayStatusBar: WordBool dispid 29;
    property SpecialMode: WordBool readonly dispid 30;
    property UsableWidth: Integer readonly dispid 33;
    property UsableHeight: Integer readonly dispid 34;
    property MathCoprocessorAvailable: WordBool readonly dispid 36;
    property MouseAvailable: WordBool readonly dispid 37;
    property International[Index: WdInternationalIndex]: OleVariant readonly dispid 46;
    property Build: WideString readonly dispid 47;
    property CapsLock: WordBool readonly dispid 48;
    property NumLock: WordBool readonly dispid 49;
    property UserName: WideString dispid 52;
    property UserInitials: WideString dispid 53;
    property UserAddress: WideString dispid 54;
    property MacroContainer: IDispatch readonly dispid 55;
    property DisplayRecentFiles: WordBool dispid 56;
    property CommandBars: CommandBars readonly dispid 57;
    property SynonymInfo[const Word: WideString; var LanguageID: OleVariant]: SynonymInfo readonly dispid 59;
    property VBE: VBE readonly dispid 61;
    property DefaultSaveFormat: WideString dispid 64;
    property ListGalleries: ListGalleries readonly dispid 65;
    property ActivePrinter: WideString dispid 66;
    property Templates: Templates readonly dispid 67;
    property CustomizationContext: IDispatch dispid 68;
    property KeyBindings: KeyBindings readonly dispid 69;
    property KeysBoundTo[KeyCategory: WdKeyCategory; const Command: WideString; 
                         var CommandParameter: OleVariant]: KeysBoundTo readonly dispid 70;
    property FindKey[KeyCode: Integer; var KeyCode2: OleVariant]: KeyBinding readonly dispid 71;
    property Caption: WideString dispid 80;
    property Path: WideString readonly dispid 81;
    property DisplayScrollBars: WordBool dispid 82;
    property StartupPath: WideString dispid 83;
    property BackgroundSavingStatus: Integer readonly dispid 85;
    property BackgroundPrintingStatus: Integer readonly dispid 86;
    property Left: Integer dispid 87;
    property Top: Integer dispid 88;
    property Width: Integer dispid 89;
    property Height: Integer dispid 90;
    property WindowState: WdWindowState dispid 91;
    property DisplayAutoCompleteTips: WordBool dispid 92;
    property Options: Options readonly dispid 93;
    property DisplayAlerts: WdAlertLevel dispid 94;
    property CustomDictionaries: Dictionaries readonly dispid 95;
    property PathSeparator: WideString readonly dispid 96;
    property StatusBar: WideString writeonly dispid 97;
    property MAPIAvailable: WordBool readonly dispid 98;
    property DisplayScreenTips: WordBool dispid 99;
    property EnableCancelKey: WdEnableCancelKey dispid 100;
    property UserControl: WordBool readonly dispid 101;
    property FileSearch: FileSearch readonly dispid 103;
    property MailSystem: WdMailSystem readonly dispid 104;
    property DefaultTableSeparator: WideString dispid 105;
    property ShowVisualBasicEditor: WordBool dispid 106;
    property BrowseExtraFileTypes: WideString dispid 108;
    property IsObjectValid[const Object_: IDispatch]: WordBool readonly dispid 109;
    property HangulHanjaDictionaries: HangulHanjaConversionDictionaries readonly dispid 110;
    property MailMessage: MailMessage readonly dispid 348;
    property FocusInMailHeader: WordBool readonly dispid 386;
    procedure Quit(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
                   var RouteDocument: OleVariant); dispid 1105;
    procedure ScreenRefresh; dispid 301;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant; var Collate: OleVariant; 
                          var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                          var ManualDuplexPrint: OleVariant); dispid 302;
    procedure LookupNameProperties(const Name: WideString); dispid 303;
    procedure SubstituteFont(const UnavailableFont: WideString; const SubstituteFont: WideString); dispid 304;
    function Repeat_(var Times: OleVariant): WordBool; dispid 305;
    procedure DDEExecute(Channel: Integer; const Command: WideString); dispid 310;
    function DDEInitiate(const App: WideString; const Topic: WideString): Integer; dispid 311;
    procedure DDEPoke(Channel: Integer; const Item: WideString; const Data: WideString); dispid 312;
    function DDERequest(Channel: Integer; const Item: WideString): WideString; dispid 313;
    procedure DDETerminate(Channel: Integer); dispid 314;
    procedure DDETerminateAll; dispid 315;
    function BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant; 
                          var Arg4: OleVariant): Integer; dispid 316;
    function KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString; dispid 317;
    procedure OrganizerCopy(const Source: WideString; const Destination: WideString; 
                            const Name: WideString; Object_: WdOrganizerObject); dispid 318;
    procedure OrganizerDelete(const Source: WideString; const Name: WideString; 
                              Object_: WdOrganizerObject); dispid 319;
    procedure OrganizerRename(const Source: WideString; const Name: WideString; 
                              const NewName: WideString; Object_: WdOrganizerObject); dispid 320;
    procedure AddAddress(var TagID: {??PSafeArray}OleVariant; var Value: {??PSafeArray}OleVariant); dispid 321;
    function GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
                        var UseAutoText: OleVariant; var DisplaySelectDialog: OleVariant; 
                        var SelectDialog: OleVariant; var CheckNamesDialog: OleVariant; 
                        var RecentAddressesChoice: OleVariant; var UpdateRecentAddresses: OleVariant): WideString; dispid 322;
    function CheckGrammar(const String_: WideString): WordBool; dispid 323;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
                           var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
                           var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
                           var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
                           var CustomDictionary8: OleVariant; var CustomDictionary9: OleVariant; 
                           var CustomDictionary10: OleVariant): WordBool; dispid 324;
    procedure ResetIgnoreAll; dispid 326;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant; 
                                    var CustomDictionary3: OleVariant; 
                                    var CustomDictionary4: OleVariant; 
                                    var CustomDictionary5: OleVariant; 
                                    var CustomDictionary6: OleVariant; 
                                    var CustomDictionary7: OleVariant; 
                                    var CustomDictionary8: OleVariant; 
                                    var CustomDictionary9: OleVariant; 
                                    var CustomDictionary10: OleVariant): SpellingSuggestions; dispid 327;
    procedure GoBack; dispid 328;
    procedure Help(var HelpType: OleVariant); dispid 329;
    procedure AutomaticChange; dispid 330;
    procedure ShowMe; dispid 331;
    procedure HelpTool; dispid 332;
    function NewWindow: Window; dispid 345;
    procedure ListCommands(ListAllCommands: WordBool); dispid 346;
    procedure ShowClipboard; dispid 349;
    procedure OnTime(var When: OleVariant; const Name: WideString; var Tolerance: OleVariant); dispid 350;
    procedure NextLetter; dispid 351;
    function MountVolume(const Zone: WideString; const Server: WideString; 
                         const Volume: WideString; var User: OleVariant; 
                         var UserPassword: OleVariant; var VolumePassword: OleVariant): Smallint; dispid 353;
    function CleanString(const String_: WideString): WideString; dispid 354;
    procedure SendFax; dispid 356;
    procedure ChangeFileOpenDirectory(const Path: WideString); dispid 357;
    procedure RunOld(const MacroName: WideString); dispid 358;
    procedure GoForward; dispid 359;
    procedure Move(Left: Integer; Top: Integer); dispid 360;
    procedure Resize(Width: Integer; Height: Integer); dispid 361;
    function InchesToPoints(Inches: Single): Single; dispid 370;
    function CentimetersToPoints(Centimeters: Single): Single; dispid 371;
    function MillimetersToPoints(Millimeters: Single): Single; dispid 372;
    function PicasToPoints(Picas: Single): Single; dispid 373;
    function LinesToPoints(Lines: Single): Single; dispid 374;
    function PointsToInches(Points: Single): Single; dispid 380;
    function PointsToCentimeters(Points: Single): Single; dispid 381;
    function PointsToMillimeters(Points: Single): Single; dispid 382;
    function PointsToPicas(Points: Single): Single; dispid 383;
    function PointsToLines(Points: Single): Single; dispid 384;
    procedure Activate; dispid 385;
    function PointsToPixels(Points: Single; var fVertical: OleVariant): Single; dispid 387;
    function PixelsToPoints(Pixels: Single; var fVertical: OleVariant): Single; dispid 388;
    procedure KeyboardLatin; dispid 400;
    procedure KeyboardBidi; dispid 401;
    procedure ToggleKeyboard; dispid 402;
    function Keyboard(LangId: Integer): Integer; dispid 446;
    function ProductCode: WideString; dispid 404;
    function DefaultWebOptions: DefaultWebOptions; dispid 405;
    procedure DiscussionSupport(var Range: OleVariant; var cid: OleVariant; var piCSE: OleVariant); dispid 407;
    procedure SetDefaultTheme(const Name: WideString; DocumentType: WdDocumentMedium); dispid 414;
    function GetDefaultTheme(DocumentType: WdDocumentMedium): WideString; dispid 416;
    property EmailOptions: EmailOptions readonly dispid 389;
    property Language: MsoLanguageID readonly dispid 391;
    property COMAddIns: COMAddIns readonly dispid 111;
    property CheckLanguage: WordBool dispid 112;
    property LanguageSettings: LanguageSettings readonly dispid 403;
    property Dummy1: WordBool readonly dispid 406;
    property AnswerWizard: AnswerWizard readonly dispid 409;
    property FeatureInstall: MsoFeatureInstall dispid 447;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                           var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant; 
                           var PrintZoomRow: OleVariant; var PrintZoomPaperWidth: OleVariant; 
                           var PrintZoomPaperHeight: OleVariant); dispid 444;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant; var varg19: OleVariant; var varg20: OleVariant; 
                 var varg21: OleVariant; var varg22: OleVariant; var varg23: OleVariant; 
                 var varg24: OleVariant; var varg25: OleVariant; var varg26: OleVariant; 
                 var varg27: OleVariant; var varg28: OleVariant; var varg29: OleVariant; 
                 var varg30: OleVariant): OleVariant; dispid 445;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var FileName: OleVariant; 
                       var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant; 
                       var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                       var PrintZoomPaperWidth: OleVariant; var PrintZoomPaperHeight: OleVariant); dispid 448;
    property AutomationSecurity: MsoAutomationSecurity dispid 449;
    property FileDialog[FileDialogType: MsoFileDialogType]: FileDialog readonly dispid 450;
    property EmailTemplate: WideString dispid 451;
    property ShowWindowsInTaskbar: WordBool dispid 452;
    property NewDocument: NewFile readonly dispid 454;
    property ShowStartupDialog: WordBool dispid 455;
    property AutoCorrectEmail: AutoCorrect readonly dispid 456;
    property TaskPanes: TaskPanes readonly dispid 457;
    property DefaultLegalBlackline: WordBool dispid 459;
    function Dummy2: WordBool; dispid 458;
  end;

// *********************************************************************//
// Interface: _Global
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B9-0000-0000-C000-000000000046}
// *********************************************************************//
  _Global = interface(IDispatch)
    ['{000209B9-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    function Get_Documents: Documents; safecall;
    function Get_Windows: Windows; safecall;
    function Get_ActiveDocument: WordDocument; safecall;
    function Get_ActiveWindow: Window; safecall;
    function Get_Selection: WordSelection; safecall;
    function Get_WordBasic: IDispatch; safecall;
    function Get_PrintPreview: WordBool; safecall;
    procedure Set_PrintPreview(prop: WordBool); safecall;
    function Get_RecentFiles: RecentFiles; safecall;
    function Get_NormalTemplate: Template; safecall;
    function Get_System_: System; safecall;
    function Get_AutoCorrect: AutoCorrect; safecall;
    function Get_FontNames: FontNames; safecall;
    function Get_LandscapeFontNames: FontNames; safecall;
    function Get_PortraitFontNames: FontNames; safecall;
    function Get_Languages: Languages; safecall;
    function Get_Assistant: Assistant; safecall;
    function Get_FileConverters: FileConverters; safecall;
    function Get_Dialogs: Dialogs; safecall;
    function Get_CaptionLabels: CaptionLabels; safecall;
    function Get_AutoCaptions: AutoCaptions; safecall;
    function Get_AddIns: AddIns; safecall;
    function Get_Tasks: Tasks; safecall;
    function Get_MacroContainer: IDispatch; safecall;
    function Get_CommandBars: CommandBars; safecall;
    function Get_SynonymInfo(const Word: WideString; var LanguageID: OleVariant): SynonymInfo; safecall;
    function Get_VBE: VBE; safecall;
    function Get_ListGalleries: ListGalleries; safecall;
    function Get_ActivePrinter: WideString; safecall;
    procedure Set_ActivePrinter(const prop: WideString); safecall;
    function Get_Templates: Templates; safecall;
    function Get_CustomizationContext: IDispatch; safecall;
    procedure Set_CustomizationContext(const prop: IDispatch); safecall;
    function Get_KeyBindings: KeyBindings; safecall;
    function Get_KeysBoundTo(KeyCategory: WdKeyCategory; const Command: WideString; 
                             var CommandParameter: OleVariant): KeysBoundTo; safecall;
    function Get_FindKey(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding; safecall;
    function Get_Options: Options; safecall;
    function Get_CustomDictionaries: Dictionaries; safecall;
    procedure Set_StatusBar(const Param1: WideString); safecall;
    function Get_ShowVisualBasicEditor: WordBool; safecall;
    procedure Set_ShowVisualBasicEditor(prop: WordBool); safecall;
    function Get_IsObjectValid(const Object_: IDispatch): WordBool; safecall;
    function Get_HangulHanjaDictionaries: HangulHanjaConversionDictionaries; safecall;
    function Repeat_(var Times: OleVariant): WordBool; safecall;
    procedure DDEExecute(Channel: Integer; const Command: WideString); safecall;
    function DDEInitiate(const App: WideString; const Topic: WideString): Integer; safecall;
    procedure DDEPoke(Channel: Integer; const Item: WideString; const Data: WideString); safecall;
    function DDERequest(Channel: Integer; const Item: WideString): WideString; safecall;
    procedure DDETerminate(Channel: Integer); safecall;
    procedure DDETerminateAll; safecall;
    function BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant; 
                          var Arg4: OleVariant): Integer; safecall;
    function KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString; safecall;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
                           var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
                           var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
                           var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
                           var CustomDictionary8: OleVariant; var CustomDictionary9: OleVariant; 
                           var CustomDictionary10: OleVariant): WordBool; safecall;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant; 
                                    var CustomDictionary3: OleVariant; 
                                    var CustomDictionary4: OleVariant; 
                                    var CustomDictionary5: OleVariant; 
                                    var CustomDictionary6: OleVariant; 
                                    var CustomDictionary7: OleVariant; 
                                    var CustomDictionary8: OleVariant; 
                                    var CustomDictionary9: OleVariant; 
                                    var CustomDictionary10: OleVariant): SpellingSuggestions; safecall;
    procedure Help(var HelpType: OleVariant); safecall;
    function NewWindow: Window; safecall;
    function CleanString(const String_: WideString): WideString; safecall;
    procedure ChangeFileOpenDirectory(const Path: WideString); safecall;
    function InchesToPoints(Inches: Single): Single; safecall;
    function CentimetersToPoints(Centimeters: Single): Single; safecall;
    function MillimetersToPoints(Millimeters: Single): Single; safecall;
    function PicasToPoints(Picas: Single): Single; safecall;
    function LinesToPoints(Lines: Single): Single; safecall;
    function PointsToInches(Points: Single): Single; safecall;
    function PointsToCentimeters(Points: Single): Single; safecall;
    function PointsToMillimeters(Points: Single): Single; safecall;
    function PointsToPicas(Points: Single): Single; safecall;
    function PointsToLines(Points: Single): Single; safecall;
    function PointsToPixels(Points: Single; var fVertical: OleVariant): Single; safecall;
    function PixelsToPoints(Pixels: Single; var fVertical: OleVariant): Single; safecall;
    function Get_LanguageSettings: LanguageSettings; safecall;
    function Get_AnswerWizard: AnswerWizard; safecall;
    function Get_AutoCorrectEmail: AutoCorrect; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
    property Documents: Documents read Get_Documents;
    property Windows: Windows read Get_Windows;
    property ActiveDocument: WordDocument read Get_ActiveDocument;
    property ActiveWindow: Window read Get_ActiveWindow;
    property Selection: WordSelection read Get_Selection;
    property WordBasic: IDispatch read Get_WordBasic;
    property PrintPreview: WordBool read Get_PrintPreview write Set_PrintPreview;
    property RecentFiles: RecentFiles read Get_RecentFiles;
    property NormalTemplate: Template read Get_NormalTemplate;
    property System_: System read Get_System_;
    property AutoCorrect: AutoCorrect read Get_AutoCorrect;
    property FontNames: FontNames read Get_FontNames;
    property LandscapeFontNames: FontNames read Get_LandscapeFontNames;
    property PortraitFontNames: FontNames read Get_PortraitFontNames;
    property Languages: Languages read Get_Languages;
    property Assistant: Assistant read Get_Assistant;
    property FileConverters: FileConverters read Get_FileConverters;
    property Dialogs: Dialogs read Get_Dialogs;
    property CaptionLabels: CaptionLabels read Get_CaptionLabels;
    property AutoCaptions: AutoCaptions read Get_AutoCaptions;
    property AddIns: AddIns read Get_AddIns;
    property Tasks: Tasks read Get_Tasks;
    property MacroContainer: IDispatch read Get_MacroContainer;
    property CommandBars: CommandBars read Get_CommandBars;
    property SynonymInfo[const Word: WideString; var LanguageID: OleVariant]: SynonymInfo read Get_SynonymInfo;
    property VBE: VBE read Get_VBE;
    property ListGalleries: ListGalleries read Get_ListGalleries;
    property ActivePrinter: WideString read Get_ActivePrinter write Set_ActivePrinter;
    property Templates: Templates read Get_Templates;
    property CustomizationContext: IDispatch read Get_CustomizationContext write Set_CustomizationContext;
    property KeyBindings: KeyBindings read Get_KeyBindings;
    property KeysBoundTo[KeyCategory: WdKeyCategory; const Command: WideString; 
                         var CommandParameter: OleVariant]: KeysBoundTo read Get_KeysBoundTo;
    property FindKey[KeyCode: Integer; var KeyCode2: OleVariant]: KeyBinding read Get_FindKey;
    property Options: Options read Get_Options;
    property CustomDictionaries: Dictionaries read Get_CustomDictionaries;
    property StatusBar: WideString write Set_StatusBar;
    property ShowVisualBasicEditor: WordBool read Get_ShowVisualBasicEditor write Set_ShowVisualBasicEditor;
    property IsObjectValid[const Object_: IDispatch]: WordBool read Get_IsObjectValid;
    property HangulHanjaDictionaries: HangulHanjaConversionDictionaries read Get_HangulHanjaDictionaries;
    property LanguageSettings: LanguageSettings read Get_LanguageSettings;
    property AnswerWizard: AnswerWizard read Get_AnswerWizard;
    property AutoCorrectEmail: AutoCorrect read Get_AutoCorrectEmail;
  end;

// *********************************************************************//
// DispIntf:  _GlobalDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B9-0000-0000-C000-000000000046}
// *********************************************************************//
  _GlobalDisp = dispinterface
    ['{000209B9-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString readonly dispid 0;
    property Documents: Documents readonly dispid 1;
    property Windows: Windows readonly dispid 2;
    property ActiveDocument: WordDocument readonly dispid 3;
    property ActiveWindow: Window readonly dispid 4;
    property Selection: WordSelection readonly dispid 5;
    property WordBasic: IDispatch readonly dispid 6;
    property PrintPreview: WordBool dispid 27;
    property RecentFiles: RecentFiles readonly dispid 7;
    property NormalTemplate: Template readonly dispid 8;
    property System_: System readonly dispid 9;
    property AutoCorrect: AutoCorrect readonly dispid 10;
    property FontNames: FontNames readonly dispid 11;
    property LandscapeFontNames: FontNames readonly dispid 12;
    property PortraitFontNames: FontNames readonly dispid 13;
    property Languages: Languages readonly dispid 14;
    property Assistant: Assistant readonly dispid 15;
    property FileConverters: FileConverters readonly dispid 17;
    property Dialogs: Dialogs readonly dispid 19;
    property CaptionLabels: CaptionLabels readonly dispid 20;
    property AutoCaptions: AutoCaptions readonly dispid 21;
    property AddIns: AddIns readonly dispid 22;
    property Tasks: Tasks readonly dispid 28;
    property MacroContainer: IDispatch readonly dispid 55;
    property CommandBars: CommandBars readonly dispid 57;
    property SynonymInfo[const Word: WideString; var LanguageID: OleVariant]: SynonymInfo readonly dispid 59;
    property VBE: VBE readonly dispid 61;
    property ListGalleries: ListGalleries readonly dispid 65;
    property ActivePrinter: WideString dispid 66;
    property Templates: Templates readonly dispid 67;
    property CustomizationContext: IDispatch dispid 68;
    property KeyBindings: KeyBindings readonly dispid 69;
    property KeysBoundTo[KeyCategory: WdKeyCategory; const Command: WideString; 
                         var CommandParameter: OleVariant]: KeysBoundTo readonly dispid 70;
    property FindKey[KeyCode: Integer; var KeyCode2: OleVariant]: KeyBinding readonly dispid 71;
    property Options: Options readonly dispid 93;
    property CustomDictionaries: Dictionaries readonly dispid 95;
    property StatusBar: WideString writeonly dispid 97;
    property ShowVisualBasicEditor: WordBool dispid 104;
    property IsObjectValid[const Object_: IDispatch]: WordBool readonly dispid 109;
    property HangulHanjaDictionaries: HangulHanjaConversionDictionaries readonly dispid 110;
    function Repeat_(var Times: OleVariant): WordBool; dispid 305;
    procedure DDEExecute(Channel: Integer; const Command: WideString); dispid 310;
    function DDEInitiate(const App: WideString; const Topic: WideString): Integer; dispid 311;
    procedure DDEPoke(Channel: Integer; const Item: WideString; const Data: WideString); dispid 312;
    function DDERequest(Channel: Integer; const Item: WideString): WideString; dispid 313;
    procedure DDETerminate(Channel: Integer); dispid 314;
    procedure DDETerminateAll; dispid 315;
    function BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant; 
                          var Arg4: OleVariant): Integer; dispid 316;
    function KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString; dispid 317;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
                           var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
                           var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
                           var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
                           var CustomDictionary8: OleVariant; var CustomDictionary9: OleVariant; 
                           var CustomDictionary10: OleVariant): WordBool; dispid 324;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant; 
                                    var CustomDictionary3: OleVariant; 
                                    var CustomDictionary4: OleVariant; 
                                    var CustomDictionary5: OleVariant; 
                                    var CustomDictionary6: OleVariant; 
                                    var CustomDictionary7: OleVariant; 
                                    var CustomDictionary8: OleVariant; 
                                    var CustomDictionary9: OleVariant; 
                                    var CustomDictionary10: OleVariant): SpellingSuggestions; dispid 327;
    procedure Help(var HelpType: OleVariant); dispid 329;
    function NewWindow: Window; dispid 345;
    function CleanString(const String_: WideString): WideString; dispid 354;
    procedure ChangeFileOpenDirectory(const Path: WideString); dispid 355;
    function InchesToPoints(Inches: Single): Single; dispid 370;
    function CentimetersToPoints(Centimeters: Single): Single; dispid 371;
    function MillimetersToPoints(Millimeters: Single): Single; dispid 372;
    function PicasToPoints(Picas: Single): Single; dispid 373;
    function LinesToPoints(Lines: Single): Single; dispid 374;
    function PointsToInches(Points: Single): Single; dispid 380;
    function PointsToCentimeters(Points: Single): Single; dispid 381;
    function PointsToMillimeters(Points: Single): Single; dispid 382;
    function PointsToPicas(Points: Single): Single; dispid 383;
    function PointsToLines(Points: Single): Single; dispid 384;
    function PointsToPixels(Points: Single; var fVertical: OleVariant): Single; dispid 385;
    function PixelsToPoints(Pixels: Single; var fVertical: OleVariant): Single; dispid 386;
    property LanguageSettings: LanguageSettings readonly dispid 111;
    property AnswerWizard: AnswerWizard readonly dispid 112;
    property AutoCorrectEmail: AutoCorrect readonly dispid 113;
  end;

// *********************************************************************//
// Interface: FontNames
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002096F-0000-0000-C000-000000000046}
// *********************************************************************//
  FontNames = interface(IDispatch)
    ['{0002096F-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(Index: Integer): WideString; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  FontNamesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002096F-0000-0000-C000-000000000046}
// *********************************************************************//
  FontNamesDisp = dispinterface
    ['{0002096F-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(Index: Integer): WideString; dispid 0;
  end;

// *********************************************************************//
// Interface: Languages
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002096E-0000-0000-C000-000000000046}
// *********************************************************************//
  Languages = interface(IDispatch)
    ['{0002096E-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(var Index: OleVariant): Language; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  LanguagesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002096E-0000-0000-C000-000000000046}
// *********************************************************************//
  LanguagesDisp = dispinterface
    ['{0002096E-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(var Index: OleVariant): Language; dispid 0;
  end;

// *********************************************************************//
// Interface: Language
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002096D-0000-0000-C000-000000000046}
// *********************************************************************//
  Language = interface(IDispatch)
    ['{0002096D-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_ID: WdLanguageID; safecall;
    function Get_NameLocal: WideString; safecall;
    function Get_Name: WideString; safecall;
    function Get_ActiveGrammarDictionary: Dictionary; safecall;
    function Get_ActiveHyphenationDictionary: Dictionary; safecall;
    function Get_ActiveSpellingDictionary: Dictionary; safecall;
    function Get_ActiveThesaurusDictionary: Dictionary; safecall;
    function Get_DefaultWritingStyle: WideString; safecall;
    procedure Set_DefaultWritingStyle(const prop: WideString); safecall;
    function Get_WritingStyleList: OleVariant; safecall;
    function Get_SpellingDictionaryType: WdDictionaryType; safecall;
    procedure Set_SpellingDictionaryType(prop: WdDictionaryType); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property ID: WdLanguageID read Get_ID;
    property NameLocal: WideString read Get_NameLocal;
    property Name: WideString read Get_Name;
    property ActiveGrammarDictionary: Dictionary read Get_ActiveGrammarDictionary;
    property ActiveHyphenationDictionary: Dictionary read Get_ActiveHyphenationDictionary;
    property ActiveSpellingDictionary: Dictionary read Get_ActiveSpellingDictionary;
    property ActiveThesaurusDictionary: Dictionary read Get_ActiveThesaurusDictionary;
    property DefaultWritingStyle: WideString read Get_DefaultWritingStyle write Set_DefaultWritingStyle;
    property WritingStyleList: OleVariant read Get_WritingStyleList;
    property SpellingDictionaryType: WdDictionaryType read Get_SpellingDictionaryType write Set_SpellingDictionaryType;
  end;

// *********************************************************************//
// DispIntf:  LanguageDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002096D-0000-0000-C000-000000000046}
// *********************************************************************//
  LanguageDisp = dispinterface
    ['{0002096D-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property ID: WdLanguageID readonly dispid 10;
    property NameLocal: WideString readonly dispid 0;
    property Name: WideString readonly dispid 12;
    property ActiveGrammarDictionary: Dictionary readonly dispid 13;
    property ActiveHyphenationDictionary: Dictionary readonly dispid 14;
    property ActiveSpellingDictionary: Dictionary readonly dispid 15;
    property ActiveThesaurusDictionary: Dictionary readonly dispid 16;
    property DefaultWritingStyle: WideString dispid 17;
    property WritingStyleList: OleVariant readonly dispid 18;
    property SpellingDictionaryType: WdDictionaryType dispid 19;
  end;

// *********************************************************************//
// Interface: Documents
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002096C-0000-0000-C000-000000000046}
// *********************************************************************//
  Documents = interface(IDispatch)
    ['{0002096C-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(var Index: OleVariant): WordDocument; safecall;
    procedure Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
                    var RouteDocument: OleVariant); safecall;
    function AddOld(var Template: OleVariant; var NewTemplate: OleVariant): WordDocument; safecall;
    function OpenOld(var FileName: OleVariant; var ConfirmConversions: OleVariant; 
                     var ReadOnly: OleVariant; var AddToRecentFiles: OleVariant; 
                     var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
                     var Revert: OleVariant; var WritePasswordDocument: OleVariant; 
                     var WritePasswordTemplate: OleVariant; var Format: OleVariant): WordDocument; safecall;
    procedure Save(var NoPrompt: OleVariant; var OriginalFormat: OleVariant); safecall;
    function Add(var Template: OleVariant; var NewTemplate: OleVariant; 
                 var DocumentType: OleVariant; var Visible: OleVariant): WordDocument; safecall;
    function Open2000(var FileName: OleVariant; var ConfirmConversions: OleVariant; 
                      var ReadOnly: OleVariant; var AddToRecentFiles: OleVariant; 
                      var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
                      var Revert: OleVariant; var WritePasswordDocument: OleVariant; 
                      var WritePasswordTemplate: OleVariant; var Format: OleVariant; 
                      var Encoding: OleVariant; var Visible: OleVariant): WordDocument; safecall;
    procedure CheckOut(const FileName: WideString); safecall;
    function CanCheckOut(const FileName: WideString): WordBool; safecall;
    function Open(var FileName: OleVariant; var ConfirmConversions: OleVariant; 
                  var ReadOnly: OleVariant; var AddToRecentFiles: OleVariant; 
                  var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
                  var Revert: OleVariant; var WritePasswordDocument: OleVariant; 
                  var WritePasswordTemplate: OleVariant; var Format: OleVariant; 
                  var Encoding: OleVariant; var Visible: OleVariant; var OpenAndRepair: OleVariant; 
                  var DocumentDirection: OleVariant; var NoEncodingDialog: OleVariant): WordDocument; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  DocumentsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002096C-0000-0000-C000-000000000046}
// *********************************************************************//
  DocumentsDisp = dispinterface
    ['{0002096C-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(var Index: OleVariant): WordDocument; dispid 0;
    procedure Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
                    var RouteDocument: OleVariant); dispid 1105;
    function AddOld(var Template: OleVariant; var NewTemplate: OleVariant): WordDocument; dispid 11;
    function OpenOld(var FileName: OleVariant; var ConfirmConversions: OleVariant; 
                     var ReadOnly: OleVariant; var AddToRecentFiles: OleVariant; 
                     var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
                     var Revert: OleVariant; var WritePasswordDocument: OleVariant; 
                     var WritePasswordTemplate: OleVariant; var Format: OleVariant): WordDocument; dispid 12;
    procedure Save(var NoPrompt: OleVariant; var OriginalFormat: OleVariant); dispid 13;
    function Add(var Template: OleVariant; var NewTemplate: OleVariant; 
                 var DocumentType: OleVariant; var Visible: OleVariant): WordDocument; dispid 14;
    function Open2000(var FileName: OleVariant; var ConfirmConversions: OleVariant; 
                      var ReadOnly: OleVariant; var AddToRecentFiles: OleVariant; 
                      var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
                      var Revert: OleVariant; var WritePasswordDocument: OleVariant; 
                      var WritePasswordTemplate: OleVariant; var Format: OleVariant; 
                      var Encoding: OleVariant; var Visible: OleVariant): WordDocument; dispid 15;
    procedure CheckOut(const FileName: WideString); dispid 16;
    function CanCheckOut(const FileName: WideString): WordBool; dispid 17;
    function Open(var FileName: OleVariant; var ConfirmConversions: OleVariant; 
                  var ReadOnly: OleVariant; var AddToRecentFiles: OleVariant; 
                  var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
                  var Revert: OleVariant; var WritePasswordDocument: OleVariant; 
                  var WritePasswordTemplate: OleVariant; var Format: OleVariant; 
                  var Encoding: OleVariant; var Visible: OleVariant; var OpenAndRepair: OleVariant; 
                  var DocumentDirection: OleVariant; var NoEncodingDialog: OleVariant): WordDocument; dispid 18;
  end;

// *********************************************************************//
// Interface: _Document
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {0002096B-0000-0000-C000-000000000046}
// *********************************************************************//
  _Document = interface(IDispatch)
    ['{0002096B-0000-0000-C000-000000000046}']
    function Get_Name: WideString; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_BuiltInDocumentProperties: IDispatch; safecall;
    function Get_CustomDocumentProperties: IDispatch; safecall;
    function Get_Path: WideString; safecall;
    function Get_Bookmarks: Bookmarks; safecall;
    function Get_Tables: Tables; safecall;
    function Get_Footnotes: Footnotes; safecall;
    function Get_Endnotes: Endnotes; safecall;
    function Get_Comments: Comments; safecall;
    function Get_type_: WdDocumentType; safecall;
    function Get_AutoHyphenation: WordBool; safecall;
    procedure Set_AutoHyphenation(prop: WordBool); safecall;
    function Get_HyphenateCaps: WordBool; safecall;
    procedure Set_HyphenateCaps(prop: WordBool); safecall;
    function Get_HyphenationZone: Integer; safecall;
    procedure Set_HyphenationZone(prop: Integer); safecall;
    function Get_ConsecutiveHyphensLimit: Integer; safecall;
    procedure Set_ConsecutiveHyphensLimit(prop: Integer); safecall;
    function Get_Sections: Sections; safecall;
    function Get_Paragraphs: Paragraphs; safecall;
    function Get_Words: Words; safecall;
    function Get_Sentences: Sentences; safecall;
    function Get_Characters: Characters; safecall;
    function Get_Fields: Fields; safecall;
    function Get_FormFields: FormFields; safecall;
    function Get_Styles: Styles; safecall;
    function Get_Frames: Frames; safecall;
    function Get_TablesOfFigures: TablesOfFigures; safecall;
    function Get_Variables: Variables; safecall;
    function Get_MailMerge: MailMerge; safecall;
    function Get_Envelope: Envelope; safecall;
    function Get_FullName: WideString; safecall;
    function Get_Revisions: Revisions; safecall;
    function Get_TablesOfContents: TablesOfContents; safecall;
    function Get_TablesOfAuthorities: TablesOfAuthorities; safecall;
    function Get_PageSetup: PageSetup; safecall;
    procedure Set_PageSetup(const prop: PageSetup); safecall;
    function Get_Windows: Windows; safecall;
    function Get_HasRoutingSlip: WordBool; safecall;
    procedure Set_HasRoutingSlip(prop: WordBool); safecall;
    function Get_RoutingSlip: RoutingSlip; safecall;
    function Get_Routed: WordBool; safecall;
    function Get_TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories; safecall;
    function Get_Indexes: Indexes; safecall;
    function Get_Saved: WordBool; safecall;
    procedure Set_Saved(prop: WordBool); safecall;
    function Get_Content: Range; safecall;
    function Get_ActiveWindow: Window; safecall;
    function Get_Kind: WdDocumentKind; safecall;
    procedure Set_Kind(prop: WdDocumentKind); safecall;
    function Get_ReadOnly: WordBool; safecall;
    function Get_Subdocuments: Subdocuments; safecall;
    function Get_IsMasterDocument: WordBool; safecall;
    function Get_DefaultTabStop: Single; safecall;
    procedure Set_DefaultTabStop(prop: Single); safecall;
    function Get_EmbedTrueTypeFonts: WordBool; safecall;
    procedure Set_EmbedTrueTypeFonts(prop: WordBool); safecall;
    function Get_SaveFormsData: WordBool; safecall;
    procedure Set_SaveFormsData(prop: WordBool); safecall;
    function Get_ReadOnlyRecommended: WordBool; safecall;
    procedure Set_ReadOnlyRecommended(prop: WordBool); safecall;
    function Get_SaveSubsetFonts: WordBool; safecall;
    procedure Set_SaveSubsetFonts(prop: WordBool); safecall;
    function Get_Compatibility(Type_: WdCompatibility): WordBool; safecall;
    procedure Set_Compatibility(Type_: WdCompatibility; prop: WordBool); safecall;
    function Get_StoryRanges: StoryRanges; safecall;
    function Get_CommandBars: CommandBars; safecall;
    function Get_IsSubdocument: WordBool; safecall;
    function Get_SaveFormat: Integer; safecall;
    function Get_ProtectionType: WdProtectionType; safecall;
    function Get_Hyperlinks: Hyperlinks; safecall;
    function Get_Shapes: Shapes; safecall;
    function Get_ListTemplates: ListTemplates; safecall;
    function Get_Lists: Lists; safecall;
    function Get_UpdateStylesOnOpen: WordBool; safecall;
    procedure Set_UpdateStylesOnOpen(prop: WordBool); safecall;
    function Get_AttachedTemplate: OleVariant; safecall;
    procedure Set_AttachedTemplate(var prop: OleVariant); safecall;
    function Get_InlineShapes: InlineShapes; safecall;
    function Get_Background: Shape; safecall;
    procedure Set_Background(const prop: Shape); safecall;
    function Get_GrammarChecked: WordBool; safecall;
    procedure Set_GrammarChecked(prop: WordBool); safecall;
    function Get_SpellingChecked: WordBool; safecall;
    procedure Set_SpellingChecked(prop: WordBool); safecall;
    function Get_ShowGrammaticalErrors: WordBool; safecall;
    procedure Set_ShowGrammaticalErrors(prop: WordBool); safecall;
    function Get_ShowSpellingErrors: WordBool; safecall;
    procedure Set_ShowSpellingErrors(prop: WordBool); safecall;
    function Get_Versions: Versions; safecall;
    function Get_ShowSummary: WordBool; safecall;
    procedure Set_ShowSummary(prop: WordBool); safecall;
    function Get_SummaryViewMode: WdSummaryMode; safecall;
    procedure Set_SummaryViewMode(prop: WdSummaryMode); safecall;
    function Get_SummaryLength: Integer; safecall;
    procedure Set_SummaryLength(prop: Integer); safecall;
    function Get_PrintFractionalWidths: WordBool; safecall;
    procedure Set_PrintFractionalWidths(prop: WordBool); safecall;
    function Get_PrintPostScriptOverText: WordBool; safecall;
    procedure Set_PrintPostScriptOverText(prop: WordBool); safecall;
    function Get_Container: IDispatch; safecall;
    function Get_PrintFormsData: WordBool; safecall;
    procedure Set_PrintFormsData(prop: WordBool); safecall;
    function Get_ListParagraphs: ListParagraphs; safecall;
    procedure Set_Password(const Param1: WideString); safecall;
    procedure Set_WritePassword(const Param1: WideString); safecall;
    function Get_HasPassword: WordBool; safecall;
    function Get_WriteReserved: WordBool; safecall;
    function Get_ActiveWritingStyle(var LanguageID: OleVariant): WideString; safecall;
    procedure Set_ActiveWritingStyle(var LanguageID: OleVariant; const prop: WideString); safecall;
    function Get_UserControl: WordBool; safecall;
    procedure Set_UserControl(prop: WordBool); safecall;
    function Get_HasMailer: WordBool; safecall;
    procedure Set_HasMailer(prop: WordBool); safecall;
    function Get_Mailer: Mailer; safecall;
    function Get_ReadabilityStatistics: ReadabilityStatistics; safecall;
    function Get_GrammaticalErrors: ProofreadingErrors; safecall;
    function Get_SpellingErrors: ProofreadingErrors; safecall;
    function Get_VBProject: VBProject; safecall;
    function Get_FormsDesign: WordBool; safecall;
    function Get__CodeName: WideString; safecall;
    procedure Set__CodeName(const prop: WideString); safecall;
    function Get_CodeName: WideString; safecall;
    function Get_SnapToGrid: WordBool; safecall;
    procedure Set_SnapToGrid(prop: WordBool); safecall;
    function Get_SnapToShapes: WordBool; safecall;
    procedure Set_SnapToShapes(prop: WordBool); safecall;
    function Get_GridDistanceHorizontal: Single; safecall;
    procedure Set_GridDistanceHorizontal(prop: Single); safecall;
    function Get_GridDistanceVertical: Single; safecall;
    procedure Set_GridDistanceVertical(prop: Single); safecall;
    function Get_GridOriginHorizontal: Single; safecall;
    procedure Set_GridOriginHorizontal(prop: Single); safecall;
    function Get_GridOriginVertical: Single; safecall;
    procedure Set_GridOriginVertical(prop: Single); safecall;
    function Get_GridSpaceBetweenHorizontalLines: Integer; safecall;
    procedure Set_GridSpaceBetweenHorizontalLines(prop: Integer); safecall;
    function Get_GridSpaceBetweenVerticalLines: Integer; safecall;
    procedure Set_GridSpaceBetweenVerticalLines(prop: Integer); safecall;
    function Get_GridOriginFromMargin: WordBool; safecall;
    procedure Set_GridOriginFromMargin(prop: WordBool); safecall;
    function Get_KerningByAlgorithm: WordBool; safecall;
    procedure Set_KerningByAlgorithm(prop: WordBool); safecall;
    function Get_JustificationMode: WdJustificationMode; safecall;
    procedure Set_JustificationMode(prop: WdJustificationMode); safecall;
    function Get_FarEastLineBreakLevel: WdFarEastLineBreakLevel; safecall;
    procedure Set_FarEastLineBreakLevel(prop: WdFarEastLineBreakLevel); safecall;
    function Get_NoLineBreakBefore: WideString; safecall;
    procedure Set_NoLineBreakBefore(const prop: WideString); safecall;
    function Get_NoLineBreakAfter: WideString; safecall;
    procedure Set_NoLineBreakAfter(const prop: WideString); safecall;
    function Get_TrackRevisions: WordBool; safecall;
    procedure Set_TrackRevisions(prop: WordBool); safecall;
    function Get_PrintRevisions: WordBool; safecall;
    procedure Set_PrintRevisions(prop: WordBool); safecall;
    function Get_ShowRevisions: WordBool; safecall;
    procedure Set_ShowRevisions(prop: WordBool); safecall;
    procedure Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
                    var RouteDocument: OleVariant); safecall;
    procedure SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                         var LockComments: OleVariant; var Password: OleVariant; 
                         var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                         var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                         var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant; 
                         var SaveAsAOCELetter: OleVariant); safecall;
    procedure Repaginate; safecall;
    procedure FitToPages; safecall;
    procedure ManualHyphenation; safecall;
    procedure Select; safecall;
    procedure DataForm; safecall;
    procedure Route; safecall;
    procedure Save; safecall;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant; var Collate: OleVariant; 
                          var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant); safecall;
    procedure SendMail; safecall;
    function Range(var Start: OleVariant; var End_: OleVariant): Range; safecall;
    procedure RunAutoMacro(Which: WdAutoMacros); safecall;
    procedure Activate; safecall;
    procedure PrintPreview; safecall;
    function GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
                   var Name: OleVariant): Range; safecall;
    function Undo(var Times: OleVariant): WordBool; safecall;
    function Redo(var Times: OleVariant): WordBool; safecall;
    function ComputeStatistics(Statistic: WdStatistic; var IncludeFootnotesAndEndnotes: OleVariant): Integer; safecall;
    procedure MakeCompatibilityDefault; safecall;
    procedure Protect(Type_: WdProtectionType; var NoReset: OleVariant; var Password: OleVariant); safecall;
    procedure Unprotect(var Password: OleVariant); safecall;
    procedure EditionOptions(Type_: WdEditionType; Option: WdEditionOption; const Name: WideString; 
                             var Format: OleVariant); safecall;
    procedure RunLetterWizard(var LetterContent: OleVariant; var WizardMode: OleVariant); safecall;
    function GetLetterContent: WordLetterContent; safecall;
    procedure SetLetterContent(var LetterContent: OleVariant); safecall;
    procedure CopyStylesFromTemplate(const Template: WideString); safecall;
    procedure UpdateStyles; safecall;
    procedure CheckGrammar; safecall;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
                            var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
                            var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
                            var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
                            var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
                            var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); safecall;
    procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
                              var NewWindow: OleVariant; var AddHistory: OleVariant; 
                              var ExtraInfo: OleVariant; var Method: OleVariant; 
                              var HeaderInfo: OleVariant); safecall;
    procedure AddToFavorites; safecall;
    procedure Reload; safecall;
    function AutoSummarize(var Length: OleVariant; var Mode: OleVariant; 
                           var UpdateProperties: OleVariant): Range; safecall;
    procedure RemoveNumbers(var NumberType: OleVariant); safecall;
    procedure ConvertNumbersToText(var NumberType: OleVariant); safecall;
    function CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer; safecall;
    procedure Post; safecall;
    procedure ToggleFormsDesign; safecall;
    procedure Compare2000(const Name: WideString); safecall;
    procedure UpdateSummaryProperties; safecall;
    function GetCrossReferenceItems(var ReferenceType: OleVariant): OleVariant; safecall;
    procedure AutoFormat; safecall;
    procedure ViewCode; safecall;
    procedure ViewPropertyBrowser; safecall;
    procedure ForwardMailer; safecall;
    procedure Reply; safecall;
    procedure ReplyAll; safecall;
    procedure SendMailer(var FileFormat: OleVariant; var Priority: OleVariant); safecall;
    procedure UndoClear; safecall;
    procedure PresentIt; safecall;
    procedure SendFax(const Address: WideString; var Subject: OleVariant); safecall;
    procedure Merge2000(const FileName: WideString); safecall;
    procedure ClosePrintPreview; safecall;
    procedure CheckConsistency; safecall;
    function CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
                                 const PageDesign: WideString; LetterStyle: WdLetterStyle; 
                                 Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
                                 LetterheadSize: Single; const RecipientName: WideString; 
                                 const RecipientAddress: WideString; const Salutation: WideString; 
                                 SalutationType: WdSalutationType; 
                                 const RecipientReference: WideString; 
                                 const MailingInstructions: WideString; 
                                 const AttentionLine: WideString; const Subject: WideString; 
                                 const CCList: WideString; const ReturnAddress: WideString; 
                                 const SenderName: WideString; const Closing: WideString; 
                                 const SenderCompany: WideString; const SenderJobTitle: WideString; 
                                 const SenderInitials: WideString; EnclosureNumber: Integer; 
                                 var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
                                 var RecipientGender: OleVariant; 
                                 var ReturnAddressShortForm: OleVariant; 
                                 var SenderCity: OleVariant; var SenderCode: OleVariant; 
                                 var SenderGender: OleVariant; var SenderReference: OleVariant): WordLetterContent; safecall;
    procedure AcceptAllRevisions; safecall;
    procedure RejectAllRevisions; safecall;
    procedure DetectLanguage; safecall;
    procedure ApplyTheme(const Name: WideString); safecall;
    procedure RemoveTheme; safecall;
    procedure WebPagePreview; safecall;
    procedure ReloadAs(Encoding: MsoEncoding); safecall;
    function Get_ActiveTheme: WideString; safecall;
    function Get_ActiveThemeDisplayName: WideString; safecall;
    function Get_Email: Email; safecall;
    function Get_Scripts: Scripts; safecall;
    function Get_LanguageDetected: WordBool; safecall;
    procedure Set_LanguageDetected(prop: WordBool); safecall;
    function Get_FarEastLineBreakLanguage: WdFarEastLineBreakLanguageID; safecall;
    procedure Set_FarEastLineBreakLanguage(prop: WdFarEastLineBreakLanguageID); safecall;
    function Get_Frameset: Frameset; safecall;
    function Get_ClickAndTypeParagraphStyle: OleVariant; safecall;
    procedure Set_ClickAndTypeParagraphStyle(var prop: OleVariant); safecall;
    function Get_HTMLProject: HTMLProject; safecall;
    function Get_WebOptions: WebOptions; safecall;
    function Get_OpenEncoding: MsoEncoding; safecall;
    function Get_SaveEncoding: MsoEncoding; safecall;
    procedure Set_SaveEncoding(prop: MsoEncoding); safecall;
    function Get_OptimizeForWord97: WordBool; safecall;
    procedure Set_OptimizeForWord97(prop: WordBool); safecall;
    function Get_VBASigned: WordBool; safecall;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant; 
                           var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                           var PrintZoomPaperWidth: OleVariant; var PrintZoomPaperHeight: OleVariant); safecall;
    procedure sblt(const s: WideString); safecall;
    procedure ConvertVietDoc(CodePageOrigin: Integer); safecall;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
                       var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant; 
                       var PrintZoomRow: OleVariant; var PrintZoomPaperWidth: OleVariant; 
                       var PrintZoomPaperHeight: OleVariant); safecall;
    function Get_MailEnvelope: MsoEnvelope; safecall;
    function Get_DisableFeatures: WordBool; safecall;
    procedure Set_DisableFeatures(prop: WordBool); safecall;
    function Get_DoNotEmbedSystemFonts: WordBool; safecall;
    procedure Set_DoNotEmbedSystemFonts(prop: WordBool); safecall;
    function Get_Signatures: SignatureSet; safecall;
    function Get_DefaultTargetFrame: WideString; safecall;
    procedure Set_DefaultTargetFrame(const prop: WideString); safecall;
    function Get_HTMLDivisions: HTMLDivisions; safecall;
    function Get_DisableFeaturesIntroducedAfter: WdDisableFeaturesIntroducedAfter; safecall;
    procedure Set_DisableFeaturesIntroducedAfter(prop: WdDisableFeaturesIntroducedAfter); safecall;
    function Get_RemovePersonalInformation: WordBool; safecall;
    procedure Set_RemovePersonalInformation(prop: WordBool); safecall;
    function Get_SmartTags: SmartTags; safecall;
    procedure Compare(const Name: WideString; var AuthorName: OleVariant; 
                      var CompareTarget: OleVariant; var DetectFormatChanges: OleVariant; 
                      var IgnoreAllComparisonWarnings: OleVariant; var AddToRecentFiles: OleVariant); safecall;
    procedure CheckIn(SaveChanges: WordBool; var Comments: OleVariant; MakePublic: WordBool); safecall;
    function CanCheckin: WordBool; safecall;
    procedure Merge(const FileName: WideString; var MergeTarget: OleVariant; 
                    var DetectFormatChanges: OleVariant; var UseFormattingFrom: OleVariant; 
                    var AddToRecentFiles: OleVariant); safecall;
    function Get_EmbedSmartTags: WordBool; safecall;
    procedure Set_EmbedSmartTags(prop: WordBool); safecall;
    function Get_SmartTagsAsXMLProps: WordBool; safecall;
    procedure Set_SmartTagsAsXMLProps(prop: WordBool); safecall;
    function Get_TextEncoding: MsoEncoding; safecall;
    procedure Set_TextEncoding(prop: MsoEncoding); safecall;
    function Get_TextLineEnding: WdLineEndingType; safecall;
    procedure Set_TextLineEnding(prop: WdLineEndingType); safecall;
    procedure SendForReview(var Recipients: OleVariant; var Subject: OleVariant; 
                            var ShowMessage: OleVariant; var IncludeAttachment: OleVariant); safecall;
    procedure ReplyWithChanges(var ShowMessage: OleVariant); safecall;
    procedure EndReview; safecall;
    function Get_StyleSheets: StyleSheets; safecall;
    function Get_DefaultTableStyle: OleVariant; safecall;
    function Get_PasswordEncryptionProvider: WideString; safecall;
    function Get_PasswordEncryptionAlgorithm: WideString; safecall;
    function Get_PasswordEncryptionKeyLength: Integer; safecall;
    function Get_PasswordEncryptionFileProperties: WordBool; safecall;
    procedure SetPasswordEncryptionOptions(const PasswordEncryptionProvider: WideString; 
                                           const PasswordEncryptionAlgorithm: WideString; 
                                           PasswordEncryptionKeyLength: Integer; 
                                           var PasswordEncryptionFileProperties: OleVariant); safecall;
    procedure RecheckSmartTags; safecall;
    procedure RemoveSmartTags; safecall;
    procedure SetDefaultTableStyle(var Style: OleVariant; SetInTemplate: WordBool); safecall;
    procedure DeleteAllComments; safecall;
    procedure AcceptAllRevisionsShown; safecall;
    procedure RejectAllRevisionsShown; safecall;
    procedure DeleteAllCommentsShown; safecall;
    procedure ResetFormFields; safecall;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant; 
                     var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                     var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                     var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant; 
                     var SaveAsAOCELetter: OleVariant; var Encoding: OleVariant; 
                     var InsertLineBreaks: OleVariant; var AllowSubstitutions: OleVariant; 
                     var LineEnding: OleVariant; var AddBiDiMarks: OleVariant); safecall;
    function Get_EmbedLinguisticData: WordBool; safecall;
    procedure Set_EmbedLinguisticData(prop: WordBool); safecall;
    function Get_FormattingShowFont: WordBool; safecall;
    procedure Set_FormattingShowFont(prop: WordBool); safecall;
    function Get_FormattingShowClear: WordBool; safecall;
    procedure Set_FormattingShowClear(prop: WordBool); safecall;
    function Get_FormattingShowParagraph: WordBool; safecall;
    procedure Set_FormattingShowParagraph(prop: WordBool); safecall;
    function Get_FormattingShowNumbering: WordBool; safecall;
    procedure Set_FormattingShowNumbering(prop: WordBool); safecall;
    function Get_FormattingShowFilter: WdShowFilter; safecall;
    procedure Set_FormattingShowFilter(prop: WdShowFilter); safecall;
    procedure CheckNewSmartTags; safecall;
    property Name: WideString read Get_Name;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property BuiltInDocumentProperties: IDispatch read Get_BuiltInDocumentProperties;
    property CustomDocumentProperties: IDispatch read Get_CustomDocumentProperties;
    property Path: WideString read Get_Path;
    property Bookmarks: Bookmarks read Get_Bookmarks;
    property Tables: Tables read Get_Tables;
    property Footnotes: Footnotes read Get_Footnotes;
    property Endnotes: Endnotes read Get_Endnotes;
    property Comments: Comments read Get_Comments;
    property type_: WdDocumentType read Get_type_;
    property AutoHyphenation: WordBool read Get_AutoHyphenation write Set_AutoHyphenation;
    property HyphenateCaps: WordBool read Get_HyphenateCaps write Set_HyphenateCaps;
    property HyphenationZone: Integer read Get_HyphenationZone write Set_HyphenationZone;
    property ConsecutiveHyphensLimit: Integer read Get_ConsecutiveHyphensLimit write Set_ConsecutiveHyphensLimit;
    property Sections: Sections read Get_Sections;
    property Paragraphs: Paragraphs read Get_Paragraphs;
    property Words: Words read Get_Words;
    property Sentences: Sentences read Get_Sentences;
    property Characters: Characters read Get_Characters;
    property Fields: Fields read Get_Fields;
    property FormFields: FormFields read Get_FormFields;
    property Styles: Styles read Get_Styles;
    property Frames: Frames read Get_Frames;
    property TablesOfFigures: TablesOfFigures read Get_TablesOfFigures;
    property Variables: Variables read Get_Variables;
    property MailMerge: MailMerge read Get_MailMerge;
    property Envelope: Envelope read Get_Envelope;
    property FullName: WideString read Get_FullName;
    property Revisions: Revisions read Get_Revisions;
    property TablesOfContents: TablesOfContents read Get_TablesOfContents;
    property TablesOfAuthorities: TablesOfAuthorities read Get_TablesOfAuthorities;
    property PageSetup: PageSetup read Get_PageSetup write Set_PageSetup;
    property Windows: Windows read Get_Windows;
    property HasRoutingSlip: WordBool read Get_HasRoutingSlip write Set_HasRoutingSlip;
    property RoutingSlip: RoutingSlip read Get_RoutingSlip;
    property Routed: WordBool read Get_Routed;
    property TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories read Get_TablesOfAuthoritiesCategories;
    property Indexes: Indexes read Get_Indexes;
    property Saved: WordBool read Get_Saved write Set_Saved;
    property Content: Range read Get_Content;
    property ActiveWindow: Window read Get_ActiveWindow;
    property Kind: WdDocumentKind read Get_Kind write Set_Kind;
    property ReadOnly: WordBool read Get_ReadOnly;
    property Subdocuments: Subdocuments read Get_Subdocuments;
    property IsMasterDocument: WordBool read Get_IsMasterDocument;
    property DefaultTabStop: Single read Get_DefaultTabStop write Set_DefaultTabStop;
    property EmbedTrueTypeFonts: WordBool read Get_EmbedTrueTypeFonts write Set_EmbedTrueTypeFonts;
    property SaveFormsData: WordBool read Get_SaveFormsData write Set_SaveFormsData;
    property ReadOnlyRecommended: WordBool read Get_ReadOnlyRecommended write Set_ReadOnlyRecommended;
    property SaveSubsetFonts: WordBool read Get_SaveSubsetFonts write Set_SaveSubsetFonts;
    property Compatibility[Type_: WdCompatibility]: WordBool read Get_Compatibility write Set_Compatibility;
    property StoryRanges: StoryRanges read Get_StoryRanges;
    property CommandBars: CommandBars read Get_CommandBars;
    property IsSubdocument: WordBool read Get_IsSubdocument;
    property SaveFormat: Integer read Get_SaveFormat;
    property ProtectionType: WdProtectionType read Get_ProtectionType;
    property Hyperlinks: Hyperlinks read Get_Hyperlinks;
    property Shapes: Shapes read Get_Shapes;
    property ListTemplates: ListTemplates read Get_ListTemplates;
    property Lists: Lists read Get_Lists;
    property UpdateStylesOnOpen: WordBool read Get_UpdateStylesOnOpen write Set_UpdateStylesOnOpen;
    property InlineShapes: InlineShapes read Get_InlineShapes;
    property Background: Shape read Get_Background write Set_Background;
    property GrammarChecked: WordBool read Get_GrammarChecked write Set_GrammarChecked;
    property SpellingChecked: WordBool read Get_SpellingChecked write Set_SpellingChecked;
    property ShowGrammaticalErrors: WordBool read Get_ShowGrammaticalErrors write Set_ShowGrammaticalErrors;
    property ShowSpellingErrors: WordBool read Get_ShowSpellingErrors write Set_ShowSpellingErrors;
    property Versions: Versions read Get_Versions;
    property ShowSummary: WordBool read Get_ShowSummary write Set_ShowSummary;
    property SummaryViewMode: WdSummaryMode read Get_SummaryViewMode write Set_SummaryViewMode;
    property SummaryLength: Integer read Get_SummaryLength write Set_SummaryLength;
    property PrintFractionalWidths: WordBool read Get_PrintFractionalWidths write Set_PrintFractionalWidths;
    property PrintPostScriptOverText: WordBool read Get_PrintPostScriptOverText write Set_PrintPostScriptOverText;
    property Container: IDispatch read Get_Container;
    property PrintFormsData: WordBool read Get_PrintFormsData write Set_PrintFormsData;
    property ListParagraphs: ListParagraphs read Get_ListParagraphs;
    property Password: WideString write Set_Password;
    property WritePassword: WideString write Set_WritePassword;
    property HasPassword: WordBool read Get_HasPassword;
    property WriteReserved: WordBool read Get_WriteReserved;
    property ActiveWritingStyle[var LanguageID: OleVariant]: WideString read Get_ActiveWritingStyle write Set_ActiveWritingStyle;
    property UserControl: WordBool read Get_UserControl write Set_UserControl;
    property HasMailer: WordBool read Get_HasMailer write Set_HasMailer;
    property Mailer: Mailer read Get_Mailer;
    property ReadabilityStatistics: ReadabilityStatistics read Get_ReadabilityStatistics;
    property GrammaticalErrors: ProofreadingErrors read Get_GrammaticalErrors;
    property SpellingErrors: ProofreadingErrors read Get_SpellingErrors;
    property VBProject: VBProject read Get_VBProject;
    property FormsDesign: WordBool read Get_FormsDesign;
    property _CodeName: WideString read Get__CodeName write Set__CodeName;
    property CodeName: WideString read Get_CodeName;
    property SnapToGrid: WordBool read Get_SnapToGrid write Set_SnapToGrid;
    property SnapToShapes: WordBool read Get_SnapToShapes write Set_SnapToShapes;
    property GridDistanceHorizontal: Single read Get_GridDistanceHorizontal write Set_GridDistanceHorizontal;
    property GridDistanceVertical: Single read Get_GridDistanceVertical write Set_GridDistanceVertical;
    property GridOriginHorizontal: Single read Get_GridOriginHorizontal write Set_GridOriginHorizontal;
    property GridOriginVertical: Single read Get_GridOriginVertical write Set_GridOriginVertical;
    property GridSpaceBetweenHorizontalLines: Integer read Get_GridSpaceBetweenHorizontalLines write Set_GridSpaceBetweenHorizontalLines;
    property GridSpaceBetweenVerticalLines: Integer read Get_GridSpaceBetweenVerticalLines write Set_GridSpaceBetweenVerticalLines;
    property GridOriginFromMargin: WordBool read Get_GridOriginFromMargin write Set_GridOriginFromMargin;
    property KerningByAlgorithm: WordBool read Get_KerningByAlgorithm write Set_KerningByAlgorithm;
    property JustificationMode: WdJustificationMode read Get_JustificationMode write Set_JustificationMode;
    property FarEastLineBreakLevel: WdFarEastLineBreakLevel read Get_FarEastLineBreakLevel write Set_FarEastLineBreakLevel;
    property NoLineBreakBefore: WideString read Get_NoLineBreakBefore write Set_NoLineBreakBefore;
    property NoLineBreakAfter: WideString read Get_NoLineBreakAfter write Set_NoLineBreakAfter;
    property TrackRevisions: WordBool read Get_TrackRevisions write Set_TrackRevisions;
    property PrintRevisions: WordBool read Get_PrintRevisions write Set_PrintRevisions;
    property ShowRevisions: WordBool read Get_ShowRevisions write Set_ShowRevisions;
    property ActiveTheme: WideString read Get_ActiveTheme;
    property ActiveThemeDisplayName: WideString read Get_ActiveThemeDisplayName;
    property Email: Email read Get_Email;
    property Scripts: Scripts read Get_Scripts;
    property LanguageDetected: WordBool read Get_LanguageDetected write Set_LanguageDetected;
    property FarEastLineBreakLanguage: WdFarEastLineBreakLanguageID read Get_FarEastLineBreakLanguage write Set_FarEastLineBreakLanguage;
    property Frameset: Frameset read Get_Frameset;
    property HTMLProject: HTMLProject read Get_HTMLProject;
    property WebOptions: WebOptions read Get_WebOptions;
    property OpenEncoding: MsoEncoding read Get_OpenEncoding;
    property SaveEncoding: MsoEncoding read Get_SaveEncoding write Set_SaveEncoding;
    property OptimizeForWord97: WordBool read Get_OptimizeForWord97 write Set_OptimizeForWord97;
    property VBASigned: WordBool read Get_VBASigned;
    property MailEnvelope: MsoEnvelope read Get_MailEnvelope;
    property DisableFeatures: WordBool read Get_DisableFeatures write Set_DisableFeatures;
    property DoNotEmbedSystemFonts: WordBool read Get_DoNotEmbedSystemFonts write Set_DoNotEmbedSystemFonts;
    property Signatures: SignatureSet read Get_Signatures;
    property DefaultTargetFrame: WideString read Get_DefaultTargetFrame write Set_DefaultTargetFrame;
    property HTMLDivisions: HTMLDivisions read Get_HTMLDivisions;
    property DisableFeaturesIntroducedAfter: WdDisableFeaturesIntroducedAfter read Get_DisableFeaturesIntroducedAfter write Set_DisableFeaturesIntroducedAfter;
    property RemovePersonalInformation: WordBool read Get_RemovePersonalInformation write Set_RemovePersonalInformation;
    property SmartTags: SmartTags read Get_SmartTags;
    property EmbedSmartTags: WordBool read Get_EmbedSmartTags write Set_EmbedSmartTags;
    property SmartTagsAsXMLProps: WordBool read Get_SmartTagsAsXMLProps write Set_SmartTagsAsXMLProps;
    property TextEncoding: MsoEncoding read Get_TextEncoding write Set_TextEncoding;
    property TextLineEnding: WdLineEndingType read Get_TextLineEnding write Set_TextLineEnding;
    property StyleSheets: StyleSheets read Get_StyleSheets;
    property DefaultTableStyle: OleVariant read Get_DefaultTableStyle;
    property PasswordEncryptionProvider: WideString read Get_PasswordEncryptionProvider;
    property PasswordEncryptionAlgorithm: WideString read Get_PasswordEncryptionAlgorithm;
    property PasswordEncryptionKeyLength: Integer read Get_PasswordEncryptionKeyLength;
    property PasswordEncryptionFileProperties: WordBool read Get_PasswordEncryptionFileProperties;
    property EmbedLinguisticData: WordBool read Get_EmbedLinguisticData write Set_EmbedLinguisticData;
    property FormattingShowFont: WordBool read Get_FormattingShowFont write Set_FormattingShowFont;
    property FormattingShowClear: WordBool read Get_FormattingShowClear write Set_FormattingShowClear;
    property FormattingShowParagraph: WordBool read Get_FormattingShowParagraph write Set_FormattingShowParagraph;
    property FormattingShowNumbering: WordBool read Get_FormattingShowNumbering write Set_FormattingShowNumbering;
    property FormattingShowFilter: WdShowFilter read Get_FormattingShowFilter write Set_FormattingShowFilter;
  end;

// *********************************************************************//
// DispIntf:  _DocumentDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {0002096B-0000-0000-C000-000000000046}
// *********************************************************************//
  _DocumentDisp = dispinterface
    ['{0002096B-0000-0000-C000-000000000046}']
    property Name: WideString readonly dispid 0;
    property Application: WordApplication readonly dispid 1;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property BuiltInDocumentProperties: IDispatch readonly dispid 1000;
    property CustomDocumentProperties: IDispatch readonly dispid 2;
    property Path: WideString readonly dispid 3;
    property Bookmarks: Bookmarks readonly dispid 4;
    property Tables: Tables readonly dispid 6;
    property Footnotes: Footnotes readonly dispid 7;
    property Endnotes: Endnotes readonly dispid 8;
    property Comments: Comments readonly dispid 9;
    property type_: WdDocumentType readonly dispid 10;
    property AutoHyphenation: WordBool dispid 11;
    property HyphenateCaps: WordBool dispid 12;
    property HyphenationZone: Integer dispid 13;
    property ConsecutiveHyphensLimit: Integer dispid 14;
    property Sections: Sections readonly dispid 15;
    property Paragraphs: Paragraphs readonly dispid 16;
    property Words: Words readonly dispid 17;
    property Sentences: Sentences readonly dispid 18;
    property Characters: Characters readonly dispid 19;
    property Fields: Fields readonly dispid 20;
    property FormFields: FormFields readonly dispid 21;
    property Styles: Styles readonly dispid 22;
    property Frames: Frames readonly dispid 23;
    property TablesOfFigures: TablesOfFigures readonly dispid 25;
    property Variables: Variables readonly dispid 26;
    property MailMerge: MailMerge readonly dispid 27;
    property Envelope: Envelope readonly dispid 28;
    property FullName: WideString readonly dispid 29;
    property Revisions: Revisions readonly dispid 30;
    property TablesOfContents: TablesOfContents readonly dispid 31;
    property TablesOfAuthorities: TablesOfAuthorities readonly dispid 32;
    property PageSetup: PageSetup dispid 1101;
    property Windows: Windows readonly dispid 34;
    property HasRoutingSlip: WordBool dispid 35;
    property RoutingSlip: RoutingSlip readonly dispid 36;
    property Routed: WordBool readonly dispid 37;
    property TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories readonly dispid 38;
    property Indexes: Indexes readonly dispid 39;
    property Saved: WordBool dispid 40;
    property Content: Range readonly dispid 41;
    property ActiveWindow: Window readonly dispid 42;
    property Kind: WdDocumentKind dispid 43;
    property ReadOnly: WordBool readonly dispid 44;
    property Subdocuments: Subdocuments readonly dispid 45;
    property IsMasterDocument: WordBool readonly dispid 46;
    property DefaultTabStop: Single dispid 48;
    property EmbedTrueTypeFonts: WordBool dispid 50;
    property SaveFormsData: WordBool dispid 51;
    property ReadOnlyRecommended: WordBool dispid 52;
    property SaveSubsetFonts: WordBool dispid 53;
    property Compatibility[Type_: WdCompatibility]: WordBool dispid 55;
    property StoryRanges: StoryRanges readonly dispid 56;
    property CommandBars: CommandBars readonly dispid 57;
    property IsSubdocument: WordBool readonly dispid 58;
    property SaveFormat: Integer readonly dispid 59;
    property ProtectionType: WdProtectionType readonly dispid 60;
    property Hyperlinks: Hyperlinks readonly dispid 61;
    property Shapes: Shapes readonly dispid 62;
    property ListTemplates: ListTemplates readonly dispid 63;
    property Lists: Lists readonly dispid 64;
    property UpdateStylesOnOpen: WordBool dispid 66;
    function AttachedTemplate: OleVariant; dispid 67;
    property InlineShapes: InlineShapes readonly dispid 68;
    property Background: Shape dispid 69;
    property GrammarChecked: WordBool dispid 70;
    property SpellingChecked: WordBool dispid 71;
    property ShowGrammaticalErrors: WordBool dispid 72;
    property ShowSpellingErrors: WordBool dispid 73;
    property Versions: Versions readonly dispid 75;
    property ShowSummary: WordBool dispid 76;
    property SummaryViewMode: WdSummaryMode dispid 77;
    property SummaryLength: Integer dispid 78;
    property PrintFractionalWidths: WordBool dispid 79;
    property PrintPostScriptOverText: WordBool dispid 80;
    property Container: IDispatch readonly dispid 82;
    property PrintFormsData: WordBool dispid 83;
    property ListParagraphs: ListParagraphs readonly dispid 84;
    property Password: WideString writeonly dispid 85;
    property WritePassword: WideString writeonly dispid 86;
    property HasPassword: WordBool readonly dispid 87;
    property WriteReserved: WordBool readonly dispid 88;
    property ActiveWritingStyle[var LanguageID: OleVariant]: WideString dispid 90;
    property UserControl: WordBool dispid 92;
    property HasMailer: WordBool dispid 93;
    property Mailer: Mailer readonly dispid 94;
    property ReadabilityStatistics: ReadabilityStatistics readonly dispid 96;
    property GrammaticalErrors: ProofreadingErrors readonly dispid 97;
    property SpellingErrors: ProofreadingErrors readonly dispid 98;
    property VBProject: VBProject readonly dispid 99;
    property FormsDesign: WordBool readonly dispid 100;
    property _CodeName: WideString dispid -2147418112;
    property CodeName: WideString readonly dispid 262;
    property SnapToGrid: WordBool dispid 300;
    property SnapToShapes: WordBool dispid 301;
    property GridDistanceHorizontal: Single dispid 302;
    property GridDistanceVertical: Single dispid 303;
    property GridOriginHorizontal: Single dispid 304;
    property GridOriginVertical: Single dispid 305;
    property GridSpaceBetweenHorizontalLines: Integer dispid 306;
    property GridSpaceBetweenVerticalLines: Integer dispid 307;
    property GridOriginFromMargin: WordBool dispid 308;
    property KerningByAlgorithm: WordBool dispid 309;
    property JustificationMode: WdJustificationMode dispid 310;
    property FarEastLineBreakLevel: WdFarEastLineBreakLevel dispid 311;
    property NoLineBreakBefore: WideString dispid 312;
    property NoLineBreakAfter: WideString dispid 313;
    property TrackRevisions: WordBool dispid 314;
    property PrintRevisions: WordBool dispid 315;
    property ShowRevisions: WordBool dispid 316;
    procedure Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
                    var RouteDocument: OleVariant); dispid 1105;
    procedure SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                         var LockComments: OleVariant; var Password: OleVariant; 
                         var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                         var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                         var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant; 
                         var SaveAsAOCELetter: OleVariant); dispid 102;
    procedure Repaginate; dispid 103;
    procedure FitToPages; dispid 104;
    procedure ManualHyphenation; dispid 105;
    procedure Select; dispid 65535;
    procedure DataForm; dispid 106;
    procedure Route; dispid 107;
    procedure Save; dispid 108;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant; var Collate: OleVariant; 
                          var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant); dispid 109;
    procedure SendMail; dispid 110;
    function Range(var Start: OleVariant; var End_: OleVariant): Range; dispid 2000;
    procedure RunAutoMacro(Which: WdAutoMacros); dispid 112;
    procedure Activate; dispid 113;
    procedure PrintPreview; dispid 114;
    function GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
                   var Name: OleVariant): Range; dispid 115;
    function Undo(var Times: OleVariant): WordBool; dispid 116;
    function Redo(var Times: OleVariant): WordBool; dispid 117;
    function ComputeStatistics(Statistic: WdStatistic; var IncludeFootnotesAndEndnotes: OleVariant): Integer; dispid 118;
    procedure MakeCompatibilityDefault; dispid 119;
    procedure Protect(Type_: WdProtectionType; var NoReset: OleVariant; var Password: OleVariant); dispid 120;
    procedure Unprotect(var Password: OleVariant); dispid 121;
    procedure EditionOptions(Type_: WdEditionType; Option: WdEditionOption; const Name: WideString; 
                             var Format: OleVariant); dispid 122;
    procedure RunLetterWizard(var LetterContent: OleVariant; var WizardMode: OleVariant); dispid 123;
    function GetLetterContent: WordLetterContent; dispid 124;
    procedure SetLetterContent(var LetterContent: OleVariant); dispid 125;
    procedure CopyStylesFromTemplate(const Template: WideString); dispid 126;
    procedure UpdateStyles; dispid 127;
    procedure CheckGrammar; dispid 131;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
                            var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
                            var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
                            var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
                            var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
                            var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); dispid 132;
    procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
                              var NewWindow: OleVariant; var AddHistory: OleVariant; 
                              var ExtraInfo: OleVariant; var Method: OleVariant; 
                              var HeaderInfo: OleVariant); dispid 135;
    procedure AddToFavorites; dispid 136;
    procedure Reload; dispid 137;
    function AutoSummarize(var Length: OleVariant; var Mode: OleVariant; 
                           var UpdateProperties: OleVariant): Range; dispid 138;
    procedure RemoveNumbers(var NumberType: OleVariant); dispid 140;
    procedure ConvertNumbersToText(var NumberType: OleVariant); dispid 141;
    function CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer; dispid 142;
    procedure Post; dispid 143;
    procedure ToggleFormsDesign; dispid 144;
    procedure Compare2000(const Name: WideString); dispid 145;
    procedure UpdateSummaryProperties; dispid 146;
    function GetCrossReferenceItems(var ReferenceType: OleVariant): OleVariant; dispid 147;
    procedure AutoFormat; dispid 148;
    procedure ViewCode; dispid 149;
    procedure ViewPropertyBrowser; dispid 150;
    procedure ForwardMailer; dispid 250;
    procedure Reply; dispid 251;
    procedure ReplyAll; dispid 252;
    procedure SendMailer(var FileFormat: OleVariant; var Priority: OleVariant); dispid 253;
    procedure UndoClear; dispid 254;
    procedure PresentIt; dispid 255;
    procedure SendFax(const Address: WideString; var Subject: OleVariant); dispid 256;
    procedure Merge2000(const FileName: WideString); dispid 257;
    procedure ClosePrintPreview; dispid 258;
    procedure CheckConsistency; dispid 259;
    function CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
                                 const PageDesign: WideString; LetterStyle: WdLetterStyle; 
                                 Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
                                 LetterheadSize: Single; const RecipientName: WideString; 
                                 const RecipientAddress: WideString; const Salutation: WideString; 
                                 SalutationType: WdSalutationType; 
                                 const RecipientReference: WideString; 
                                 const MailingInstructions: WideString; 
                                 const AttentionLine: WideString; const Subject: WideString; 
                                 const CCList: WideString; const ReturnAddress: WideString; 
                                 const SenderName: WideString; const Closing: WideString; 
                                 const SenderCompany: WideString; const SenderJobTitle: WideString; 
                                 const SenderInitials: WideString; EnclosureNumber: Integer; 
                                 var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
                                 var RecipientGender: OleVariant; 
                                 var ReturnAddressShortForm: OleVariant; 
                                 var SenderCity: OleVariant; var SenderCode: OleVariant; 
                                 var SenderGender: OleVariant; var SenderReference: OleVariant): WordLetterContent; dispid 260;
    procedure AcceptAllRevisions; dispid 317;
    procedure RejectAllRevisions; dispid 318;
    procedure DetectLanguage; dispid 151;
    procedure ApplyTheme(const Name: WideString); dispid 322;
    procedure RemoveTheme; dispid 323;
    procedure WebPagePreview; dispid 325;
    procedure ReloadAs(Encoding: MsoEncoding); dispid 331;
    property ActiveTheme: WideString readonly dispid 540;
    property ActiveThemeDisplayName: WideString readonly dispid 541;
    property Email: Email readonly dispid 319;
    property Scripts: Scripts readonly dispid 320;
    property LanguageDetected: WordBool dispid 321;
    property FarEastLineBreakLanguage: WdFarEastLineBreakLanguageID dispid 326;
    property Frameset: Frameset readonly dispid 327;
    function ClickAndTypeParagraphStyle: OleVariant; dispid 328;
    property HTMLProject: HTMLProject readonly dispid 329;
    property WebOptions: WebOptions readonly dispid 330;
    property OpenEncoding: MsoEncoding readonly dispid 332;
    property SaveEncoding: MsoEncoding dispid 333;
    property OptimizeForWord97: WordBool dispid 334;
    property VBASigned: WordBool readonly dispid 335;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant; 
                           var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                           var PrintZoomPaperWidth: OleVariant; var PrintZoomPaperHeight: OleVariant); dispid 444;
    procedure sblt(const s: WideString); dispid 445;
    procedure ConvertVietDoc(CodePageOrigin: Integer); dispid 447;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
                       var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant; 
                       var PrintZoomRow: OleVariant; var PrintZoomPaperWidth: OleVariant; 
                       var PrintZoomPaperHeight: OleVariant); dispid 446;
    property MailEnvelope: MsoEnvelope readonly dispid 336;
    property DisableFeatures: WordBool dispid 337;
    property DoNotEmbedSystemFonts: WordBool dispid 338;
    property Signatures: SignatureSet readonly dispid 339;
    property DefaultTargetFrame: WideString dispid 340;
    property HTMLDivisions: HTMLDivisions readonly dispid 342;
    property DisableFeaturesIntroducedAfter: WdDisableFeaturesIntroducedAfter dispid 343;
    property RemovePersonalInformation: WordBool dispid 344;
    property SmartTags: SmartTags readonly dispid 346;
    procedure Compare(const Name: WideString; var AuthorName: OleVariant; 
                      var CompareTarget: OleVariant; var DetectFormatChanges: OleVariant; 
                      var IgnoreAllComparisonWarnings: OleVariant; var AddToRecentFiles: OleVariant); dispid 345;
    procedure CheckIn(SaveChanges: WordBool; var Comments: OleVariant; MakePublic: WordBool); dispid 349;
    function CanCheckin: WordBool; dispid 351;
    procedure Merge(const FileName: WideString; var MergeTarget: OleVariant; 
                    var DetectFormatChanges: OleVariant; var UseFormattingFrom: OleVariant; 
                    var AddToRecentFiles: OleVariant); dispid 362;
    property EmbedSmartTags: WordBool dispid 347;
    property SmartTagsAsXMLProps: WordBool dispid 348;
    property TextEncoding: MsoEncoding dispid 357;
    property TextLineEnding: WdLineEndingType dispid 358;
    procedure SendForReview(var Recipients: OleVariant; var Subject: OleVariant; 
                            var ShowMessage: OleVariant; var IncludeAttachment: OleVariant); dispid 353;
    procedure ReplyWithChanges(var ShowMessage: OleVariant); dispid 354;
    procedure EndReview; dispid 356;
    property StyleSheets: StyleSheets readonly dispid 360;
    property DefaultTableStyle: OleVariant readonly dispid 365;
    property PasswordEncryptionProvider: WideString readonly dispid 367;
    property PasswordEncryptionAlgorithm: WideString readonly dispid 368;
    property PasswordEncryptionKeyLength: Integer readonly dispid 369;
    property PasswordEncryptionFileProperties: WordBool readonly dispid 370;
    procedure SetPasswordEncryptionOptions(const PasswordEncryptionProvider: WideString; 
                                           const PasswordEncryptionAlgorithm: WideString; 
                                           PasswordEncryptionKeyLength: Integer; 
                                           var PasswordEncryptionFileProperties: OleVariant); dispid 361;
    procedure RecheckSmartTags; dispid 363;
    procedure RemoveSmartTags; dispid 364;
    procedure SetDefaultTableStyle(var Style: OleVariant; SetInTemplate: WordBool); dispid 366;
    procedure DeleteAllComments; dispid 371;
    procedure AcceptAllRevisionsShown; dispid 372;
    procedure RejectAllRevisionsShown; dispid 373;
    procedure DeleteAllCommentsShown; dispid 374;
    procedure ResetFormFields; dispid 375;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant; 
                     var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                     var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                     var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant; 
                     var SaveAsAOCELetter: OleVariant; var Encoding: OleVariant; 
                     var InsertLineBreaks: OleVariant; var AllowSubstitutions: OleVariant; 
                     var LineEnding: OleVariant; var AddBiDiMarks: OleVariant); dispid 376;
    property EmbedLinguisticData: WordBool dispid 377;
    property FormattingShowFont: WordBool dispid 448;
    property FormattingShowClear: WordBool dispid 449;
    property FormattingShowParagraph: WordBool dispid 450;
    property FormattingShowNumbering: WordBool dispid 451;
    property FormattingShowFilter: WdShowFilter dispid 452;
    procedure CheckNewSmartTags; dispid 378;
  end;

// *********************************************************************//
// Interface: Template
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002096A-0000-0000-C000-000000000046}
// *********************************************************************//
  Template = interface(IDispatch)
    ['{0002096A-0000-0000-C000-000000000046}']
    function Get_Name: WideString; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Path: WideString; safecall;
    function Get_AutoTextEntries: AutoTextEntries; safecall;
    function Get_LanguageID: WdLanguageID; safecall;
    procedure Set_LanguageID(prop: WdLanguageID); safecall;
    function Get_Saved: WordBool; safecall;
    procedure Set_Saved(prop: WordBool); safecall;
    function Get_type_: WdTemplateType; safecall;
    function Get_FullName: WideString; safecall;
    function Get_BuiltInDocumentProperties: IDispatch; safecall;
    function Get_CustomDocumentProperties: IDispatch; safecall;
    function Get_ListTemplates: ListTemplates; safecall;
    function Get_LanguageIDFarEast: WdLanguageID; safecall;
    procedure Set_LanguageIDFarEast(prop: WdLanguageID); safecall;
    function Get_VBProject: VBProject; safecall;
    function Get_KerningByAlgorithm: WordBool; safecall;
    procedure Set_KerningByAlgorithm(prop: WordBool); safecall;
    function Get_JustificationMode: WdJustificationMode; safecall;
    procedure Set_JustificationMode(prop: WdJustificationMode); safecall;
    function Get_FarEastLineBreakLevel: WdFarEastLineBreakLevel; safecall;
    procedure Set_FarEastLineBreakLevel(prop: WdFarEastLineBreakLevel); safecall;
    function Get_NoLineBreakBefore: WideString; safecall;
    procedure Set_NoLineBreakBefore(const prop: WideString); safecall;
    function Get_NoLineBreakAfter: WideString; safecall;
    procedure Set_NoLineBreakAfter(const prop: WideString); safecall;
    function OpenAsDocument: WordDocument; safecall;
    procedure Save; safecall;
    function Get_NoProofing: Integer; safecall;
    procedure Set_NoProofing(prop: Integer); safecall;
    function Get_FarEastLineBreakLanguage: WdFarEastLineBreakLanguageID; safecall;
    procedure Set_FarEastLineBreakLanguage(prop: WdFarEastLineBreakLanguageID); safecall;
    property Name: WideString read Get_Name;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Path: WideString read Get_Path;
    property AutoTextEntries: AutoTextEntries read Get_AutoTextEntries;
    property LanguageID: WdLanguageID read Get_LanguageID write Set_LanguageID;
    property Saved: WordBool read Get_Saved write Set_Saved;
    property type_: WdTemplateType read Get_type_;
    property FullName: WideString read Get_FullName;
    property BuiltInDocumentProperties: IDispatch read Get_BuiltInDocumentProperties;
    property CustomDocumentProperties: IDispatch read Get_CustomDocumentProperties;
    property ListTemplates: ListTemplates read Get_ListTemplates;
    property LanguageIDFarEast: WdLanguageID read Get_LanguageIDFarEast write Set_LanguageIDFarEast;
    property VBProject: VBProject read Get_VBProject;
    property KerningByAlgorithm: WordBool read Get_KerningByAlgorithm write Set_KerningByAlgorithm;
    property JustificationMode: WdJustificationMode read Get_JustificationMode write Set_JustificationMode;
    property FarEastLineBreakLevel: WdFarEastLineBreakLevel read Get_FarEastLineBreakLevel write Set_FarEastLineBreakLevel;
    property NoLineBreakBefore: WideString read Get_NoLineBreakBefore write Set_NoLineBreakBefore;
    property NoLineBreakAfter: WideString read Get_NoLineBreakAfter write Set_NoLineBreakAfter;
    property NoProofing: Integer read Get_NoProofing write Set_NoProofing;
    property FarEastLineBreakLanguage: WdFarEastLineBreakLanguageID read Get_FarEastLineBreakLanguage write Set_FarEastLineBreakLanguage;
  end;

// *********************************************************************//
// DispIntf:  TemplateDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002096A-0000-0000-C000-000000000046}
// *********************************************************************//
  TemplateDisp = dispinterface
    ['{0002096A-0000-0000-C000-000000000046}']
    property Name: WideString readonly dispid 0;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Path: WideString readonly dispid 1;
    property AutoTextEntries: AutoTextEntries readonly dispid 2;
    property LanguageID: WdLanguageID dispid 4;
    property Saved: WordBool dispid 5;
    property type_: WdTemplateType readonly dispid 6;
    property FullName: WideString readonly dispid 7;
    property BuiltInDocumentProperties: IDispatch readonly dispid 8;
    property CustomDocumentProperties: IDispatch readonly dispid 9;
    property ListTemplates: ListTemplates readonly dispid 10;
    property LanguageIDFarEast: WdLanguageID dispid 11;
    property VBProject: VBProject readonly dispid 99;
    property KerningByAlgorithm: WordBool dispid 12;
    property JustificationMode: WdJustificationMode dispid 13;
    property FarEastLineBreakLevel: WdFarEastLineBreakLevel dispid 14;
    property NoLineBreakBefore: WideString dispid 15;
    property NoLineBreakAfter: WideString dispid 16;
    function OpenAsDocument: WordDocument; dispid 100;
    procedure Save; dispid 101;
    property NoProofing: Integer dispid 17;
    property FarEastLineBreakLanguage: WdFarEastLineBreakLanguageID dispid 18;
  end;

// *********************************************************************//
// Interface: Templates
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A2-0000-0000-C000-000000000046}
// *********************************************************************//
  Templates = interface(IDispatch)
    ['{000209A2-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Item(var Index: OleVariant): Template; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  TemplatesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A2-0000-0000-C000-000000000046}
// *********************************************************************//
  TemplatesDisp = dispinterface
    ['{000209A2-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Count: Integer readonly dispid 1;
    property _NewEnum: IUnknown readonly dispid -4;
    function Item(var Index: OleVariant): Template; dispid 0;
  end;

// *********************************************************************//
// Interface: RoutingSlip
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020969-0000-0000-C000-000000000046}
// *********************************************************************//
  RoutingSlip = interface(IDispatch)
    ['{00020969-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Subject: WideString; safecall;
    procedure Set_Subject(const prop: WideString); safecall;
    function Get_Message: WideString; safecall;
    procedure Set_Message(const prop: WideString); safecall;
    function Get_Delivery: WdRoutingSlipDelivery; safecall;
    procedure Set_Delivery(prop: WdRoutingSlipDelivery); safecall;
    function Get_TrackStatus: WordBool; safecall;
    procedure Set_TrackStatus(prop: WordBool); safecall;
    function Get_Protect: WdProtectionType; safecall;
    procedure Set_Protect(prop: WdProtectionType); safecall;
    function Get_ReturnWhenDone: WordBool; safecall;
    procedure Set_ReturnWhenDone(prop: WordBool); safecall;
    function Get_Status: WdRoutingSlipStatus; safecall;
    function Get_Recipients(var Index: OleVariant): OleVariant; safecall;
    procedure Reset; safecall;
    procedure AddRecipient(const Recipient: WideString); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Subject: WideString read Get_Subject write Set_Subject;
    property Message: WideString read Get_Message write Set_Message;
    property Delivery: WdRoutingSlipDelivery read Get_Delivery write Set_Delivery;
    property TrackStatus: WordBool read Get_TrackStatus write Set_TrackStatus;
    property Protect: WdProtectionType read Get_Protect write Set_Protect;
    property ReturnWhenDone: WordBool read Get_ReturnWhenDone write Set_ReturnWhenDone;
    property Status: WdRoutingSlipStatus read Get_Status;
    property Recipients[var Index: OleVariant]: OleVariant read Get_Recipients;
  end;

// *********************************************************************//
// DispIntf:  RoutingSlipDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020969-0000-0000-C000-000000000046}
// *********************************************************************//
  RoutingSlipDisp = dispinterface
    ['{00020969-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Subject: WideString dispid 1;
    property Message: WideString dispid 2;
    property Delivery: WdRoutingSlipDelivery dispid 3;
    property TrackStatus: WordBool dispid 4;
    property Protect: WdProtectionType dispid 5;
    property ReturnWhenDone: WordBool dispid 6;
    property Status: WdRoutingSlipStatus readonly dispid 7;
    property Recipients[var Index: OleVariant]: OleVariant readonly dispid 9;
    procedure Reset; dispid 101;
    procedure AddRecipient(const Recipient: WideString); dispid 102;
  end;

// *********************************************************************//
// Interface: Bookmark
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020968-0000-0000-C000-000000000046}
// *********************************************************************//
  Bookmark = interface(IDispatch)
    ['{00020968-0000-0000-C000-000000000046}']
    function Get_Name: WideString; safecall;
    function Get_Range: Range; safecall;
    function Get_Empty: WordBool; safecall;
    function Get_Start: Integer; safecall;
    procedure Set_Start(prop: Integer); safecall;
    function Get_End_: Integer; safecall;
    procedure Set_End_(prop: Integer); safecall;
    function Get_Column: WordBool; safecall;
    function Get_StoryType: WdStoryType; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    procedure Select; safecall;
    procedure Delete; safecall;
    function Copy(const Name: WideString): Bookmark; safecall;
    property Name: WideString read Get_Name;
    property Range: Range read Get_Range;
    property Empty: WordBool read Get_Empty;
    property Start: Integer read Get_Start write Set_Start;
    property End_: Integer read Get_End_ write Set_End_;
    property Column: WordBool read Get_Column;
    property StoryType: WdStoryType read Get_StoryType;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  BookmarkDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020968-0000-0000-C000-000000000046}
// *********************************************************************//
  BookmarkDisp = dispinterface
    ['{00020968-0000-0000-C000-000000000046}']
    property Name: WideString readonly dispid 0;
    property Range: Range readonly dispid 1;
    property Empty: WordBool readonly dispid 2;
    property Start: Integer dispid 3;
    property End_: Integer dispid 4;
    property Column: WordBool readonly dispid 5;
    property StoryType: WdStoryType readonly dispid 6;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    procedure Select; dispid 65535;
    procedure Delete; dispid 11;
    function Copy(const Name: WideString): Bookmark; dispid 12;
  end;

// *********************************************************************//
// Interface: Bookmarks
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020967-0000-0000-C000-000000000046}
// *********************************************************************//
  Bookmarks = interface(IDispatch)
    ['{00020967-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_DefaultSorting: WdBookmarkSortBy; safecall;
    procedure Set_DefaultSorting(prop: WdBookmarkSortBy); safecall;
    function Get_ShowHidden: WordBool; safecall;
    procedure Set_ShowHidden(prop: WordBool); safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(var Index: OleVariant): Bookmark; safecall;
    function Add(const Name: WideString; var Range: OleVariant): Bookmark; safecall;
    function Exists(const Name: WideString): WordBool; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property DefaultSorting: WdBookmarkSortBy read Get_DefaultSorting write Set_DefaultSorting;
    property ShowHidden: WordBool read Get_ShowHidden write Set_ShowHidden;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  BookmarksDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020967-0000-0000-C000-000000000046}
// *********************************************************************//
  BookmarksDisp = dispinterface
    ['{00020967-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property DefaultSorting: WdBookmarkSortBy dispid 3;
    property ShowHidden: WordBool dispid 4;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(var Index: OleVariant): Bookmark; dispid 0;
    function Add(const Name: WideString; var Range: OleVariant): Bookmark; dispid 5;
    function Exists(const Name: WideString): WordBool; dispid 6;
  end;

// *********************************************************************//
// Interface: Variable
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020966-0000-0000-C000-000000000046}
// *********************************************************************//
  Variable = interface(IDispatch)
    ['{00020966-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    function Get_Value: WideString; safecall;
    procedure Set_Value(const prop: WideString); safecall;
    function Get_Index: Integer; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
    property Value: WideString read Get_Value write Set_Value;
    property Index: Integer read Get_Index;
  end;

// *********************************************************************//
// DispIntf:  VariableDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020966-0000-0000-C000-000000000046}
// *********************************************************************//
  VariableDisp = dispinterface
    ['{00020966-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString readonly dispid 1;
    property Value: WideString dispid 0;
    property Index: Integer readonly dispid 2;
    procedure Delete; dispid 11;
  end;

// *********************************************************************//
// Interface: Variables
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020965-0000-0000-C000-000000000046}
// *********************************************************************//
  Variables = interface(IDispatch)
    ['{00020965-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(var Index: OleVariant): Variable; safecall;
    function Add(const Name: WideString; var Value: OleVariant): Variable; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  VariablesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020965-0000-0000-C000-000000000046}
// *********************************************************************//
  VariablesDisp = dispinterface
    ['{00020965-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(var Index: OleVariant): Variable; dispid 0;
    function Add(const Name: WideString; var Value: OleVariant): Variable; dispid 7;
  end;

// *********************************************************************//
// Interface: RecentFile
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020964-0000-0000-C000-000000000046}
// *********************************************************************//
  RecentFile = interface(IDispatch)
    ['{00020964-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    function Get_Index: Integer; safecall;
    function Get_ReadOnly: WordBool; safecall;
    procedure Set_ReadOnly(prop: WordBool); safecall;
    function Get_Path: WideString; safecall;
    function Open: WordDocument; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
    property Index: Integer read Get_Index;
    property ReadOnly: WordBool read Get_ReadOnly write Set_ReadOnly;
    property Path: WideString read Get_Path;
  end;

// *********************************************************************//
// DispIntf:  RecentFileDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020964-0000-0000-C000-000000000046}
// *********************************************************************//
  RecentFileDisp = dispinterface
    ['{00020964-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString readonly dispid 0;
    property Index: Integer readonly dispid 1;
    property ReadOnly: WordBool dispid 2;
    property Path: WideString readonly dispid 3;
    function Open: WordDocument; dispid 4;
    procedure Delete; dispid 5;
  end;

// *********************************************************************//
// Interface: RecentFiles
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020963-0000-0000-C000-000000000046}
// *********************************************************************//
  RecentFiles = interface(IDispatch)
    ['{00020963-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Maximum: Integer; safecall;
    procedure Set_Maximum(prop: Integer); safecall;
    function Item(Index: Integer): RecentFile; safecall;
    function Add(var Document: OleVariant; var ReadOnly: OleVariant): RecentFile; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Maximum: Integer read Get_Maximum write Set_Maximum;
  end;

// *********************************************************************//
// DispIntf:  RecentFilesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020963-0000-0000-C000-000000000046}
// *********************************************************************//
  RecentFilesDisp = dispinterface
    ['{00020963-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    property Maximum: Integer dispid 2;
    function Item(Index: Integer): RecentFile; dispid 0;
    function Add(var Document: OleVariant; var ReadOnly: OleVariant): RecentFile; dispid 3;
  end;

// *********************************************************************//
// Interface: Window
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020962-0000-0000-C000-000000000046}
// *********************************************************************//
  Window = interface(IDispatch)
    ['{00020962-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_ActivePane: Pane; safecall;
    function Get_Document: WordDocument; safecall;
    function Get_Panes: Panes; safecall;
    function Get_Selection: WordSelection; safecall;
    function Get_Left: Integer; safecall;
    procedure Set_Left(prop: Integer); safecall;
    function Get_Top: Integer; safecall;
    procedure Set_Top(prop: Integer); safecall;
    function Get_Width: Integer; safecall;
    procedure Set_Width(prop: Integer); safecall;
    function Get_Height: Integer; safecall;
    procedure Set_Height(prop: Integer); safecall;
    function Get_Split: WordBool; safecall;
    procedure Set_Split(prop: WordBool); safecall;
    function Get_SplitVertical: Integer; safecall;
    procedure Set_SplitVertical(prop: Integer); safecall;
    function Get_Caption: WideString; safecall;
    procedure Set_Caption(const prop: WideString); safecall;
    function Get_WindowState: WdWindowState; safecall;
    procedure Set_WindowState(prop: WdWindowState); safecall;
    function Get_DisplayRulers: WordBool; safecall;
    procedure Set_DisplayRulers(prop: WordBool); safecall;
    function Get_DisplayVerticalRuler: WordBool; safecall;
    procedure Set_DisplayVerticalRuler(prop: WordBool); safecall;
    function Get_View: View; safecall;
    function Get_type_: WdWindowType; safecall;
    function Get_Next: Window; safecall;
    function Get_Previous: Window; safecall;
    function Get_WindowNumber: Integer; safecall;
    function Get_DisplayVerticalScrollBar: WordBool; safecall;
    procedure Set_DisplayVerticalScrollBar(prop: WordBool); safecall;
    function Get_DisplayHorizontalScrollBar: WordBool; safecall;
    procedure Set_DisplayHorizontalScrollBar(prop: WordBool); safecall;
    function Get_StyleAreaWidth: Single; safecall;
    procedure Set_StyleAreaWidth(prop: Single); safecall;
    function Get_DisplayScreenTips: WordBool; safecall;
    procedure Set_DisplayScreenTips(prop: WordBool); safecall;
    function Get_HorizontalPercentScrolled: Integer; safecall;
    procedure Set_HorizontalPercentScrolled(prop: Integer); safecall;
    function Get_VerticalPercentScrolled: Integer; safecall;
    procedure Set_VerticalPercentScrolled(prop: Integer); safecall;
    function Get_DocumentMap: WordBool; safecall;
    procedure Set_DocumentMap(prop: WordBool); safecall;
    function Get_Active: WordBool; safecall;
    function Get_DocumentMapPercentWidth: Integer; safecall;
    procedure Set_DocumentMapPercentWidth(prop: Integer); safecall;
    function Get_Index: Integer; safecall;
    function Get_IMEMode: WdIMEMode; safecall;
    procedure Set_IMEMode(prop: WdIMEMode); safecall;
    procedure Activate; safecall;
    procedure Close(var SaveChanges: OleVariant; var RouteDocument: OleVariant); safecall;
    procedure LargeScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
                          var ToLeft: OleVariant); safecall;
    procedure SmallScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
                          var ToLeft: OleVariant); safecall;
    function NewWindow: Window; safecall;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant; var Collate: OleVariant; 
                          var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant); safecall;
    procedure PageScroll(var Down: OleVariant; var Up: OleVariant); safecall;
    procedure SetFocus; safecall;
    function RangeFromPoint(x: Integer; y: Integer): IDispatch; safecall;
    procedure ScrollIntoView(const obj: IDispatch; var Start: OleVariant); safecall;
    procedure GetPoint(out ScreenPixelsLeft: Integer; out ScreenPixelsTop: Integer; 
                       out ScreenPixelsWidth: Integer; out ScreenPixelsHeight: Integer; 
                       const obj: IDispatch); safecall;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant; 
                           var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                           var PrintZoomPaperWidth: OleVariant; var PrintZoomPaperHeight: OleVariant); safecall;
    function Get_UsableWidth: Integer; safecall;
    function Get_UsableHeight: Integer; safecall;
    function Get_EnvelopeVisible: WordBool; safecall;
    procedure Set_EnvelopeVisible(prop: WordBool); safecall;
    function Get_DisplayRightRuler: WordBool; safecall;
    procedure Set_DisplayRightRuler(prop: WordBool); safecall;
    function Get_DisplayLeftScrollBar: WordBool; safecall;
    procedure Set_DisplayLeftScrollBar(prop: WordBool); safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Visible(prop: WordBool); safecall;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
                       var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant; 
                       var PrintZoomRow: OleVariant; var PrintZoomPaperWidth: OleVariant; 
                       var PrintZoomPaperHeight: OleVariant); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property ActivePane: Pane read Get_ActivePane;
    property Document: WordDocument read Get_Document;
    property Panes: Panes read Get_Panes;
    property Selection: WordSelection read Get_Selection;
    property Left: Integer read Get_Left write Set_Left;
    property Top: Integer read Get_Top write Set_Top;
    property Width: Integer read Get_Width write Set_Width;
    property Height: Integer read Get_Height write Set_Height;
    property Split: WordBool read Get_Split write Set_Split;
    property SplitVertical: Integer read Get_SplitVertical write Set_SplitVertical;
    property Caption: WideString read Get_Caption write Set_Caption;
    property WindowState: WdWindowState read Get_WindowState write Set_WindowState;
    property DisplayRulers: WordBool read Get_DisplayRulers write Set_DisplayRulers;
    property DisplayVerticalRuler: WordBool read Get_DisplayVerticalRuler write Set_DisplayVerticalRuler;
    property View: View read Get_View;
    property type_: WdWindowType read Get_type_;
    property Next: Window read Get_Next;
    property Previous: Window read Get_Previous;
    property WindowNumber: Integer read Get_WindowNumber;
    property DisplayVerticalScrollBar: WordBool read Get_DisplayVerticalScrollBar write Set_DisplayVerticalScrollBar;
    property DisplayHorizontalScrollBar: WordBool read Get_DisplayHorizontalScrollBar write Set_DisplayHorizontalScrollBar;
    property StyleAreaWidth: Single read Get_StyleAreaWidth write Set_StyleAreaWidth;
    property DisplayScreenTips: WordBool read Get_DisplayScreenTips write Set_DisplayScreenTips;
    property HorizontalPercentScrolled: Integer read Get_HorizontalPercentScrolled write Set_HorizontalPercentScrolled;
    property VerticalPercentScrolled: Integer read Get_VerticalPercentScrolled write Set_VerticalPercentScrolled;
    property DocumentMap: WordBool read Get_DocumentMap write Set_DocumentMap;
    property Active: WordBool read Get_Active;
    property DocumentMapPercentWidth: Integer read Get_DocumentMapPercentWidth write Set_DocumentMapPercentWidth;
    property Index: Integer read Get_Index;
    property IMEMode: WdIMEMode read Get_IMEMode write Set_IMEMode;
    property UsableWidth: Integer read Get_UsableWidth;
    property UsableHeight: Integer read Get_UsableHeight;
    property EnvelopeVisible: WordBool read Get_EnvelopeVisible write Set_EnvelopeVisible;
    property DisplayRightRuler: WordBool read Get_DisplayRightRuler write Set_DisplayRightRuler;
    property DisplayLeftScrollBar: WordBool read Get_DisplayLeftScrollBar write Set_DisplayLeftScrollBar;
    property Visible: WordBool read Get_Visible write Set_Visible;
  end;

// *********************************************************************//
// DispIntf:  WindowDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020962-0000-0000-C000-000000000046}
// *********************************************************************//
  WindowDisp = dispinterface
    ['{00020962-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property ActivePane: Pane readonly dispid 1;
    property Document: WordDocument readonly dispid 2;
    property Panes: Panes readonly dispid 3;
    property Selection: WordSelection readonly dispid 4;
    property Left: Integer dispid 5;
    property Top: Integer dispid 6;
    property Width: Integer dispid 7;
    property Height: Integer dispid 8;
    property Split: WordBool dispid 9;
    property SplitVertical: Integer dispid 10;
    property Caption: WideString dispid 0;
    property WindowState: WdWindowState dispid 11;
    property DisplayRulers: WordBool dispid 12;
    property DisplayVerticalRuler: WordBool dispid 13;
    property View: View readonly dispid 14;
    property type_: WdWindowType readonly dispid 15;
    property Next: Window readonly dispid 16;
    property Previous: Window readonly dispid 17;
    property WindowNumber: Integer readonly dispid 18;
    property DisplayVerticalScrollBar: WordBool dispid 19;
    property DisplayHorizontalScrollBar: WordBool dispid 20;
    property StyleAreaWidth: Single dispid 21;
    property DisplayScreenTips: WordBool dispid 22;
    property HorizontalPercentScrolled: Integer dispid 23;
    property VerticalPercentScrolled: Integer dispid 24;
    property DocumentMap: WordBool dispid 25;
    property Active: WordBool readonly dispid 26;
    property DocumentMapPercentWidth: Integer dispid 27;
    property Index: Integer readonly dispid 28;
    property IMEMode: WdIMEMode dispid 30;
    procedure Activate; dispid 100;
    procedure Close(var SaveChanges: OleVariant; var RouteDocument: OleVariant); dispid 102;
    procedure LargeScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
                          var ToLeft: OleVariant); dispid 103;
    procedure SmallScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
                          var ToLeft: OleVariant); dispid 104;
    function NewWindow: Window; dispid 105;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant; var Collate: OleVariant; 
                          var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant); dispid 107;
    procedure PageScroll(var Down: OleVariant; var Up: OleVariant); dispid 108;
    procedure SetFocus; dispid 109;
    function RangeFromPoint(x: Integer; y: Integer): IDispatch; dispid 110;
    procedure ScrollIntoView(const obj: IDispatch; var Start: OleVariant); dispid 111;
    procedure GetPoint(out ScreenPixelsLeft: Integer; out ScreenPixelsTop: Integer; 
                       out ScreenPixelsWidth: Integer; out ScreenPixelsHeight: Integer; 
                       const obj: IDispatch); dispid 112;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant; 
                           var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                           var PrintZoomPaperWidth: OleVariant; var PrintZoomPaperHeight: OleVariant); dispid 444;
    property UsableWidth: Integer readonly dispid 31;
    property UsableHeight: Integer readonly dispid 32;
    property EnvelopeVisible: WordBool dispid 33;
    property DisplayRightRuler: WordBool dispid 35;
    property DisplayLeftScrollBar: WordBool dispid 34;
    property Visible: WordBool dispid 36;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
                       var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant; 
                       var PrintZoomRow: OleVariant; var PrintZoomPaperWidth: OleVariant; 
                       var PrintZoomPaperHeight: OleVariant); dispid 445;
  end;

// *********************************************************************//
// Interface: Windows
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020961-0000-0000-C000-000000000046}
// *********************************************************************//
  Windows = interface(IDispatch)
    ['{00020961-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(var Index: OleVariant): Window; safecall;
    function Add(var Window: OleVariant): Window; safecall;
    procedure Arrange(var ArrangeStyle: OleVariant); safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  WindowsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020961-0000-0000-C000-000000000046}
// *********************************************************************//
  WindowsDisp = dispinterface
    ['{00020961-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(var Index: OleVariant): Window; dispid 0;
    function Add(var Window: OleVariant): Window; dispid 10;
    procedure Arrange(var ArrangeStyle: OleVariant); dispid 11;
  end;

// *********************************************************************//
// Interface: Pane
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020960-0000-0000-C000-000000000046}
// *********************************************************************//
  Pane = interface(IDispatch)
    ['{00020960-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Document: WordDocument; safecall;
    function Get_Selection: WordSelection; safecall;
    function Get_DisplayRulers: WordBool; safecall;
    procedure Set_DisplayRulers(prop: WordBool); safecall;
    function Get_DisplayVerticalRuler: WordBool; safecall;
    procedure Set_DisplayVerticalRuler(prop: WordBool); safecall;
    function Get_Zooms: Zooms; safecall;
    function Get_Index: Integer; safecall;
    function Get_View: View; safecall;
    function Get_Next: Pane; safecall;
    function Get_Previous: Pane; safecall;
    function Get_HorizontalPercentScrolled: Integer; safecall;
    procedure Set_HorizontalPercentScrolled(prop: Integer); safecall;
    function Get_VerticalPercentScrolled: Integer; safecall;
    procedure Set_VerticalPercentScrolled(prop: Integer); safecall;
    function Get_MinimumFontSize: Integer; safecall;
    procedure Set_MinimumFontSize(prop: Integer); safecall;
    function Get_BrowseToWindow: WordBool; safecall;
    procedure Set_BrowseToWindow(prop: WordBool); safecall;
    function Get_BrowseWidth: Integer; safecall;
    procedure Activate; safecall;
    procedure Close; safecall;
    procedure LargeScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
                          var ToLeft: OleVariant); safecall;
    procedure SmallScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
                          var ToLeft: OleVariant); safecall;
    procedure AutoScroll(Velocity: Integer); safecall;
    procedure PageScroll(var Down: OleVariant; var Up: OleVariant); safecall;
    procedure NewFrameset; safecall;
    procedure TOCInFrameset; safecall;
    function Get_Frameset: Frameset; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Document: WordDocument read Get_Document;
    property Selection: WordSelection read Get_Selection;
    property DisplayRulers: WordBool read Get_DisplayRulers write Set_DisplayRulers;
    property DisplayVerticalRuler: WordBool read Get_DisplayVerticalRuler write Set_DisplayVerticalRuler;
    property Zooms: Zooms read Get_Zooms;
    property Index: Integer read Get_Index;
    property View: View read Get_View;
    property Next: Pane read Get_Next;
    property Previous: Pane read Get_Previous;
    property HorizontalPercentScrolled: Integer read Get_HorizontalPercentScrolled write Set_HorizontalPercentScrolled;
    property VerticalPercentScrolled: Integer read Get_VerticalPercentScrolled write Set_VerticalPercentScrolled;
    property MinimumFontSize: Integer read Get_MinimumFontSize write Set_MinimumFontSize;
    property BrowseToWindow: WordBool read Get_BrowseToWindow write Set_BrowseToWindow;
    property BrowseWidth: Integer read Get_BrowseWidth;
    property Frameset: Frameset read Get_Frameset;
  end;

// *********************************************************************//
// DispIntf:  PaneDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020960-0000-0000-C000-000000000046}
// *********************************************************************//
  PaneDisp = dispinterface
    ['{00020960-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Document: WordDocument readonly dispid 1;
    property Selection: WordSelection readonly dispid 3;
    property DisplayRulers: WordBool dispid 4;
    property DisplayVerticalRuler: WordBool dispid 5;
    property Zooms: Zooms readonly dispid 7;
    property Index: Integer readonly dispid 9;
    property View: View readonly dispid 10;
    property Next: Pane readonly dispid 11;
    property Previous: Pane readonly dispid 12;
    property HorizontalPercentScrolled: Integer dispid 13;
    property VerticalPercentScrolled: Integer dispid 14;
    property MinimumFontSize: Integer dispid 15;
    property BrowseToWindow: WordBool dispid 16;
    property BrowseWidth: Integer readonly dispid 17;
    procedure Activate; dispid 100;
    procedure Close; dispid 101;
    procedure LargeScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
                          var ToLeft: OleVariant); dispid 102;
    procedure SmallScroll(var Down: OleVariant; var Up: OleVariant; var ToRight: OleVariant; 
                          var ToLeft: OleVariant); dispid 103;
    procedure AutoScroll(Velocity: Integer); dispid 104;
    procedure PageScroll(var Down: OleVariant; var Up: OleVariant); dispid 105;
    procedure NewFrameset; dispid 106;
    procedure TOCInFrameset; dispid 107;
    property Frameset: Frameset readonly dispid 18;
  end;

// *********************************************************************//
// Interface: Panes
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002095F-0000-0000-C000-000000000046}
// *********************************************************************//
  Panes = interface(IDispatch)
    ['{0002095F-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(Index: Integer): Pane; safecall;
    function Add(var SplitVertical: OleVariant): Pane; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  PanesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002095F-0000-0000-C000-000000000046}
// *********************************************************************//
  PanesDisp = dispinterface
    ['{0002095F-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(Index: Integer): Pane; dispid 0;
    function Add(var SplitVertical: OleVariant): Pane; dispid 3;
  end;

// *********************************************************************//
// Interface: Range
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002095E-0000-0000-C000-000000000046}
// *********************************************************************//
  Range = interface(IDispatch)
    ['{0002095E-0000-0000-C000-000000000046}']
    function Get_Text: WideString; safecall;
    procedure Set_Text(const prop: WideString); safecall;
    function Get_FormattedText: Range; safecall;
    procedure Set_FormattedText(const prop: Range); safecall;
    function Get_Start: Integer; safecall;
    procedure Set_Start(prop: Integer); safecall;
    function Get_End_: Integer; safecall;
    procedure Set_End_(prop: Integer); safecall;
    function Get_Font: WordFont; safecall;
    procedure Set_Font(const prop: WordFont); safecall;
    function Get_Duplicate: Range; safecall;
    function Get_StoryType: WdStoryType; safecall;
    function Get_Tables: Tables; safecall;
    function Get_Words: Words; safecall;
    function Get_Sentences: Sentences; safecall;
    function Get_Characters: Characters; safecall;
    function Get_Footnotes: Footnotes; safecall;
    function Get_Endnotes: Endnotes; safecall;
    function Get_Comments: Comments; safecall;
    function Get_Cells: Cells; safecall;
    function Get_Sections: Sections; safecall;
    function Get_Paragraphs: Paragraphs; safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_Shading: Shading; safecall;
    function Get_TextRetrievalMode: TextRetrievalMode; safecall;
    procedure Set_TextRetrievalMode(const prop: TextRetrievalMode); safecall;
    function Get_Fields: Fields; safecall;
    function Get_FormFields: FormFields; safecall;
    function Get_Frames: Frames; safecall;
    function Get_ParagraphFormat: WordParagraphFormat; safecall;
    procedure Set_ParagraphFormat(const prop: WordParagraphFormat); safecall;
    function Get_ListFormat: ListFormat; safecall;
    function Get_Bookmarks: Bookmarks; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Bold: Integer; safecall;
    procedure Set_Bold(prop: Integer); safecall;
    function Get_Italic: Integer; safecall;
    procedure Set_Italic(prop: Integer); safecall;
    function Get_Underline: WdUnderline; safecall;
    procedure Set_Underline(prop: WdUnderline); safecall;
    function Get_EmphasisMark: WdEmphasisMark; safecall;
    procedure Set_EmphasisMark(prop: WdEmphasisMark); safecall;
    function Get_DisableCharacterSpaceGrid: WordBool; safecall;
    procedure Set_DisableCharacterSpaceGrid(prop: WordBool); safecall;
    function Get_Revisions: Revisions; safecall;
    function Get_Style: OleVariant; safecall;
    procedure Set_Style(var prop: OleVariant); safecall;
    function Get_StoryLength: Integer; safecall;
    function Get_LanguageID: WdLanguageID; safecall;
    procedure Set_LanguageID(prop: WdLanguageID); safecall;
    function Get_SynonymInfo: SynonymInfo; safecall;
    function Get_Hyperlinks: Hyperlinks; safecall;
    function Get_ListParagraphs: ListParagraphs; safecall;
    function Get_Subdocuments: Subdocuments; safecall;
    function Get_GrammarChecked: WordBool; safecall;
    procedure Set_GrammarChecked(prop: WordBool); safecall;
    function Get_SpellingChecked: WordBool; safecall;
    procedure Set_SpellingChecked(prop: WordBool); safecall;
    function Get_HighlightColorIndex: WdColorIndex; safecall;
    procedure Set_HighlightColorIndex(prop: WdColorIndex); safecall;
    function Get_Columns: Columns; safecall;
    function Get_Rows: Rows; safecall;
    function Get_CanEdit: Integer; safecall;
    function Get_CanPaste: Integer; safecall;
    function Get_IsEndOfRowMark: WordBool; safecall;
    function Get_BookmarkID: Integer; safecall;
    function Get_PreviousBookmarkID: Integer; safecall;
    function Get_Find: Find; safecall;
    function Get_PageSetup: PageSetup; safecall;
    procedure Set_PageSetup(const prop: PageSetup); safecall;
    function Get_ShapeRange: ShapeRange; safecall;
    function Get_Case_: WdCharacterCase; safecall;
    procedure Set_Case_(prop: WdCharacterCase); safecall;
    function Get_Information(Type_: WdInformation): OleVariant; safecall;
    function Get_ReadabilityStatistics: ReadabilityStatistics; safecall;
    function Get_GrammaticalErrors: ProofreadingErrors; safecall;
    function Get_SpellingErrors: ProofreadingErrors; safecall;
    function Get_Orientation: WdTextOrientation; safecall;
    procedure Set_Orientation(prop: WdTextOrientation); safecall;
    function Get_InlineShapes: InlineShapes; safecall;
    function Get_NextStoryRange: Range; safecall;
    function Get_LanguageIDFarEast: WdLanguageID; safecall;
    procedure Set_LanguageIDFarEast(prop: WdLanguageID); safecall;
    function Get_LanguageIDOther: WdLanguageID; safecall;
    procedure Set_LanguageIDOther(prop: WdLanguageID); safecall;
    procedure Select; safecall;
    procedure SetRange(Start: Integer; End_: Integer); safecall;
    procedure Collapse(var Direction: OleVariant); safecall;
    procedure InsertBefore(const Text: WideString); safecall;
    procedure InsertAfter(const Text: WideString); safecall;
    function Next(var Unit_: OleVariant; var Count: OleVariant): Range; safecall;
    function Previous(var Unit_: OleVariant; var Count: OleVariant): Range; safecall;
    function StartOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; safecall;
    function EndOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; safecall;
    function Move(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveStart(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveEnd(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveWhile(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveStartWhile(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveEndWhile(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveUntil(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveStartUntil(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveEndUntil(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
    procedure Cut; safecall;
    procedure Copy; safecall;
    procedure Paste; safecall;
    procedure InsertBreak(var Type_: OleVariant); safecall;
    procedure InsertFile(const FileName: WideString; var Range: OleVariant; 
                         var ConfirmConversions: OleVariant; var Link: OleVariant; 
                         var Attachment: OleVariant); safecall;
    function InStory(const Range: Range): WordBool; safecall;
    function InRange(const Range: Range): WordBool; safecall;
    function Delete(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
    procedure WholeStory; safecall;
    function Expand(var Unit_: OleVariant): Integer; safecall;
    procedure InsertParagraph; safecall;
    procedure InsertParagraphAfter; safecall;
    function ConvertToTableOld(var Separator: OleVariant; var NumRows: OleVariant; 
                               var NumColumns: OleVariant; var InitialColumnWidth: OleVariant; 
                               var Format: OleVariant; var ApplyBorders: OleVariant; 
                               var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
                               var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
                               var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
                               var ApplyLastColumn: OleVariant; var AutoFit: OleVariant): Table; safecall;
    procedure InsertDateTimeOld(var DateTimeFormat: OleVariant; var InsertAsField: OleVariant; 
                                var InsertAsFullWidth: OleVariant); safecall;
    procedure InsertSymbol(CharacterNumber: Integer; var Font: OleVariant; var Unicode: OleVariant; 
                           var Bias: OleVariant); safecall;
    procedure InsertCrossReference(var ReferenceType: OleVariant; ReferenceKind: WdReferenceKind; 
                                   var ReferenceItem: OleVariant; 
                                   var InsertAsHyperlink: OleVariant; 
                                   var IncludePosition: OleVariant); safecall;
    procedure InsertCaption(var Label_: OleVariant; var Title: OleVariant; 
                            var TitleAutoText: OleVariant; var Position: OleVariant); safecall;
    procedure CopyAsPicture; safecall;
    procedure SortOld(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
                      var SortFieldType: OleVariant; var SortOrder: OleVariant; 
                      var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
                      var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
                      var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
                      var SortColumn: OleVariant; var Separator: OleVariant; 
                      var CaseSensitive: OleVariant; var LanguageID: OleVariant); safecall;
    procedure SortAscending; safecall;
    procedure SortDescending; safecall;
    function IsEqual(const Range: Range): WordBool; safecall;
    function Calculate: Single; safecall;
    function GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
                   var Name: OleVariant): Range; safecall;
    function GoToNext(What: WdGoToItem): Range; safecall;
    function GoToPrevious(What: WdGoToItem): Range; safecall;
    procedure PasteSpecial(var IconIndex: OleVariant; var Link: OleVariant; 
                           var Placement: OleVariant; var DisplayAsIcon: OleVariant; 
                           var DataType: OleVariant; var IconFileName: OleVariant; 
                           var IconLabel: OleVariant); safecall;
    procedure LookupNameProperties; safecall;
    function ComputeStatistics(Statistic: WdStatistic): Integer; safecall;
    procedure Relocate(Direction: Integer); safecall;
    procedure CheckSynonyms; safecall;
    procedure SubscribeTo(const Edition: WideString; var Format: OleVariant); safecall;
    procedure CreatePublisher(var Edition: OleVariant; var ContainsPICT: OleVariant; 
                              var ContainsRTF: OleVariant; var ContainsText: OleVariant); safecall;
    procedure InsertAutoText; safecall;
    procedure InsertDatabase(var Format: OleVariant; var Style: OleVariant; 
                             var LinkToSource: OleVariant; var Connection: OleVariant; 
                             var SQLStatement: OleVariant; var SQLStatement1: OleVariant; 
                             var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
                             var WritePasswordDocument: OleVariant; 
                             var WritePasswordTemplate: OleVariant; var DataSource: OleVariant; 
                             var From: OleVariant; var To_: OleVariant; 
                             var IncludeFields: OleVariant); safecall;
    procedure AutoFormat; safecall;
    procedure CheckGrammar; safecall;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
                            var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
                            var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
                            var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
                            var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
                            var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); safecall;
    function GetSpellingSuggestions(var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant; 
                                    var CustomDictionary3: OleVariant; 
                                    var CustomDictionary4: OleVariant; 
                                    var CustomDictionary5: OleVariant; 
                                    var CustomDictionary6: OleVariant; 
                                    var CustomDictionary7: OleVariant; 
                                    var CustomDictionary8: OleVariant; 
                                    var CustomDictionary9: OleVariant; 
                                    var CustomDictionary10: OleVariant): SpellingSuggestions; safecall;
    procedure InsertParagraphBefore; safecall;
    procedure NextSubdocument; safecall;
    procedure PreviousSubdocument; safecall;
    procedure ConvertHangulAndHanja(var ConversionsMode: OleVariant; 
                                    var FastConversion: OleVariant; 
                                    var CheckHangulEnding: OleVariant; 
                                    var EnableRecentOrdering: OleVariant; 
                                    var CustomDictionary: OleVariant); safecall;
    procedure PasteAsNestedTable; safecall;
    procedure ModifyEnclosure(var Style: OleVariant; var Symbol: OleVariant; 
                              var EnclosedText: OleVariant); safecall;
    procedure PhoneticGuide(const Text: WideString; Alignment: WdPhoneticGuideAlignmentType; 
                            Raise_: Integer; FontSize: Integer; const FontName: WideString); safecall;
    procedure InsertDateTime(var DateTimeFormat: OleVariant; var InsertAsField: OleVariant; 
                             var InsertAsFullWidth: OleVariant; var DateLanguage: OleVariant; 
                             var CalendarType: OleVariant); safecall;
    procedure Sort(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
                   var SortFieldType: OleVariant; var SortOrder: OleVariant; 
                   var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
                   var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
                   var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
                   var SortColumn: OleVariant; var Separator: OleVariant; 
                   var CaseSensitive: OleVariant; var BidiSort: OleVariant; 
                   var IgnoreThe: OleVariant; var IgnoreKashida: OleVariant; 
                   var IgnoreDiacritics: OleVariant; var IgnoreHe: OleVariant; 
                   var LanguageID: OleVariant); safecall;
    procedure DetectLanguage; safecall;
    function ConvertToTable(var Separator: OleVariant; var NumRows: OleVariant; 
                            var NumColumns: OleVariant; var InitialColumnWidth: OleVariant; 
                            var Format: OleVariant; var ApplyBorders: OleVariant; 
                            var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
                            var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
                            var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
                            var ApplyLastColumn: OleVariant; var AutoFit: OleVariant; 
                            var AutoFitBehavior: OleVariant; var DefaultTableBehavior: OleVariant): Table; safecall;
    procedure TCSCConverter(WdTCSCConverterDirection: WdTCSCConverterDirection; 
                            CommonTerms: WordBool; UseVariants: WordBool); safecall;
    function Get_LanguageDetected: WordBool; safecall;
    procedure Set_LanguageDetected(prop: WordBool); safecall;
    function Get_FitTextWidth: Single; safecall;
    procedure Set_FitTextWidth(prop: Single); safecall;
    function Get_HorizontalInVertical: WdHorizontalInVerticalType; safecall;
    procedure Set_HorizontalInVertical(prop: WdHorizontalInVerticalType); safecall;
    function Get_TwoLinesInOne: WdTwoLinesInOneType; safecall;
    procedure Set_TwoLinesInOne(prop: WdTwoLinesInOneType); safecall;
    function Get_CombineCharacters: WordBool; safecall;
    procedure Set_CombineCharacters(prop: WordBool); safecall;
    function Get_NoProofing: Integer; safecall;
    procedure Set_NoProofing(prop: Integer); safecall;
    function Get_TopLevelTables: Tables; safecall;
    function Get_Scripts: Scripts; safecall;
    function Get_CharacterWidth: WdCharacterWidth; safecall;
    procedure Set_CharacterWidth(prop: WdCharacterWidth); safecall;
    function Get_Kana: WdKana; safecall;
    procedure Set_Kana(prop: WdKana); safecall;
    function Get_BoldBi: Integer; safecall;
    procedure Set_BoldBi(prop: Integer); safecall;
    function Get_ItalicBi: Integer; safecall;
    procedure Set_ItalicBi(prop: Integer); safecall;
    function Get_ID: WideString; safecall;
    procedure Set_ID(const prop: WideString); safecall;
    function Get_HTMLDivisions: HTMLDivisions; safecall;
    function Get_SmartTags: SmartTags; safecall;
    function Get_ShowAll: WordBool; safecall;
    procedure Set_ShowAll(prop: WordBool); safecall;
    function Get_Document: WordDocument; safecall;
    function Get_FootnoteOptions: FootnoteOptions; safecall;
    function Get_EndnoteOptions: EndnoteOptions; safecall;
    procedure PasteAndFormat(Type_: WdRecoveryType); safecall;
    procedure PasteExcelTable(LinkedToExcel: WordBool; WordFormatting: WordBool; RTF: WordBool); safecall;
    procedure PasteAppendTable; safecall;
    property Text: WideString read Get_Text write Set_Text;
    property FormattedText: Range read Get_FormattedText write Set_FormattedText;
    property Start: Integer read Get_Start write Set_Start;
    property End_: Integer read Get_End_ write Set_End_;
    property Font: WordFont read Get_Font write Set_Font;
    property Duplicate: Range read Get_Duplicate;
    property StoryType: WdStoryType read Get_StoryType;
    property Tables: Tables read Get_Tables;
    property Words: Words read Get_Words;
    property Sentences: Sentences read Get_Sentences;
    property Characters: Characters read Get_Characters;
    property Footnotes: Footnotes read Get_Footnotes;
    property Endnotes: Endnotes read Get_Endnotes;
    property Comments: Comments read Get_Comments;
    property Cells: Cells read Get_Cells;
    property Sections: Sections read Get_Sections;
    property Paragraphs: Paragraphs read Get_Paragraphs;
    property Borders: Borders read Get_Borders write Set_Borders;
    property Shading: Shading read Get_Shading;
    property TextRetrievalMode: TextRetrievalMode read Get_TextRetrievalMode write Set_TextRetrievalMode;
    property Fields: Fields read Get_Fields;
    property FormFields: FormFields read Get_FormFields;
    property Frames: Frames read Get_Frames;
    property ParagraphFormat: WordParagraphFormat read Get_ParagraphFormat write Set_ParagraphFormat;
    property ListFormat: ListFormat read Get_ListFormat;
    property Bookmarks: Bookmarks read Get_Bookmarks;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Bold: Integer read Get_Bold write Set_Bold;
    property Italic: Integer read Get_Italic write Set_Italic;
    property Underline: WdUnderline read Get_Underline write Set_Underline;
    property EmphasisMark: WdEmphasisMark read Get_EmphasisMark write Set_EmphasisMark;
    property DisableCharacterSpaceGrid: WordBool read Get_DisableCharacterSpaceGrid write Set_DisableCharacterSpaceGrid;
    property Revisions: Revisions read Get_Revisions;
    property StoryLength: Integer read Get_StoryLength;
    property LanguageID: WdLanguageID read Get_LanguageID write Set_LanguageID;
    property SynonymInfo: SynonymInfo read Get_SynonymInfo;
    property Hyperlinks: Hyperlinks read Get_Hyperlinks;
    property ListParagraphs: ListParagraphs read Get_ListParagraphs;
    property Subdocuments: Subdocuments read Get_Subdocuments;
    property GrammarChecked: WordBool read Get_GrammarChecked write Set_GrammarChecked;
    property SpellingChecked: WordBool read Get_SpellingChecked write Set_SpellingChecked;
    property HighlightColorIndex: WdColorIndex read Get_HighlightColorIndex write Set_HighlightColorIndex;
    property Columns: Columns read Get_Columns;
    property Rows: Rows read Get_Rows;
    property CanEdit: Integer read Get_CanEdit;
    property CanPaste: Integer read Get_CanPaste;
    property IsEndOfRowMark: WordBool read Get_IsEndOfRowMark;
    property BookmarkID: Integer read Get_BookmarkID;
    property PreviousBookmarkID: Integer read Get_PreviousBookmarkID;
    property Find: Find read Get_Find;
    property PageSetup: PageSetup read Get_PageSetup write Set_PageSetup;
    property ShapeRange: ShapeRange read Get_ShapeRange;
    property Case_: WdCharacterCase read Get_Case_ write Set_Case_;
    property Information[Type_: WdInformation]: OleVariant read Get_Information;
    property ReadabilityStatistics: ReadabilityStatistics read Get_ReadabilityStatistics;
    property GrammaticalErrors: ProofreadingErrors read Get_GrammaticalErrors;
    property SpellingErrors: ProofreadingErrors read Get_SpellingErrors;
    property Orientation: WdTextOrientation read Get_Orientation write Set_Orientation;
    property InlineShapes: InlineShapes read Get_InlineShapes;
    property NextStoryRange: Range read Get_NextStoryRange;
    property LanguageIDFarEast: WdLanguageID read Get_LanguageIDFarEast write Set_LanguageIDFarEast;
    property LanguageIDOther: WdLanguageID read Get_LanguageIDOther write Set_LanguageIDOther;
    property LanguageDetected: WordBool read Get_LanguageDetected write Set_LanguageDetected;
    property FitTextWidth: Single read Get_FitTextWidth write Set_FitTextWidth;
    property HorizontalInVertical: WdHorizontalInVerticalType read Get_HorizontalInVertical write Set_HorizontalInVertical;
    property TwoLinesInOne: WdTwoLinesInOneType read Get_TwoLinesInOne write Set_TwoLinesInOne;
    property CombineCharacters: WordBool read Get_CombineCharacters write Set_CombineCharacters;
    property NoProofing: Integer read Get_NoProofing write Set_NoProofing;
    property TopLevelTables: Tables read Get_TopLevelTables;
    property Scripts: Scripts read Get_Scripts;
    property CharacterWidth: WdCharacterWidth read Get_CharacterWidth write Set_CharacterWidth;
    property Kana: WdKana read Get_Kana write Set_Kana;
    property BoldBi: Integer read Get_BoldBi write Set_BoldBi;
    property ItalicBi: Integer read Get_ItalicBi write Set_ItalicBi;
    property ID: WideString read Get_ID write Set_ID;
    property HTMLDivisions: HTMLDivisions read Get_HTMLDivisions;
    property SmartTags: SmartTags read Get_SmartTags;
    property ShowAll: WordBool read Get_ShowAll write Set_ShowAll;
    property Document: WordDocument read Get_Document;
    property FootnoteOptions: FootnoteOptions read Get_FootnoteOptions;
    property EndnoteOptions: EndnoteOptions read Get_EndnoteOptions;
  end;

// *********************************************************************//
// DispIntf:  RangeDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002095E-0000-0000-C000-000000000046}
// *********************************************************************//
  RangeDisp = dispinterface
    ['{0002095E-0000-0000-C000-000000000046}']
    property Text: WideString dispid 0;
    property FormattedText: Range dispid 2;
    property Start: Integer dispid 3;
    property End_: Integer dispid 4;
    property Font: WordFont dispid 5;
    property Duplicate: Range readonly dispid 6;
    property StoryType: WdStoryType readonly dispid 7;
    property Tables: Tables readonly dispid 50;
    property Words: Words readonly dispid 51;
    property Sentences: Sentences readonly dispid 52;
    property Characters: Characters readonly dispid 53;
    property Footnotes: Footnotes readonly dispid 54;
    property Endnotes: Endnotes readonly dispid 55;
    property Comments: Comments readonly dispid 56;
    property Cells: Cells readonly dispid 57;
    property Sections: Sections readonly dispid 58;
    property Paragraphs: Paragraphs readonly dispid 59;
    property Borders: Borders dispid 1100;
    property Shading: Shading readonly dispid 61;
    property TextRetrievalMode: TextRetrievalMode dispid 62;
    property Fields: Fields readonly dispid 64;
    property FormFields: FormFields readonly dispid 65;
    property Frames: Frames readonly dispid 66;
    property ParagraphFormat: WordParagraphFormat dispid 1102;
    property ListFormat: ListFormat readonly dispid 68;
    property Bookmarks: Bookmarks readonly dispid 75;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Bold: Integer dispid 130;
    property Italic: Integer dispid 131;
    property Underline: WdUnderline dispid 139;
    property EmphasisMark: WdEmphasisMark dispid 140;
    property DisableCharacterSpaceGrid: WordBool dispid 141;
    property Revisions: Revisions readonly dispid 150;
    function Style: OleVariant; dispid 151;
    property StoryLength: Integer readonly dispid 152;
    property LanguageID: WdLanguageID dispid 153;
    property SynonymInfo: SynonymInfo readonly dispid 155;
    property Hyperlinks: Hyperlinks readonly dispid 156;
    property ListParagraphs: ListParagraphs readonly dispid 157;
    property Subdocuments: Subdocuments readonly dispid 159;
    property GrammarChecked: WordBool dispid 260;
    property SpellingChecked: WordBool dispid 261;
    property HighlightColorIndex: WdColorIndex dispid 301;
    property Columns: Columns readonly dispid 302;
    property Rows: Rows readonly dispid 303;
    property CanEdit: Integer readonly dispid 304;
    property CanPaste: Integer readonly dispid 305;
    property IsEndOfRowMark: WordBool readonly dispid 307;
    property BookmarkID: Integer readonly dispid 308;
    property PreviousBookmarkID: Integer readonly dispid 309;
    property Find: Find readonly dispid 262;
    property PageSetup: PageSetup dispid 1101;
    property ShapeRange: ShapeRange readonly dispid 311;
    property Case_: WdCharacterCase dispid 312;
    property Information[Type_: WdInformation]: OleVariant readonly dispid 313;
    property ReadabilityStatistics: ReadabilityStatistics readonly dispid 314;
    property GrammaticalErrors: ProofreadingErrors readonly dispid 315;
    property SpellingErrors: ProofreadingErrors readonly dispid 316;
    property Orientation: WdTextOrientation dispid 317;
    property InlineShapes: InlineShapes readonly dispid 319;
    property NextStoryRange: Range readonly dispid 320;
    property LanguageIDFarEast: WdLanguageID dispid 321;
    property LanguageIDOther: WdLanguageID dispid 322;
    procedure Select; dispid 65535;
    procedure SetRange(Start: Integer; End_: Integer); dispid 100;
    procedure Collapse(var Direction: OleVariant); dispid 101;
    procedure InsertBefore(const Text: WideString); dispid 102;
    procedure InsertAfter(const Text: WideString); dispid 104;
    function Next(var Unit_: OleVariant; var Count: OleVariant): Range; dispid 105;
    function Previous(var Unit_: OleVariant; var Count: OleVariant): Range; dispid 106;
    function StartOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; dispid 107;
    function EndOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; dispid 108;
    function Move(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 109;
    function MoveStart(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 110;
    function MoveEnd(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 111;
    function MoveWhile(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 112;
    function MoveStartWhile(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 113;
    function MoveEndWhile(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 114;
    function MoveUntil(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 115;
    function MoveStartUntil(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 116;
    function MoveEndUntil(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 117;
    procedure Cut; dispid 119;
    procedure Copy; dispid 120;
    procedure Paste; dispid 121;
    procedure InsertBreak(var Type_: OleVariant); dispid 122;
    procedure InsertFile(const FileName: WideString; var Range: OleVariant; 
                         var ConfirmConversions: OleVariant; var Link: OleVariant; 
                         var Attachment: OleVariant); dispid 123;
    function InStory(const Range: Range): WordBool; dispid 125;
    function InRange(const Range: Range): WordBool; dispid 126;
    function Delete(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 127;
    procedure WholeStory; dispid 128;
    function Expand(var Unit_: OleVariant): Integer; dispid 129;
    procedure InsertParagraph; dispid 160;
    procedure InsertParagraphAfter; dispid 161;
    function ConvertToTableOld(var Separator: OleVariant; var NumRows: OleVariant; 
                               var NumColumns: OleVariant; var InitialColumnWidth: OleVariant; 
                               var Format: OleVariant; var ApplyBorders: OleVariant; 
                               var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
                               var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
                               var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
                               var ApplyLastColumn: OleVariant; var AutoFit: OleVariant): Table; dispid 162;
    procedure InsertDateTimeOld(var DateTimeFormat: OleVariant; var InsertAsField: OleVariant; 
                                var InsertAsFullWidth: OleVariant); dispid 163;
    procedure InsertSymbol(CharacterNumber: Integer; var Font: OleVariant; var Unicode: OleVariant; 
                           var Bias: OleVariant); dispid 164;
    procedure InsertCrossReference(var ReferenceType: OleVariant; ReferenceKind: WdReferenceKind; 
                                   var ReferenceItem: OleVariant; 
                                   var InsertAsHyperlink: OleVariant; 
                                   var IncludePosition: OleVariant); dispid 165;
    procedure InsertCaption(var Label_: OleVariant; var Title: OleVariant; 
                            var TitleAutoText: OleVariant; var Position: OleVariant); dispid 166;
    procedure CopyAsPicture; dispid 167;
    procedure SortOld(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
                      var SortFieldType: OleVariant; var SortOrder: OleVariant; 
                      var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
                      var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
                      var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
                      var SortColumn: OleVariant; var Separator: OleVariant; 
                      var CaseSensitive: OleVariant; var LanguageID: OleVariant); dispid 168;
    procedure SortAscending; dispid 169;
    procedure SortDescending; dispid 170;
    function IsEqual(const Range: Range): WordBool; dispid 171;
    function Calculate: Single; dispid 172;
    function GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
                   var Name: OleVariant): Range; dispid 173;
    function GoToNext(What: WdGoToItem): Range; dispid 174;
    function GoToPrevious(What: WdGoToItem): Range; dispid 175;
    procedure PasteSpecial(var IconIndex: OleVariant; var Link: OleVariant; 
                           var Placement: OleVariant; var DisplayAsIcon: OleVariant; 
                           var DataType: OleVariant; var IconFileName: OleVariant; 
                           var IconLabel: OleVariant); dispid 176;
    procedure LookupNameProperties; dispid 177;
    function ComputeStatistics(Statistic: WdStatistic): Integer; dispid 178;
    procedure Relocate(Direction: Integer); dispid 179;
    procedure CheckSynonyms; dispid 180;
    procedure SubscribeTo(const Edition: WideString; var Format: OleVariant); dispid 181;
    procedure CreatePublisher(var Edition: OleVariant; var ContainsPICT: OleVariant; 
                              var ContainsRTF: OleVariant; var ContainsText: OleVariant); dispid 182;
    procedure InsertAutoText; dispid 183;
    procedure InsertDatabase(var Format: OleVariant; var Style: OleVariant; 
                             var LinkToSource: OleVariant; var Connection: OleVariant; 
                             var SQLStatement: OleVariant; var SQLStatement1: OleVariant; 
                             var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
                             var WritePasswordDocument: OleVariant; 
                             var WritePasswordTemplate: OleVariant; var DataSource: OleVariant; 
                             var From: OleVariant; var To_: OleVariant; 
                             var IncludeFields: OleVariant); dispid 194;
    procedure AutoFormat; dispid 195;
    procedure CheckGrammar; dispid 204;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
                            var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
                            var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
                            var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
                            var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
                            var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); dispid 205;
    function GetSpellingSuggestions(var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant; 
                                    var CustomDictionary3: OleVariant; 
                                    var CustomDictionary4: OleVariant; 
                                    var CustomDictionary5: OleVariant; 
                                    var CustomDictionary6: OleVariant; 
                                    var CustomDictionary7: OleVariant; 
                                    var CustomDictionary8: OleVariant; 
                                    var CustomDictionary9: OleVariant; 
                                    var CustomDictionary10: OleVariant): SpellingSuggestions; dispid 209;
    procedure InsertParagraphBefore; dispid 212;
    procedure NextSubdocument; dispid 219;
    procedure PreviousSubdocument; dispid 220;
    procedure ConvertHangulAndHanja(var ConversionsMode: OleVariant; 
                                    var FastConversion: OleVariant; 
                                    var CheckHangulEnding: OleVariant; 
                                    var EnableRecentOrdering: OleVariant; 
                                    var CustomDictionary: OleVariant); dispid 221;
    procedure PasteAsNestedTable; dispid 222;
    procedure ModifyEnclosure(var Style: OleVariant; var Symbol: OleVariant; 
                              var EnclosedText: OleVariant); dispid 223;
    procedure PhoneticGuide(const Text: WideString; Alignment: WdPhoneticGuideAlignmentType; 
                            Raise_: Integer; FontSize: Integer; const FontName: WideString); dispid 224;
    procedure InsertDateTime(var DateTimeFormat: OleVariant; var InsertAsField: OleVariant; 
                             var InsertAsFullWidth: OleVariant; var DateLanguage: OleVariant; 
                             var CalendarType: OleVariant); dispid 444;
    procedure Sort(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
                   var SortFieldType: OleVariant; var SortOrder: OleVariant; 
                   var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
                   var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
                   var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
                   var SortColumn: OleVariant; var Separator: OleVariant; 
                   var CaseSensitive: OleVariant; var BidiSort: OleVariant; 
                   var IgnoreThe: OleVariant; var IgnoreKashida: OleVariant; 
                   var IgnoreDiacritics: OleVariant; var IgnoreHe: OleVariant; 
                   var LanguageID: OleVariant); dispid 484;
    procedure DetectLanguage; dispid 203;
    function ConvertToTable(var Separator: OleVariant; var NumRows: OleVariant; 
                            var NumColumns: OleVariant; var InitialColumnWidth: OleVariant; 
                            var Format: OleVariant; var ApplyBorders: OleVariant; 
                            var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
                            var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
                            var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
                            var ApplyLastColumn: OleVariant; var AutoFit: OleVariant; 
                            var AutoFitBehavior: OleVariant; var DefaultTableBehavior: OleVariant): Table; dispid 498;
    procedure TCSCConverter(WdTCSCConverterDirection: WdTCSCConverterDirection; 
                            CommonTerms: WordBool; UseVariants: WordBool); dispid 499;
    property LanguageDetected: WordBool dispid 263;
    property FitTextWidth: Single dispid 264;
    property HorizontalInVertical: WdHorizontalInVerticalType dispid 265;
    property TwoLinesInOne: WdTwoLinesInOneType dispid 266;
    property CombineCharacters: WordBool dispid 267;
    property NoProofing: Integer dispid 323;
    property TopLevelTables: Tables readonly dispid 324;
    property Scripts: Scripts readonly dispid 325;
    property CharacterWidth: WdCharacterWidth dispid 326;
    property Kana: WdKana dispid 327;
    property BoldBi: Integer dispid 400;
    property ItalicBi: Integer dispid 401;
    property ID: WideString dispid 405;
    property HTMLDivisions: HTMLDivisions readonly dispid 406;
    property SmartTags: SmartTags readonly dispid 407;
    property ShowAll: WordBool dispid 408;
    property Document: WordDocument readonly dispid 409;
    property FootnoteOptions: FootnoteOptions readonly dispid 410;
    property EndnoteOptions: EndnoteOptions readonly dispid 411;
    procedure PasteAndFormat(Type_: WdRecoveryType); dispid 412;
    procedure PasteExcelTable(LinkedToExcel: WordBool; WordFormatting: WordBool; RTF: WordBool); dispid 413;
    procedure PasteAppendTable; dispid 414;
  end;

// *********************************************************************//
// Interface: ListFormat
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C0-0000-0000-C000-000000000046}
// *********************************************************************//
  ListFormat = interface(IDispatch)
    ['{000209C0-0000-0000-C000-000000000046}']
    function Get_ListLevelNumber: Integer; safecall;
    procedure Set_ListLevelNumber(prop: Integer); safecall;
    function Get_List: List; safecall;
    function Get_ListTemplate: ListTemplate; safecall;
    function Get_ListValue: Integer; safecall;
    function Get_SingleList: WordBool; safecall;
    function Get_SingleListTemplate: WordBool; safecall;
    function Get_ListType: WdListType; safecall;
    function Get_ListString: WideString; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function CanContinuePreviousList(const ListTemplate: ListTemplate): WdContinue; safecall;
    procedure RemoveNumbers(var NumberType: OleVariant); safecall;
    procedure ConvertNumbersToText(var NumberType: OleVariant); safecall;
    function CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer; safecall;
    procedure ApplyBulletDefaultOld; safecall;
    procedure ApplyNumberDefaultOld; safecall;
    procedure ApplyOutlineNumberDefaultOld; safecall;
    procedure ApplyListTemplateOld(const ListTemplate: ListTemplate; 
                                   var ContinuePreviousList: OleVariant; var ApplyTo: OleVariant); safecall;
    procedure ListOutdent; safecall;
    procedure ListIndent; safecall;
    procedure ApplyBulletDefault(var DefaultListBehavior: OleVariant); safecall;
    procedure ApplyNumberDefault(var DefaultListBehavior: OleVariant); safecall;
    procedure ApplyOutlineNumberDefault(var DefaultListBehavior: OleVariant); safecall;
    procedure ApplyListTemplate(const ListTemplate: ListTemplate; 
                                var ContinuePreviousList: OleVariant; var ApplyTo: OleVariant; 
                                var DefaultListBehavior: OleVariant); safecall;
    function Get_ListPictureBullet: InlineShape; safecall;
    property ListLevelNumber: Integer read Get_ListLevelNumber write Set_ListLevelNumber;
    property List: List read Get_List;
    property ListTemplate: ListTemplate read Get_ListTemplate;
    property ListValue: Integer read Get_ListValue;
    property SingleList: WordBool read Get_SingleList;
    property SingleListTemplate: WordBool read Get_SingleListTemplate;
    property ListType: WdListType read Get_ListType;
    property ListString: WideString read Get_ListString;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property ListPictureBullet: InlineShape read Get_ListPictureBullet;
  end;

// *********************************************************************//
// DispIntf:  ListFormatDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C0-0000-0000-C000-000000000046}
// *********************************************************************//
  ListFormatDisp = dispinterface
    ['{000209C0-0000-0000-C000-000000000046}']
    property ListLevelNumber: Integer dispid 68;
    property List: List readonly dispid 69;
    property ListTemplate: ListTemplate readonly dispid 70;
    property ListValue: Integer readonly dispid 71;
    property SingleList: WordBool readonly dispid 72;
    property SingleListTemplate: WordBool readonly dispid 73;
    property ListType: WdListType readonly dispid 74;
    property ListString: WideString readonly dispid 75;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function CanContinuePreviousList(const ListTemplate: ListTemplate): WdContinue; dispid 184;
    procedure RemoveNumbers(var NumberType: OleVariant); dispid 185;
    procedure ConvertNumbersToText(var NumberType: OleVariant); dispid 186;
    function CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer; dispid 187;
    procedure ApplyBulletDefaultOld; dispid 188;
    procedure ApplyNumberDefaultOld; dispid 189;
    procedure ApplyOutlineNumberDefaultOld; dispid 190;
    procedure ApplyListTemplateOld(const ListTemplate: ListTemplate; 
                                   var ContinuePreviousList: OleVariant; var ApplyTo: OleVariant); dispid 191;
    procedure ListOutdent; dispid 210;
    procedure ListIndent; dispid 211;
    procedure ApplyBulletDefault(var DefaultListBehavior: OleVariant); dispid 212;
    procedure ApplyNumberDefault(var DefaultListBehavior: OleVariant); dispid 213;
    procedure ApplyOutlineNumberDefault(var DefaultListBehavior: OleVariant); dispid 214;
    procedure ApplyListTemplate(const ListTemplate: ListTemplate; 
                                var ContinuePreviousList: OleVariant; var ApplyTo: OleVariant; 
                                var DefaultListBehavior: OleVariant); dispid 215;
    property ListPictureBullet: InlineShape readonly dispid 76;
  end;

// *********************************************************************//
// Interface: Find
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B0-0000-0000-C000-000000000046}
// *********************************************************************//
  Find = interface(IDispatch)
    ['{000209B0-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Forward: WordBool; safecall;
    procedure Set_Forward(prop: WordBool); safecall;
    function Get_Font: WordFont; safecall;
    procedure Set_Font(const prop: WordFont); safecall;
    function Get_Found: WordBool; safecall;
    function Get_MatchAllWordForms: WordBool; safecall;
    procedure Set_MatchAllWordForms(prop: WordBool); safecall;
    function Get_MatchCase: WordBool; safecall;
    procedure Set_MatchCase(prop: WordBool); safecall;
    function Get_MatchWildcards: WordBool; safecall;
    procedure Set_MatchWildcards(prop: WordBool); safecall;
    function Get_MatchSoundsLike: WordBool; safecall;
    procedure Set_MatchSoundsLike(prop: WordBool); safecall;
    function Get_MatchWholeWord: WordBool; safecall;
    procedure Set_MatchWholeWord(prop: WordBool); safecall;
    function Get_MatchFuzzy: WordBool; safecall;
    procedure Set_MatchFuzzy(prop: WordBool); safecall;
    function Get_MatchByte: WordBool; safecall;
    procedure Set_MatchByte(prop: WordBool); safecall;
    function Get_ParagraphFormat: WordParagraphFormat; safecall;
    procedure Set_ParagraphFormat(const prop: WordParagraphFormat); safecall;
    function Get_Style: OleVariant; safecall;
    procedure Set_Style(var prop: OleVariant); safecall;
    function Get_Text: WideString; safecall;
    procedure Set_Text(const prop: WideString); safecall;
    function Get_LanguageID: WdLanguageID; safecall;
    procedure Set_LanguageID(prop: WdLanguageID); safecall;
    function Get_Highlight: Integer; safecall;
    procedure Set_Highlight(prop: Integer); safecall;
    function Get_Replacement: Replacement; safecall;
    function Get_Frame: Frame; safecall;
    function Get_Wrap: WdFindWrap; safecall;
    procedure Set_Wrap(prop: WdFindWrap); safecall;
    function Get_Format: WordBool; safecall;
    procedure Set_Format(prop: WordBool); safecall;
    function Get_LanguageIDFarEast: WdLanguageID; safecall;
    procedure Set_LanguageIDFarEast(prop: WdLanguageID); safecall;
    function Get_LanguageIDOther: WdLanguageID; safecall;
    procedure Set_LanguageIDOther(prop: WdLanguageID); safecall;
    function Get_CorrectHangulEndings: WordBool; safecall;
    procedure Set_CorrectHangulEndings(prop: WordBool); safecall;
    function ExecuteOld(var FindText: OleVariant; var MatchCase: OleVariant; 
                        var MatchWholeWord: OleVariant; var MatchWildcards: OleVariant; 
                        var MatchSoundsLike: OleVariant; var MatchAllWordForms: OleVariant; 
                        var Forward: OleVariant; var Wrap: OleVariant; var Format: OleVariant; 
                        var ReplaceWith: OleVariant; var Replace: OleVariant): WordBool; safecall;
    procedure ClearFormatting; safecall;
    procedure SetAllFuzzyOptions; safecall;
    procedure ClearAllFuzzyOptions; safecall;
    function Execute(var FindText: OleVariant; var MatchCase: OleVariant; 
                     var MatchWholeWord: OleVariant; var MatchWildcards: OleVariant; 
                     var MatchSoundsLike: OleVariant; var MatchAllWordForms: OleVariant; 
                     var Forward: OleVariant; var Wrap: OleVariant; var Format: OleVariant; 
                     var ReplaceWith: OleVariant; var Replace: OleVariant; 
                     var MatchKashida: OleVariant; var MatchDiacritics: OleVariant; 
                     var MatchAlefHamza: OleVariant; var MatchControl: OleVariant): WordBool; safecall;
    function Get_NoProofing: Integer; safecall;
    procedure Set_NoProofing(prop: Integer); safecall;
    function Get_MatchKashida: WordBool; safecall;
    procedure Set_MatchKashida(prop: WordBool); safecall;
    function Get_MatchDiacritics: WordBool; safecall;
    procedure Set_MatchDiacritics(prop: WordBool); safecall;
    function Get_MatchAlefHamza: WordBool; safecall;
    procedure Set_MatchAlefHamza(prop: WordBool); safecall;
    function Get_MatchControl: WordBool; safecall;
    procedure Set_MatchControl(prop: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Forward: WordBool read Get_Forward write Set_Forward;
    property Font: WordFont read Get_Font write Set_Font;
    property Found: WordBool read Get_Found;
    property MatchAllWordForms: WordBool read Get_MatchAllWordForms write Set_MatchAllWordForms;
    property MatchCase: WordBool read Get_MatchCase write Set_MatchCase;
    property MatchWildcards: WordBool read Get_MatchWildcards write Set_MatchWildcards;
    property MatchSoundsLike: WordBool read Get_MatchSoundsLike write Set_MatchSoundsLike;
    property MatchWholeWord: WordBool read Get_MatchWholeWord write Set_MatchWholeWord;
    property MatchFuzzy: WordBool read Get_MatchFuzzy write Set_MatchFuzzy;
    property MatchByte: WordBool read Get_MatchByte write Set_MatchByte;
    property ParagraphFormat: WordParagraphFormat read Get_ParagraphFormat write Set_ParagraphFormat;
    property Text: WideString read Get_Text write Set_Text;
    property LanguageID: WdLanguageID read Get_LanguageID write Set_LanguageID;
    property Highlight: Integer read Get_Highlight write Set_Highlight;
    property Replacement: Replacement read Get_Replacement;
    property Frame: Frame read Get_Frame;
    property Wrap: WdFindWrap read Get_Wrap write Set_Wrap;
    property Format: WordBool read Get_Format write Set_Format;
    property LanguageIDFarEast: WdLanguageID read Get_LanguageIDFarEast write Set_LanguageIDFarEast;
    property LanguageIDOther: WdLanguageID read Get_LanguageIDOther write Set_LanguageIDOther;
    property CorrectHangulEndings: WordBool read Get_CorrectHangulEndings write Set_CorrectHangulEndings;
    property NoProofing: Integer read Get_NoProofing write Set_NoProofing;
    property MatchKashida: WordBool read Get_MatchKashida write Set_MatchKashida;
    property MatchDiacritics: WordBool read Get_MatchDiacritics write Set_MatchDiacritics;
    property MatchAlefHamza: WordBool read Get_MatchAlefHamza write Set_MatchAlefHamza;
    property MatchControl: WordBool read Get_MatchControl write Set_MatchControl;
  end;

// *********************************************************************//
// DispIntf:  FindDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B0-0000-0000-C000-000000000046}
// *********************************************************************//
  FindDisp = dispinterface
    ['{000209B0-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Forward: WordBool dispid 10;
    property Font: WordFont dispid 11;
    property Found: WordBool readonly dispid 12;
    property MatchAllWordForms: WordBool dispid 13;
    property MatchCase: WordBool dispid 14;
    property MatchWildcards: WordBool dispid 15;
    property MatchSoundsLike: WordBool dispid 16;
    property MatchWholeWord: WordBool dispid 17;
    property MatchFuzzy: WordBool dispid 40;
    property MatchByte: WordBool dispid 41;
    property ParagraphFormat: WordParagraphFormat dispid 18;
    function Style: OleVariant; dispid 19;
    property Text: WideString dispid 22;
    property LanguageID: WdLanguageID dispid 23;
    property Highlight: Integer dispid 24;
    property Replacement: Replacement readonly dispid 25;
    property Frame: Frame readonly dispid 26;
    property Wrap: WdFindWrap dispid 27;
    property Format: WordBool dispid 28;
    property LanguageIDFarEast: WdLanguageID dispid 29;
    property LanguageIDOther: WdLanguageID dispid 60;
    property CorrectHangulEndings: WordBool dispid 61;
    function ExecuteOld(var FindText: OleVariant; var MatchCase: OleVariant; 
                        var MatchWholeWord: OleVariant; var MatchWildcards: OleVariant; 
                        var MatchSoundsLike: OleVariant; var MatchAllWordForms: OleVariant; 
                        var Forward: OleVariant; var Wrap: OleVariant; var Format: OleVariant; 
                        var ReplaceWith: OleVariant; var Replace: OleVariant): WordBool; dispid 30;
    procedure ClearFormatting; dispid 31;
    procedure SetAllFuzzyOptions; dispid 32;
    procedure ClearAllFuzzyOptions; dispid 33;
    function Execute(var FindText: OleVariant; var MatchCase: OleVariant; 
                     var MatchWholeWord: OleVariant; var MatchWildcards: OleVariant; 
                     var MatchSoundsLike: OleVariant; var MatchAllWordForms: OleVariant; 
                     var Forward: OleVariant; var Wrap: OleVariant; var Format: OleVariant; 
                     var ReplaceWith: OleVariant; var Replace: OleVariant; 
                     var MatchKashida: OleVariant; var MatchDiacritics: OleVariant; 
                     var MatchAlefHamza: OleVariant; var MatchControl: OleVariant): WordBool; dispid 444;
    property NoProofing: Integer dispid 34;
    property MatchKashida: WordBool dispid 100;
    property MatchDiacritics: WordBool dispid 101;
    property MatchAlefHamza: WordBool dispid 102;
    property MatchControl: WordBool dispid 103;
  end;

// *********************************************************************//
// Interface: Replacement
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B1-0000-0000-C000-000000000046}
// *********************************************************************//
  Replacement = interface(IDispatch)
    ['{000209B1-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Font: WordFont; safecall;
    procedure Set_Font(const prop: WordFont); safecall;
    function Get_ParagraphFormat: WordParagraphFormat; safecall;
    procedure Set_ParagraphFormat(const prop: WordParagraphFormat); safecall;
    function Get_Style: OleVariant; safecall;
    procedure Set_Style(var prop: OleVariant); safecall;
    function Get_Text: WideString; safecall;
    procedure Set_Text(const prop: WideString); safecall;
    function Get_LanguageID: WdLanguageID; safecall;
    procedure Set_LanguageID(prop: WdLanguageID); safecall;
    function Get_Highlight: Integer; safecall;
    procedure Set_Highlight(prop: Integer); safecall;
    function Get_Frame: Frame; safecall;
    function Get_LanguageIDFarEast: WdLanguageID; safecall;
    procedure Set_LanguageIDFarEast(prop: WdLanguageID); safecall;
    procedure ClearFormatting; safecall;
    function Get_NoProofing: Integer; safecall;
    procedure Set_NoProofing(prop: Integer); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Font: WordFont read Get_Font write Set_Font;
    property ParagraphFormat: WordParagraphFormat read Get_ParagraphFormat write Set_ParagraphFormat;
    property Text: WideString read Get_Text write Set_Text;
    property LanguageID: WdLanguageID read Get_LanguageID write Set_LanguageID;
    property Highlight: Integer read Get_Highlight write Set_Highlight;
    property Frame: Frame read Get_Frame;
    property LanguageIDFarEast: WdLanguageID read Get_LanguageIDFarEast write Set_LanguageIDFarEast;
    property NoProofing: Integer read Get_NoProofing write Set_NoProofing;
  end;

// *********************************************************************//
// DispIntf:  ReplacementDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B1-0000-0000-C000-000000000046}
// *********************************************************************//
  ReplacementDisp = dispinterface
    ['{000209B1-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Font: WordFont dispid 10;
    property ParagraphFormat: WordParagraphFormat dispid 11;
    function Style: OleVariant; dispid 12;
    property Text: WideString dispid 15;
    property LanguageID: WdLanguageID dispid 16;
    property Highlight: Integer dispid 17;
    property Frame: Frame readonly dispid 18;
    property LanguageIDFarEast: WdLanguageID dispid 19;
    procedure ClearFormatting; dispid 20;
    property NoProofing: Integer dispid 21;
  end;

// *********************************************************************//
// Interface: Characters
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002095D-0000-0000-C000-000000000046}
// *********************************************************************//
  Characters = interface(IDispatch)
    ['{0002095D-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_First: Range; safecall;
    function Get_Last: Range; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(Index: Integer): Range; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property First: Range read Get_First;
    property Last: Range read Get_Last;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  CharactersDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002095D-0000-0000-C000-000000000046}
// *********************************************************************//
  CharactersDisp = dispinterface
    ['{0002095D-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property First: Range readonly dispid 3;
    property Last: Range readonly dispid 4;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(Index: Integer): Range; dispid 0;
  end;

// *********************************************************************//
// Interface: Words
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002095C-0000-0000-C000-000000000046}
// *********************************************************************//
  Words = interface(IDispatch)
    ['{0002095C-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_First: Range; safecall;
    function Get_Last: Range; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(Index: Integer): Range; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property First: Range read Get_First;
    property Last: Range read Get_Last;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  WordsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002095C-0000-0000-C000-000000000046}
// *********************************************************************//
  WordsDisp = dispinterface
    ['{0002095C-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property First: Range readonly dispid 3;
    property Last: Range readonly dispid 4;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(Index: Integer): Range; dispid 0;
  end;

// *********************************************************************//
// Interface: Sentences
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002095B-0000-0000-C000-000000000046}
// *********************************************************************//
  Sentences = interface(IDispatch)
    ['{0002095B-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_First: Range; safecall;
    function Get_Last: Range; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(Index: Integer): Range; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property First: Range read Get_First;
    property Last: Range read Get_Last;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  SentencesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002095B-0000-0000-C000-000000000046}
// *********************************************************************//
  SentencesDisp = dispinterface
    ['{0002095B-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property First: Range readonly dispid 3;
    property Last: Range readonly dispid 4;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(Index: Integer): Range; dispid 0;
  end;

// *********************************************************************//
// Interface: Sections
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002095A-0000-0000-C000-000000000046}
// *********************************************************************//
  Sections = interface(IDispatch)
    ['{0002095A-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_First: Section; safecall;
    function Get_Last: Section; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_PageSetup: PageSetup; safecall;
    procedure Set_PageSetup(const prop: PageSetup); safecall;
    function Item(Index: Integer): Section; safecall;
    function Add(var Range: OleVariant; var Start: OleVariant): Section; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property First: Section read Get_First;
    property Last: Section read Get_Last;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property PageSetup: PageSetup read Get_PageSetup write Set_PageSetup;
  end;

// *********************************************************************//
// DispIntf:  SectionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002095A-0000-0000-C000-000000000046}
// *********************************************************************//
  SectionsDisp = dispinterface
    ['{0002095A-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property First: Section readonly dispid 3;
    property Last: Section readonly dispid 4;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property PageSetup: PageSetup dispid 1101;
    function Item(Index: Integer): Section; dispid 0;
    function Add(var Range: OleVariant; var Start: OleVariant): Section; dispid 5;
  end;

// *********************************************************************//
// Interface: Section
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020959-0000-0000-C000-000000000046}
// *********************************************************************//
  Section = interface(IDispatch)
    ['{00020959-0000-0000-C000-000000000046}']
    function Get_Range: Range; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_PageSetup: PageSetup; safecall;
    procedure Set_PageSetup(const prop: PageSetup); safecall;
    function Get_Headers: HeadersFooters; safecall;
    function Get_Footers: HeadersFooters; safecall;
    function Get_ProtectedForForms: WordBool; safecall;
    procedure Set_ProtectedForForms(prop: WordBool); safecall;
    function Get_Index: Integer; safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    property Range: Range read Get_Range;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property PageSetup: PageSetup read Get_PageSetup write Set_PageSetup;
    property Headers: HeadersFooters read Get_Headers;
    property Footers: HeadersFooters read Get_Footers;
    property ProtectedForForms: WordBool read Get_ProtectedForForms write Set_ProtectedForForms;
    property Index: Integer read Get_Index;
    property Borders: Borders read Get_Borders write Set_Borders;
  end;

// *********************************************************************//
// DispIntf:  SectionDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020959-0000-0000-C000-000000000046}
// *********************************************************************//
  SectionDisp = dispinterface
    ['{00020959-0000-0000-C000-000000000046}']
    property Range: Range readonly dispid 0;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property PageSetup: PageSetup dispid 1101;
    property Headers: HeadersFooters readonly dispid 121;
    property Footers: HeadersFooters readonly dispid 122;
    property ProtectedForForms: WordBool dispid 123;
    property Index: Integer readonly dispid 124;
    property Borders: Borders dispid 1100;
  end;

// *********************************************************************//
// Interface: Paragraphs
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020958-0000-0000-C000-000000000046}
// *********************************************************************//
  Paragraphs = interface(IDispatch)
    ['{00020958-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_First: Paragraph; safecall;
    function Get_Last: Paragraph; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Format: WordParagraphFormat; safecall;
    procedure Set_Format(const prop: WordParagraphFormat); safecall;
    function Get_TabStops: TabStops; safecall;
    procedure Set_TabStops(const prop: TabStops); safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_Style: OleVariant; safecall;
    procedure Set_Style(var prop: OleVariant); safecall;
    function Get_Alignment: WdParagraphAlignment; safecall;
    procedure Set_Alignment(prop: WdParagraphAlignment); safecall;
    function Get_KeepTogether: Integer; safecall;
    procedure Set_KeepTogether(prop: Integer); safecall;
    function Get_KeepWithNext: Integer; safecall;
    procedure Set_KeepWithNext(prop: Integer); safecall;
    function Get_PageBreakBefore: Integer; safecall;
    procedure Set_PageBreakBefore(prop: Integer); safecall;
    function Get_NoLineNumber: Integer; safecall;
    procedure Set_NoLineNumber(prop: Integer); safecall;
    function Get_RightIndent: Single; safecall;
    procedure Set_RightIndent(prop: Single); safecall;
    function Get_LeftIndent: Single; safecall;
    procedure Set_LeftIndent(prop: Single); safecall;
    function Get_FirstLineIndent: Single; safecall;
    procedure Set_FirstLineIndent(prop: Single); safecall;
    function Get_LineSpacing: Single; safecall;
    procedure Set_LineSpacing(prop: Single); safecall;
    function Get_LineSpacingRule: WdLineSpacing; safecall;
    procedure Set_LineSpacingRule(prop: WdLineSpacing); safecall;
    function Get_SpaceBefore: Single; safecall;
    procedure Set_SpaceBefore(prop: Single); safecall;
    function Get_SpaceAfter: Single; safecall;
    procedure Set_SpaceAfter(prop: Single); safecall;
    function Get_Hyphenation: Integer; safecall;
    procedure Set_Hyphenation(prop: Integer); safecall;
    function Get_WidowControl: Integer; safecall;
    procedure Set_WidowControl(prop: Integer); safecall;
    function Get_Shading: Shading; safecall;
    function Get_FarEastLineBreakControl: Integer; safecall;
    procedure Set_FarEastLineBreakControl(prop: Integer); safecall;
    function Get_WordWrap: Integer; safecall;
    procedure Set_WordWrap(prop: Integer); safecall;
    function Get_HangingPunctuation: Integer; safecall;
    procedure Set_HangingPunctuation(prop: Integer); safecall;
    function Get_HalfWidthPunctuationOnTopOfLine: Integer; safecall;
    procedure Set_HalfWidthPunctuationOnTopOfLine(prop: Integer); safecall;
    function Get_AddSpaceBetweenFarEastAndAlpha: Integer; safecall;
    procedure Set_AddSpaceBetweenFarEastAndAlpha(prop: Integer); safecall;
    function Get_AddSpaceBetweenFarEastAndDigit: Integer; safecall;
    procedure Set_AddSpaceBetweenFarEastAndDigit(prop: Integer); safecall;
    function Get_BaseLineAlignment: WdBaselineAlignment; safecall;
    procedure Set_BaseLineAlignment(prop: WdBaselineAlignment); safecall;
    function Get_AutoAdjustRightIndent: Integer; safecall;
    procedure Set_AutoAdjustRightIndent(prop: Integer); safecall;
    function Get_DisableLineHeightGrid: Integer; safecall;
    procedure Set_DisableLineHeightGrid(prop: Integer); safecall;
    function Get_OutlineLevel: WdOutlineLevel; safecall;
    procedure Set_OutlineLevel(prop: WdOutlineLevel); safecall;
    function Item(Index: Integer): Paragraph; safecall;
    function Add(var Range: OleVariant): Paragraph; safecall;
    procedure CloseUp; safecall;
    procedure OpenUp; safecall;
    procedure OpenOrCloseUp; safecall;
    procedure TabHangingIndent(Count: Smallint); safecall;
    procedure TabIndent(Count: Smallint); safecall;
    procedure Reset; safecall;
    procedure Space1; safecall;
    procedure Space15; safecall;
    procedure Space2; safecall;
    procedure IndentCharWidth(Count: Smallint); safecall;
    procedure IndentFirstLineCharWidth(Count: Smallint); safecall;
    procedure OutlinePromote; safecall;
    procedure OutlineDemote; safecall;
    procedure OutlineDemoteToBody; safecall;
    procedure Indent; safecall;
    procedure Outdent; safecall;
    function Get_CharacterUnitRightIndent: Single; safecall;
    procedure Set_CharacterUnitRightIndent(prop: Single); safecall;
    function Get_CharacterUnitLeftIndent: Single; safecall;
    procedure Set_CharacterUnitLeftIndent(prop: Single); safecall;
    function Get_CharacterUnitFirstLineIndent: Single; safecall;
    procedure Set_CharacterUnitFirstLineIndent(prop: Single); safecall;
    function Get_LineUnitBefore: Single; safecall;
    procedure Set_LineUnitBefore(prop: Single); safecall;
    function Get_LineUnitAfter: Single; safecall;
    procedure Set_LineUnitAfter(prop: Single); safecall;
    function Get_ReadingOrder: WdReadingOrder; safecall;
    procedure Set_ReadingOrder(prop: WdReadingOrder); safecall;
    function Get_SpaceBeforeAuto: Integer; safecall;
    procedure Set_SpaceBeforeAuto(prop: Integer); safecall;
    function Get_SpaceAfterAuto: Integer; safecall;
    procedure Set_SpaceAfterAuto(prop: Integer); safecall;
    procedure IncreaseSpacing; safecall;
    procedure DecreaseSpacing; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property First: Paragraph read Get_First;
    property Last: Paragraph read Get_Last;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Format: WordParagraphFormat read Get_Format write Set_Format;
    property TabStops: TabStops read Get_TabStops write Set_TabStops;
    property Borders: Borders read Get_Borders write Set_Borders;
    property Alignment: WdParagraphAlignment read Get_Alignment write Set_Alignment;
    property KeepTogether: Integer read Get_KeepTogether write Set_KeepTogether;
    property KeepWithNext: Integer read Get_KeepWithNext write Set_KeepWithNext;
    property PageBreakBefore: Integer read Get_PageBreakBefore write Set_PageBreakBefore;
    property NoLineNumber: Integer read Get_NoLineNumber write Set_NoLineNumber;
    property RightIndent: Single read Get_RightIndent write Set_RightIndent;
    property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
    property FirstLineIndent: Single read Get_FirstLineIndent write Set_FirstLineIndent;
    property LineSpacing: Single read Get_LineSpacing write Set_LineSpacing;
    property LineSpacingRule: WdLineSpacing read Get_LineSpacingRule write Set_LineSpacingRule;
    property SpaceBefore: Single read Get_SpaceBefore write Set_SpaceBefore;
    property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
    property Hyphenation: Integer read Get_Hyphenation write Set_Hyphenation;
    property WidowControl: Integer read Get_WidowControl write Set_WidowControl;
    property Shading: Shading read Get_Shading;
    property FarEastLineBreakControl: Integer read Get_FarEastLineBreakControl write Set_FarEastLineBreakControl;
    property WordWrap: Integer read Get_WordWrap write Set_WordWrap;
    property HangingPunctuation: Integer read Get_HangingPunctuation write Set_HangingPunctuation;
    property HalfWidthPunctuationOnTopOfLine: Integer read Get_HalfWidthPunctuationOnTopOfLine write Set_HalfWidthPunctuationOnTopOfLine;
    property AddSpaceBetweenFarEastAndAlpha: Integer read Get_AddSpaceBetweenFarEastAndAlpha write Set_AddSpaceBetweenFarEastAndAlpha;
    property AddSpaceBetweenFarEastAndDigit: Integer read Get_AddSpaceBetweenFarEastAndDigit write Set_AddSpaceBetweenFarEastAndDigit;
    property BaseLineAlignment: WdBaselineAlignment read Get_BaseLineAlignment write Set_BaseLineAlignment;
    property AutoAdjustRightIndent: Integer read Get_AutoAdjustRightIndent write Set_AutoAdjustRightIndent;
    property DisableLineHeightGrid: Integer read Get_DisableLineHeightGrid write Set_DisableLineHeightGrid;
    property OutlineLevel: WdOutlineLevel read Get_OutlineLevel write Set_OutlineLevel;
    property CharacterUnitRightIndent: Single read Get_CharacterUnitRightIndent write Set_CharacterUnitRightIndent;
    property CharacterUnitLeftIndent: Single read Get_CharacterUnitLeftIndent write Set_CharacterUnitLeftIndent;
    property CharacterUnitFirstLineIndent: Single read Get_CharacterUnitFirstLineIndent write Set_CharacterUnitFirstLineIndent;
    property LineUnitBefore: Single read Get_LineUnitBefore write Set_LineUnitBefore;
    property LineUnitAfter: Single read Get_LineUnitAfter write Set_LineUnitAfter;
    property ReadingOrder: WdReadingOrder read Get_ReadingOrder write Set_ReadingOrder;
    property SpaceBeforeAuto: Integer read Get_SpaceBeforeAuto write Set_SpaceBeforeAuto;
    property SpaceAfterAuto: Integer read Get_SpaceAfterAuto write Set_SpaceAfterAuto;
  end;

// *********************************************************************//
// DispIntf:  ParagraphsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020958-0000-0000-C000-000000000046}
// *********************************************************************//
  ParagraphsDisp = dispinterface
    ['{00020958-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property First: Paragraph readonly dispid 3;
    property Last: Paragraph readonly dispid 4;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Format: WordParagraphFormat dispid 1102;
    property TabStops: TabStops dispid 1103;
    property Borders: Borders dispid 1100;
    function Style: OleVariant; dispid 100;
    property Alignment: WdParagraphAlignment dispid 101;
    property KeepTogether: Integer dispid 102;
    property KeepWithNext: Integer dispid 103;
    property PageBreakBefore: Integer dispid 104;
    property NoLineNumber: Integer dispid 105;
    property RightIndent: Single dispid 106;
    property LeftIndent: Single dispid 107;
    property FirstLineIndent: Single dispid 108;
    property LineSpacing: Single dispid 109;
    property LineSpacingRule: WdLineSpacing dispid 110;
    property SpaceBefore: Single dispid 111;
    property SpaceAfter: Single dispid 112;
    property Hyphenation: Integer dispid 113;
    property WidowControl: Integer dispid 114;
    property Shading: Shading readonly dispid 116;
    property FarEastLineBreakControl: Integer dispid 117;
    property WordWrap: Integer dispid 118;
    property HangingPunctuation: Integer dispid 119;
    property HalfWidthPunctuationOnTopOfLine: Integer dispid 120;
    property AddSpaceBetweenFarEastAndAlpha: Integer dispid 121;
    property AddSpaceBetweenFarEastAndDigit: Integer dispid 122;
    property BaseLineAlignment: WdBaselineAlignment dispid 123;
    property AutoAdjustRightIndent: Integer dispid 124;
    property DisableLineHeightGrid: Integer dispid 125;
    property OutlineLevel: WdOutlineLevel dispid 202;
    function Item(Index: Integer): Paragraph; dispid 0;
    function Add(var Range: OleVariant): Paragraph; dispid 5;
    procedure CloseUp; dispid 301;
    procedure OpenUp; dispid 302;
    procedure OpenOrCloseUp; dispid 303;
    procedure TabHangingIndent(Count: Smallint); dispid 304;
    procedure TabIndent(Count: Smallint); dispid 306;
    procedure Reset; dispid 312;
    procedure Space1; dispid 313;
    procedure Space15; dispid 314;
    procedure Space2; dispid 315;
    procedure IndentCharWidth(Count: Smallint); dispid 320;
    procedure IndentFirstLineCharWidth(Count: Smallint); dispid 322;
    procedure OutlinePromote; dispid 324;
    procedure OutlineDemote; dispid 325;
    procedure OutlineDemoteToBody; dispid 326;
    procedure Indent; dispid 333;
    procedure Outdent; dispid 334;
    property CharacterUnitRightIndent: Single dispid 126;
    property CharacterUnitLeftIndent: Single dispid 127;
    property CharacterUnitFirstLineIndent: Single dispid 128;
    property LineUnitBefore: Single dispid 129;
    property LineUnitAfter: Single dispid 130;
    property ReadingOrder: WdReadingOrder dispid 131;
    property SpaceBeforeAuto: Integer dispid 132;
    property SpaceAfterAuto: Integer dispid 133;
    procedure IncreaseSpacing; dispid 335;
    procedure DecreaseSpacing; dispid 336;
  end;

// *********************************************************************//
// Interface: Paragraph
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020957-0000-0000-C000-000000000046}
// *********************************************************************//
  Paragraph = interface(IDispatch)
    ['{00020957-0000-0000-C000-000000000046}']
    function Get_Range: Range; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Format: WordParagraphFormat; safecall;
    procedure Set_Format(const prop: WordParagraphFormat); safecall;
    function Get_TabStops: TabStops; safecall;
    procedure Set_TabStops(const prop: TabStops); safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_DropCap: DropCap; safecall;
    function Get_Style: OleVariant; safecall;
    procedure Set_Style(var prop: OleVariant); safecall;
    function Get_Alignment: WdParagraphAlignment; safecall;
    procedure Set_Alignment(prop: WdParagraphAlignment); safecall;
    function Get_KeepTogether: Integer; safecall;
    procedure Set_KeepTogether(prop: Integer); safecall;
    function Get_KeepWithNext: Integer; safecall;
    procedure Set_KeepWithNext(prop: Integer); safecall;
    function Get_PageBreakBefore: Integer; safecall;
    procedure Set_PageBreakBefore(prop: Integer); safecall;
    function Get_NoLineNumber: Integer; safecall;
    procedure Set_NoLineNumber(prop: Integer); safecall;
    function Get_RightIndent: Single; safecall;
    procedure Set_RightIndent(prop: Single); safecall;
    function Get_LeftIndent: Single; safecall;
    procedure Set_LeftIndent(prop: Single); safecall;
    function Get_FirstLineIndent: Single; safecall;
    procedure Set_FirstLineIndent(prop: Single); safecall;
    function Get_LineSpacing: Single; safecall;
    procedure Set_LineSpacing(prop: Single); safecall;
    function Get_LineSpacingRule: WdLineSpacing; safecall;
    procedure Set_LineSpacingRule(prop: WdLineSpacing); safecall;
    function Get_SpaceBefore: Single; safecall;
    procedure Set_SpaceBefore(prop: Single); safecall;
    function Get_SpaceAfter: Single; safecall;
    procedure Set_SpaceAfter(prop: Single); safecall;
    function Get_Hyphenation: Integer; safecall;
    procedure Set_Hyphenation(prop: Integer); safecall;
    function Get_WidowControl: Integer; safecall;
    procedure Set_WidowControl(prop: Integer); safecall;
    function Get_Shading: Shading; safecall;
    function Get_FarEastLineBreakControl: Integer; safecall;
    procedure Set_FarEastLineBreakControl(prop: Integer); safecall;
    function Get_WordWrap: Integer; safecall;
    procedure Set_WordWrap(prop: Integer); safecall;
    function Get_HangingPunctuation: Integer; safecall;
    procedure Set_HangingPunctuation(prop: Integer); safecall;
    function Get_HalfWidthPunctuationOnTopOfLine: Integer; safecall;
    procedure Set_HalfWidthPunctuationOnTopOfLine(prop: Integer); safecall;
    function Get_AddSpaceBetweenFarEastAndAlpha: Integer; safecall;
    procedure Set_AddSpaceBetweenFarEastAndAlpha(prop: Integer); safecall;
    function Get_AddSpaceBetweenFarEastAndDigit: Integer; safecall;
    procedure Set_AddSpaceBetweenFarEastAndDigit(prop: Integer); safecall;
    function Get_BaseLineAlignment: WdBaselineAlignment; safecall;
    procedure Set_BaseLineAlignment(prop: WdBaselineAlignment); safecall;
    function Get_AutoAdjustRightIndent: Integer; safecall;
    procedure Set_AutoAdjustRightIndent(prop: Integer); safecall;
    function Get_DisableLineHeightGrid: Integer; safecall;
    procedure Set_DisableLineHeightGrid(prop: Integer); safecall;
    function Get_OutlineLevel: WdOutlineLevel; safecall;
    procedure Set_OutlineLevel(prop: WdOutlineLevel); safecall;
    procedure CloseUp; safecall;
    procedure OpenUp; safecall;
    procedure OpenOrCloseUp; safecall;
    procedure TabHangingIndent(Count: Smallint); safecall;
    procedure TabIndent(Count: Smallint); safecall;
    procedure Reset; safecall;
    procedure Space1; safecall;
    procedure Space15; safecall;
    procedure Space2; safecall;
    procedure IndentCharWidth(Count: Smallint); safecall;
    procedure IndentFirstLineCharWidth(Count: Smallint); safecall;
    function Next(var Count: OleVariant): Paragraph; safecall;
    function Previous(var Count: OleVariant): Paragraph; safecall;
    procedure OutlinePromote; safecall;
    procedure OutlineDemote; safecall;
    procedure OutlineDemoteToBody; safecall;
    procedure Indent; safecall;
    procedure Outdent; safecall;
    function Get_CharacterUnitRightIndent: Single; safecall;
    procedure Set_CharacterUnitRightIndent(prop: Single); safecall;
    function Get_CharacterUnitLeftIndent: Single; safecall;
    procedure Set_CharacterUnitLeftIndent(prop: Single); safecall;
    function Get_CharacterUnitFirstLineIndent: Single; safecall;
    procedure Set_CharacterUnitFirstLineIndent(prop: Single); safecall;
    function Get_LineUnitBefore: Single; safecall;
    procedure Set_LineUnitBefore(prop: Single); safecall;
    function Get_LineUnitAfter: Single; safecall;
    procedure Set_LineUnitAfter(prop: Single); safecall;
    function Get_ReadingOrder: WdReadingOrder; safecall;
    procedure Set_ReadingOrder(prop: WdReadingOrder); safecall;
    function Get_ID: WideString; safecall;
    procedure Set_ID(const prop: WideString); safecall;
    function Get_SpaceBeforeAuto: Integer; safecall;
    procedure Set_SpaceBeforeAuto(prop: Integer); safecall;
    function Get_SpaceAfterAuto: Integer; safecall;
    procedure Set_SpaceAfterAuto(prop: Integer); safecall;
    function Get_IsStyleSeparator: WordBool; safecall;
    procedure SelectNumber; safecall;
    property Range: Range read Get_Range;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Format: WordParagraphFormat read Get_Format write Set_Format;
    property TabStops: TabStops read Get_TabStops write Set_TabStops;
    property Borders: Borders read Get_Borders write Set_Borders;
    property DropCap: DropCap read Get_DropCap;
    property Alignment: WdParagraphAlignment read Get_Alignment write Set_Alignment;
    property KeepTogether: Integer read Get_KeepTogether write Set_KeepTogether;
    property KeepWithNext: Integer read Get_KeepWithNext write Set_KeepWithNext;
    property PageBreakBefore: Integer read Get_PageBreakBefore write Set_PageBreakBefore;
    property NoLineNumber: Integer read Get_NoLineNumber write Set_NoLineNumber;
    property RightIndent: Single read Get_RightIndent write Set_RightIndent;
    property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
    property FirstLineIndent: Single read Get_FirstLineIndent write Set_FirstLineIndent;
    property LineSpacing: Single read Get_LineSpacing write Set_LineSpacing;
    property LineSpacingRule: WdLineSpacing read Get_LineSpacingRule write Set_LineSpacingRule;
    property SpaceBefore: Single read Get_SpaceBefore write Set_SpaceBefore;
    property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
    property Hyphenation: Integer read Get_Hyphenation write Set_Hyphenation;
    property WidowControl: Integer read Get_WidowControl write Set_WidowControl;
    property Shading: Shading read Get_Shading;
    property FarEastLineBreakControl: Integer read Get_FarEastLineBreakControl write Set_FarEastLineBreakControl;
    property WordWrap: Integer read Get_WordWrap write Set_WordWrap;
    property HangingPunctuation: Integer read Get_HangingPunctuation write Set_HangingPunctuation;
    property HalfWidthPunctuationOnTopOfLine: Integer read Get_HalfWidthPunctuationOnTopOfLine write Set_HalfWidthPunctuationOnTopOfLine;
    property AddSpaceBetweenFarEastAndAlpha: Integer read Get_AddSpaceBetweenFarEastAndAlpha write Set_AddSpaceBetweenFarEastAndAlpha;
    property AddSpaceBetweenFarEastAndDigit: Integer read Get_AddSpaceBetweenFarEastAndDigit write Set_AddSpaceBetweenFarEastAndDigit;
    property BaseLineAlignment: WdBaselineAlignment read Get_BaseLineAlignment write Set_BaseLineAlignment;
    property AutoAdjustRightIndent: Integer read Get_AutoAdjustRightIndent write Set_AutoAdjustRightIndent;
    property DisableLineHeightGrid: Integer read Get_DisableLineHeightGrid write Set_DisableLineHeightGrid;
    property OutlineLevel: WdOutlineLevel read Get_OutlineLevel write Set_OutlineLevel;
    property CharacterUnitRightIndent: Single read Get_CharacterUnitRightIndent write Set_CharacterUnitRightIndent;
    property CharacterUnitLeftIndent: Single read Get_CharacterUnitLeftIndent write Set_CharacterUnitLeftIndent;
    property CharacterUnitFirstLineIndent: Single read Get_CharacterUnitFirstLineIndent write Set_CharacterUnitFirstLineIndent;
    property LineUnitBefore: Single read Get_LineUnitBefore write Set_LineUnitBefore;
    property LineUnitAfter: Single read Get_LineUnitAfter write Set_LineUnitAfter;
    property ReadingOrder: WdReadingOrder read Get_ReadingOrder write Set_ReadingOrder;
    property ID: WideString read Get_ID write Set_ID;
    property SpaceBeforeAuto: Integer read Get_SpaceBeforeAuto write Set_SpaceBeforeAuto;
    property SpaceAfterAuto: Integer read Get_SpaceAfterAuto write Set_SpaceAfterAuto;
    property IsStyleSeparator: WordBool read Get_IsStyleSeparator;
  end;

// *********************************************************************//
// DispIntf:  ParagraphDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020957-0000-0000-C000-000000000046}
// *********************************************************************//
  ParagraphDisp = dispinterface
    ['{00020957-0000-0000-C000-000000000046}']
    property Range: Range readonly dispid 0;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Format: WordParagraphFormat dispid 1102;
    property TabStops: TabStops dispid 1103;
    property Borders: Borders dispid 1100;
    property DropCap: DropCap readonly dispid 13;
    function Style: OleVariant; dispid 100;
    property Alignment: WdParagraphAlignment dispid 101;
    property KeepTogether: Integer dispid 102;
    property KeepWithNext: Integer dispid 103;
    property PageBreakBefore: Integer dispid 104;
    property NoLineNumber: Integer dispid 105;
    property RightIndent: Single dispid 106;
    property LeftIndent: Single dispid 107;
    property FirstLineIndent: Single dispid 108;
    property LineSpacing: Single dispid 109;
    property LineSpacingRule: WdLineSpacing dispid 110;
    property SpaceBefore: Single dispid 111;
    property SpaceAfter: Single dispid 112;
    property Hyphenation: Integer dispid 113;
    property WidowControl: Integer dispid 114;
    property Shading: Shading readonly dispid 116;
    property FarEastLineBreakControl: Integer dispid 117;
    property WordWrap: Integer dispid 118;
    property HangingPunctuation: Integer dispid 119;
    property HalfWidthPunctuationOnTopOfLine: Integer dispid 120;
    property AddSpaceBetweenFarEastAndAlpha: Integer dispid 121;
    property AddSpaceBetweenFarEastAndDigit: Integer dispid 122;
    property BaseLineAlignment: WdBaselineAlignment dispid 123;
    property AutoAdjustRightIndent: Integer dispid 124;
    property DisableLineHeightGrid: Integer dispid 125;
    property OutlineLevel: WdOutlineLevel dispid 202;
    procedure CloseUp; dispid 301;
    procedure OpenUp; dispid 302;
    procedure OpenOrCloseUp; dispid 303;
    procedure TabHangingIndent(Count: Smallint); dispid 304;
    procedure TabIndent(Count: Smallint); dispid 306;
    procedure Reset; dispid 312;
    procedure Space1; dispid 313;
    procedure Space15; dispid 314;
    procedure Space2; dispid 315;
    procedure IndentCharWidth(Count: Smallint); dispid 320;
    procedure IndentFirstLineCharWidth(Count: Smallint); dispid 322;
    function Next(var Count: OleVariant): Paragraph; dispid 324;
    function Previous(var Count: OleVariant): Paragraph; dispid 325;
    procedure OutlinePromote; dispid 326;
    procedure OutlineDemote; dispid 327;
    procedure OutlineDemoteToBody; dispid 328;
    procedure Indent; dispid 333;
    procedure Outdent; dispid 334;
    property CharacterUnitRightIndent: Single dispid 126;
    property CharacterUnitLeftIndent: Single dispid 127;
    property CharacterUnitFirstLineIndent: Single dispid 128;
    property LineUnitBefore: Single dispid 129;
    property LineUnitAfter: Single dispid 130;
    property ReadingOrder: WdReadingOrder dispid 203;
    property ID: WideString dispid 204;
    property SpaceBeforeAuto: Integer dispid 132;
    property SpaceAfterAuto: Integer dispid 133;
    property IsStyleSeparator: WordBool readonly dispid 134;
    procedure SelectNumber; dispid 335;
  end;

// *********************************************************************//
// Interface: DropCap
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020956-0000-0000-C000-000000000046}
// *********************************************************************//
  DropCap = interface(IDispatch)
    ['{00020956-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Position: WdDropPosition; safecall;
    procedure Set_Position(prop: WdDropPosition); safecall;
    function Get_FontName: WideString; safecall;
    procedure Set_FontName(const prop: WideString); safecall;
    function Get_LinesToDrop: Integer; safecall;
    procedure Set_LinesToDrop(prop: Integer); safecall;
    function Get_DistanceFromText: Single; safecall;
    procedure Set_DistanceFromText(prop: Single); safecall;
    procedure Clear; safecall;
    procedure Enable; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Position: WdDropPosition read Get_Position write Set_Position;
    property FontName: WideString read Get_FontName write Set_FontName;
    property LinesToDrop: Integer read Get_LinesToDrop write Set_LinesToDrop;
    property DistanceFromText: Single read Get_DistanceFromText write Set_DistanceFromText;
  end;

// *********************************************************************//
// DispIntf:  DropCapDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020956-0000-0000-C000-000000000046}
// *********************************************************************//
  DropCapDisp = dispinterface
    ['{00020956-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Position: WdDropPosition dispid 10;
    property FontName: WideString dispid 11;
    property LinesToDrop: Integer dispid 12;
    property DistanceFromText: Single dispid 13;
    procedure Clear; dispid 100;
    procedure Enable; dispid 101;
  end;

// *********************************************************************//
// Interface: TabStops
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020955-0000-0000-C000-000000000046}
// *********************************************************************//
  TabStops = interface(IDispatch)
    ['{00020955-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(var Index: OleVariant): TabStop; safecall;
    function Add(Position: Single; var Alignment: OleVariant; var Leader: OleVariant): TabStop; safecall;
    procedure ClearAll; safecall;
    function Before(Position: Single): TabStop; safecall;
    function After(Position: Single): TabStop; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  TabStopsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020955-0000-0000-C000-000000000046}
// *********************************************************************//
  TabStopsDisp = dispinterface
    ['{00020955-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(var Index: OleVariant): TabStop; dispid 0;
    function Add(Position: Single; var Alignment: OleVariant; var Leader: OleVariant): TabStop; dispid 100;
    procedure ClearAll; dispid 101;
    function Before(Position: Single): TabStop; dispid 102;
    function After(Position: Single): TabStop; dispid 103;
  end;

// *********************************************************************//
// Interface: TabStop
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020954-0000-0000-C000-000000000046}
// *********************************************************************//
  TabStop = interface(IDispatch)
    ['{00020954-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Alignment: WdTabAlignment; safecall;
    procedure Set_Alignment(prop: WdTabAlignment); safecall;
    function Get_Leader: WdTabLeader; safecall;
    procedure Set_Leader(prop: WdTabLeader); safecall;
    function Get_Position: Single; safecall;
    procedure Set_Position(prop: Single); safecall;
    function Get_CustomTab: WordBool; safecall;
    function Get_Next: TabStop; safecall;
    function Get_Previous: TabStop; safecall;
    procedure Clear; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Alignment: WdTabAlignment read Get_Alignment write Set_Alignment;
    property Leader: WdTabLeader read Get_Leader write Set_Leader;
    property Position: Single read Get_Position write Set_Position;
    property CustomTab: WordBool read Get_CustomTab;
    property Next: TabStop read Get_Next;
    property Previous: TabStop read Get_Previous;
  end;

// *********************************************************************//
// DispIntf:  TabStopDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020954-0000-0000-C000-000000000046}
// *********************************************************************//
  TabStopDisp = dispinterface
    ['{00020954-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Alignment: WdTabAlignment dispid 100;
    property Leader: WdTabLeader dispid 101;
    property Position: Single dispid 102;
    property CustomTab: WordBool readonly dispid 103;
    property Next: TabStop readonly dispid 104;
    property Previous: TabStop readonly dispid 105;
    procedure Clear; dispid 200;
  end;

// *********************************************************************//
// Interface: _ParagraphFormat
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020953-0000-0000-C000-000000000046}
// *********************************************************************//
  _ParagraphFormat = interface(IDispatch)
    ['{00020953-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Duplicate: WordParagraphFormat; safecall;
    function Get_Style: OleVariant; safecall;
    procedure Set_Style(var prop: OleVariant); safecall;
    function Get_Alignment: WdParagraphAlignment; safecall;
    procedure Set_Alignment(prop: WdParagraphAlignment); safecall;
    function Get_KeepTogether: Integer; safecall;
    procedure Set_KeepTogether(prop: Integer); safecall;
    function Get_KeepWithNext: Integer; safecall;
    procedure Set_KeepWithNext(prop: Integer); safecall;
    function Get_PageBreakBefore: Integer; safecall;
    procedure Set_PageBreakBefore(prop: Integer); safecall;
    function Get_NoLineNumber: Integer; safecall;
    procedure Set_NoLineNumber(prop: Integer); safecall;
    function Get_RightIndent: Single; safecall;
    procedure Set_RightIndent(prop: Single); safecall;
    function Get_LeftIndent: Single; safecall;
    procedure Set_LeftIndent(prop: Single); safecall;
    function Get_FirstLineIndent: Single; safecall;
    procedure Set_FirstLineIndent(prop: Single); safecall;
    function Get_LineSpacing: Single; safecall;
    procedure Set_LineSpacing(prop: Single); safecall;
    function Get_LineSpacingRule: WdLineSpacing; safecall;
    procedure Set_LineSpacingRule(prop: WdLineSpacing); safecall;
    function Get_SpaceBefore: Single; safecall;
    procedure Set_SpaceBefore(prop: Single); safecall;
    function Get_SpaceAfter: Single; safecall;
    procedure Set_SpaceAfter(prop: Single); safecall;
    function Get_Hyphenation: Integer; safecall;
    procedure Set_Hyphenation(prop: Integer); safecall;
    function Get_WidowControl: Integer; safecall;
    procedure Set_WidowControl(prop: Integer); safecall;
    function Get_FarEastLineBreakControl: Integer; safecall;
    procedure Set_FarEastLineBreakControl(prop: Integer); safecall;
    function Get_WordWrap: Integer; safecall;
    procedure Set_WordWrap(prop: Integer); safecall;
    function Get_HangingPunctuation: Integer; safecall;
    procedure Set_HangingPunctuation(prop: Integer); safecall;
    function Get_HalfWidthPunctuationOnTopOfLine: Integer; safecall;
    procedure Set_HalfWidthPunctuationOnTopOfLine(prop: Integer); safecall;
    function Get_AddSpaceBetweenFarEastAndAlpha: Integer; safecall;
    procedure Set_AddSpaceBetweenFarEastAndAlpha(prop: Integer); safecall;
    function Get_AddSpaceBetweenFarEastAndDigit: Integer; safecall;
    procedure Set_AddSpaceBetweenFarEastAndDigit(prop: Integer); safecall;
    function Get_BaseLineAlignment: WdBaselineAlignment; safecall;
    procedure Set_BaseLineAlignment(prop: WdBaselineAlignment); safecall;
    function Get_AutoAdjustRightIndent: Integer; safecall;
    procedure Set_AutoAdjustRightIndent(prop: Integer); safecall;
    function Get_DisableLineHeightGrid: Integer; safecall;
    procedure Set_DisableLineHeightGrid(prop: Integer); safecall;
    function Get_TabStops: TabStops; safecall;
    procedure Set_TabStops(const prop: TabStops); safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_Shading: Shading; safecall;
    function Get_OutlineLevel: WdOutlineLevel; safecall;
    procedure Set_OutlineLevel(prop: WdOutlineLevel); safecall;
    procedure CloseUp; safecall;
    procedure OpenUp; safecall;
    procedure OpenOrCloseUp; safecall;
    procedure TabHangingIndent(Count: Smallint); safecall;
    procedure TabIndent(Count: Smallint); safecall;
    procedure Reset; safecall;
    procedure Space1; safecall;
    procedure Space15; safecall;
    procedure Space2; safecall;
    procedure IndentCharWidth(Count: Smallint); safecall;
    procedure IndentFirstLineCharWidth(Count: Smallint); safecall;
    function Get_CharacterUnitRightIndent: Single; safecall;
    procedure Set_CharacterUnitRightIndent(prop: Single); safecall;
    function Get_CharacterUnitLeftIndent: Single; safecall;
    procedure Set_CharacterUnitLeftIndent(prop: Single); safecall;
    function Get_CharacterUnitFirstLineIndent: Single; safecall;
    procedure Set_CharacterUnitFirstLineIndent(prop: Single); safecall;
    function Get_LineUnitBefore: Single; safecall;
    procedure Set_LineUnitBefore(prop: Single); safecall;
    function Get_LineUnitAfter: Single; safecall;
    procedure Set_LineUnitAfter(prop: Single); safecall;
    function Get_ReadingOrder: WdReadingOrder; safecall;
    procedure Set_ReadingOrder(prop: WdReadingOrder); safecall;
    function Get_SpaceBeforeAuto: Integer; safecall;
    procedure Set_SpaceBeforeAuto(prop: Integer); safecall;
    function Get_SpaceAfterAuto: Integer; safecall;
    procedure Set_SpaceAfterAuto(prop: Integer); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Duplicate: WordParagraphFormat read Get_Duplicate;
    property Alignment: WdParagraphAlignment read Get_Alignment write Set_Alignment;
    property KeepTogether: Integer read Get_KeepTogether write Set_KeepTogether;
    property KeepWithNext: Integer read Get_KeepWithNext write Set_KeepWithNext;
    property PageBreakBefore: Integer read Get_PageBreakBefore write Set_PageBreakBefore;
    property NoLineNumber: Integer read Get_NoLineNumber write Set_NoLineNumber;
    property RightIndent: Single read Get_RightIndent write Set_RightIndent;
    property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
    property FirstLineIndent: Single read Get_FirstLineIndent write Set_FirstLineIndent;
    property LineSpacing: Single read Get_LineSpacing write Set_LineSpacing;
    property LineSpacingRule: WdLineSpacing read Get_LineSpacingRule write Set_LineSpacingRule;
    property SpaceBefore: Single read Get_SpaceBefore write Set_SpaceBefore;
    property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
    property Hyphenation: Integer read Get_Hyphenation write Set_Hyphenation;
    property WidowControl: Integer read Get_WidowControl write Set_WidowControl;
    property FarEastLineBreakControl: Integer read Get_FarEastLineBreakControl write Set_FarEastLineBreakControl;
    property WordWrap: Integer read Get_WordWrap write Set_WordWrap;
    property HangingPunctuation: Integer read Get_HangingPunctuation write Set_HangingPunctuation;
    property HalfWidthPunctuationOnTopOfLine: Integer read Get_HalfWidthPunctuationOnTopOfLine write Set_HalfWidthPunctuationOnTopOfLine;
    property AddSpaceBetweenFarEastAndAlpha: Integer read Get_AddSpaceBetweenFarEastAndAlpha write Set_AddSpaceBetweenFarEastAndAlpha;
    property AddSpaceBetweenFarEastAndDigit: Integer read Get_AddSpaceBetweenFarEastAndDigit write Set_AddSpaceBetweenFarEastAndDigit;
    property BaseLineAlignment: WdBaselineAlignment read Get_BaseLineAlignment write Set_BaseLineAlignment;
    property AutoAdjustRightIndent: Integer read Get_AutoAdjustRightIndent write Set_AutoAdjustRightIndent;
    property DisableLineHeightGrid: Integer read Get_DisableLineHeightGrid write Set_DisableLineHeightGrid;
    property TabStops: TabStops read Get_TabStops write Set_TabStops;
    property Borders: Borders read Get_Borders write Set_Borders;
    property Shading: Shading read Get_Shading;
    property OutlineLevel: WdOutlineLevel read Get_OutlineLevel write Set_OutlineLevel;
    property CharacterUnitRightIndent: Single read Get_CharacterUnitRightIndent write Set_CharacterUnitRightIndent;
    property CharacterUnitLeftIndent: Single read Get_CharacterUnitLeftIndent write Set_CharacterUnitLeftIndent;
    property CharacterUnitFirstLineIndent: Single read Get_CharacterUnitFirstLineIndent write Set_CharacterUnitFirstLineIndent;
    property LineUnitBefore: Single read Get_LineUnitBefore write Set_LineUnitBefore;
    property LineUnitAfter: Single read Get_LineUnitAfter write Set_LineUnitAfter;
    property ReadingOrder: WdReadingOrder read Get_ReadingOrder write Set_ReadingOrder;
    property SpaceBeforeAuto: Integer read Get_SpaceBeforeAuto write Set_SpaceBeforeAuto;
    property SpaceAfterAuto: Integer read Get_SpaceAfterAuto write Set_SpaceAfterAuto;
  end;

// *********************************************************************//
// DispIntf:  _ParagraphFormatDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020953-0000-0000-C000-000000000046}
// *********************************************************************//
  _ParagraphFormatDisp = dispinterface
    ['{00020953-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Duplicate: WordParagraphFormat readonly dispid 10;
    function Style: OleVariant; dispid 100;
    property Alignment: WdParagraphAlignment dispid 101;
    property KeepTogether: Integer dispid 102;
    property KeepWithNext: Integer dispid 103;
    property PageBreakBefore: Integer dispid 104;
    property NoLineNumber: Integer dispid 105;
    property RightIndent: Single dispid 106;
    property LeftIndent: Single dispid 107;
    property FirstLineIndent: Single dispid 108;
    property LineSpacing: Single dispid 109;
    property LineSpacingRule: WdLineSpacing dispid 110;
    property SpaceBefore: Single dispid 111;
    property SpaceAfter: Single dispid 112;
    property Hyphenation: Integer dispid 113;
    property WidowControl: Integer dispid 114;
    property FarEastLineBreakControl: Integer dispid 117;
    property WordWrap: Integer dispid 118;
    property HangingPunctuation: Integer dispid 119;
    property HalfWidthPunctuationOnTopOfLine: Integer dispid 120;
    property AddSpaceBetweenFarEastAndAlpha: Integer dispid 121;
    property AddSpaceBetweenFarEastAndDigit: Integer dispid 122;
    property BaseLineAlignment: WdBaselineAlignment dispid 123;
    property AutoAdjustRightIndent: Integer dispid 124;
    property DisableLineHeightGrid: Integer dispid 125;
    property TabStops: TabStops dispid 1103;
    property Borders: Borders dispid 1100;
    property Shading: Shading readonly dispid 1101;
    property OutlineLevel: WdOutlineLevel dispid 202;
    procedure CloseUp; dispid 301;
    procedure OpenUp; dispid 302;
    procedure OpenOrCloseUp; dispid 303;
    procedure TabHangingIndent(Count: Smallint); dispid 304;
    procedure TabIndent(Count: Smallint); dispid 306;
    procedure Reset; dispid 312;
    procedure Space1; dispid 313;
    procedure Space15; dispid 314;
    procedure Space2; dispid 315;
    procedure IndentCharWidth(Count: Smallint); dispid 320;
    procedure IndentFirstLineCharWidth(Count: Smallint); dispid 322;
    property CharacterUnitRightIndent: Single dispid 126;
    property CharacterUnitLeftIndent: Single dispid 127;
    property CharacterUnitFirstLineIndent: Single dispid 128;
    property LineUnitBefore: Single dispid 129;
    property LineUnitAfter: Single dispid 130;
    property ReadingOrder: WdReadingOrder dispid 131;
    property SpaceBeforeAuto: Integer dispid 132;
    property SpaceAfterAuto: Integer dispid 133;
  end;

// *********************************************************************//
// Interface: _Font
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020952-0000-0000-C000-000000000046}
// *********************************************************************//
  _Font = interface(IDispatch)
    ['{00020952-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Duplicate: WordFont; safecall;
    function Get_Bold: Integer; safecall;
    procedure Set_Bold(prop: Integer); safecall;
    function Get_Italic: Integer; safecall;
    procedure Set_Italic(prop: Integer); safecall;
    function Get_Hidden: Integer; safecall;
    procedure Set_Hidden(prop: Integer); safecall;
    function Get_SmallCaps: Integer; safecall;
    procedure Set_SmallCaps(prop: Integer); safecall;
    function Get_AllCaps: Integer; safecall;
    procedure Set_AllCaps(prop: Integer); safecall;
    function Get_StrikeThrough: Integer; safecall;
    procedure Set_StrikeThrough(prop: Integer); safecall;
    function Get_DoubleStrikeThrough: Integer; safecall;
    procedure Set_DoubleStrikeThrough(prop: Integer); safecall;
    function Get_ColorIndex: WdColorIndex; safecall;
    procedure Set_ColorIndex(prop: WdColorIndex); safecall;
    function Get_Subscript: Integer; safecall;
    procedure Set_Subscript(prop: Integer); safecall;
    function Get_Superscript: Integer; safecall;
    procedure Set_Superscript(prop: Integer); safecall;
    function Get_Underline: WdUnderline; safecall;
    procedure Set_Underline(prop: WdUnderline); safecall;
    function Get_Size: Single; safecall;
    procedure Set_Size(prop: Single); safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const prop: WideString); safecall;
    function Get_Position: Integer; safecall;
    procedure Set_Position(prop: Integer); safecall;
    function Get_Spacing: Single; safecall;
    procedure Set_Spacing(prop: Single); safecall;
    function Get_Scaling: Integer; safecall;
    procedure Set_Scaling(prop: Integer); safecall;
    function Get_Shadow: Integer; safecall;
    procedure Set_Shadow(prop: Integer); safecall;
    function Get_Outline: Integer; safecall;
    procedure Set_Outline(prop: Integer); safecall;
    function Get_Emboss: Integer; safecall;
    procedure Set_Emboss(prop: Integer); safecall;
    function Get_Kerning: Single; safecall;
    procedure Set_Kerning(prop: Single); safecall;
    function Get_Engrave: Integer; safecall;
    procedure Set_Engrave(prop: Integer); safecall;
    function Get_Animation: WdAnimation; safecall;
    procedure Set_Animation(prop: WdAnimation); safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_Shading: Shading; safecall;
    function Get_EmphasisMark: WdEmphasisMark; safecall;
    procedure Set_EmphasisMark(prop: WdEmphasisMark); safecall;
    function Get_DisableCharacterSpaceGrid: WordBool; safecall;
    procedure Set_DisableCharacterSpaceGrid(prop: WordBool); safecall;
    function Get_NameFarEast: WideString; safecall;
    procedure Set_NameFarEast(const prop: WideString); safecall;
    function Get_NameAscii: WideString; safecall;
    procedure Set_NameAscii(const prop: WideString); safecall;
    function Get_NameOther: WideString; safecall;
    procedure Set_NameOther(const prop: WideString); safecall;
    procedure Grow; safecall;
    procedure Shrink; safecall;
    procedure Reset; safecall;
    procedure SetAsTemplateDefault; safecall;
    function Get_Color: WdColor; safecall;
    procedure Set_Color(prop: WdColor); safecall;
    function Get_BoldBi: Integer; safecall;
    procedure Set_BoldBi(prop: Integer); safecall;
    function Get_ItalicBi: Integer; safecall;
    procedure Set_ItalicBi(prop: Integer); safecall;
    function Get_SizeBi: Single; safecall;
    procedure Set_SizeBi(prop: Single); safecall;
    function Get_NameBi: WideString; safecall;
    procedure Set_NameBi(const prop: WideString); safecall;
    function Get_ColorIndexBi: WdColorIndex; safecall;
    procedure Set_ColorIndexBi(prop: WdColorIndex); safecall;
    function Get_DiacriticColor: WdColor; safecall;
    procedure Set_DiacriticColor(prop: WdColor); safecall;
    function Get_UnderlineColor: WdColor; safecall;
    procedure Set_UnderlineColor(prop: WdColor); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Duplicate: WordFont read Get_Duplicate;
    property Bold: Integer read Get_Bold write Set_Bold;
    property Italic: Integer read Get_Italic write Set_Italic;
    property Hidden: Integer read Get_Hidden write Set_Hidden;
    property SmallCaps: Integer read Get_SmallCaps write Set_SmallCaps;
    property AllCaps: Integer read Get_AllCaps write Set_AllCaps;
    property StrikeThrough: Integer read Get_StrikeThrough write Set_StrikeThrough;
    property DoubleStrikeThrough: Integer read Get_DoubleStrikeThrough write Set_DoubleStrikeThrough;
    property ColorIndex: WdColorIndex read Get_ColorIndex write Set_ColorIndex;
    property Subscript: Integer read Get_Subscript write Set_Subscript;
    property Superscript: Integer read Get_Superscript write Set_Superscript;
    property Underline: WdUnderline read Get_Underline write Set_Underline;
    property Size: Single read Get_Size write Set_Size;
    property Name: WideString read Get_Name write Set_Name;
    property Position: Integer read Get_Position write Set_Position;
    property Spacing: Single read Get_Spacing write Set_Spacing;
    property Scaling: Integer read Get_Scaling write Set_Scaling;
    property Shadow: Integer read Get_Shadow write Set_Shadow;
    property Outline: Integer read Get_Outline write Set_Outline;
    property Emboss: Integer read Get_Emboss write Set_Emboss;
    property Kerning: Single read Get_Kerning write Set_Kerning;
    property Engrave: Integer read Get_Engrave write Set_Engrave;
    property Animation: WdAnimation read Get_Animation write Set_Animation;
    property Borders: Borders read Get_Borders write Set_Borders;
    property Shading: Shading read Get_Shading;
    property EmphasisMark: WdEmphasisMark read Get_EmphasisMark write Set_EmphasisMark;
    property DisableCharacterSpaceGrid: WordBool read Get_DisableCharacterSpaceGrid write Set_DisableCharacterSpaceGrid;
    property NameFarEast: WideString read Get_NameFarEast write Set_NameFarEast;
    property NameAscii: WideString read Get_NameAscii write Set_NameAscii;
    property NameOther: WideString read Get_NameOther write Set_NameOther;
    property Color: WdColor read Get_Color write Set_Color;
    property BoldBi: Integer read Get_BoldBi write Set_BoldBi;
    property ItalicBi: Integer read Get_ItalicBi write Set_ItalicBi;
    property SizeBi: Single read Get_SizeBi write Set_SizeBi;
    property NameBi: WideString read Get_NameBi write Set_NameBi;
    property ColorIndexBi: WdColorIndex read Get_ColorIndexBi write Set_ColorIndexBi;
    property DiacriticColor: WdColor read Get_DiacriticColor write Set_DiacriticColor;
    property UnderlineColor: WdColor read Get_UnderlineColor write Set_UnderlineColor;
  end;

// *********************************************************************//
// DispIntf:  _FontDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020952-0000-0000-C000-000000000046}
// *********************************************************************//
  _FontDisp = dispinterface
    ['{00020952-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Duplicate: WordFont readonly dispid 10;
    property Bold: Integer dispid 130;
    property Italic: Integer dispid 131;
    property Hidden: Integer dispid 132;
    property SmallCaps: Integer dispid 133;
    property AllCaps: Integer dispid 134;
    property StrikeThrough: Integer dispid 135;
    property DoubleStrikeThrough: Integer dispid 136;
    property ColorIndex: WdColorIndex dispid 137;
    property Subscript: Integer dispid 138;
    property Superscript: Integer dispid 139;
    property Underline: WdUnderline dispid 140;
    property Size: Single dispid 141;
    property Name: WideString dispid 142;
    property Position: Integer dispid 143;
    property Spacing: Single dispid 144;
    property Scaling: Integer dispid 145;
    property Shadow: Integer dispid 146;
    property Outline: Integer dispid 147;
    property Emboss: Integer dispid 148;
    property Kerning: Single dispid 149;
    property Engrave: Integer dispid 150;
    property Animation: WdAnimation dispid 151;
    property Borders: Borders dispid 1100;
    property Shading: Shading readonly dispid 153;
    property EmphasisMark: WdEmphasisMark dispid 154;
    property DisableCharacterSpaceGrid: WordBool dispid 155;
    property NameFarEast: WideString dispid 156;
    property NameAscii: WideString dispid 157;
    property NameOther: WideString dispid 158;
    procedure Grow; dispid 100;
    procedure Shrink; dispid 101;
    procedure Reset; dispid 102;
    procedure SetAsTemplateDefault; dispid 103;
    property Color: WdColor dispid 159;
    property BoldBi: Integer dispid 160;
    property ItalicBi: Integer dispid 161;
    property SizeBi: Single dispid 162;
    property NameBi: WideString dispid 163;
    property ColorIndexBi: WdColorIndex dispid 164;
    property DiacriticColor: WdColor dispid 165;
    property UnderlineColor: WdColor dispid 166;
  end;

// *********************************************************************//
// Interface: Table
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020951-0000-0000-C000-000000000046}
// *********************************************************************//
  Table = interface(IDispatch)
    ['{00020951-0000-0000-C000-000000000046}']
    function Get_Range: Range; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Columns: Columns; safecall;
    function Get_Rows: Rows; safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_Shading: Shading; safecall;
    function Get_Uniform: WordBool; safecall;
    function Get_AutoFormatType: Integer; safecall;
    procedure Select; safecall;
    procedure Delete; safecall;
    procedure SortOld(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
                      var SortFieldType: OleVariant; var SortOrder: OleVariant; 
                      var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
                      var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
                      var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
                      var CaseSensitive: OleVariant; var LanguageID: OleVariant); safecall;
    procedure SortAscending; safecall;
    procedure SortDescending; safecall;
    procedure AutoFormat(var Format: OleVariant; var ApplyBorders: OleVariant; 
                         var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
                         var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
                         var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
                         var ApplyLastColumn: OleVariant; var AutoFit: OleVariant); safecall;
    procedure UpdateAutoFormat; safecall;
    function ConvertToTextOld(var Separator: OleVariant): Range; safecall;
    function Cell(Row: Integer; Column: Integer): Cell; safecall;
    function Split(var BeforeRow: OleVariant): Table; safecall;
    function ConvertToText(var Separator: OleVariant; var NestedTables: OleVariant): Range; safecall;
    procedure AutoFitBehavior(Behavior: WdAutoFitBehavior); safecall;
    procedure Sort(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
                   var SortFieldType: OleVariant; var SortOrder: OleVariant; 
                   var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
                   var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
                   var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
                   var CaseSensitive: OleVariant; var BidiSort: OleVariant; 
                   var IgnoreThe: OleVariant; var IgnoreKashida: OleVariant; 
                   var IgnoreDiacritics: OleVariant; var IgnoreHe: OleVariant; 
                   var LanguageID: OleVariant); safecall;
    function Get_Tables: Tables; safecall;
    function Get_NestingLevel: Integer; safecall;
    function Get_AllowPageBreaks: WordBool; safecall;
    procedure Set_AllowPageBreaks(prop: WordBool); safecall;
    function Get_AllowAutoFit: WordBool; safecall;
    procedure Set_AllowAutoFit(prop: WordBool); safecall;
    function Get_PreferredWidth: Single; safecall;
    procedure Set_PreferredWidth(prop: Single); safecall;
    function Get_PreferredWidthType: WdPreferredWidthType; safecall;
    procedure Set_PreferredWidthType(prop: WdPreferredWidthType); safecall;
    function Get_TopPadding: Single; safecall;
    procedure Set_TopPadding(prop: Single); safecall;
    function Get_BottomPadding: Single; safecall;
    procedure Set_BottomPadding(prop: Single); safecall;
    function Get_LeftPadding: Single; safecall;
    procedure Set_LeftPadding(prop: Single); safecall;
    function Get_RightPadding: Single; safecall;
    procedure Set_RightPadding(prop: Single); safecall;
    function Get_Spacing: Single; safecall;
    procedure Set_Spacing(prop: Single); safecall;
    function Get_TableDirection: WdTableDirection; safecall;
    procedure Set_TableDirection(prop: WdTableDirection); safecall;
    function Get_ID: WideString; safecall;
    procedure Set_ID(const prop: WideString); safecall;
    function Get_Style: OleVariant; safecall;
    procedure Set_Style(var prop: OleVariant); safecall;
    function Get_ApplyStyleHeadingRows: WordBool; safecall;
    procedure Set_ApplyStyleHeadingRows(prop: WordBool); safecall;
    function Get_ApplyStyleLastRow: WordBool; safecall;
    procedure Set_ApplyStyleLastRow(prop: WordBool); safecall;
    function Get_ApplyStyleFirstColumn: WordBool; safecall;
    procedure Set_ApplyStyleFirstColumn(prop: WordBool); safecall;
    function Get_ApplyStyleLastColumn: WordBool; safecall;
    procedure Set_ApplyStyleLastColumn(prop: WordBool); safecall;
    property Range: Range read Get_Range;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Columns: Columns read Get_Columns;
    property Rows: Rows read Get_Rows;
    property Borders: Borders read Get_Borders write Set_Borders;
    property Shading: Shading read Get_Shading;
    property Uniform: WordBool read Get_Uniform;
    property AutoFormatType: Integer read Get_AutoFormatType;
    property Tables: Tables read Get_Tables;
    property NestingLevel: Integer read Get_NestingLevel;
    property AllowPageBreaks: WordBool read Get_AllowPageBreaks write Set_AllowPageBreaks;
    property AllowAutoFit: WordBool read Get_AllowAutoFit write Set_AllowAutoFit;
    property PreferredWidth: Single read Get_PreferredWidth write Set_PreferredWidth;
    property PreferredWidthType: WdPreferredWidthType read Get_PreferredWidthType write Set_PreferredWidthType;
    property TopPadding: Single read Get_TopPadding write Set_TopPadding;
    property BottomPadding: Single read Get_BottomPadding write Set_BottomPadding;
    property LeftPadding: Single read Get_LeftPadding write Set_LeftPadding;
    property RightPadding: Single read Get_RightPadding write Set_RightPadding;
    property Spacing: Single read Get_Spacing write Set_Spacing;
    property TableDirection: WdTableDirection read Get_TableDirection write Set_TableDirection;
    property ID: WideString read Get_ID write Set_ID;
    property ApplyStyleHeadingRows: WordBool read Get_ApplyStyleHeadingRows write Set_ApplyStyleHeadingRows;
    property ApplyStyleLastRow: WordBool read Get_ApplyStyleLastRow write Set_ApplyStyleLastRow;
    property ApplyStyleFirstColumn: WordBool read Get_ApplyStyleFirstColumn write Set_ApplyStyleFirstColumn;
    property ApplyStyleLastColumn: WordBool read Get_ApplyStyleLastColumn write Set_ApplyStyleLastColumn;
  end;

// *********************************************************************//
// DispIntf:  TableDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020951-0000-0000-C000-000000000046}
// *********************************************************************//
  TableDisp = dispinterface
    ['{00020951-0000-0000-C000-000000000046}']
    property Range: Range readonly dispid 0;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Columns: Columns readonly dispid 100;
    property Rows: Rows readonly dispid 101;
    property Borders: Borders dispid 1100;
    property Shading: Shading readonly dispid 104;
    property Uniform: WordBool readonly dispid 105;
    property AutoFormatType: Integer readonly dispid 106;
    procedure Select; dispid 200;
    procedure Delete; dispid 9;
    procedure SortOld(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
                      var SortFieldType: OleVariant; var SortOrder: OleVariant; 
                      var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
                      var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
                      var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
                      var CaseSensitive: OleVariant; var LanguageID: OleVariant); dispid 10;
    procedure SortAscending; dispid 12;
    procedure SortDescending; dispid 13;
    procedure AutoFormat(var Format: OleVariant; var ApplyBorders: OleVariant; 
                         var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
                         var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
                         var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
                         var ApplyLastColumn: OleVariant; var AutoFit: OleVariant); dispid 14;
    procedure UpdateAutoFormat; dispid 15;
    function ConvertToTextOld(var Separator: OleVariant): Range; dispid 16;
    function Cell(Row: Integer; Column: Integer): Cell; dispid 17;
    function Split(var BeforeRow: OleVariant): Table; dispid 18;
    function ConvertToText(var Separator: OleVariant; var NestedTables: OleVariant): Range; dispid 19;
    procedure AutoFitBehavior(Behavior: WdAutoFitBehavior); dispid 20;
    procedure Sort(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
                   var SortFieldType: OleVariant; var SortOrder: OleVariant; 
                   var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
                   var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
                   var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
                   var CaseSensitive: OleVariant; var BidiSort: OleVariant; 
                   var IgnoreThe: OleVariant; var IgnoreKashida: OleVariant; 
                   var IgnoreDiacritics: OleVariant; var IgnoreHe: OleVariant; 
                   var LanguageID: OleVariant); dispid 23;
    property Tables: Tables readonly dispid 107;
    property NestingLevel: Integer readonly dispid 108;
    property AllowPageBreaks: WordBool dispid 109;
    property AllowAutoFit: WordBool dispid 110;
    property PreferredWidth: Single dispid 111;
    property PreferredWidthType: WdPreferredWidthType dispid 112;
    property TopPadding: Single dispid 113;
    property BottomPadding: Single dispid 114;
    property LeftPadding: Single dispid 115;
    property RightPadding: Single dispid 116;
    property Spacing: Single dispid 117;
    property TableDirection: WdTableDirection dispid 118;
    property ID: WideString dispid 119;
    function Style: OleVariant; dispid 201;
    property ApplyStyleHeadingRows: WordBool dispid 202;
    property ApplyStyleLastRow: WordBool dispid 203;
    property ApplyStyleFirstColumn: WordBool dispid 204;
    property ApplyStyleLastColumn: WordBool dispid 205;
  end;

// *********************************************************************//
// Interface: Row
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020950-0000-0000-C000-000000000046}
// *********************************************************************//
  Row = interface(IDispatch)
    ['{00020950-0000-0000-C000-000000000046}']
    function Get_Range: Range; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_AllowBreakAcrossPages: Integer; safecall;
    procedure Set_AllowBreakAcrossPages(prop: Integer); safecall;
    function Get_Alignment: WdRowAlignment; safecall;
    procedure Set_Alignment(prop: WdRowAlignment); safecall;
    function Get_HeadingFormat: Integer; safecall;
    procedure Set_HeadingFormat(prop: Integer); safecall;
    function Get_SpaceBetweenColumns: Single; safecall;
    procedure Set_SpaceBetweenColumns(prop: Single); safecall;
    function Get_Height: Single; safecall;
    procedure Set_Height(prop: Single); safecall;
    function Get_HeightRule: WdRowHeightRule; safecall;
    procedure Set_HeightRule(prop: WdRowHeightRule); safecall;
    function Get_LeftIndent: Single; safecall;
    procedure Set_LeftIndent(prop: Single); safecall;
    function Get_IsLast: WordBool; safecall;
    function Get_IsFirst: WordBool; safecall;
    function Get_Index: Integer; safecall;
    function Get_Cells: Cells; safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_Shading: Shading; safecall;
    function Get_Next: Row; safecall;
    function Get_Previous: Row; safecall;
    procedure Select; safecall;
    procedure Delete; safecall;
    procedure SetLeftIndent(LeftIndent: Single; RulerStyle: WdRulerStyle); safecall;
    procedure SetHeight(RowHeight: Single; HeightRule: WdRowHeightRule); safecall;
    function ConvertToTextOld(var Separator: OleVariant): Range; safecall;
    function ConvertToText(var Separator: OleVariant; var NestedTables: OleVariant): Range; safecall;
    function Get_NestingLevel: Integer; safecall;
    function Get_ID: WideString; safecall;
    procedure Set_ID(const prop: WideString); safecall;
    property Range: Range read Get_Range;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property AllowBreakAcrossPages: Integer read Get_AllowBreakAcrossPages write Set_AllowBreakAcrossPages;
    property Alignment: WdRowAlignment read Get_Alignment write Set_Alignment;
    property HeadingFormat: Integer read Get_HeadingFormat write Set_HeadingFormat;
    property SpaceBetweenColumns: Single read Get_SpaceBetweenColumns write Set_SpaceBetweenColumns;
    property Height: Single read Get_Height write Set_Height;
    property HeightRule: WdRowHeightRule read Get_HeightRule write Set_HeightRule;
    property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
    property IsLast: WordBool read Get_IsLast;
    property IsFirst: WordBool read Get_IsFirst;
    property Index: Integer read Get_Index;
    property Cells: Cells read Get_Cells;
    property Borders: Borders read Get_Borders write Set_Borders;
    property Shading: Shading read Get_Shading;
    property Next: Row read Get_Next;
    property Previous: Row read Get_Previous;
    property NestingLevel: Integer read Get_NestingLevel;
    property ID: WideString read Get_ID write Set_ID;
  end;

// *********************************************************************//
// DispIntf:  RowDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020950-0000-0000-C000-000000000046}
// *********************************************************************//
  RowDisp = dispinterface
    ['{00020950-0000-0000-C000-000000000046}']
    property Range: Range readonly dispid 0;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property AllowBreakAcrossPages: Integer dispid 3;
    property Alignment: WdRowAlignment dispid 4;
    property HeadingFormat: Integer dispid 5;
    property SpaceBetweenColumns: Single dispid 6;
    property Height: Single dispid 7;
    property HeightRule: WdRowHeightRule dispid 8;
    property LeftIndent: Single dispid 9;
    property IsLast: WordBool readonly dispid 10;
    property IsFirst: WordBool readonly dispid 11;
    property Index: Integer readonly dispid 12;
    property Cells: Cells readonly dispid 100;
    property Borders: Borders dispid 1100;
    property Shading: Shading readonly dispid 103;
    property Next: Row readonly dispid 104;
    property Previous: Row readonly dispid 105;
    procedure Select; dispid 65535;
    procedure Delete; dispid 200;
    procedure SetLeftIndent(LeftIndent: Single; RulerStyle: WdRulerStyle); dispid 202;
    procedure SetHeight(RowHeight: Single; HeightRule: WdRowHeightRule); dispid 203;
    function ConvertToTextOld(var Separator: OleVariant): Range; dispid 16;
    function ConvertToText(var Separator: OleVariant; var NestedTables: OleVariant): Range; dispid 18;
    property NestingLevel: Integer readonly dispid 106;
    property ID: WideString dispid 107;
  end;

// *********************************************************************//
// Interface: Column
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002094F-0000-0000-C000-000000000046}
// *********************************************************************//
  Column = interface(IDispatch)
    ['{0002094F-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Width: Single; safecall;
    procedure Set_Width(prop: Single); safecall;
    function Get_IsFirst: WordBool; safecall;
    function Get_IsLast: WordBool; safecall;
    function Get_Index: Integer; safecall;
    function Get_Cells: Cells; safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_Shading: Shading; safecall;
    function Get_Next: Column; safecall;
    function Get_Previous: Column; safecall;
    procedure Select; safecall;
    procedure Delete; safecall;
    procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); safecall;
    procedure AutoFit; safecall;
    procedure SortOld(var ExcludeHeader: OleVariant; var SortFieldType: OleVariant; 
                      var SortOrder: OleVariant; var CaseSensitive: OleVariant; 
                      var LanguageID: OleVariant); safecall;
    procedure Sort(var ExcludeHeader: OleVariant; var SortFieldType: OleVariant; 
                   var SortOrder: OleVariant; var CaseSensitive: OleVariant; 
                   var BidiSort: OleVariant; var IgnoreThe: OleVariant; 
                   var IgnoreKashida: OleVariant; var IgnoreDiacritics: OleVariant; 
                   var IgnoreHe: OleVariant; var LanguageID: OleVariant); safecall;
    function Get_NestingLevel: Integer; safecall;
    function Get_PreferredWidth: Single; safecall;
    procedure Set_PreferredWidth(prop: Single); safecall;
    function Get_PreferredWidthType: WdPreferredWidthType; safecall;
    procedure Set_PreferredWidthType(prop: WdPreferredWidthType); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Width: Single read Get_Width write Set_Width;
    property IsFirst: WordBool read Get_IsFirst;
    property IsLast: WordBool read Get_IsLast;
    property Index: Integer read Get_Index;
    property Cells: Cells read Get_Cells;
    property Borders: Borders read Get_Borders write Set_Borders;
    property Shading: Shading read Get_Shading;
    property Next: Column read Get_Next;
    property Previous: Column read Get_Previous;
    property NestingLevel: Integer read Get_NestingLevel;
    property PreferredWidth: Single read Get_PreferredWidth write Set_PreferredWidth;
    property PreferredWidthType: WdPreferredWidthType read Get_PreferredWidthType write Set_PreferredWidthType;
  end;

// *********************************************************************//
// DispIntf:  ColumnDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002094F-0000-0000-C000-000000000046}
// *********************************************************************//
  ColumnDisp = dispinterface
    ['{0002094F-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Width: Single dispid 3;
    property IsFirst: WordBool readonly dispid 4;
    property IsLast: WordBool readonly dispid 5;
    property Index: Integer readonly dispid 6;
    property Cells: Cells readonly dispid 100;
    property Borders: Borders dispid 1100;
    property Shading: Shading readonly dispid 102;
    property Next: Column readonly dispid 103;
    property Previous: Column readonly dispid 104;
    procedure Select; dispid 65535;
    procedure Delete; dispid 200;
    procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); dispid 201;
    procedure AutoFit; dispid 202;
    procedure SortOld(var ExcludeHeader: OleVariant; var SortFieldType: OleVariant; 
                      var SortOrder: OleVariant; var CaseSensitive: OleVariant; 
                      var LanguageID: OleVariant); dispid 203;
    procedure Sort(var ExcludeHeader: OleVariant; var SortFieldType: OleVariant; 
                   var SortOrder: OleVariant; var CaseSensitive: OleVariant; 
                   var BidiSort: OleVariant; var IgnoreThe: OleVariant; 
                   var IgnoreKashida: OleVariant; var IgnoreDiacritics: OleVariant; 
                   var IgnoreHe: OleVariant; var LanguageID: OleVariant); dispid 204;
    property NestingLevel: Integer readonly dispid 105;
    property PreferredWidth: Single dispid 106;
    property PreferredWidthType: WdPreferredWidthType dispid 107;
  end;

// *********************************************************************//
// Interface: Cell
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002094E-0000-0000-C000-000000000046}
// *********************************************************************//
  Cell = interface(IDispatch)
    ['{0002094E-0000-0000-C000-000000000046}']
    function Get_Range: Range; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_RowIndex: Integer; safecall;
    function Get_ColumnIndex: Integer; safecall;
    function Get_Width: Single; safecall;
    procedure Set_Width(prop: Single); safecall;
    function Get_Height: Single; safecall;
    procedure Set_Height(prop: Single); safecall;
    function Get_HeightRule: WdRowHeightRule; safecall;
    procedure Set_HeightRule(prop: WdRowHeightRule); safecall;
    function Get_VerticalAlignment: WdCellVerticalAlignment; safecall;
    procedure Set_VerticalAlignment(prop: WdCellVerticalAlignment); safecall;
    function Get_Column: Column; safecall;
    function Get_Row: Row; safecall;
    function Get_Next: Cell; safecall;
    function Get_Previous: Cell; safecall;
    function Get_Shading: Shading; safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    procedure Select; safecall;
    procedure Delete(var ShiftCells: OleVariant); safecall;
    procedure Formula(var Formula: OleVariant; var NumFormat: OleVariant); safecall;
    procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); safecall;
    procedure SetHeight(var RowHeight: OleVariant; HeightRule: WdRowHeightRule); safecall;
    procedure Merge(const MergeTo: Cell); safecall;
    procedure Split(var NumRows: OleVariant; var NumColumns: OleVariant); safecall;
    procedure AutoSum; safecall;
    function Get_Tables: Tables; safecall;
    function Get_NestingLevel: Integer; safecall;
    function Get_WordWrap: WordBool; safecall;
    procedure Set_WordWrap(prop: WordBool); safecall;
    function Get_PreferredWidth: Single; safecall;
    procedure Set_PreferredWidth(prop: Single); safecall;
    function Get_FitText: WordBool; safecall;
    procedure Set_FitText(prop: WordBool); safecall;
    function Get_TopPadding: Single; safecall;
    procedure Set_TopPadding(prop: Single); safecall;
    function Get_BottomPadding: Single; safecall;
    procedure Set_BottomPadding(prop: Single); safecall;
    function Get_LeftPadding: Single; safecall;
    procedure Set_LeftPadding(prop: Single); safecall;
    function Get_RightPadding: Single; safecall;
    procedure Set_RightPadding(prop: Single); safecall;
    function Get_ID: WideString; safecall;
    procedure Set_ID(const prop: WideString); safecall;
    function Get_PreferredWidthType: WdPreferredWidthType; safecall;
    procedure Set_PreferredWidthType(prop: WdPreferredWidthType); safecall;
    property Range: Range read Get_Range;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property RowIndex: Integer read Get_RowIndex;
    property ColumnIndex: Integer read Get_ColumnIndex;
    property Width: Single read Get_Width write Set_Width;
    property Height: Single read Get_Height write Set_Height;
    property HeightRule: WdRowHeightRule read Get_HeightRule write Set_HeightRule;
    property VerticalAlignment: WdCellVerticalAlignment read Get_VerticalAlignment write Set_VerticalAlignment;
    property Column: Column read Get_Column;
    property Row: Row read Get_Row;
    property Next: Cell read Get_Next;
    property Previous: Cell read Get_Previous;
    property Shading: Shading read Get_Shading;
    property Borders: Borders read Get_Borders write Set_Borders;
    property Tables: Tables read Get_Tables;
    property NestingLevel: Integer read Get_NestingLevel;
    property WordWrap: WordBool read Get_WordWrap write Set_WordWrap;
    property PreferredWidth: Single read Get_PreferredWidth write Set_PreferredWidth;
    property FitText: WordBool read Get_FitText write Set_FitText;
    property TopPadding: Single read Get_TopPadding write Set_TopPadding;
    property BottomPadding: Single read Get_BottomPadding write Set_BottomPadding;
    property LeftPadding: Single read Get_LeftPadding write Set_LeftPadding;
    property RightPadding: Single read Get_RightPadding write Set_RightPadding;
    property ID: WideString read Get_ID write Set_ID;
    property PreferredWidthType: WdPreferredWidthType read Get_PreferredWidthType write Set_PreferredWidthType;
  end;

// *********************************************************************//
// DispIntf:  CellDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002094E-0000-0000-C000-000000000046}
// *********************************************************************//
  CellDisp = dispinterface
    ['{0002094E-0000-0000-C000-000000000046}']
    property Range: Range readonly dispid 0;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property RowIndex: Integer readonly dispid 4;
    property ColumnIndex: Integer readonly dispid 5;
    property Width: Single dispid 6;
    property Height: Single dispid 7;
    property HeightRule: WdRowHeightRule dispid 8;
    property VerticalAlignment: WdCellVerticalAlignment dispid 1104;
    property Column: Column readonly dispid 101;
    property Row: Row readonly dispid 102;
    property Next: Cell readonly dispid 103;
    property Previous: Cell readonly dispid 104;
    property Shading: Shading readonly dispid 105;
    property Borders: Borders dispid 1100;
    procedure Select; dispid 65535;
    procedure Delete(var ShiftCells: OleVariant); dispid 200;
    procedure Formula(var Formula: OleVariant; var NumFormat: OleVariant); dispid 201;
    procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); dispid 202;
    procedure SetHeight(var RowHeight: OleVariant; HeightRule: WdRowHeightRule); dispid 203;
    procedure Merge(const MergeTo: Cell); dispid 204;
    procedure Split(var NumRows: OleVariant; var NumColumns: OleVariant); dispid 205;
    procedure AutoSum; dispid 206;
    property Tables: Tables readonly dispid 106;
    property NestingLevel: Integer readonly dispid 107;
    property WordWrap: WordBool dispid 108;
    property PreferredWidth: Single dispid 109;
    property FitText: WordBool dispid 110;
    property TopPadding: Single dispid 111;
    property BottomPadding: Single dispid 112;
    property LeftPadding: Single dispid 113;
    property RightPadding: Single dispid 114;
    property ID: WideString dispid 115;
    property PreferredWidthType: WdPreferredWidthType dispid 116;
  end;

// *********************************************************************//
// Interface: Tables
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002094D-0000-0000-C000-000000000046}
// *********************************************************************//
  Tables = interface(IDispatch)
    ['{0002094D-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(Index: Integer): Table; safecall;
    function AddOld(const Range: Range; NumRows: Integer; NumColumns: Integer): Table; safecall;
    function Add(const Range: Range; NumRows: Integer; NumColumns: Integer; 
                 var DefaultTableBehavior: OleVariant; var AutoFitBehavior: OleVariant): Table; safecall;
    function Get_NestingLevel: Integer; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property NestingLevel: Integer read Get_NestingLevel;
  end;

// *********************************************************************//
// DispIntf:  TablesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002094D-0000-0000-C000-000000000046}
// *********************************************************************//
  TablesDisp = dispinterface
    ['{0002094D-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(Index: Integer): Table; dispid 0;
    function AddOld(const Range: Range; NumRows: Integer; NumColumns: Integer): Table; dispid 4;
    function Add(const Range: Range; NumRows: Integer; NumColumns: Integer; 
                 var DefaultTableBehavior: OleVariant; var AutoFitBehavior: OleVariant): Table; dispid 200;
    property NestingLevel: Integer readonly dispid 100;
  end;

// *********************************************************************//
// Interface: Rows
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002094C-0000-0000-C000-000000000046}
// *********************************************************************//
  Rows = interface(IDispatch)
    ['{0002094C-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_AllowBreakAcrossPages: Integer; safecall;
    procedure Set_AllowBreakAcrossPages(prop: Integer); safecall;
    function Get_Alignment: WdRowAlignment; safecall;
    procedure Set_Alignment(prop: WdRowAlignment); safecall;
    function Get_HeadingFormat: Integer; safecall;
    procedure Set_HeadingFormat(prop: Integer); safecall;
    function Get_SpaceBetweenColumns: Single; safecall;
    procedure Set_SpaceBetweenColumns(prop: Single); safecall;
    function Get_Height: Single; safecall;
    procedure Set_Height(prop: Single); safecall;
    function Get_HeightRule: WdRowHeightRule; safecall;
    procedure Set_HeightRule(prop: WdRowHeightRule); safecall;
    function Get_LeftIndent: Single; safecall;
    procedure Set_LeftIndent(prop: Single); safecall;
    function Get_First: Row; safecall;
    function Get_Last: Row; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_Shading: Shading; safecall;
    function Item(Index: Integer): Row; safecall;
    function Add(var BeforeRow: OleVariant): Row; safecall;
    procedure Select; safecall;
    procedure Delete; safecall;
    procedure SetLeftIndent(LeftIndent: Single; RulerStyle: WdRulerStyle); safecall;
    procedure SetHeight(RowHeight: Single; HeightRule: WdRowHeightRule); safecall;
    function ConvertToTextOld(var Separator: OleVariant): Range; safecall;
    procedure DistributeHeight; safecall;
    function ConvertToText(var Separator: OleVariant; var NestedTables: OleVariant): Range; safecall;
    function Get_WrapAroundText: Integer; safecall;
    procedure Set_WrapAroundText(prop: Integer); safecall;
    function Get_DistanceTop: Single; safecall;
    procedure Set_DistanceTop(prop: Single); safecall;
    function Get_DistanceBottom: Single; safecall;
    procedure Set_DistanceBottom(prop: Single); safecall;
    function Get_DistanceLeft: Single; safecall;
    procedure Set_DistanceLeft(prop: Single); safecall;
    function Get_DistanceRight: Single; safecall;
    procedure Set_DistanceRight(prop: Single); safecall;
    function Get_HorizontalPosition: Single; safecall;
    procedure Set_HorizontalPosition(prop: Single); safecall;
    function Get_VerticalPosition: Single; safecall;
    procedure Set_VerticalPosition(prop: Single); safecall;
    function Get_RelativeHorizontalPosition: WdRelativeHorizontalPosition; safecall;
    procedure Set_RelativeHorizontalPosition(prop: WdRelativeHorizontalPosition); safecall;
    function Get_RelativeVerticalPosition: WdRelativeVerticalPosition; safecall;
    procedure Set_RelativeVerticalPosition(prop: WdRelativeVerticalPosition); safecall;
    function Get_AllowOverlap: Integer; safecall;
    procedure Set_AllowOverlap(prop: Integer); safecall;
    function Get_NestingLevel: Integer; safecall;
    function Get_TableDirection: WdTableDirection; safecall;
    procedure Set_TableDirection(prop: WdTableDirection); safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property AllowBreakAcrossPages: Integer read Get_AllowBreakAcrossPages write Set_AllowBreakAcrossPages;
    property Alignment: WdRowAlignment read Get_Alignment write Set_Alignment;
    property HeadingFormat: Integer read Get_HeadingFormat write Set_HeadingFormat;
    property SpaceBetweenColumns: Single read Get_SpaceBetweenColumns write Set_SpaceBetweenColumns;
    property Height: Single read Get_Height write Set_Height;
    property HeightRule: WdRowHeightRule read Get_HeightRule write Set_HeightRule;
    property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
    property First: Row read Get_First;
    property Last: Row read Get_Last;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Borders: Borders read Get_Borders write Set_Borders;
    property Shading: Shading read Get_Shading;
    property WrapAroundText: Integer read Get_WrapAroundText write Set_WrapAroundText;
    property DistanceTop: Single read Get_DistanceTop write Set_DistanceTop;
    property DistanceBottom: Single read Get_DistanceBottom write Set_DistanceBottom;
    property DistanceLeft: Single read Get_DistanceLeft write Set_DistanceLeft;
    property DistanceRight: Single read Get_DistanceRight write Set_DistanceRight;
    property HorizontalPosition: Single read Get_HorizontalPosition write Set_HorizontalPosition;
    property VerticalPosition: Single read Get_VerticalPosition write Set_VerticalPosition;
    property RelativeHorizontalPosition: WdRelativeHorizontalPosition read Get_RelativeHorizontalPosition write Set_RelativeHorizontalPosition;
    property RelativeVerticalPosition: WdRelativeVerticalPosition read Get_RelativeVerticalPosition write Set_RelativeVerticalPosition;
    property AllowOverlap: Integer read Get_AllowOverlap write Set_AllowOverlap;
    property NestingLevel: Integer read Get_NestingLevel;
    property TableDirection: WdTableDirection read Get_TableDirection write Set_TableDirection;
  end;

// *********************************************************************//
// DispIntf:  RowsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002094C-0000-0000-C000-000000000046}
// *********************************************************************//
  RowsDisp = dispinterface
    ['{0002094C-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property AllowBreakAcrossPages: Integer dispid 3;
    property Alignment: WdRowAlignment dispid 4;
    property HeadingFormat: Integer dispid 5;
    property SpaceBetweenColumns: Single dispid 6;
    property Height: Single dispid 7;
    property HeightRule: WdRowHeightRule dispid 8;
    property LeftIndent: Single dispid 9;
    property First: Row readonly dispid 10;
    property Last: Row readonly dispid 11;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Borders: Borders dispid 1100;
    property Shading: Shading readonly dispid 102;
    function Item(Index: Integer): Row; dispid 0;
    function Add(var BeforeRow: OleVariant): Row; dispid 100;
    procedure Select; dispid 199;
    procedure Delete; dispid 200;
    procedure SetLeftIndent(LeftIndent: Single; RulerStyle: WdRulerStyle); dispid 202;
    procedure SetHeight(RowHeight: Single; HeightRule: WdRowHeightRule); dispid 203;
    function ConvertToTextOld(var Separator: OleVariant): Range; dispid 16;
    procedure DistributeHeight; dispid 206;
    function ConvertToText(var Separator: OleVariant; var NestedTables: OleVariant): Range; dispid 210;
    property WrapAroundText: Integer dispid 12;
    property DistanceTop: Single dispid 13;
    property DistanceBottom: Single dispid 14;
    property DistanceLeft: Single dispid 20;
    property DistanceRight: Single dispid 21;
    property HorizontalPosition: Single dispid 15;
    property VerticalPosition: Single dispid 17;
    property RelativeHorizontalPosition: WdRelativeHorizontalPosition dispid 18;
    property RelativeVerticalPosition: WdRelativeVerticalPosition dispid 19;
    property AllowOverlap: Integer dispid 22;
    property NestingLevel: Integer readonly dispid 103;
    property TableDirection: WdTableDirection dispid 104;
  end;

// *********************************************************************//
// Interface: Columns
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002094B-0000-0000-C000-000000000046}
// *********************************************************************//
  Columns = interface(IDispatch)
    ['{0002094B-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_First: Column; safecall;
    function Get_Last: Column; safecall;
    function Get_Width: Single; safecall;
    procedure Set_Width(prop: Single); safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_Shading: Shading; safecall;
    function Item(Index: Integer): Column; safecall;
    function Add(var BeforeColumn: OleVariant): Column; safecall;
    procedure Select; safecall;
    procedure Delete; safecall;
    procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); safecall;
    procedure AutoFit; safecall;
    procedure DistributeWidth; safecall;
    function Get_NestingLevel: Integer; safecall;
    function Get_PreferredWidth: Single; safecall;
    procedure Set_PreferredWidth(prop: Single); safecall;
    function Get_PreferredWidthType: WdPreferredWidthType; safecall;
    procedure Set_PreferredWidthType(prop: WdPreferredWidthType); safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property First: Column read Get_First;
    property Last: Column read Get_Last;
    property Width: Single read Get_Width write Set_Width;
    property Borders: Borders read Get_Borders write Set_Borders;
    property Shading: Shading read Get_Shading;
    property NestingLevel: Integer read Get_NestingLevel;
    property PreferredWidth: Single read Get_PreferredWidth write Set_PreferredWidth;
    property PreferredWidthType: WdPreferredWidthType read Get_PreferredWidthType write Set_PreferredWidthType;
  end;

// *********************************************************************//
// DispIntf:  ColumnsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002094B-0000-0000-C000-000000000046}
// *********************************************************************//
  ColumnsDisp = dispinterface
    ['{0002094B-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property First: Column readonly dispid 100;
    property Last: Column readonly dispid 101;
    property Width: Single dispid 3;
    property Borders: Borders dispid 1100;
    property Shading: Shading readonly dispid 103;
    function Item(Index: Integer): Column; dispid 0;
    function Add(var BeforeColumn: OleVariant): Column; dispid 5;
    procedure Select; dispid 199;
    procedure Delete; dispid 200;
    procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); dispid 201;
    procedure AutoFit; dispid 202;
    procedure DistributeWidth; dispid 203;
    property NestingLevel: Integer readonly dispid 104;
    property PreferredWidth: Single dispid 105;
    property PreferredWidthType: WdPreferredWidthType dispid 106;
  end;

// *********************************************************************//
// Interface: Cells
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002094A-0000-0000-C000-000000000046}
// *********************************************************************//
  Cells = interface(IDispatch)
    ['{0002094A-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Width: Single; safecall;
    procedure Set_Width(prop: Single); safecall;
    function Get_Height: Single; safecall;
    procedure Set_Height(prop: Single); safecall;
    function Get_HeightRule: WdRowHeightRule; safecall;
    procedure Set_HeightRule(prop: WdRowHeightRule); safecall;
    function Get_VerticalAlignment: WdCellVerticalAlignment; safecall;
    procedure Set_VerticalAlignment(prop: WdCellVerticalAlignment); safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_Shading: Shading; safecall;
    function Item(Index: Integer): Cell; safecall;
    function Add(var BeforeCell: OleVariant): Cell; safecall;
    procedure Delete(var ShiftCells: OleVariant); safecall;
    procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); safecall;
    procedure SetHeight(var RowHeight: OleVariant; HeightRule: WdRowHeightRule); safecall;
    procedure Merge; safecall;
    procedure Split(var NumRows: OleVariant; var NumColumns: OleVariant; 
                    var MergeBeforeSplit: OleVariant); safecall;
    procedure DistributeHeight; safecall;
    procedure DistributeWidth; safecall;
    procedure AutoFit; safecall;
    function Get_NestingLevel: Integer; safecall;
    function Get_PreferredWidth: Single; safecall;
    procedure Set_PreferredWidth(prop: Single); safecall;
    function Get_PreferredWidthType: WdPreferredWidthType; safecall;
    procedure Set_PreferredWidthType(prop: WdPreferredWidthType); safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Width: Single read Get_Width write Set_Width;
    property Height: Single read Get_Height write Set_Height;
    property HeightRule: WdRowHeightRule read Get_HeightRule write Set_HeightRule;
    property VerticalAlignment: WdCellVerticalAlignment read Get_VerticalAlignment write Set_VerticalAlignment;
    property Borders: Borders read Get_Borders write Set_Borders;
    property Shading: Shading read Get_Shading;
    property NestingLevel: Integer read Get_NestingLevel;
    property PreferredWidth: Single read Get_PreferredWidth write Set_PreferredWidth;
    property PreferredWidthType: WdPreferredWidthType read Get_PreferredWidthType write Set_PreferredWidthType;
  end;

// *********************************************************************//
// DispIntf:  CellsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002094A-0000-0000-C000-000000000046}
// *********************************************************************//
  CellsDisp = dispinterface
    ['{0002094A-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Width: Single dispid 6;
    property Height: Single dispid 7;
    property HeightRule: WdRowHeightRule dispid 8;
    property VerticalAlignment: WdCellVerticalAlignment dispid 1104;
    property Borders: Borders dispid 1100;
    property Shading: Shading readonly dispid 101;
    function Item(Index: Integer): Cell; dispid 0;
    function Add(var BeforeCell: OleVariant): Cell; dispid 4;
    procedure Delete(var ShiftCells: OleVariant); dispid 200;
    procedure SetWidth(ColumnWidth: Single; RulerStyle: WdRulerStyle); dispid 202;
    procedure SetHeight(var RowHeight: OleVariant; HeightRule: WdRowHeightRule); dispid 203;
    procedure Merge; dispid 204;
    procedure Split(var NumRows: OleVariant; var NumColumns: OleVariant; 
                    var MergeBeforeSplit: OleVariant); dispid 205;
    procedure DistributeHeight; dispid 206;
    procedure DistributeWidth; dispid 207;
    procedure AutoFit; dispid 208;
    property NestingLevel: Integer readonly dispid 102;
    property PreferredWidth: Single dispid 103;
    property PreferredWidthType: WdPreferredWidthType dispid 104;
  end;

// *********************************************************************//
// Interface: AutoCorrect
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020949-0000-0000-C000-000000000046}
// *********************************************************************//
  AutoCorrect = interface(IDispatch)
    ['{00020949-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_CorrectDays: WordBool; safecall;
    procedure Set_CorrectDays(prop: WordBool); safecall;
    function Get_CorrectInitialCaps: WordBool; safecall;
    procedure Set_CorrectInitialCaps(prop: WordBool); safecall;
    function Get_CorrectSentenceCaps: WordBool; safecall;
    procedure Set_CorrectSentenceCaps(prop: WordBool); safecall;
    function Get_ReplaceText: WordBool; safecall;
    procedure Set_ReplaceText(prop: WordBool); safecall;
    function Get_Entries: AutoCorrectEntries; safecall;
    function Get_FirstLetterExceptions: FirstLetterExceptions; safecall;
    function Get_FirstLetterAutoAdd: WordBool; safecall;
    procedure Set_FirstLetterAutoAdd(prop: WordBool); safecall;
    function Get_TwoInitialCapsExceptions: TwoInitialCapsExceptions; safecall;
    function Get_TwoInitialCapsAutoAdd: WordBool; safecall;
    procedure Set_TwoInitialCapsAutoAdd(prop: WordBool); safecall;
    function Get_CorrectCapsLock: WordBool; safecall;
    procedure Set_CorrectCapsLock(prop: WordBool); safecall;
    function Get_CorrectHangulAndAlphabet: WordBool; safecall;
    procedure Set_CorrectHangulAndAlphabet(prop: WordBool); safecall;
    function Get_HangulAndAlphabetExceptions: HangulAndAlphabetExceptions; safecall;
    function Get_HangulAndAlphabetAutoAdd: WordBool; safecall;
    procedure Set_HangulAndAlphabetAutoAdd(prop: WordBool); safecall;
    function Get_ReplaceTextFromSpellingChecker: WordBool; safecall;
    procedure Set_ReplaceTextFromSpellingChecker(prop: WordBool); safecall;
    function Get_OtherCorrectionsAutoAdd: WordBool; safecall;
    procedure Set_OtherCorrectionsAutoAdd(prop: WordBool); safecall;
    function Get_OtherCorrectionsExceptions: OtherCorrectionsExceptions; safecall;
    function Get_CorrectKeyboardSetting: WordBool; safecall;
    procedure Set_CorrectKeyboardSetting(prop: WordBool); safecall;
    function Get_CorrectTableCells: WordBool; safecall;
    procedure Set_CorrectTableCells(prop: WordBool); safecall;
    function Get_DisplayAutoCorrectOptions: WordBool; safecall;
    procedure Set_DisplayAutoCorrectOptions(prop: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property CorrectDays: WordBool read Get_CorrectDays write Set_CorrectDays;
    property CorrectInitialCaps: WordBool read Get_CorrectInitialCaps write Set_CorrectInitialCaps;
    property CorrectSentenceCaps: WordBool read Get_CorrectSentenceCaps write Set_CorrectSentenceCaps;
    property ReplaceText: WordBool read Get_ReplaceText write Set_ReplaceText;
    property Entries: AutoCorrectEntries read Get_Entries;
    property FirstLetterExceptions: FirstLetterExceptions read Get_FirstLetterExceptions;
    property FirstLetterAutoAdd: WordBool read Get_FirstLetterAutoAdd write Set_FirstLetterAutoAdd;
    property TwoInitialCapsExceptions: TwoInitialCapsExceptions read Get_TwoInitialCapsExceptions;
    property TwoInitialCapsAutoAdd: WordBool read Get_TwoInitialCapsAutoAdd write Set_TwoInitialCapsAutoAdd;
    property CorrectCapsLock: WordBool read Get_CorrectCapsLock write Set_CorrectCapsLock;
    property CorrectHangulAndAlphabet: WordBool read Get_CorrectHangulAndAlphabet write Set_CorrectHangulAndAlphabet;
    property HangulAndAlphabetExceptions: HangulAndAlphabetExceptions read Get_HangulAndAlphabetExceptions;
    property HangulAndAlphabetAutoAdd: WordBool read Get_HangulAndAlphabetAutoAdd write Set_HangulAndAlphabetAutoAdd;
    property ReplaceTextFromSpellingChecker: WordBool read Get_ReplaceTextFromSpellingChecker write Set_ReplaceTextFromSpellingChecker;
    property OtherCorrectionsAutoAdd: WordBool read Get_OtherCorrectionsAutoAdd write Set_OtherCorrectionsAutoAdd;
    property OtherCorrectionsExceptions: OtherCorrectionsExceptions read Get_OtherCorrectionsExceptions;
    property CorrectKeyboardSetting: WordBool read Get_CorrectKeyboardSetting write Set_CorrectKeyboardSetting;
    property CorrectTableCells: WordBool read Get_CorrectTableCells write Set_CorrectTableCells;
    property DisplayAutoCorrectOptions: WordBool read Get_DisplayAutoCorrectOptions write Set_DisplayAutoCorrectOptions;
  end;

// *********************************************************************//
// DispIntf:  AutoCorrectDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020949-0000-0000-C000-000000000046}
// *********************************************************************//
  AutoCorrectDisp = dispinterface
    ['{00020949-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property CorrectDays: WordBool dispid 1;
    property CorrectInitialCaps: WordBool dispid 2;
    property CorrectSentenceCaps: WordBool dispid 3;
    property ReplaceText: WordBool dispid 4;
    property Entries: AutoCorrectEntries readonly dispid 6;
    property FirstLetterExceptions: FirstLetterExceptions readonly dispid 7;
    property FirstLetterAutoAdd: WordBool dispid 8;
    property TwoInitialCapsExceptions: TwoInitialCapsExceptions readonly dispid 9;
    property TwoInitialCapsAutoAdd: WordBool dispid 10;
    property CorrectCapsLock: WordBool dispid 11;
    property CorrectHangulAndAlphabet: WordBool dispid 12;
    property HangulAndAlphabetExceptions: HangulAndAlphabetExceptions readonly dispid 13;
    property HangulAndAlphabetAutoAdd: WordBool dispid 14;
    property ReplaceTextFromSpellingChecker: WordBool dispid 15;
    property OtherCorrectionsAutoAdd: WordBool dispid 16;
    property OtherCorrectionsExceptions: OtherCorrectionsExceptions readonly dispid 17;
    property CorrectKeyboardSetting: WordBool dispid 18;
    property CorrectTableCells: WordBool dispid 19;
    property DisplayAutoCorrectOptions: WordBool dispid 20;
  end;

// *********************************************************************//
// Interface: AutoCorrectEntries
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020948-0000-0000-C000-000000000046}
// *********************************************************************//
  AutoCorrectEntries = interface(IDispatch)
    ['{00020948-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): AutoCorrectEntry; safecall;
    function Add(const Name: WideString; const Value: WideString): AutoCorrectEntry; safecall;
    function AddRichText(const Name: WideString; const Range: Range): AutoCorrectEntry; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  AutoCorrectEntriesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020948-0000-0000-C000-000000000046}
// *********************************************************************//
  AutoCorrectEntriesDisp = dispinterface
    ['{00020948-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): AutoCorrectEntry; dispid 0;
    function Add(const Name: WideString; const Value: WideString): AutoCorrectEntry; dispid 101;
    function AddRichText(const Name: WideString; const Range: Range): AutoCorrectEntry; dispid 102;
  end;

// *********************************************************************//
// Interface: AutoCorrectEntry
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020947-0000-0000-C000-000000000046}
// *********************************************************************//
  AutoCorrectEntry = interface(IDispatch)
    ['{00020947-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Index: Integer; safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const prop: WideString); safecall;
    function Get_Value: WideString; safecall;
    procedure Set_Value(const prop: WideString); safecall;
    function Get_RichText: WordBool; safecall;
    procedure Delete; safecall;
    procedure Apply(const Range: Range); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Index: Integer read Get_Index;
    property Name: WideString read Get_Name write Set_Name;
    property Value: WideString read Get_Value write Set_Value;
    property RichText: WordBool read Get_RichText;
  end;

// *********************************************************************//
// DispIntf:  AutoCorrectEntryDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020947-0000-0000-C000-000000000046}
// *********************************************************************//
  AutoCorrectEntryDisp = dispinterface
    ['{00020947-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Index: Integer readonly dispid 1;
    property Name: WideString dispid 2;
    property Value: WideString dispid 3;
    property RichText: WordBool readonly dispid 4;
    procedure Delete; dispid 101;
    procedure Apply(const Range: Range); dispid 102;
  end;

// *********************************************************************//
// Interface: FirstLetterExceptions
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020946-0000-0000-C000-000000000046}
// *********************************************************************//
  FirstLetterExceptions = interface(IDispatch)
    ['{00020946-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): FirstLetterException; safecall;
    function Add(const Name: WideString): FirstLetterException; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  FirstLetterExceptionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020946-0000-0000-C000-000000000046}
// *********************************************************************//
  FirstLetterExceptionsDisp = dispinterface
    ['{00020946-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): FirstLetterException; dispid 0;
    function Add(const Name: WideString): FirstLetterException; dispid 101;
  end;

// *********************************************************************//
// Interface: FirstLetterException
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020945-0000-0000-C000-000000000046}
// *********************************************************************//
  FirstLetterException = interface(IDispatch)
    ['{00020945-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Index: Integer; safecall;
    function Get_Name: WideString; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Index: Integer read Get_Index;
    property Name: WideString read Get_Name;
  end;

// *********************************************************************//
// DispIntf:  FirstLetterExceptionDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020945-0000-0000-C000-000000000046}
// *********************************************************************//
  FirstLetterExceptionDisp = dispinterface
    ['{00020945-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Index: Integer readonly dispid 1;
    property Name: WideString readonly dispid 2;
    procedure Delete; dispid 101;
  end;

// *********************************************************************//
// Interface: TwoInitialCapsExceptions
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020944-0000-0000-C000-000000000046}
// *********************************************************************//
  TwoInitialCapsExceptions = interface(IDispatch)
    ['{00020944-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): TwoInitialCapsException; safecall;
    function Add(const Name: WideString): TwoInitialCapsException; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  TwoInitialCapsExceptionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020944-0000-0000-C000-000000000046}
// *********************************************************************//
  TwoInitialCapsExceptionsDisp = dispinterface
    ['{00020944-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): TwoInitialCapsException; dispid 0;
    function Add(const Name: WideString): TwoInitialCapsException; dispid 101;
  end;

// *********************************************************************//
// Interface: TwoInitialCapsException
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020943-0000-0000-C000-000000000046}
// *********************************************************************//
  TwoInitialCapsException = interface(IDispatch)
    ['{00020943-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Index: Integer; safecall;
    function Get_Name: WideString; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Index: Integer read Get_Index;
    property Name: WideString read Get_Name;
  end;

// *********************************************************************//
// DispIntf:  TwoInitialCapsExceptionDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020943-0000-0000-C000-000000000046}
// *********************************************************************//
  TwoInitialCapsExceptionDisp = dispinterface
    ['{00020943-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Index: Integer readonly dispid 1;
    property Name: WideString readonly dispid 2;
    procedure Delete; dispid 101;
  end;

// *********************************************************************//
// Interface: Footnotes
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020942-0000-0000-C000-000000000046}
// *********************************************************************//
  Footnotes = interface(IDispatch)
    ['{00020942-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Location: WdFootnoteLocation; safecall;
    procedure Set_Location(prop: WdFootnoteLocation); safecall;
    function Get_NumberStyle: WdNoteNumberStyle; safecall;
    procedure Set_NumberStyle(prop: WdNoteNumberStyle); safecall;
    function Get_StartingNumber: Integer; safecall;
    procedure Set_StartingNumber(prop: Integer); safecall;
    function Get_NumberingRule: WdNumberingRule; safecall;
    procedure Set_NumberingRule(prop: WdNumberingRule); safecall;
    function Get_Separator: Range; safecall;
    function Get_ContinuationSeparator: Range; safecall;
    function Get_ContinuationNotice: Range; safecall;
    function Item(Index: Integer): Footnote; safecall;
    function Add(const Range: Range; var Reference: OleVariant; var Text: OleVariant): Footnote; safecall;
    procedure Convert; safecall;
    procedure SwapWithEndnotes; safecall;
    procedure ResetSeparator; safecall;
    procedure ResetContinuationSeparator; safecall;
    procedure ResetContinuationNotice; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Location: WdFootnoteLocation read Get_Location write Set_Location;
    property NumberStyle: WdNoteNumberStyle read Get_NumberStyle write Set_NumberStyle;
    property StartingNumber: Integer read Get_StartingNumber write Set_StartingNumber;
    property NumberingRule: WdNumberingRule read Get_NumberingRule write Set_NumberingRule;
    property Separator: Range read Get_Separator;
    property ContinuationSeparator: Range read Get_ContinuationSeparator;
    property ContinuationNotice: Range read Get_ContinuationNotice;
  end;

// *********************************************************************//
// DispIntf:  FootnotesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020942-0000-0000-C000-000000000046}
// *********************************************************************//
  FootnotesDisp = dispinterface
    ['{00020942-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Location: WdFootnoteLocation dispid 100;
    property NumberStyle: WdNoteNumberStyle dispid 101;
    property StartingNumber: Integer dispid 102;
    property NumberingRule: WdNumberingRule dispid 103;
    property Separator: Range readonly dispid 104;
    property ContinuationSeparator: Range readonly dispid 105;
    property ContinuationNotice: Range readonly dispid 106;
    function Item(Index: Integer): Footnote; dispid 0;
    function Add(const Range: Range; var Reference: OleVariant; var Text: OleVariant): Footnote; dispid 4;
    procedure Convert; dispid 5;
    procedure SwapWithEndnotes; dispid 6;
    procedure ResetSeparator; dispid 7;
    procedure ResetContinuationSeparator; dispid 8;
    procedure ResetContinuationNotice; dispid 9;
  end;

// *********************************************************************//
// Interface: Endnotes
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020941-0000-0000-C000-000000000046}
// *********************************************************************//
  Endnotes = interface(IDispatch)
    ['{00020941-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Location: WdEndnoteLocation; safecall;
    procedure Set_Location(prop: WdEndnoteLocation); safecall;
    function Get_NumberStyle: WdNoteNumberStyle; safecall;
    procedure Set_NumberStyle(prop: WdNoteNumberStyle); safecall;
    function Get_StartingNumber: Integer; safecall;
    procedure Set_StartingNumber(prop: Integer); safecall;
    function Get_NumberingRule: WdNumberingRule; safecall;
    procedure Set_NumberingRule(prop: WdNumberingRule); safecall;
    function Get_Separator: Range; safecall;
    function Get_ContinuationSeparator: Range; safecall;
    function Get_ContinuationNotice: Range; safecall;
    function Item(Index: Integer): Endnote; safecall;
    function Add(const Range: Range; var Reference: OleVariant; var Text: OleVariant): Endnote; safecall;
    procedure Convert; safecall;
    procedure SwapWithFootnotes; safecall;
    procedure ResetSeparator; safecall;
    procedure ResetContinuationSeparator; safecall;
    procedure ResetContinuationNotice; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Location: WdEndnoteLocation read Get_Location write Set_Location;
    property NumberStyle: WdNoteNumberStyle read Get_NumberStyle write Set_NumberStyle;
    property StartingNumber: Integer read Get_StartingNumber write Set_StartingNumber;
    property NumberingRule: WdNumberingRule read Get_NumberingRule write Set_NumberingRule;
    property Separator: Range read Get_Separator;
    property ContinuationSeparator: Range read Get_ContinuationSeparator;
    property ContinuationNotice: Range read Get_ContinuationNotice;
  end;

// *********************************************************************//
// DispIntf:  EndnotesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020941-0000-0000-C000-000000000046}
// *********************************************************************//
  EndnotesDisp = dispinterface
    ['{00020941-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Location: WdEndnoteLocation dispid 100;
    property NumberStyle: WdNoteNumberStyle dispid 101;
    property StartingNumber: Integer dispid 102;
    property NumberingRule: WdNumberingRule dispid 103;
    property Separator: Range readonly dispid 104;
    property ContinuationSeparator: Range readonly dispid 105;
    property ContinuationNotice: Range readonly dispid 106;
    function Item(Index: Integer): Endnote; dispid 0;
    function Add(const Range: Range; var Reference: OleVariant; var Text: OleVariant): Endnote; dispid 4;
    procedure Convert; dispid 5;
    procedure SwapWithFootnotes; dispid 6;
    procedure ResetSeparator; dispid 7;
    procedure ResetContinuationSeparator; dispid 8;
    procedure ResetContinuationNotice; dispid 9;
  end;

// *********************************************************************//
// Interface: Comments
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020940-0000-0000-C000-000000000046}
// *********************************************************************//
  Comments = interface(IDispatch)
    ['{00020940-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_ShowBy: WideString; safecall;
    procedure Set_ShowBy(const prop: WideString); safecall;
    function Item(Index: Integer): Comment; safecall;
    function Add(const Range: Range; var Text: OleVariant): Comment; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property ShowBy: WideString read Get_ShowBy write Set_ShowBy;
  end;

// *********************************************************************//
// DispIntf:  CommentsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020940-0000-0000-C000-000000000046}
// *********************************************************************//
  CommentsDisp = dispinterface
    ['{00020940-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property ShowBy: WideString dispid 1003;
    function Item(Index: Integer): Comment; dispid 0;
    function Add(const Range: Range; var Text: OleVariant): Comment; dispid 4;
  end;

// *********************************************************************//
// Interface: Footnote
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002093F-0000-0000-C000-000000000046}
// *********************************************************************//
  Footnote = interface(IDispatch)
    ['{0002093F-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Range: Range; safecall;
    function Get_Reference: Range; safecall;
    function Get_Index: Integer; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Range: Range read Get_Range;
    property Reference: Range read Get_Reference;
    property Index: Integer read Get_Index;
  end;

// *********************************************************************//
// DispIntf:  FootnoteDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002093F-0000-0000-C000-000000000046}
// *********************************************************************//
  FootnoteDisp = dispinterface
    ['{0002093F-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Range: Range readonly dispid 4;
    property Reference: Range readonly dispid 5;
    property Index: Integer readonly dispid 6;
    procedure Delete; dispid 10;
  end;

// *********************************************************************//
// Interface: Endnote
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002093E-0000-0000-C000-000000000046}
// *********************************************************************//
  Endnote = interface(IDispatch)
    ['{0002093E-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Range: Range; safecall;
    function Get_Reference: Range; safecall;
    function Get_Index: Integer; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Range: Range read Get_Range;
    property Reference: Range read Get_Reference;
    property Index: Integer read Get_Index;
  end;

// *********************************************************************//
// DispIntf:  EndnoteDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002093E-0000-0000-C000-000000000046}
// *********************************************************************//
  EndnoteDisp = dispinterface
    ['{0002093E-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Range: Range readonly dispid 4;
    property Reference: Range readonly dispid 5;
    property Index: Integer readonly dispid 6;
    procedure Delete; dispid 10;
  end;

// *********************************************************************//
// Interface: Comment
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002093D-0000-0000-C000-000000000046}
// *********************************************************************//
  Comment = interface(IDispatch)
    ['{0002093D-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Range: Range; safecall;
    function Get_Reference: Range; safecall;
    function Get_Scope: Range; safecall;
    function Get_Index: Integer; safecall;
    function Get_Author: WideString; safecall;
    procedure Set_Author(const prop: WideString); safecall;
    function Get_Initial: WideString; safecall;
    procedure Set_Initial(const prop: WideString); safecall;
    function Get_ShowTip: WordBool; safecall;
    procedure Set_ShowTip(prop: WordBool); safecall;
    procedure Delete; safecall;
    procedure Edit; safecall;
    function Get_Date: TDateTime; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Range: Range read Get_Range;
    property Reference: Range read Get_Reference;
    property Scope: Range read Get_Scope;
    property Index: Integer read Get_Index;
    property Author: WideString read Get_Author write Set_Author;
    property Initial: WideString read Get_Initial write Set_Initial;
    property ShowTip: WordBool read Get_ShowTip write Set_ShowTip;
    property Date: TDateTime read Get_Date;
  end;

// *********************************************************************//
// DispIntf:  CommentDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002093D-0000-0000-C000-000000000046}
// *********************************************************************//
  CommentDisp = dispinterface
    ['{0002093D-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Range: Range readonly dispid 1003;
    property Reference: Range readonly dispid 1004;
    property Scope: Range readonly dispid 1005;
    property Index: Integer readonly dispid 1006;
    property Author: WideString dispid 1007;
    property Initial: WideString dispid 1008;
    property ShowTip: WordBool dispid 1009;
    procedure Delete; dispid 10;
    procedure Edit; dispid 1011;
    property Date: TDateTime readonly dispid 1010;
  end;

// *********************************************************************//
// Interface: Borders
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002093C-0000-0000-C000-000000000046}
// *********************************************************************//
  Borders = interface(IDispatch)
    ['{0002093C-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Enable: Integer; safecall;
    procedure Set_Enable(prop: Integer); safecall;
    function Get_DistanceFromTop: Integer; safecall;
    procedure Set_DistanceFromTop(prop: Integer); safecall;
    function Get_Shadow: WordBool; safecall;
    procedure Set_Shadow(prop: WordBool); safecall;
    function Get_InsideLineStyle: WdLineStyle; safecall;
    procedure Set_InsideLineStyle(prop: WdLineStyle); safecall;
    function Get_OutsideLineStyle: WdLineStyle; safecall;
    procedure Set_OutsideLineStyle(prop: WdLineStyle); safecall;
    function Get_InsideLineWidth: WdLineWidth; safecall;
    procedure Set_InsideLineWidth(prop: WdLineWidth); safecall;
    function Get_OutsideLineWidth: WdLineWidth; safecall;
    procedure Set_OutsideLineWidth(prop: WdLineWidth); safecall;
    function Get_InsideColorIndex: WdColorIndex; safecall;
    procedure Set_InsideColorIndex(prop: WdColorIndex); safecall;
    function Get_OutsideColorIndex: WdColorIndex; safecall;
    procedure Set_OutsideColorIndex(prop: WdColorIndex); safecall;
    function Get_DistanceFromLeft: Integer; safecall;
    procedure Set_DistanceFromLeft(prop: Integer); safecall;
    function Get_DistanceFromBottom: Integer; safecall;
    procedure Set_DistanceFromBottom(prop: Integer); safecall;
    function Get_DistanceFromRight: Integer; safecall;
    procedure Set_DistanceFromRight(prop: Integer); safecall;
    function Get_AlwaysInFront: WordBool; safecall;
    procedure Set_AlwaysInFront(prop: WordBool); safecall;
    function Get_SurroundHeader: WordBool; safecall;
    procedure Set_SurroundHeader(prop: WordBool); safecall;
    function Get_SurroundFooter: WordBool; safecall;
    procedure Set_SurroundFooter(prop: WordBool); safecall;
    function Get_JoinBorders: WordBool; safecall;
    procedure Set_JoinBorders(prop: WordBool); safecall;
    function Get_HasHorizontal: WordBool; safecall;
    function Get_HasVertical: WordBool; safecall;
    function Get_DistanceFrom: WdBorderDistanceFrom; safecall;
    procedure Set_DistanceFrom(prop: WdBorderDistanceFrom); safecall;
    function Get_EnableFirstPageInSection: WordBool; safecall;
    procedure Set_EnableFirstPageInSection(prop: WordBool); safecall;
    function Get_EnableOtherPagesInSection: WordBool; safecall;
    procedure Set_EnableOtherPagesInSection(prop: WordBool); safecall;
    function Item(Index: WdBorderType): Border; safecall;
    procedure ApplyPageBordersToAllSections; safecall;
    function Get_InsideColor: WdColor; safecall;
    procedure Set_InsideColor(prop: WdColor); safecall;
    function Get_OutsideColor: WdColor; safecall;
    procedure Set_OutsideColor(prop: WdColor); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Enable: Integer read Get_Enable write Set_Enable;
    property DistanceFromTop: Integer read Get_DistanceFromTop write Set_DistanceFromTop;
    property Shadow: WordBool read Get_Shadow write Set_Shadow;
    property InsideLineStyle: WdLineStyle read Get_InsideLineStyle write Set_InsideLineStyle;
    property OutsideLineStyle: WdLineStyle read Get_OutsideLineStyle write Set_OutsideLineStyle;
    property InsideLineWidth: WdLineWidth read Get_InsideLineWidth write Set_InsideLineWidth;
    property OutsideLineWidth: WdLineWidth read Get_OutsideLineWidth write Set_OutsideLineWidth;
    property InsideColorIndex: WdColorIndex read Get_InsideColorIndex write Set_InsideColorIndex;
    property OutsideColorIndex: WdColorIndex read Get_OutsideColorIndex write Set_OutsideColorIndex;
    property DistanceFromLeft: Integer read Get_DistanceFromLeft write Set_DistanceFromLeft;
    property DistanceFromBottom: Integer read Get_DistanceFromBottom write Set_DistanceFromBottom;
    property DistanceFromRight: Integer read Get_DistanceFromRight write Set_DistanceFromRight;
    property AlwaysInFront: WordBool read Get_AlwaysInFront write Set_AlwaysInFront;
    property SurroundHeader: WordBool read Get_SurroundHeader write Set_SurroundHeader;
    property SurroundFooter: WordBool read Get_SurroundFooter write Set_SurroundFooter;
    property JoinBorders: WordBool read Get_JoinBorders write Set_JoinBorders;
    property HasHorizontal: WordBool read Get_HasHorizontal;
    property HasVertical: WordBool read Get_HasVertical;
    property DistanceFrom: WdBorderDistanceFrom read Get_DistanceFrom write Set_DistanceFrom;
    property EnableFirstPageInSection: WordBool read Get_EnableFirstPageInSection write Set_EnableFirstPageInSection;
    property EnableOtherPagesInSection: WordBool read Get_EnableOtherPagesInSection write Set_EnableOtherPagesInSection;
    property InsideColor: WdColor read Get_InsideColor write Set_InsideColor;
    property OutsideColor: WdColor read Get_OutsideColor write Set_OutsideColor;
  end;

// *********************************************************************//
// DispIntf:  BordersDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002093C-0000-0000-C000-000000000046}
// *********************************************************************//
  BordersDisp = dispinterface
    ['{0002093C-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    property Enable: Integer dispid 2;
    property DistanceFromTop: Integer dispid 4;
    property Shadow: WordBool dispid 5;
    property InsideLineStyle: WdLineStyle dispid 6;
    property OutsideLineStyle: WdLineStyle dispid 7;
    property InsideLineWidth: WdLineWidth dispid 8;
    property OutsideLineWidth: WdLineWidth dispid 9;
    property InsideColorIndex: WdColorIndex dispid 10;
    property OutsideColorIndex: WdColorIndex dispid 11;
    property DistanceFromLeft: Integer dispid 20;
    property DistanceFromBottom: Integer dispid 21;
    property DistanceFromRight: Integer dispid 22;
    property AlwaysInFront: WordBool dispid 23;
    property SurroundHeader: WordBool dispid 24;
    property SurroundFooter: WordBool dispid 25;
    property JoinBorders: WordBool dispid 26;
    property HasHorizontal: WordBool readonly dispid 27;
    property HasVertical: WordBool readonly dispid 28;
    property DistanceFrom: WdBorderDistanceFrom dispid 29;
    property EnableFirstPageInSection: WordBool dispid 30;
    property EnableOtherPagesInSection: WordBool dispid 31;
    function Item(Index: WdBorderType): Border; dispid 0;
    procedure ApplyPageBordersToAllSections; dispid 2000;
    property InsideColor: WdColor dispid 32;
    property OutsideColor: WdColor dispid 33;
  end;

// *********************************************************************//
// Interface: Border
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002093B-0000-0000-C000-000000000046}
// *********************************************************************//
  Border = interface(IDispatch)
    ['{0002093B-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Visible(prop: WordBool); safecall;
    function Get_ColorIndex: WdColorIndex; safecall;
    procedure Set_ColorIndex(prop: WdColorIndex); safecall;
    function Get_Inside: WordBool; safecall;
    function Get_LineStyle: WdLineStyle; safecall;
    procedure Set_LineStyle(prop: WdLineStyle); safecall;
    function Get_LineWidth: WdLineWidth; safecall;
    procedure Set_LineWidth(prop: WdLineWidth); safecall;
    function Get_ArtStyle: WdPageBorderArt; safecall;
    procedure Set_ArtStyle(prop: WdPageBorderArt); safecall;
    function Get_ArtWidth: Integer; safecall;
    procedure Set_ArtWidth(prop: Integer); safecall;
    function Get_Color: WdColor; safecall;
    procedure Set_Color(prop: WdColor); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Visible: WordBool read Get_Visible write Set_Visible;
    property ColorIndex: WdColorIndex read Get_ColorIndex write Set_ColorIndex;
    property Inside: WordBool read Get_Inside;
    property LineStyle: WdLineStyle read Get_LineStyle write Set_LineStyle;
    property LineWidth: WdLineWidth read Get_LineWidth write Set_LineWidth;
    property ArtStyle: WdPageBorderArt read Get_ArtStyle write Set_ArtStyle;
    property ArtWidth: Integer read Get_ArtWidth write Set_ArtWidth;
    property Color: WdColor read Get_Color write Set_Color;
  end;

// *********************************************************************//
// DispIntf:  BorderDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002093B-0000-0000-C000-000000000046}
// *********************************************************************//
  BorderDisp = dispinterface
    ['{0002093B-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Visible: WordBool dispid 0;
    property ColorIndex: WdColorIndex dispid 1;
    property Inside: WordBool readonly dispid 2;
    property LineStyle: WdLineStyle dispid 3;
    property LineWidth: WdLineWidth dispid 4;
    property ArtStyle: WdPageBorderArt dispid 5;
    property ArtWidth: Integer dispid 6;
    property Color: WdColor dispid 7;
  end;

// *********************************************************************//
// Interface: Shading
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002093A-0000-0000-C000-000000000046}
// *********************************************************************//
  Shading = interface(IDispatch)
    ['{0002093A-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_ForegroundPatternColorIndex: WdColorIndex; safecall;
    procedure Set_ForegroundPatternColorIndex(prop: WdColorIndex); safecall;
    function Get_BackgroundPatternColorIndex: WdColorIndex; safecall;
    procedure Set_BackgroundPatternColorIndex(prop: WdColorIndex); safecall;
    function Get_Texture: WdTextureIndex; safecall;
    procedure Set_Texture(prop: WdTextureIndex); safecall;
    function Get_ForegroundPatternColor: WdColor; safecall;
    procedure Set_ForegroundPatternColor(prop: WdColor); safecall;
    function Get_BackgroundPatternColor: WdColor; safecall;
    procedure Set_BackgroundPatternColor(prop: WdColor); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property ForegroundPatternColorIndex: WdColorIndex read Get_ForegroundPatternColorIndex write Set_ForegroundPatternColorIndex;
    property BackgroundPatternColorIndex: WdColorIndex read Get_BackgroundPatternColorIndex write Set_BackgroundPatternColorIndex;
    property Texture: WdTextureIndex read Get_Texture write Set_Texture;
    property ForegroundPatternColor: WdColor read Get_ForegroundPatternColor write Set_ForegroundPatternColor;
    property BackgroundPatternColor: WdColor read Get_BackgroundPatternColor write Set_BackgroundPatternColor;
  end;

// *********************************************************************//
// DispIntf:  ShadingDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002093A-0000-0000-C000-000000000046}
// *********************************************************************//
  ShadingDisp = dispinterface
    ['{0002093A-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property ForegroundPatternColorIndex: WdColorIndex dispid 1;
    property BackgroundPatternColorIndex: WdColorIndex dispid 2;
    property Texture: WdTextureIndex dispid 3;
    property ForegroundPatternColor: WdColor dispid 4;
    property BackgroundPatternColor: WdColor dispid 5;
  end;

// *********************************************************************//
// Interface: TextRetrievalMode
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020939-0000-0000-C000-000000000046}
// *********************************************************************//
  TextRetrievalMode = interface(IDispatch)
    ['{00020939-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_ViewType: WdViewType; safecall;
    procedure Set_ViewType(prop: WdViewType); safecall;
    function Get_Duplicate: TextRetrievalMode; safecall;
    function Get_IncludeHiddenText: WordBool; safecall;
    procedure Set_IncludeHiddenText(prop: WordBool); safecall;
    function Get_IncludeFieldCodes: WordBool; safecall;
    procedure Set_IncludeFieldCodes(prop: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property ViewType: WdViewType read Get_ViewType write Set_ViewType;
    property Duplicate: TextRetrievalMode read Get_Duplicate;
    property IncludeHiddenText: WordBool read Get_IncludeHiddenText write Set_IncludeHiddenText;
    property IncludeFieldCodes: WordBool read Get_IncludeFieldCodes write Set_IncludeFieldCodes;
  end;

// *********************************************************************//
// DispIntf:  TextRetrievalModeDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020939-0000-0000-C000-000000000046}
// *********************************************************************//
  TextRetrievalModeDisp = dispinterface
    ['{00020939-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property ViewType: WdViewType dispid 0;
    property Duplicate: TextRetrievalMode readonly dispid 1;
    property IncludeHiddenText: WordBool dispid 2;
    property IncludeFieldCodes: WordBool dispid 3;
  end;

// *********************************************************************//
// Interface: AutoTextEntries
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020937-0000-0000-C000-000000000046}
// *********************************************************************//
  AutoTextEntries = interface(IDispatch)
    ['{00020937-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): AutoTextEntry; safecall;
    function Add(const Name: WideString; const Range: Range): AutoTextEntry; safecall;
    function AppendToSpike(const Range: Range): AutoTextEntry; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  AutoTextEntriesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020937-0000-0000-C000-000000000046}
// *********************************************************************//
  AutoTextEntriesDisp = dispinterface
    ['{00020937-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): AutoTextEntry; dispid 0;
    function Add(const Name: WideString; const Range: Range): AutoTextEntry; dispid 101;
    function AppendToSpike(const Range: Range): AutoTextEntry; dispid 102;
  end;

// *********************************************************************//
// Interface: AutoTextEntry
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020936-0000-0000-C000-000000000046}
// *********************************************************************//
  AutoTextEntry = interface(IDispatch)
    ['{00020936-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Index: Integer; safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const prop: WideString); safecall;
    function Get_StyleName: WideString; safecall;
    function Get_Value: WideString; safecall;
    procedure Set_Value(const prop: WideString); safecall;
    procedure Delete; safecall;
    function Insert(const Where: Range; var RichText: OleVariant): Range; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Index: Integer read Get_Index;
    property Name: WideString read Get_Name write Set_Name;
    property StyleName: WideString read Get_StyleName;
    property Value: WideString read Get_Value write Set_Value;
  end;

// *********************************************************************//
// DispIntf:  AutoTextEntryDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020936-0000-0000-C000-000000000046}
// *********************************************************************//
  AutoTextEntryDisp = dispinterface
    ['{00020936-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Index: Integer readonly dispid 1;
    property Name: WideString dispid 2;
    property StyleName: WideString readonly dispid 3;
    property Value: WideString dispid 0;
    procedure Delete; dispid 101;
    function Insert(const Where: Range; var RichText: OleVariant): Range; dispid 102;
  end;

// *********************************************************************//
// Interface: System
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020935-0000-0000-C000-000000000046}
// *********************************************************************//
  System = interface(IDispatch)
    ['{00020935-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_OperatingSystem: WideString; safecall;
    function Get_ProcessorType: WideString; safecall;
    function Get_Version: WideString; safecall;
    function Get_FreeDiskSpace: Integer; safecall;
    function Get_Country: WdCountry; safecall;
    function Get_LanguageDesignation: WideString; safecall;
    function Get_HorizontalResolution: Integer; safecall;
    function Get_VerticalResolution: Integer; safecall;
    function Get_ProfileString(const Section: WideString; const Key: WideString): WideString; safecall;
    procedure Set_ProfileString(const Section: WideString; const Key: WideString; 
                                const prop: WideString); safecall;
    function Get_PrivateProfileString(const FileName: WideString; const Section: WideString; 
                                      const Key: WideString): WideString; safecall;
    procedure Set_PrivateProfileString(const FileName: WideString; const Section: WideString; 
                                       const Key: WideString; const prop: WideString); safecall;
    function Get_MathCoprocessorInstalled: WordBool; safecall;
    function Get_ComputerType: WideString; safecall;
    function Get_MacintoshName: WideString; safecall;
    function Get_QuickDrawInstalled: WordBool; safecall;
    function Get_Cursor: WdCursorType; safecall;
    procedure Set_Cursor(prop: WdCursorType); safecall;
    procedure MSInfo; safecall;
    procedure Connect(const Path: WideString; var Drive: OleVariant; var Password: OleVariant); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property OperatingSystem: WideString read Get_OperatingSystem;
    property ProcessorType: WideString read Get_ProcessorType;
    property Version: WideString read Get_Version;
    property FreeDiskSpace: Integer read Get_FreeDiskSpace;
    property Country: WdCountry read Get_Country;
    property LanguageDesignation: WideString read Get_LanguageDesignation;
    property HorizontalResolution: Integer read Get_HorizontalResolution;
    property VerticalResolution: Integer read Get_VerticalResolution;
    property ProfileString[const Section: WideString; const Key: WideString]: WideString read Get_ProfileString write Set_ProfileString;
    property PrivateProfileString[const FileName: WideString; const Section: WideString; 
                                  const Key: WideString]: WideString read Get_PrivateProfileString write Set_PrivateProfileString;
    property MathCoprocessorInstalled: WordBool read Get_MathCoprocessorInstalled;
    property ComputerType: WideString read Get_ComputerType;
    property MacintoshName: WideString read Get_MacintoshName;
    property QuickDrawInstalled: WordBool read Get_QuickDrawInstalled;
    property Cursor: WdCursorType read Get_Cursor write Set_Cursor;
  end;

// *********************************************************************//
// DispIntf:  SystemDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020935-0000-0000-C000-000000000046}
// *********************************************************************//
  SystemDisp = dispinterface
    ['{00020935-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property OperatingSystem: WideString readonly dispid 1;
    property ProcessorType: WideString readonly dispid 2;
    property Version: WideString readonly dispid 3;
    property FreeDiskSpace: Integer readonly dispid 4;
    property Country: WdCountry readonly dispid 5;
    property LanguageDesignation: WideString readonly dispid 6;
    property HorizontalResolution: Integer readonly dispid 7;
    property VerticalResolution: Integer readonly dispid 8;
    property ProfileString[const Section: WideString; const Key: WideString]: WideString dispid 9;
    property PrivateProfileString[const FileName: WideString; const Section: WideString; 
                                  const Key: WideString]: WideString dispid 10;
    property MathCoprocessorInstalled: WordBool readonly dispid 11;
    property ComputerType: WideString readonly dispid 12;
    property MacintoshName: WideString readonly dispid 14;
    property QuickDrawInstalled: WordBool readonly dispid 15;
    property Cursor: WdCursorType dispid 16;
    procedure MSInfo; dispid 101;
    procedure Connect(const Path: WideString; var Drive: OleVariant; var Password: OleVariant); dispid 102;
  end;

// *********************************************************************//
// Interface: OLEFormat
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020933-0000-0000-C000-000000000046}
// *********************************************************************//
  OLEFormat = interface(IDispatch)
    ['{00020933-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_ClassType: WideString; safecall;
    procedure Set_ClassType(const prop: WideString); safecall;
    function Get_DisplayAsIcon: WordBool; safecall;
    procedure Set_DisplayAsIcon(prop: WordBool); safecall;
    function Get_IconName: WideString; safecall;
    procedure Set_IconName(const prop: WideString); safecall;
    function Get_IconPath: WideString; safecall;
    function Get_IconIndex: Integer; safecall;
    procedure Set_IconIndex(prop: Integer); safecall;
    function Get_IconLabel: WideString; safecall;
    procedure Set_IconLabel(const prop: WideString); safecall;
    function Get_Label_: WideString; safecall;
    function Get_Object_: IDispatch; safecall;
    function Get_ProgID: WideString; safecall;
    procedure Activate; safecall;
    procedure Edit; safecall;
    procedure Open; safecall;
    procedure DoVerb(var VerbIndex: OleVariant); safecall;
    procedure ConvertTo(var ClassType: OleVariant; var DisplayAsIcon: OleVariant; 
                        var IconFileName: OleVariant; var IconIndex: OleVariant; 
                        var IconLabel: OleVariant); safecall;
    procedure ActivateAs(const ClassType: WideString); safecall;
    function Get_PreserveFormattingOnUpdate: WordBool; safecall;
    procedure Set_PreserveFormattingOnUpdate(prop: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property ClassType: WideString read Get_ClassType write Set_ClassType;
    property DisplayAsIcon: WordBool read Get_DisplayAsIcon write Set_DisplayAsIcon;
    property IconName: WideString read Get_IconName write Set_IconName;
    property IconPath: WideString read Get_IconPath;
    property IconIndex: Integer read Get_IconIndex write Set_IconIndex;
    property IconLabel: WideString read Get_IconLabel write Set_IconLabel;
    property Label_: WideString read Get_Label_;
    property Object_: IDispatch read Get_Object_;
    property ProgID: WideString read Get_ProgID;
    property PreserveFormattingOnUpdate: WordBool read Get_PreserveFormattingOnUpdate write Set_PreserveFormattingOnUpdate;
  end;

// *********************************************************************//
// DispIntf:  OLEFormatDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020933-0000-0000-C000-000000000046}
// *********************************************************************//
  OLEFormatDisp = dispinterface
    ['{00020933-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property ClassType: WideString dispid 2;
    property DisplayAsIcon: WordBool dispid 3;
    property IconName: WideString dispid 7;
    property IconPath: WideString readonly dispid 8;
    property IconIndex: Integer dispid 9;
    property IconLabel: WideString dispid 10;
    property Label_: WideString readonly dispid 12;
    property Object_: IDispatch readonly dispid 14;
    property ProgID: WideString readonly dispid 22;
    procedure Activate; dispid 104;
    procedure Edit; dispid 106;
    procedure Open; dispid 107;
    procedure DoVerb(var VerbIndex: OleVariant); dispid 109;
    procedure ConvertTo(var ClassType: OleVariant; var DisplayAsIcon: OleVariant; 
                        var IconFileName: OleVariant; var IconIndex: OleVariant; 
                        var IconLabel: OleVariant); dispid 110;
    procedure ActivateAs(const ClassType: WideString); dispid 111;
    property PreserveFormattingOnUpdate: WordBool dispid 112;
  end;

// *********************************************************************//
// Interface: LinkFormat
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020931-0000-0000-C000-000000000046}
// *********************************************************************//
  LinkFormat = interface(IDispatch)
    ['{00020931-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_AutoUpdate: WordBool; safecall;
    procedure Set_AutoUpdate(prop: WordBool); safecall;
    function Get_SourceName: WideString; safecall;
    function Get_SourcePath: WideString; safecall;
    function Get_Locked: WordBool; safecall;
    procedure Set_Locked(prop: WordBool); safecall;
    function Get_type_: WdLinkType; safecall;
    function Get_SourceFullName: WideString; safecall;
    procedure Set_SourceFullName(const prop: WideString); safecall;
    function Get_SavePictureWithDocument: WordBool; safecall;
    procedure Set_SavePictureWithDocument(prop: WordBool); safecall;
    procedure BreakLink; safecall;
    procedure Update; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property AutoUpdate: WordBool read Get_AutoUpdate write Set_AutoUpdate;
    property SourceName: WideString read Get_SourceName;
    property SourcePath: WideString read Get_SourcePath;
    property Locked: WordBool read Get_Locked write Set_Locked;
    property type_: WdLinkType read Get_type_;
    property SourceFullName: WideString read Get_SourceFullName write Set_SourceFullName;
    property SavePictureWithDocument: WordBool read Get_SavePictureWithDocument write Set_SavePictureWithDocument;
  end;

// *********************************************************************//
// DispIntf:  LinkFormatDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020931-0000-0000-C000-000000000046}
// *********************************************************************//
  LinkFormatDisp = dispinterface
    ['{00020931-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property AutoUpdate: WordBool dispid 1;
    property SourceName: WideString readonly dispid 4;
    property SourcePath: WideString readonly dispid 5;
    property Locked: WordBool dispid 13;
    property type_: WdLinkType readonly dispid 16;
    property SourceFullName: WideString dispid 21;
    property SavePictureWithDocument: WordBool dispid 22;
    procedure BreakLink; dispid 104;
    procedure Update; dispid 105;
  end;

// *********************************************************************//
// Interface: _OLEControl
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {000209A4-0000-0000-C000-000000000046}
// *********************************************************************//
  _OLEControl = interface(IDispatch)
    ['{000209A4-0000-0000-C000-000000000046}']
    function Get_Left: Single; safecall;
    procedure Set_Left(prop: Single); safecall;
    function Get_Top: Single; safecall;
    procedure Set_Top(prop: Single); safecall;
    function Get_Height: Single; safecall;
    procedure Set_Height(prop: Single); safecall;
    function Get_Width: Single; safecall;
    procedure Set_Width(prop: Single); safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const prop: WideString); safecall;
    function Get_Automation: IDispatch; safecall;
    procedure Select; safecall;
    procedure Copy; safecall;
    procedure Cut; safecall;
    procedure Delete; safecall;
    procedure Activate; safecall;
    function Get_AltHTML: WideString; safecall;
    procedure Set_AltHTML(const prop: WideString); safecall;
    property Left: Single read Get_Left write Set_Left;
    property Top: Single read Get_Top write Set_Top;
    property Height: Single read Get_Height write Set_Height;
    property Width: Single read Get_Width write Set_Width;
    property Name: WideString read Get_Name write Set_Name;
    property Automation: IDispatch read Get_Automation;
    property AltHTML: WideString read Get_AltHTML write Set_AltHTML;
  end;

// *********************************************************************//
// DispIntf:  _OLEControlDisp
// Flags:     (4432) Hidden Dual OleAutomation Dispatchable
// GUID:      {000209A4-0000-0000-C000-000000000046}
// *********************************************************************//
  _OLEControlDisp = dispinterface
    ['{000209A4-0000-0000-C000-000000000046}']
    property Left: Single dispid -2147417853;
    property Top: Single dispid -2147417852;
    property Height: Single dispid -2147417851;
    property Width: Single dispid -2147417850;
    property Name: WideString dispid -2147418112;
    property Automation: IDispatch readonly dispid -2147417849;
    procedure Select; dispid -2147417568;
    procedure Copy; dispid -2147417560;
    procedure Cut; dispid -2147417559;
    procedure Delete; dispid -2147417520;
    procedure Activate; dispid -2147417519;
    property AltHTML: WideString dispid -2147415101;
  end;

// *********************************************************************//
// Interface: Fields
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020930-0000-0000-C000-000000000046}
// *********************************************************************//
  Fields = interface(IDispatch)
    ['{00020930-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get_Locked: Integer; safecall;
    procedure Set_Locked(prop: Integer); safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Item(Index: Integer): Field; safecall;
    procedure ToggleShowCodes; safecall;
    function Update: Integer; safecall;
    procedure Unlink; safecall;
    procedure UpdateSource; safecall;
    function Add(const Range: Range; var Type_: OleVariant; var Text: OleVariant; 
                 var PreserveFormatting: OleVariant): Field; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property Locked: Integer read Get_Locked write Set_Locked;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  FieldsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020930-0000-0000-C000-000000000046}
// *********************************************************************//
  FieldsDisp = dispinterface
    ['{00020930-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Count: Integer readonly dispid 1;
    property Locked: Integer dispid 2;
    property _NewEnum: IUnknown readonly dispid -4;
    function Item(Index: Integer): Field; dispid 0;
    procedure ToggleShowCodes; dispid 100;
    function Update: Integer; dispid 101;
    procedure Unlink; dispid 102;
    procedure UpdateSource; dispid 104;
    function Add(const Range: Range; var Type_: OleVariant; var Text: OleVariant; 
                 var PreserveFormatting: OleVariant): Field; dispid 105;
  end;

// *********************************************************************//
// Interface: Field
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002092F-0000-0000-C000-000000000046}
// *********************************************************************//
  Field = interface(IDispatch)
    ['{0002092F-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Code: Range; safecall;
    procedure Set_Code(const prop: Range); safecall;
    function Get_type_: WdFieldType; safecall;
    function Get_Locked: WordBool; safecall;
    procedure Set_Locked(prop: WordBool); safecall;
    function Get_Kind: WdFieldKind; safecall;
    function Get_Result: Range; safecall;
    procedure Set_Result(const prop: Range); safecall;
    function Get_Data: WideString; safecall;
    procedure Set_Data(const prop: WideString); safecall;
    function Get_Next: Field; safecall;
    function Get_Previous: Field; safecall;
    function Get_Index: Integer; safecall;
    function Get_ShowCodes: WordBool; safecall;
    procedure Set_ShowCodes(prop: WordBool); safecall;
    function Get_LinkFormat: LinkFormat; safecall;
    function Get_OLEFormat: OLEFormat; safecall;
    function Get_InlineShape: InlineShape; safecall;
    procedure Select; safecall;
    function Update: WordBool; safecall;
    procedure Unlink; safecall;
    procedure UpdateSource; safecall;
    procedure DoClick; safecall;
    procedure Copy; safecall;
    procedure Cut; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Code: Range read Get_Code write Set_Code;
    property type_: WdFieldType read Get_type_;
    property Locked: WordBool read Get_Locked write Set_Locked;
    property Kind: WdFieldKind read Get_Kind;
    property Result: Range read Get_Result write Set_Result;
    property Data: WideString read Get_Data write Set_Data;
    property Next: Field read Get_Next;
    property Previous: Field read Get_Previous;
    property Index: Integer read Get_Index;
    property ShowCodes: WordBool read Get_ShowCodes write Set_ShowCodes;
    property LinkFormat: LinkFormat read Get_LinkFormat;
    property OLEFormat: OLEFormat read Get_OLEFormat;
    property InlineShape: InlineShape read Get_InlineShape;
  end;

// *********************************************************************//
// DispIntf:  FieldDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002092F-0000-0000-C000-000000000046}
// *********************************************************************//
  FieldDisp = dispinterface
    ['{0002092F-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Code: Range dispid 0;
    property type_: WdFieldType readonly dispid 1;
    property Locked: WordBool dispid 2;
    property Kind: WdFieldKind readonly dispid 3;
    property Result: Range dispid 4;
    property Data: WideString dispid 5;
    property Next: Field readonly dispid 6;
    property Previous: Field readonly dispid 7;
    property Index: Integer readonly dispid 8;
    property ShowCodes: WordBool dispid 9;
    property LinkFormat: LinkFormat readonly dispid 10;
    property OLEFormat: OLEFormat readonly dispid 11;
    property InlineShape: InlineShape readonly dispid 12;
    procedure Select; dispid 65535;
    function Update: WordBool; dispid 101;
    procedure Unlink; dispid 102;
    procedure UpdateSource; dispid 103;
    procedure DoClick; dispid 104;
    procedure Copy; dispid 105;
    procedure Cut; dispid 106;
    procedure Delete; dispid 107;
  end;

// *********************************************************************//
// Interface: Browser
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002092E-0000-0000-C000-000000000046}
// *********************************************************************//
  Browser = interface(IDispatch)
    ['{0002092E-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Target: WdBrowseTarget; safecall;
    procedure Set_Target(prop: WdBrowseTarget); safecall;
    procedure Next; safecall;
    procedure Previous; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Target: WdBrowseTarget read Get_Target write Set_Target;
  end;

// *********************************************************************//
// DispIntf:  BrowserDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002092E-0000-0000-C000-000000000046}
// *********************************************************************//
  BrowserDisp = dispinterface
    ['{0002092E-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Target: WdBrowseTarget dispid 1;
    procedure Next; dispid 101;
    procedure Previous; dispid 102;
  end;

// *********************************************************************//
// Interface: Styles
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002092D-0000-0000-C000-000000000046}
// *********************************************************************//
  Styles = interface(IDispatch)
    ['{0002092D-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): Style; safecall;
    function Add(const Name: WideString; var Type_: OleVariant): Style; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  StylesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002092D-0000-0000-C000-000000000046}
// *********************************************************************//
  StylesDisp = dispinterface
    ['{0002092D-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): Style; dispid 0;
    function Add(const Name: WideString; var Type_: OleVariant): Style; dispid 100;
  end;

// *********************************************************************//
// Interface: Style
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002092C-0000-0000-C000-000000000046}
// *********************************************************************//
  Style = interface(IDispatch)
    ['{0002092C-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_NameLocal: WideString; safecall;
    procedure Set_NameLocal(const prop: WideString); safecall;
    function Get_BaseStyle: OleVariant; safecall;
    procedure Set_BaseStyle(var prop: OleVariant); safecall;
    function Get_Description: WideString; safecall;
    function Get_type_: WdStyleType; safecall;
    function Get_BuiltIn: WordBool; safecall;
    function Get_NextParagraphStyle: OleVariant; safecall;
    procedure Set_NextParagraphStyle(var prop: OleVariant); safecall;
    function Get_InUse: WordBool; safecall;
    function Get_Shading: Shading; safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_ParagraphFormat: WordParagraphFormat; safecall;
    procedure Set_ParagraphFormat(const prop: WordParagraphFormat); safecall;
    function Get_Font: WordFont; safecall;
    procedure Set_Font(const prop: WordFont); safecall;
    function Get_Frame: Frame; safecall;
    function Get_LanguageID: WdLanguageID; safecall;
    procedure Set_LanguageID(prop: WdLanguageID); safecall;
    function Get_AutomaticallyUpdate: WordBool; safecall;
    procedure Set_AutomaticallyUpdate(prop: WordBool); safecall;
    function Get_ListTemplate: ListTemplate; safecall;
    function Get_ListLevelNumber: Integer; safecall;
    function Get_LanguageIDFarEast: WdLanguageID; safecall;
    procedure Set_LanguageIDFarEast(prop: WdLanguageID); safecall;
    function Get_Hidden: WordBool; safecall;
    procedure Set_Hidden(prop: WordBool); safecall;
    procedure Delete; safecall;
    procedure LinkToListTemplate(const ListTemplate: ListTemplate; var ListLevelNumber: OleVariant); safecall;
    function Get_NoProofing: Integer; safecall;
    procedure Set_NoProofing(prop: Integer); safecall;
    function Get_LinkStyle: OleVariant; safecall;
    procedure Set_LinkStyle(var prop: OleVariant); safecall;
    function Get_Visibility: WordBool; safecall;
    procedure Set_Visibility(prop: WordBool); safecall;
    function Get_NoSpaceBetweenParagraphsOfSameStyle: WordBool; safecall;
    procedure Set_NoSpaceBetweenParagraphsOfSameStyle(prop: WordBool); safecall;
    function Get_Table: TableStyle; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property NameLocal: WideString read Get_NameLocal write Set_NameLocal;
    property Description: WideString read Get_Description;
    property type_: WdStyleType read Get_type_;
    property BuiltIn: WordBool read Get_BuiltIn;
    property InUse: WordBool read Get_InUse;
    property Shading: Shading read Get_Shading;
    property Borders: Borders read Get_Borders write Set_Borders;
    property ParagraphFormat: WordParagraphFormat read Get_ParagraphFormat write Set_ParagraphFormat;
    property Font: WordFont read Get_Font write Set_Font;
    property Frame: Frame read Get_Frame;
    property LanguageID: WdLanguageID read Get_LanguageID write Set_LanguageID;
    property AutomaticallyUpdate: WordBool read Get_AutomaticallyUpdate write Set_AutomaticallyUpdate;
    property ListTemplate: ListTemplate read Get_ListTemplate;
    property ListLevelNumber: Integer read Get_ListLevelNumber;
    property LanguageIDFarEast: WdLanguageID read Get_LanguageIDFarEast write Set_LanguageIDFarEast;
    property Hidden: WordBool read Get_Hidden write Set_Hidden;
    property NoProofing: Integer read Get_NoProofing write Set_NoProofing;
    property Visibility: WordBool read Get_Visibility write Set_Visibility;
    property NoSpaceBetweenParagraphsOfSameStyle: WordBool read Get_NoSpaceBetweenParagraphsOfSameStyle write Set_NoSpaceBetweenParagraphsOfSameStyle;
    property Table: TableStyle read Get_Table;
  end;

// *********************************************************************//
// DispIntf:  StyleDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002092C-0000-0000-C000-000000000046}
// *********************************************************************//
  StyleDisp = dispinterface
    ['{0002092C-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property NameLocal: WideString dispid 0;
    function BaseStyle: OleVariant; dispid 1;
    property Description: WideString readonly dispid 2;
    property type_: WdStyleType readonly dispid 3;
    property BuiltIn: WordBool readonly dispid 4;
    function NextParagraphStyle: OleVariant; dispid 5;
    property InUse: WordBool readonly dispid 6;
    property Shading: Shading readonly dispid 7;
    property Borders: Borders dispid 8;
    property ParagraphFormat: WordParagraphFormat dispid 9;
    property Font: WordFont dispid 10;
    property Frame: Frame readonly dispid 11;
    property LanguageID: WdLanguageID dispid 12;
    property AutomaticallyUpdate: WordBool dispid 13;
    property ListTemplate: ListTemplate readonly dispid 14;
    property ListLevelNumber: Integer readonly dispid 15;
    property LanguageIDFarEast: WdLanguageID dispid 16;
    property Hidden: WordBool dispid 17;
    procedure Delete; dispid 100;
    procedure LinkToListTemplate(const ListTemplate: ListTemplate; var ListLevelNumber: OleVariant); dispid 101;
    property NoProofing: Integer dispid 18;
    function LinkStyle: OleVariant; dispid 104;
    property Visibility: WordBool dispid 19;
    property NoSpaceBetweenParagraphsOfSameStyle: WordBool dispid 20;
    property Table: TableStyle readonly dispid 21;
  end;

// *********************************************************************//
// Interface: Frames
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002092B-0000-0000-C000-000000000046}
// *********************************************************************//
  Frames = interface(IDispatch)
    ['{0002092B-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(Index: Integer): Frame; safecall;
    function Add(const Range: Range): Frame; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  FramesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002092B-0000-0000-C000-000000000046}
// *********************************************************************//
  FramesDisp = dispinterface
    ['{0002092B-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(Index: Integer): Frame; dispid 0;
    function Add(const Range: Range): Frame; dispid 100;
    procedure Delete; dispid 101;
  end;

// *********************************************************************//
// Interface: Frame
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002092A-0000-0000-C000-000000000046}
// *********************************************************************//
  Frame = interface(IDispatch)
    ['{0002092A-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_HeightRule: WdFrameSizeRule; safecall;
    procedure Set_HeightRule(prop: WdFrameSizeRule); safecall;
    function Get_WidthRule: WdFrameSizeRule; safecall;
    procedure Set_WidthRule(prop: WdFrameSizeRule); safecall;
    function Get_HorizontalDistanceFromText: Single; safecall;
    procedure Set_HorizontalDistanceFromText(prop: Single); safecall;
    function Get_Height: Single; safecall;
    procedure Set_Height(prop: Single); safecall;
    function Get_HorizontalPosition: Single; safecall;
    procedure Set_HorizontalPosition(prop: Single); safecall;
    function Get_LockAnchor: WordBool; safecall;
    procedure Set_LockAnchor(prop: WordBool); safecall;
    function Get_RelativeHorizontalPosition: WdRelativeHorizontalPosition; safecall;
    procedure Set_RelativeHorizontalPosition(prop: WdRelativeHorizontalPosition); safecall;
    function Get_RelativeVerticalPosition: WdRelativeVerticalPosition; safecall;
    procedure Set_RelativeVerticalPosition(prop: WdRelativeVerticalPosition); safecall;
    function Get_VerticalDistanceFromText: Single; safecall;
    procedure Set_VerticalDistanceFromText(prop: Single); safecall;
    function Get_VerticalPosition: Single; safecall;
    procedure Set_VerticalPosition(prop: Single); safecall;
    function Get_Width: Single; safecall;
    procedure Set_Width(prop: Single); safecall;
    function Get_TextWrap: WordBool; safecall;
    procedure Set_TextWrap(prop: WordBool); safecall;
    function Get_Shading: Shading; safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_Range: Range; safecall;
    procedure Delete; safecall;
    procedure Select; safecall;
    procedure Copy; safecall;
    procedure Cut; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property HeightRule: WdFrameSizeRule read Get_HeightRule write Set_HeightRule;
    property WidthRule: WdFrameSizeRule read Get_WidthRule write Set_WidthRule;
    property HorizontalDistanceFromText: Single read Get_HorizontalDistanceFromText write Set_HorizontalDistanceFromText;
    property Height: Single read Get_Height write Set_Height;
    property HorizontalPosition: Single read Get_HorizontalPosition write Set_HorizontalPosition;
    property LockAnchor: WordBool read Get_LockAnchor write Set_LockAnchor;
    property RelativeHorizontalPosition: WdRelativeHorizontalPosition read Get_RelativeHorizontalPosition write Set_RelativeHorizontalPosition;
    property RelativeVerticalPosition: WdRelativeVerticalPosition read Get_RelativeVerticalPosition write Set_RelativeVerticalPosition;
    property VerticalDistanceFromText: Single read Get_VerticalDistanceFromText write Set_VerticalDistanceFromText;
    property VerticalPosition: Single read Get_VerticalPosition write Set_VerticalPosition;
    property Width: Single read Get_Width write Set_Width;
    property TextWrap: WordBool read Get_TextWrap write Set_TextWrap;
    property Shading: Shading read Get_Shading;
    property Borders: Borders read Get_Borders write Set_Borders;
    property Range: Range read Get_Range;
  end;

// *********************************************************************//
// DispIntf:  FrameDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002092A-0000-0000-C000-000000000046}
// *********************************************************************//
  FrameDisp = dispinterface
    ['{0002092A-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property HeightRule: WdFrameSizeRule dispid 1;
    property WidthRule: WdFrameSizeRule dispid 2;
    property HorizontalDistanceFromText: Single dispid 3;
    property Height: Single dispid 4;
    property HorizontalPosition: Single dispid 5;
    property LockAnchor: WordBool dispid 6;
    property RelativeHorizontalPosition: WdRelativeHorizontalPosition dispid 7;
    property RelativeVerticalPosition: WdRelativeVerticalPosition dispid 8;
    property VerticalDistanceFromText: Single dispid 9;
    property VerticalPosition: Single dispid 10;
    property Width: Single dispid 11;
    property TextWrap: WordBool dispid 12;
    property Shading: Shading readonly dispid 13;
    property Borders: Borders dispid 1100;
    property Range: Range readonly dispid 15;
    procedure Delete; dispid 100;
    procedure Select; dispid 65535;
    procedure Copy; dispid 101;
    procedure Cut; dispid 102;
  end;

// *********************************************************************//
// Interface: FormFields
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020929-0000-0000-C000-000000000046}
// *********************************************************************//
  FormFields = interface(IDispatch)
    ['{00020929-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get_Shaded: WordBool; safecall;
    procedure Set_Shaded(prop: WordBool); safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Item(var Index: OleVariant): FormField; safecall;
    function Add(const Range: Range; Type_: WdFieldType): FormField; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property Shaded: WordBool read Get_Shaded write Set_Shaded;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  FormFieldsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020929-0000-0000-C000-000000000046}
// *********************************************************************//
  FormFieldsDisp = dispinterface
    ['{00020929-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Count: Integer readonly dispid 1;
    property Shaded: WordBool dispid 2;
    property _NewEnum: IUnknown readonly dispid -4;
    function Item(var Index: OleVariant): FormField; dispid 0;
    function Add(const Range: Range; Type_: WdFieldType): FormField; dispid 101;
  end;

// *********************************************************************//
// Interface: FormField
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020928-0000-0000-C000-000000000046}
// *********************************************************************//
  FormField = interface(IDispatch)
    ['{00020928-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_type_: WdFieldType; safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const prop: WideString); safecall;
    function Get_EntryMacro: WideString; safecall;
    procedure Set_EntryMacro(const prop: WideString); safecall;
    function Get_ExitMacro: WideString; safecall;
    procedure Set_ExitMacro(const prop: WideString); safecall;
    function Get_OwnHelp: WordBool; safecall;
    procedure Set_OwnHelp(prop: WordBool); safecall;
    function Get_OwnStatus: WordBool; safecall;
    procedure Set_OwnStatus(prop: WordBool); safecall;
    function Get_HelpText: WideString; safecall;
    procedure Set_HelpText(const prop: WideString); safecall;
    function Get_StatusText: WideString; safecall;
    procedure Set_StatusText(const prop: WideString); safecall;
    function Get_Enabled: WordBool; safecall;
    procedure Set_Enabled(prop: WordBool); safecall;
    function Get_Result: WideString; safecall;
    procedure Set_Result(const prop: WideString); safecall;
    function Get_TextInput: TextInput; safecall;
    function Get_CheckBox: CheckBox; safecall;
    function Get_DropDown: DropDown; safecall;
    function Get_Next: FormField; safecall;
    function Get_Previous: FormField; safecall;
    function Get_CalculateOnExit: WordBool; safecall;
    procedure Set_CalculateOnExit(prop: WordBool); safecall;
    function Get_Range: Range; safecall;
    procedure Select; safecall;
    procedure Copy; safecall;
    procedure Cut; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property type_: WdFieldType read Get_type_;
    property Name: WideString read Get_Name write Set_Name;
    property EntryMacro: WideString read Get_EntryMacro write Set_EntryMacro;
    property ExitMacro: WideString read Get_ExitMacro write Set_ExitMacro;
    property OwnHelp: WordBool read Get_OwnHelp write Set_OwnHelp;
    property OwnStatus: WordBool read Get_OwnStatus write Set_OwnStatus;
    property HelpText: WideString read Get_HelpText write Set_HelpText;
    property StatusText: WideString read Get_StatusText write Set_StatusText;
    property Enabled: WordBool read Get_Enabled write Set_Enabled;
    property Result: WideString read Get_Result write Set_Result;
    property TextInput: TextInput read Get_TextInput;
    property CheckBox: CheckBox read Get_CheckBox;
    property DropDown: DropDown read Get_DropDown;
    property Next: FormField read Get_Next;
    property Previous: FormField read Get_Previous;
    property CalculateOnExit: WordBool read Get_CalculateOnExit write Set_CalculateOnExit;
    property Range: Range read Get_Range;
  end;

// *********************************************************************//
// DispIntf:  FormFieldDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020928-0000-0000-C000-000000000046}
// *********************************************************************//
  FormFieldDisp = dispinterface
    ['{00020928-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property type_: WdFieldType readonly dispid 0;
    property Name: WideString dispid 2;
    property EntryMacro: WideString dispid 3;
    property ExitMacro: WideString dispid 4;
    property OwnHelp: WordBool dispid 5;
    property OwnStatus: WordBool dispid 6;
    property HelpText: WideString dispid 7;
    property StatusText: WideString dispid 8;
    property Enabled: WordBool dispid 9;
    property Result: WideString dispid 10;
    property TextInput: TextInput readonly dispid 11;
    property CheckBox: CheckBox readonly dispid 12;
    property DropDown: DropDown readonly dispid 13;
    property Next: FormField readonly dispid 14;
    property Previous: FormField readonly dispid 15;
    property CalculateOnExit: WordBool dispid 16;
    property Range: Range readonly dispid 17;
    procedure Select; dispid 65535;
    procedure Copy; dispid 101;
    procedure Cut; dispid 102;
    procedure Delete; dispid 103;
  end;

// *********************************************************************//
// Interface: TextInput
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020927-0000-0000-C000-000000000046}
// *********************************************************************//
  TextInput = interface(IDispatch)
    ['{00020927-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Valid: WordBool; safecall;
    function Get_Default: WideString; safecall;
    procedure Set_Default(const prop: WideString); safecall;
    function Get_type_: WdTextFormFieldType; safecall;
    function Get_Format: WideString; safecall;
    function Get_Width: Integer; safecall;
    procedure Set_Width(prop: Integer); safecall;
    procedure Clear; safecall;
    procedure EditType(Type_: WdTextFormFieldType; var Default: OleVariant; var Format: OleVariant; 
                       var Enabled: OleVariant); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Valid: WordBool read Get_Valid;
    property Default: WideString read Get_Default write Set_Default;
    property type_: WdTextFormFieldType read Get_type_;
    property Format: WideString read Get_Format;
    property Width: Integer read Get_Width write Set_Width;
  end;

// *********************************************************************//
// DispIntf:  TextInputDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020927-0000-0000-C000-000000000046}
// *********************************************************************//
  TextInputDisp = dispinterface
    ['{00020927-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Valid: WordBool readonly dispid 0;
    property Default: WideString dispid 1;
    property type_: WdTextFormFieldType readonly dispid 2;
    property Format: WideString readonly dispid 3;
    property Width: Integer dispid 4;
    procedure Clear; dispid 101;
    procedure EditType(Type_: WdTextFormFieldType; var Default: OleVariant; var Format: OleVariant; 
                       var Enabled: OleVariant); dispid 102;
  end;

// *********************************************************************//
// Interface: CheckBox
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020926-0000-0000-C000-000000000046}
// *********************************************************************//
  CheckBox = interface(IDispatch)
    ['{00020926-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Valid: WordBool; safecall;
    function Get_AutoSize: WordBool; safecall;
    procedure Set_AutoSize(prop: WordBool); safecall;
    function Get_Size: Single; safecall;
    procedure Set_Size(prop: Single); safecall;
    function Get_Default: WordBool; safecall;
    procedure Set_Default(prop: WordBool); safecall;
    function Get_Value: WordBool; safecall;
    procedure Set_Value(prop: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Valid: WordBool read Get_Valid;
    property AutoSize: WordBool read Get_AutoSize write Set_AutoSize;
    property Size: Single read Get_Size write Set_Size;
    property Default: WordBool read Get_Default write Set_Default;
    property Value: WordBool read Get_Value write Set_Value;
  end;

// *********************************************************************//
// DispIntf:  CheckBoxDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020926-0000-0000-C000-000000000046}
// *********************************************************************//
  CheckBoxDisp = dispinterface
    ['{00020926-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Valid: WordBool readonly dispid 0;
    property AutoSize: WordBool dispid 1;
    property Size: Single dispid 2;
    property Default: WordBool dispid 3;
    property Value: WordBool dispid 4;
  end;

// *********************************************************************//
// Interface: DropDown
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020925-0000-0000-C000-000000000046}
// *********************************************************************//
  DropDown = interface(IDispatch)
    ['{00020925-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Valid: WordBool; safecall;
    function Get_Default: Integer; safecall;
    procedure Set_Default(prop: Integer); safecall;
    function Get_Value: Integer; safecall;
    procedure Set_Value(prop: Integer); safecall;
    function Get_ListEntries: ListEntries; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Valid: WordBool read Get_Valid;
    property Default: Integer read Get_Default write Set_Default;
    property Value: Integer read Get_Value write Set_Value;
    property ListEntries: ListEntries read Get_ListEntries;
  end;

// *********************************************************************//
// DispIntf:  DropDownDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020925-0000-0000-C000-000000000046}
// *********************************************************************//
  DropDownDisp = dispinterface
    ['{00020925-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Valid: WordBool readonly dispid 0;
    property Default: Integer dispid 1;
    property Value: Integer dispid 2;
    property ListEntries: ListEntries readonly dispid 3;
  end;

// *********************************************************************//
// Interface: ListEntries
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020924-0000-0000-C000-000000000046}
// *********************************************************************//
  ListEntries = interface(IDispatch)
    ['{00020924-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): ListEntry; safecall;
    function Add(const Name: WideString; var Index: OleVariant): ListEntry; safecall;
    procedure Clear; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  ListEntriesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020924-0000-0000-C000-000000000046}
// *********************************************************************//
  ListEntriesDisp = dispinterface
    ['{00020924-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): ListEntry; dispid 0;
    function Add(const Name: WideString; var Index: OleVariant): ListEntry; dispid 101;
    procedure Clear; dispid 102;
  end;

// *********************************************************************//
// Interface: ListEntry
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020923-0000-0000-C000-000000000046}
// *********************************************************************//
  ListEntry = interface(IDispatch)
    ['{00020923-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Index: Integer; safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const prop: WideString); safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Index: Integer read Get_Index;
    property Name: WideString read Get_Name write Set_Name;
  end;

// *********************************************************************//
// DispIntf:  ListEntryDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020923-0000-0000-C000-000000000046}
// *********************************************************************//
  ListEntryDisp = dispinterface
    ['{00020923-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Index: Integer readonly dispid 1;
    property Name: WideString dispid 2;
    procedure Delete; dispid 11;
  end;

// *********************************************************************//
// Interface: TablesOfFigures
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020922-0000-0000-C000-000000000046}
// *********************************************************************//
  TablesOfFigures = interface(IDispatch)
    ['{00020922-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Format: WdTofFormat; safecall;
    procedure Set_Format(prop: WdTofFormat); safecall;
    function Item(Index: Integer): TableOfFigures; safecall;
    function AddOld(const Range: Range; var Caption: OleVariant; var IncludeLabel: OleVariant; 
                    var UseHeadingStyles: OleVariant; var UpperHeadingLevel: OleVariant; 
                    var LowerHeadingLevel: OleVariant; var UseFields: OleVariant; 
                    var TableID: OleVariant; var RightAlignPageNumbers: OleVariant; 
                    var IncludePageNumbers: OleVariant; var AddedStyles: OleVariant): TableOfFigures; safecall;
    function MarkEntry(const Range: Range; var Entry: OleVariant; var EntryAutoText: OleVariant; 
                       var TableID: OleVariant; var Level: OleVariant): Field; safecall;
    function Add(const Range: Range; var Caption: OleVariant; var IncludeLabel: OleVariant; 
                 var UseHeadingStyles: OleVariant; var UpperHeadingLevel: OleVariant; 
                 var LowerHeadingLevel: OleVariant; var UseFields: OleVariant; 
                 var TableID: OleVariant; var RightAlignPageNumbers: OleVariant; 
                 var IncludePageNumbers: OleVariant; var AddedStyles: OleVariant; 
                 var UseHyperlinks: OleVariant; var HidePageNumbersInWeb: OleVariant): TableOfFigures; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Format: WdTofFormat read Get_Format write Set_Format;
  end;

// *********************************************************************//
// DispIntf:  TablesOfFiguresDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020922-0000-0000-C000-000000000046}
// *********************************************************************//
  TablesOfFiguresDisp = dispinterface
    ['{00020922-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    property Format: WdTofFormat dispid 2;
    function Item(Index: Integer): TableOfFigures; dispid 0;
    function AddOld(const Range: Range; var Caption: OleVariant; var IncludeLabel: OleVariant; 
                    var UseHeadingStyles: OleVariant; var UpperHeadingLevel: OleVariant; 
                    var LowerHeadingLevel: OleVariant; var UseFields: OleVariant; 
                    var TableID: OleVariant; var RightAlignPageNumbers: OleVariant; 
                    var IncludePageNumbers: OleVariant; var AddedStyles: OleVariant): TableOfFigures; dispid 100;
    function MarkEntry(const Range: Range; var Entry: OleVariant; var EntryAutoText: OleVariant; 
                       var TableID: OleVariant; var Level: OleVariant): Field; dispid 101;
    function Add(const Range: Range; var Caption: OleVariant; var IncludeLabel: OleVariant; 
                 var UseHeadingStyles: OleVariant; var UpperHeadingLevel: OleVariant; 
                 var LowerHeadingLevel: OleVariant; var UseFields: OleVariant; 
                 var TableID: OleVariant; var RightAlignPageNumbers: OleVariant; 
                 var IncludePageNumbers: OleVariant; var AddedStyles: OleVariant; 
                 var UseHyperlinks: OleVariant; var HidePageNumbersInWeb: OleVariant): TableOfFigures; dispid 444;
  end;

// *********************************************************************//
// Interface: TableOfFigures
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020921-0000-0000-C000-000000000046}
// *********************************************************************//
  TableOfFigures = interface(IDispatch)
    ['{00020921-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Caption: WideString; safecall;
    procedure Set_Caption(const prop: WideString); safecall;
    function Get_IncludeLabel: WordBool; safecall;
    procedure Set_IncludeLabel(prop: WordBool); safecall;
    function Get_RightAlignPageNumbers: WordBool; safecall;
    procedure Set_RightAlignPageNumbers(prop: WordBool); safecall;
    function Get_UseHeadingStyles: WordBool; safecall;
    procedure Set_UseHeadingStyles(prop: WordBool); safecall;
    function Get_LowerHeadingLevel: Integer; safecall;
    procedure Set_LowerHeadingLevel(prop: Integer); safecall;
    function Get_UpperHeadingLevel: Integer; safecall;
    procedure Set_UpperHeadingLevel(prop: Integer); safecall;
    function Get_IncludePageNumbers: WordBool; safecall;
    procedure Set_IncludePageNumbers(prop: WordBool); safecall;
    function Get_Range: Range; safecall;
    function Get_UseFields: WordBool; safecall;
    procedure Set_UseFields(prop: WordBool); safecall;
    function Get_TableID: WideString; safecall;
    procedure Set_TableID(const prop: WideString); safecall;
    function Get_HeadingStyles: HeadingStyles; safecall;
    function Get_TabLeader: WdTabLeader; safecall;
    procedure Set_TabLeader(prop: WdTabLeader); safecall;
    procedure Delete; safecall;
    procedure UpdatePageNumbers; safecall;
    procedure Update; safecall;
    function Get_UseHyperlinks: WordBool; safecall;
    procedure Set_UseHyperlinks(prop: WordBool); safecall;
    function Get_HidePageNumbersInWeb: WordBool; safecall;
    procedure Set_HidePageNumbersInWeb(prop: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Caption: WideString read Get_Caption write Set_Caption;
    property IncludeLabel: WordBool read Get_IncludeLabel write Set_IncludeLabel;
    property RightAlignPageNumbers: WordBool read Get_RightAlignPageNumbers write Set_RightAlignPageNumbers;
    property UseHeadingStyles: WordBool read Get_UseHeadingStyles write Set_UseHeadingStyles;
    property LowerHeadingLevel: Integer read Get_LowerHeadingLevel write Set_LowerHeadingLevel;
    property UpperHeadingLevel: Integer read Get_UpperHeadingLevel write Set_UpperHeadingLevel;
    property IncludePageNumbers: WordBool read Get_IncludePageNumbers write Set_IncludePageNumbers;
    property Range: Range read Get_Range;
    property UseFields: WordBool read Get_UseFields write Set_UseFields;
    property TableID: WideString read Get_TableID write Set_TableID;
    property HeadingStyles: HeadingStyles read Get_HeadingStyles;
    property TabLeader: WdTabLeader read Get_TabLeader write Set_TabLeader;
    property UseHyperlinks: WordBool read Get_UseHyperlinks write Set_UseHyperlinks;
    property HidePageNumbersInWeb: WordBool read Get_HidePageNumbersInWeb write Set_HidePageNumbersInWeb;
  end;

// *********************************************************************//
// DispIntf:  TableOfFiguresDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020921-0000-0000-C000-000000000046}
// *********************************************************************//
  TableOfFiguresDisp = dispinterface
    ['{00020921-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Caption: WideString dispid 1;
    property IncludeLabel: WordBool dispid 2;
    property RightAlignPageNumbers: WordBool dispid 3;
    property UseHeadingStyles: WordBool dispid 4;
    property LowerHeadingLevel: Integer dispid 5;
    property UpperHeadingLevel: Integer dispid 6;
    property IncludePageNumbers: WordBool dispid 7;
    property Range: Range readonly dispid 8;
    property UseFields: WordBool dispid 9;
    property TableID: WideString dispid 10;
    property HeadingStyles: HeadingStyles readonly dispid 11;
    property TabLeader: WdTabLeader dispid 12;
    procedure Delete; dispid 100;
    procedure UpdatePageNumbers; dispid 101;
    procedure Update; dispid 102;
    property UseHyperlinks: WordBool dispid 13;
    property HidePageNumbersInWeb: WordBool dispid 14;
  end;

// *********************************************************************//
// Interface: MailMerge
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020920-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMerge = interface(IDispatch)
    ['{00020920-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_MainDocumentType: WdMailMergeMainDocType; safecall;
    procedure Set_MainDocumentType(prop: WdMailMergeMainDocType); safecall;
    function Get_State: WdMailMergeState; safecall;
    function Get_Destination: WdMailMergeDestination; safecall;
    procedure Set_Destination(prop: WdMailMergeDestination); safecall;
    function Get_DataSource: MailMergeDataSource; safecall;
    function Get_Fields: MailMergeFields; safecall;
    function Get_ViewMailMergeFieldCodes: Integer; safecall;
    procedure Set_ViewMailMergeFieldCodes(prop: Integer); safecall;
    function Get_SuppressBlankLines: WordBool; safecall;
    procedure Set_SuppressBlankLines(prop: WordBool); safecall;
    function Get_MailAsAttachment: WordBool; safecall;
    procedure Set_MailAsAttachment(prop: WordBool); safecall;
    function Get_MailAddressFieldName: WideString; safecall;
    procedure Set_MailAddressFieldName(const prop: WideString); safecall;
    function Get_MailSubject: WideString; safecall;
    procedure Set_MailSubject(const prop: WideString); safecall;
    procedure CreateDataSource(var Name: OleVariant; var PasswordDocument: OleVariant; 
                               var WritePasswordDocument: OleVariant; var HeaderRecord: OleVariant; 
                               var MSQuery: OleVariant; var SQLStatement: OleVariant; 
                               var SQLStatement1: OleVariant; var Connection: OleVariant; 
                               var LinkToSource: OleVariant); safecall;
    procedure CreateHeaderSource(const Name: WideString; var PasswordDocument: OleVariant; 
                                 var WritePasswordDocument: OleVariant; var HeaderRecord: OleVariant); safecall;
    procedure OpenDataSource2000(const Name: WideString; var Format: OleVariant; 
                                 var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; 
                                 var LinkToSource: OleVariant; var AddToRecentFiles: OleVariant; 
                                 var PasswordDocument: OleVariant; 
                                 var PasswordTemplate: OleVariant; var Revert: OleVariant; 
                                 var WritePasswordDocument: OleVariant; 
                                 var WritePasswordTemplate: OleVariant; var Connection: OleVariant; 
                                 var SQLStatement: OleVariant; var SQLStatement1: OleVariant); safecall;
    procedure OpenHeaderSource2000(const Name: WideString; var Format: OleVariant; 
                                   var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; 
                                   var AddToRecentFiles: OleVariant; 
                                   var PasswordDocument: OleVariant; 
                                   var PasswordTemplate: OleVariant; var Revert: OleVariant; 
                                   var WritePasswordDocument: OleVariant; 
                                   var WritePasswordTemplate: OleVariant); safecall;
    procedure Execute(var Pause: OleVariant); safecall;
    procedure Check; safecall;
    procedure EditDataSource; safecall;
    procedure EditHeaderSource; safecall;
    procedure EditMainDocument; safecall;
    procedure UseAddressBook(const Type_: WideString); safecall;
    function Get_HighlightMergeFields: WordBool; safecall;
    procedure Set_HighlightMergeFields(prop: WordBool); safecall;
    function Get_MailFormat: WdMailMergeMailFormat; safecall;
    procedure Set_MailFormat(prop: WdMailMergeMailFormat); safecall;
    function Get_ShowSendToCustom: WideString; safecall;
    procedure Set_ShowSendToCustom(const prop: WideString); safecall;
    function Get_WizardState: Integer; safecall;
    procedure Set_WizardState(prop: Integer); safecall;
    procedure OpenDataSource(const Name: WideString; var Format: OleVariant; 
                             var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; 
                             var LinkToSource: OleVariant; var AddToRecentFiles: OleVariant; 
                             var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
                             var Revert: OleVariant; var WritePasswordDocument: OleVariant; 
                             var WritePasswordTemplate: OleVariant; var Connection: OleVariant; 
                             var SQLStatement: OleVariant; var SQLStatement1: OleVariant; 
                             var OpenExclusive: OleVariant; var SubType: OleVariant); safecall;
    procedure OpenHeaderSource(const Name: WideString; var Format: OleVariant; 
                               var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; 
                               var AddToRecentFiles: OleVariant; var PasswordDocument: OleVariant; 
                               var PasswordTemplate: OleVariant; var Revert: OleVariant; 
                               var WritePasswordDocument: OleVariant; 
                               var WritePasswordTemplate: OleVariant; var OpenExclusive: OleVariant); safecall;
    procedure ShowWizard(var InitialState: OleVariant; var ShowDocumentStep: OleVariant; 
                         var ShowTemplateStep: OleVariant; var ShowDataStep: OleVariant; 
                         var ShowWriteStep: OleVariant; var ShowPreviewStep: OleVariant; 
                         var ShowMergeStep: OleVariant); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property MainDocumentType: WdMailMergeMainDocType read Get_MainDocumentType write Set_MainDocumentType;
    property State: WdMailMergeState read Get_State;
    property Destination: WdMailMergeDestination read Get_Destination write Set_Destination;
    property DataSource: MailMergeDataSource read Get_DataSource;
    property Fields: MailMergeFields read Get_Fields;
    property ViewMailMergeFieldCodes: Integer read Get_ViewMailMergeFieldCodes write Set_ViewMailMergeFieldCodes;
    property SuppressBlankLines: WordBool read Get_SuppressBlankLines write Set_SuppressBlankLines;
    property MailAsAttachment: WordBool read Get_MailAsAttachment write Set_MailAsAttachment;
    property MailAddressFieldName: WideString read Get_MailAddressFieldName write Set_MailAddressFieldName;
    property MailSubject: WideString read Get_MailSubject write Set_MailSubject;
    property HighlightMergeFields: WordBool read Get_HighlightMergeFields write Set_HighlightMergeFields;
    property MailFormat: WdMailMergeMailFormat read Get_MailFormat write Set_MailFormat;
    property ShowSendToCustom: WideString read Get_ShowSendToCustom write Set_ShowSendToCustom;
    property WizardState: Integer read Get_WizardState write Set_WizardState;
  end;

// *********************************************************************//
// DispIntf:  MailMergeDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020920-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeDisp = dispinterface
    ['{00020920-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property MainDocumentType: WdMailMergeMainDocType dispid 1;
    property State: WdMailMergeState readonly dispid 2;
    property Destination: WdMailMergeDestination dispid 3;
    property DataSource: MailMergeDataSource readonly dispid 4;
    property Fields: MailMergeFields readonly dispid 5;
    property ViewMailMergeFieldCodes: Integer dispid 6;
    property SuppressBlankLines: WordBool dispid 7;
    property MailAsAttachment: WordBool dispid 8;
    property MailAddressFieldName: WideString dispid 9;
    property MailSubject: WideString dispid 10;
    procedure CreateDataSource(var Name: OleVariant; var PasswordDocument: OleVariant; 
                               var WritePasswordDocument: OleVariant; var HeaderRecord: OleVariant; 
                               var MSQuery: OleVariant; var SQLStatement: OleVariant; 
                               var SQLStatement1: OleVariant; var Connection: OleVariant; 
                               var LinkToSource: OleVariant); dispid 101;
    procedure CreateHeaderSource(const Name: WideString; var PasswordDocument: OleVariant; 
                                 var WritePasswordDocument: OleVariant; var HeaderRecord: OleVariant); dispid 102;
    procedure OpenDataSource2000(const Name: WideString; var Format: OleVariant; 
                                 var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; 
                                 var LinkToSource: OleVariant; var AddToRecentFiles: OleVariant; 
                                 var PasswordDocument: OleVariant; 
                                 var PasswordTemplate: OleVariant; var Revert: OleVariant; 
                                 var WritePasswordDocument: OleVariant; 
                                 var WritePasswordTemplate: OleVariant; var Connection: OleVariant; 
                                 var SQLStatement: OleVariant; var SQLStatement1: OleVariant); dispid 103;
    procedure OpenHeaderSource2000(const Name: WideString; var Format: OleVariant; 
                                   var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; 
                                   var AddToRecentFiles: OleVariant; 
                                   var PasswordDocument: OleVariant; 
                                   var PasswordTemplate: OleVariant; var Revert: OleVariant; 
                                   var WritePasswordDocument: OleVariant; 
                                   var WritePasswordTemplate: OleVariant); dispid 104;
    procedure Execute(var Pause: OleVariant); dispid 105;
    procedure Check; dispid 106;
    procedure EditDataSource; dispid 107;
    procedure EditHeaderSource; dispid 108;
    procedure EditMainDocument; dispid 109;
    procedure UseAddressBook(const Type_: WideString); dispid 111;
    property HighlightMergeFields: WordBool dispid 11;
    property MailFormat: WdMailMergeMailFormat dispid 12;
    property ShowSendToCustom: WideString dispid 13;
    property WizardState: Integer dispid 14;
    procedure OpenDataSource(const Name: WideString; var Format: OleVariant; 
                             var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; 
                             var LinkToSource: OleVariant; var AddToRecentFiles: OleVariant; 
                             var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
                             var Revert: OleVariant; var WritePasswordDocument: OleVariant; 
                             var WritePasswordTemplate: OleVariant; var Connection: OleVariant; 
                             var SQLStatement: OleVariant; var SQLStatement1: OleVariant; 
                             var OpenExclusive: OleVariant; var SubType: OleVariant); dispid 112;
    procedure OpenHeaderSource(const Name: WideString; var Format: OleVariant; 
                               var ConfirmConversions: OleVariant; var ReadOnly: OleVariant; 
                               var AddToRecentFiles: OleVariant; var PasswordDocument: OleVariant; 
                               var PasswordTemplate: OleVariant; var Revert: OleVariant; 
                               var WritePasswordDocument: OleVariant; 
                               var WritePasswordTemplate: OleVariant; var OpenExclusive: OleVariant); dispid 113;
    procedure ShowWizard(var InitialState: OleVariant; var ShowDocumentStep: OleVariant; 
                         var ShowTemplateStep: OleVariant; var ShowDataStep: OleVariant; 
                         var ShowWriteStep: OleVariant; var ShowPreviewStep: OleVariant; 
                         var ShowMergeStep: OleVariant); dispid 114;
  end;

// *********************************************************************//
// Interface: MailMergeFields
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002091F-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeFields = interface(IDispatch)
    ['{0002091F-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(Index: Integer): MailMergeField; safecall;
    function Add(const Range: Range; const Name: WideString): MailMergeField; safecall;
    function AddAsk(const Range: Range; const Name: WideString; var Prompt: OleVariant; 
                    var DefaultAskText: OleVariant; var AskOnce: OleVariant): MailMergeField; safecall;
    function AddFillIn(const Range: Range; var Prompt: OleVariant; 
                       var DefaultFillInText: OleVariant; var AskOnce: OleVariant): MailMergeField; safecall;
    function AddIf(const Range: Range; const MergeField: WideString; 
                   Comparison: WdMailMergeComparison; var CompareTo: OleVariant; 
                   var TrueAutoText: OleVariant; var TrueText: OleVariant; 
                   var FalseAutoText: OleVariant; var FalseText: OleVariant): MailMergeField; safecall;
    function AddMergeRec(const Range: Range): MailMergeField; safecall;
    function AddMergeSeq(const Range: Range): MailMergeField; safecall;
    function AddNext(const Range: Range): MailMergeField; safecall;
    function AddNextIf(const Range: Range; const MergeField: WideString; 
                       Comparison: WdMailMergeComparison; var CompareTo: OleVariant): MailMergeField; safecall;
    function AddSet(const Range: Range; const Name: WideString; var ValueText: OleVariant; 
                    var ValueAutoText: OleVariant): MailMergeField; safecall;
    function AddSkipIf(const Range: Range; const MergeField: WideString; 
                       Comparison: WdMailMergeComparison; var CompareTo: OleVariant): MailMergeField; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  MailMergeFieldsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002091F-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeFieldsDisp = dispinterface
    ['{0002091F-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(Index: Integer): MailMergeField; dispid 0;
    function Add(const Range: Range; const Name: WideString): MailMergeField; dispid 101;
    function AddAsk(const Range: Range; const Name: WideString; var Prompt: OleVariant; 
                    var DefaultAskText: OleVariant; var AskOnce: OleVariant): MailMergeField; dispid 102;
    function AddFillIn(const Range: Range; var Prompt: OleVariant; 
                       var DefaultFillInText: OleVariant; var AskOnce: OleVariant): MailMergeField; dispid 103;
    function AddIf(const Range: Range; const MergeField: WideString; 
                   Comparison: WdMailMergeComparison; var CompareTo: OleVariant; 
                   var TrueAutoText: OleVariant; var TrueText: OleVariant; 
                   var FalseAutoText: OleVariant; var FalseText: OleVariant): MailMergeField; dispid 104;
    function AddMergeRec(const Range: Range): MailMergeField; dispid 105;
    function AddMergeSeq(const Range: Range): MailMergeField; dispid 106;
    function AddNext(const Range: Range): MailMergeField; dispid 107;
    function AddNextIf(const Range: Range; const MergeField: WideString; 
                       Comparison: WdMailMergeComparison; var CompareTo: OleVariant): MailMergeField; dispid 108;
    function AddSet(const Range: Range; const Name: WideString; var ValueText: OleVariant; 
                    var ValueAutoText: OleVariant): MailMergeField; dispid 109;
    function AddSkipIf(const Range: Range; const MergeField: WideString; 
                       Comparison: WdMailMergeComparison; var CompareTo: OleVariant): MailMergeField; dispid 110;
  end;

// *********************************************************************//
// Interface: MailMergeField
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002091E-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeField = interface(IDispatch)
    ['{0002091E-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_type_: WdFieldType; safecall;
    function Get_Locked: WordBool; safecall;
    procedure Set_Locked(prop: WordBool); safecall;
    function Get_Code: Range; safecall;
    procedure Set_Code(const prop: Range); safecall;
    function Get_Next: MailMergeField; safecall;
    function Get_Previous: MailMergeField; safecall;
    procedure Select; safecall;
    procedure Copy; safecall;
    procedure Cut; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property type_: WdFieldType read Get_type_;
    property Locked: WordBool read Get_Locked write Set_Locked;
    property Code: Range read Get_Code write Set_Code;
    property Next: MailMergeField read Get_Next;
    property Previous: MailMergeField read Get_Previous;
  end;

// *********************************************************************//
// DispIntf:  MailMergeFieldDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002091E-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeFieldDisp = dispinterface
    ['{0002091E-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property type_: WdFieldType readonly dispid 0;
    property Locked: WordBool dispid 3;
    property Code: Range dispid 5;
    property Next: MailMergeField readonly dispid 8;
    property Previous: MailMergeField readonly dispid 9;
    procedure Select; dispid 65535;
    procedure Copy; dispid 105;
    procedure Cut; dispid 106;
    procedure Delete; dispid 107;
  end;

// *********************************************************************//
// Interface: MailMergeDataSource
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002091D-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeDataSource = interface(IDispatch)
    ['{0002091D-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    function Get_HeaderSourceName: WideString; safecall;
    function Get_type_: WdMailMergeDataSource; safecall;
    function Get_HeaderSourceType: WdMailMergeDataSource; safecall;
    function Get_ConnectString: WideString; safecall;
    function Get_QueryString: WideString; safecall;
    procedure Set_QueryString(const prop: WideString); safecall;
    function Get_ActiveRecord: WdMailMergeActiveRecord; safecall;
    procedure Set_ActiveRecord(prop: WdMailMergeActiveRecord); safecall;
    function Get_FirstRecord: Integer; safecall;
    procedure Set_FirstRecord(prop: Integer); safecall;
    function Get_LastRecord: Integer; safecall;
    procedure Set_LastRecord(prop: Integer); safecall;
    function Get_FieldNames: MailMergeFieldNames; safecall;
    function Get_DataFields: MailMergeDataFields; safecall;
    function FindRecord2000(const FindText: WideString; const Field: WideString): WordBool; safecall;
    function Get_RecordCount: Integer; safecall;
    function Get_Included: WordBool; safecall;
    procedure Set_Included(prop: WordBool); safecall;
    function Get_InvalidAddress: WordBool; safecall;
    procedure Set_InvalidAddress(prop: WordBool); safecall;
    function Get_InvalidComments: WideString; safecall;
    procedure Set_InvalidComments(const prop: WideString); safecall;
    function Get_MappedDataFields: MappedDataFields; safecall;
    function Get_TableName: WideString; safecall;
    function FindRecord(const FindText: WideString; var Field: OleVariant): WordBool; safecall;
    procedure SetAllIncludedFlags(Included: WordBool); safecall;
    procedure SetAllErrorFlags(Invalid: WordBool; const InvalidComment: WideString); safecall;
    procedure Close; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
    property HeaderSourceName: WideString read Get_HeaderSourceName;
    property type_: WdMailMergeDataSource read Get_type_;
    property HeaderSourceType: WdMailMergeDataSource read Get_HeaderSourceType;
    property ConnectString: WideString read Get_ConnectString;
    property QueryString: WideString read Get_QueryString write Set_QueryString;
    property ActiveRecord: WdMailMergeActiveRecord read Get_ActiveRecord write Set_ActiveRecord;
    property FirstRecord: Integer read Get_FirstRecord write Set_FirstRecord;
    property LastRecord: Integer read Get_LastRecord write Set_LastRecord;
    property FieldNames: MailMergeFieldNames read Get_FieldNames;
    property DataFields: MailMergeDataFields read Get_DataFields;
    property RecordCount: Integer read Get_RecordCount;
    property Included: WordBool read Get_Included write Set_Included;
    property InvalidAddress: WordBool read Get_InvalidAddress write Set_InvalidAddress;
    property InvalidComments: WideString read Get_InvalidComments write Set_InvalidComments;
    property MappedDataFields: MappedDataFields read Get_MappedDataFields;
    property TableName: WideString read Get_TableName;
  end;

// *********************************************************************//
// DispIntf:  MailMergeDataSourceDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002091D-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeDataSourceDisp = dispinterface
    ['{0002091D-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString readonly dispid 1;
    property HeaderSourceName: WideString readonly dispid 2;
    property type_: WdMailMergeDataSource readonly dispid 3;
    property HeaderSourceType: WdMailMergeDataSource readonly dispid 4;
    property ConnectString: WideString readonly dispid 5;
    property QueryString: WideString dispid 6;
    property ActiveRecord: WdMailMergeActiveRecord dispid 7;
    property FirstRecord: Integer dispid 8;
    property LastRecord: Integer dispid 9;
    property FieldNames: MailMergeFieldNames readonly dispid 10;
    property DataFields: MailMergeDataFields readonly dispid 11;
    function FindRecord2000(const FindText: WideString; const Field: WideString): WordBool; dispid 101;
    property RecordCount: Integer readonly dispid 12;
    property Included: WordBool dispid 13;
    property InvalidAddress: WordBool dispid 14;
    property InvalidComments: WideString dispid 15;
    property MappedDataFields: MappedDataFields readonly dispid 16;
    property TableName: WideString readonly dispid 17;
    function FindRecord(const FindText: WideString; var Field: OleVariant): WordBool; dispid 102;
    procedure SetAllIncludedFlags(Included: WordBool); dispid 103;
    procedure SetAllErrorFlags(Invalid: WordBool; const InvalidComment: WideString); dispid 104;
    procedure Close; dispid 105;
  end;

// *********************************************************************//
// Interface: MailMergeFieldNames
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002091C-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeFieldNames = interface(IDispatch)
    ['{0002091C-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): MailMergeFieldName; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  MailMergeFieldNamesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002091C-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeFieldNamesDisp = dispinterface
    ['{0002091C-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): MailMergeFieldName; dispid 0;
  end;

// *********************************************************************//
// Interface: MailMergeFieldName
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002091B-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeFieldName = interface(IDispatch)
    ['{0002091B-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    function Get_Index: Integer; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
    property Index: Integer read Get_Index;
  end;

// *********************************************************************//
// DispIntf:  MailMergeFieldNameDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002091B-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeFieldNameDisp = dispinterface
    ['{0002091B-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString readonly dispid 0;
    property Index: Integer readonly dispid 1;
  end;

// *********************************************************************//
// Interface: MailMergeDataFields
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002091A-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeDataFields = interface(IDispatch)
    ['{0002091A-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): MailMergeDataField; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  MailMergeDataFieldsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002091A-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeDataFieldsDisp = dispinterface
    ['{0002091A-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): MailMergeDataField; dispid 0;
  end;

// *********************************************************************//
// Interface: MailMergeDataField
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020919-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeDataField = interface(IDispatch)
    ['{00020919-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Value: WideString; safecall;
    function Get_Name: WideString; safecall;
    function Get_Index: Integer; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Value: WideString read Get_Value;
    property Name: WideString read Get_Name;
    property Index: Integer read Get_Index;
  end;

// *********************************************************************//
// DispIntf:  MailMergeDataFieldDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020919-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMergeDataFieldDisp = dispinterface
    ['{00020919-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Value: WideString readonly dispid 0;
    property Name: WideString readonly dispid 1;
    property Index: Integer readonly dispid 2;
  end;

// *********************************************************************//
// Interface: Envelope
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020918-0000-0000-C000-000000000046}
// *********************************************************************//
  Envelope = interface(IDispatch)
    ['{00020918-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Address: Range; safecall;
    function Get_ReturnAddress: Range; safecall;
    function Get_DefaultPrintBarCode: WordBool; safecall;
    procedure Set_DefaultPrintBarCode(prop: WordBool); safecall;
    function Get_DefaultPrintFIMA: WordBool; safecall;
    procedure Set_DefaultPrintFIMA(prop: WordBool); safecall;
    function Get_DefaultHeight: Single; safecall;
    procedure Set_DefaultHeight(prop: Single); safecall;
    function Get_DefaultWidth: Single; safecall;
    procedure Set_DefaultWidth(prop: Single); safecall;
    function Get_DefaultSize: WideString; safecall;
    procedure Set_DefaultSize(const prop: WideString); safecall;
    function Get_DefaultOmitReturnAddress: WordBool; safecall;
    procedure Set_DefaultOmitReturnAddress(prop: WordBool); safecall;
    function Get_FeedSource: WdPaperTray; safecall;
    procedure Set_FeedSource(prop: WdPaperTray); safecall;
    function Get_AddressFromLeft: Single; safecall;
    procedure Set_AddressFromLeft(prop: Single); safecall;
    function Get_AddressFromTop: Single; safecall;
    procedure Set_AddressFromTop(prop: Single); safecall;
    function Get_ReturnAddressFromLeft: Single; safecall;
    procedure Set_ReturnAddressFromLeft(prop: Single); safecall;
    function Get_ReturnAddressFromTop: Single; safecall;
    procedure Set_ReturnAddressFromTop(prop: Single); safecall;
    function Get_AddressStyle: Style; safecall;
    function Get_ReturnAddressStyle: Style; safecall;
    function Get_DefaultOrientation: WdEnvelopeOrientation; safecall;
    procedure Set_DefaultOrientation(prop: WdEnvelopeOrientation); safecall;
    function Get_DefaultFaceUp: WordBool; safecall;
    procedure Set_DefaultFaceUp(prop: WordBool); safecall;
    procedure Insert2000(var ExtractAddress: OleVariant; var Address: OleVariant; 
                         var AutoText: OleVariant; var OmitReturnAddress: OleVariant; 
                         var ReturnAddress: OleVariant; var ReturnAutoText: OleVariant; 
                         var PrintBarCode: OleVariant; var PrintFIMA: OleVariant; 
                         var Size: OleVariant; var Height: OleVariant; var Width: OleVariant; 
                         var FeedSource: OleVariant; var AddressFromLeft: OleVariant; 
                         var AddressFromTop: OleVariant; var ReturnAddressFromLeft: OleVariant; 
                         var ReturnAddressFromTop: OleVariant; var DefaultFaceUp: OleVariant; 
                         var DefaultOrientation: OleVariant); safecall;
    procedure PrintOut2000(var ExtractAddress: OleVariant; var Address: OleVariant; 
                           var AutoText: OleVariant; var OmitReturnAddress: OleVariant; 
                           var ReturnAddress: OleVariant; var ReturnAutoText: OleVariant; 
                           var PrintBarCode: OleVariant; var PrintFIMA: OleVariant; 
                           var Size: OleVariant; var Height: OleVariant; var Width: OleVariant; 
                           var FeedSource: OleVariant; var AddressFromLeft: OleVariant; 
                           var AddressFromTop: OleVariant; var ReturnAddressFromLeft: OleVariant; 
                           var ReturnAddressFromTop: OleVariant; var DefaultFaceUp: OleVariant; 
                           var DefaultOrientation: OleVariant); safecall;
    procedure UpdateDocument; safecall;
    procedure Options; safecall;
    function Get_Vertical: WordBool; safecall;
    procedure Set_Vertical(prop: WordBool); safecall;
    function Get_RecipientNamefromLeft: Single; safecall;
    procedure Set_RecipientNamefromLeft(prop: Single); safecall;
    function Get_RecipientNamefromTop: Single; safecall;
    procedure Set_RecipientNamefromTop(prop: Single); safecall;
    function Get_RecipientPostalfromLeft: Single; safecall;
    procedure Set_RecipientPostalfromLeft(prop: Single); safecall;
    function Get_RecipientPostalfromTop: Single; safecall;
    procedure Set_RecipientPostalfromTop(prop: Single); safecall;
    function Get_SenderNamefromLeft: Single; safecall;
    procedure Set_SenderNamefromLeft(prop: Single); safecall;
    function Get_SenderNamefromTop: Single; safecall;
    procedure Set_SenderNamefromTop(prop: Single); safecall;
    function Get_SenderPostalfromLeft: Single; safecall;
    procedure Set_SenderPostalfromLeft(prop: Single); safecall;
    function Get_SenderPostalfromTop: Single; safecall;
    procedure Set_SenderPostalfromTop(prop: Single); safecall;
    procedure Insert(var ExtractAddress: OleVariant; var Address: OleVariant; 
                     var AutoText: OleVariant; var OmitReturnAddress: OleVariant; 
                     var ReturnAddress: OleVariant; var ReturnAutoText: OleVariant; 
                     var PrintBarCode: OleVariant; var PrintFIMA: OleVariant; var Size: OleVariant; 
                     var Height: OleVariant; var Width: OleVariant; var FeedSource: OleVariant; 
                     var AddressFromLeft: OleVariant; var AddressFromTop: OleVariant; 
                     var ReturnAddressFromLeft: OleVariant; var ReturnAddressFromTop: OleVariant; 
                     var DefaultFaceUp: OleVariant; var DefaultOrientation: OleVariant; 
                     var PrintEPostage: OleVariant; var Vertical: OleVariant; 
                     var RecipientNamefromLeft: OleVariant; var RecipientNamefromTop: OleVariant; 
                     var RecipientPostalfromLeft: OleVariant; 
                     var RecipientPostalfromTop: OleVariant; var SenderNamefromLeft: OleVariant; 
                     var SenderNamefromTop: OleVariant; var SenderPostalfromLeft: OleVariant; 
                     var SenderPostalfromTop: OleVariant); safecall;
    procedure PrintOut(var ExtractAddress: OleVariant; var Address: OleVariant; 
                       var AutoText: OleVariant; var OmitReturnAddress: OleVariant; 
                       var ReturnAddress: OleVariant; var ReturnAutoText: OleVariant; 
                       var PrintBarCode: OleVariant; var PrintFIMA: OleVariant; 
                       var Size: OleVariant; var Height: OleVariant; var Width: OleVariant; 
                       var FeedSource: OleVariant; var AddressFromLeft: OleVariant; 
                       var AddressFromTop: OleVariant; var ReturnAddressFromLeft: OleVariant; 
                       var ReturnAddressFromTop: OleVariant; var DefaultFaceUp: OleVariant; 
                       var DefaultOrientation: OleVariant; var PrintEPostage: OleVariant; 
                       var Vertical: OleVariant; var RecipientNamefromLeft: OleVariant; 
                       var RecipientNamefromTop: OleVariant; 
                       var RecipientPostalfromLeft: OleVariant; 
                       var RecipientPostalfromTop: OleVariant; var SenderNamefromLeft: OleVariant; 
                       var SenderNamefromTop: OleVariant; var SenderPostalfromLeft: OleVariant; 
                       var SenderPostalfromTop: OleVariant); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Address: Range read Get_Address;
    property ReturnAddress: Range read Get_ReturnAddress;
    property DefaultPrintBarCode: WordBool read Get_DefaultPrintBarCode write Set_DefaultPrintBarCode;
    property DefaultPrintFIMA: WordBool read Get_DefaultPrintFIMA write Set_DefaultPrintFIMA;
    property DefaultHeight: Single read Get_DefaultHeight write Set_DefaultHeight;
    property DefaultWidth: Single read Get_DefaultWidth write Set_DefaultWidth;
    property DefaultSize: WideString read Get_DefaultSize write Set_DefaultSize;
    property DefaultOmitReturnAddress: WordBool read Get_DefaultOmitReturnAddress write Set_DefaultOmitReturnAddress;
    property FeedSource: WdPaperTray read Get_FeedSource write Set_FeedSource;
    property AddressFromLeft: Single read Get_AddressFromLeft write Set_AddressFromLeft;
    property AddressFromTop: Single read Get_AddressFromTop write Set_AddressFromTop;
    property ReturnAddressFromLeft: Single read Get_ReturnAddressFromLeft write Set_ReturnAddressFromLeft;
    property ReturnAddressFromTop: Single read Get_ReturnAddressFromTop write Set_ReturnAddressFromTop;
    property AddressStyle: Style read Get_AddressStyle;
    property ReturnAddressStyle: Style read Get_ReturnAddressStyle;
    property DefaultOrientation: WdEnvelopeOrientation read Get_DefaultOrientation write Set_DefaultOrientation;
    property DefaultFaceUp: WordBool read Get_DefaultFaceUp write Set_DefaultFaceUp;
    property Vertical: WordBool read Get_Vertical write Set_Vertical;
    property RecipientNamefromLeft: Single read Get_RecipientNamefromLeft write Set_RecipientNamefromLeft;
    property RecipientNamefromTop: Single read Get_RecipientNamefromTop write Set_RecipientNamefromTop;
    property RecipientPostalfromLeft: Single read Get_RecipientPostalfromLeft write Set_RecipientPostalfromLeft;
    property RecipientPostalfromTop: Single read Get_RecipientPostalfromTop write Set_RecipientPostalfromTop;
    property SenderNamefromLeft: Single read Get_SenderNamefromLeft write Set_SenderNamefromLeft;
    property SenderNamefromTop: Single read Get_SenderNamefromTop write Set_SenderNamefromTop;
    property SenderPostalfromLeft: Single read Get_SenderPostalfromLeft write Set_SenderPostalfromLeft;
    property SenderPostalfromTop: Single read Get_SenderPostalfromTop write Set_SenderPostalfromTop;
  end;

// *********************************************************************//
// DispIntf:  EnvelopeDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020918-0000-0000-C000-000000000046}
// *********************************************************************//
  EnvelopeDisp = dispinterface
    ['{00020918-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Address: Range readonly dispid 1;
    property ReturnAddress: Range readonly dispid 2;
    property DefaultPrintBarCode: WordBool dispid 4;
    property DefaultPrintFIMA: WordBool dispid 5;
    property DefaultHeight: Single dispid 6;
    property DefaultWidth: Single dispid 7;
    property DefaultSize: WideString dispid 0;
    property DefaultOmitReturnAddress: WordBool dispid 9;
    property FeedSource: WdPaperTray dispid 12;
    property AddressFromLeft: Single dispid 13;
    property AddressFromTop: Single dispid 14;
    property ReturnAddressFromLeft: Single dispid 15;
    property ReturnAddressFromTop: Single dispid 16;
    property AddressStyle: Style readonly dispid 17;
    property ReturnAddressStyle: Style readonly dispid 18;
    property DefaultOrientation: WdEnvelopeOrientation dispid 19;
    property DefaultFaceUp: WordBool dispid 20;
    procedure Insert2000(var ExtractAddress: OleVariant; var Address: OleVariant; 
                         var AutoText: OleVariant; var OmitReturnAddress: OleVariant; 
                         var ReturnAddress: OleVariant; var ReturnAutoText: OleVariant; 
                         var PrintBarCode: OleVariant; var PrintFIMA: OleVariant; 
                         var Size: OleVariant; var Height: OleVariant; var Width: OleVariant; 
                         var FeedSource: OleVariant; var AddressFromLeft: OleVariant; 
                         var AddressFromTop: OleVariant; var ReturnAddressFromLeft: OleVariant; 
                         var ReturnAddressFromTop: OleVariant; var DefaultFaceUp: OleVariant; 
                         var DefaultOrientation: OleVariant); dispid 101;
    procedure PrintOut2000(var ExtractAddress: OleVariant; var Address: OleVariant; 
                           var AutoText: OleVariant; var OmitReturnAddress: OleVariant; 
                           var ReturnAddress: OleVariant; var ReturnAutoText: OleVariant; 
                           var PrintBarCode: OleVariant; var PrintFIMA: OleVariant; 
                           var Size: OleVariant; var Height: OleVariant; var Width: OleVariant; 
                           var FeedSource: OleVariant; var AddressFromLeft: OleVariant; 
                           var AddressFromTop: OleVariant; var ReturnAddressFromLeft: OleVariant; 
                           var ReturnAddressFromTop: OleVariant; var DefaultFaceUp: OleVariant; 
                           var DefaultOrientation: OleVariant); dispid 102;
    procedure UpdateDocument; dispid 103;
    procedure Options; dispid 104;
    property Vertical: WordBool dispid 22;
    property RecipientNamefromLeft: Single dispid 23;
    property RecipientNamefromTop: Single dispid 24;
    property RecipientPostalfromLeft: Single dispid 25;
    property RecipientPostalfromTop: Single dispid 26;
    property SenderNamefromLeft: Single dispid 27;
    property SenderNamefromTop: Single dispid 28;
    property SenderPostalfromLeft: Single dispid 29;
    property SenderPostalfromTop: Single dispid 30;
    procedure Insert(var ExtractAddress: OleVariant; var Address: OleVariant; 
                     var AutoText: OleVariant; var OmitReturnAddress: OleVariant; 
                     var ReturnAddress: OleVariant; var ReturnAutoText: OleVariant; 
                     var PrintBarCode: OleVariant; var PrintFIMA: OleVariant; var Size: OleVariant; 
                     var Height: OleVariant; var Width: OleVariant; var FeedSource: OleVariant; 
                     var AddressFromLeft: OleVariant; var AddressFromTop: OleVariant; 
                     var ReturnAddressFromLeft: OleVariant; var ReturnAddressFromTop: OleVariant; 
                     var DefaultFaceUp: OleVariant; var DefaultOrientation: OleVariant; 
                     var PrintEPostage: OleVariant; var Vertical: OleVariant; 
                     var RecipientNamefromLeft: OleVariant; var RecipientNamefromTop: OleVariant; 
                     var RecipientPostalfromLeft: OleVariant; 
                     var RecipientPostalfromTop: OleVariant; var SenderNamefromLeft: OleVariant; 
                     var SenderNamefromTop: OleVariant; var SenderPostalfromLeft: OleVariant; 
                     var SenderPostalfromTop: OleVariant); dispid 105;
    procedure PrintOut(var ExtractAddress: OleVariant; var Address: OleVariant; 
                       var AutoText: OleVariant; var OmitReturnAddress: OleVariant; 
                       var ReturnAddress: OleVariant; var ReturnAutoText: OleVariant; 
                       var PrintBarCode: OleVariant; var PrintFIMA: OleVariant; 
                       var Size: OleVariant; var Height: OleVariant; var Width: OleVariant; 
                       var FeedSource: OleVariant; var AddressFromLeft: OleVariant; 
                       var AddressFromTop: OleVariant; var ReturnAddressFromLeft: OleVariant; 
                       var ReturnAddressFromTop: OleVariant; var DefaultFaceUp: OleVariant; 
                       var DefaultOrientation: OleVariant; var PrintEPostage: OleVariant; 
                       var Vertical: OleVariant; var RecipientNamefromLeft: OleVariant; 
                       var RecipientNamefromTop: OleVariant; 
                       var RecipientPostalfromLeft: OleVariant; 
                       var RecipientPostalfromTop: OleVariant; var SenderNamefromLeft: OleVariant; 
                       var SenderNamefromTop: OleVariant; var SenderPostalfromLeft: OleVariant; 
                       var SenderPostalfromTop: OleVariant); dispid 106;
  end;

// *********************************************************************//
// Interface: MailingLabel
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020917-0000-0000-C000-000000000046}
// *********************************************************************//
  MailingLabel = interface(IDispatch)
    ['{00020917-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_DefaultPrintBarCode: WordBool; safecall;
    procedure Set_DefaultPrintBarCode(prop: WordBool); safecall;
    function Get_DefaultLaserTray: WdPaperTray; safecall;
    procedure Set_DefaultLaserTray(prop: WdPaperTray); safecall;
    function Get_CustomLabels: CustomLabels; safecall;
    function Get_DefaultLabelName: WideString; safecall;
    procedure Set_DefaultLabelName(const prop: WideString); safecall;
    function CreateNewDocument2000(var Name: OleVariant; var Address: OleVariant; 
                                   var AutoText: OleVariant; var ExtractAddress: OleVariant; 
                                   var LaserTray: OleVariant): WordDocument; safecall;
    procedure PrintOut2000(var Name: OleVariant; var Address: OleVariant; 
                           var ExtractAddress: OleVariant; var LaserTray: OleVariant; 
                           var SingleLabel: OleVariant; var Row: OleVariant; var Column: OleVariant); safecall;
    procedure LabelOptions; safecall;
    function CreateNewDocument(var Name: OleVariant; var Address: OleVariant; 
                               var AutoText: OleVariant; var ExtractAddress: OleVariant; 
                               var LaserTray: OleVariant; var PrintEPostageLabel: OleVariant; 
                               var Vertical: OleVariant): WordDocument; safecall;
    procedure PrintOut(var Name: OleVariant; var Address: OleVariant; 
                       var ExtractAddress: OleVariant; var LaserTray: OleVariant; 
                       var SingleLabel: OleVariant; var Row: OleVariant; var Column: OleVariant; 
                       var PrintEPostageLabel: OleVariant; var Vertical: OleVariant); safecall;
    function Get_Vertical: WordBool; safecall;
    procedure Set_Vertical(prop: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property DefaultPrintBarCode: WordBool read Get_DefaultPrintBarCode write Set_DefaultPrintBarCode;
    property DefaultLaserTray: WdPaperTray read Get_DefaultLaserTray write Set_DefaultLaserTray;
    property CustomLabels: CustomLabels read Get_CustomLabels;
    property DefaultLabelName: WideString read Get_DefaultLabelName write Set_DefaultLabelName;
    property Vertical: WordBool read Get_Vertical write Set_Vertical;
  end;

// *********************************************************************//
// DispIntf:  MailingLabelDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020917-0000-0000-C000-000000000046}
// *********************************************************************//
  MailingLabelDisp = dispinterface
    ['{00020917-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property DefaultPrintBarCode: WordBool dispid 2;
    property DefaultLaserTray: WdPaperTray dispid 4;
    property CustomLabels: CustomLabels readonly dispid 8;
    property DefaultLabelName: WideString dispid 9;
    function CreateNewDocument2000(var Name: OleVariant; var Address: OleVariant; 
                                   var AutoText: OleVariant; var ExtractAddress: OleVariant; 
                                   var LaserTray: OleVariant): WordDocument; dispid 101;
    procedure PrintOut2000(var Name: OleVariant; var Address: OleVariant; 
                           var ExtractAddress: OleVariant; var LaserTray: OleVariant; 
                           var SingleLabel: OleVariant; var Row: OleVariant; var Column: OleVariant); dispid 102;
    procedure LabelOptions; dispid 103;
    function CreateNewDocument(var Name: OleVariant; var Address: OleVariant; 
                               var AutoText: OleVariant; var ExtractAddress: OleVariant; 
                               var LaserTray: OleVariant; var PrintEPostageLabel: OleVariant; 
                               var Vertical: OleVariant): WordDocument; dispid 104;
    procedure PrintOut(var Name: OleVariant; var Address: OleVariant; 
                       var ExtractAddress: OleVariant; var LaserTray: OleVariant; 
                       var SingleLabel: OleVariant; var Row: OleVariant; var Column: OleVariant; 
                       var PrintEPostageLabel: OleVariant; var Vertical: OleVariant); dispid 105;
    property Vertical: WordBool dispid 10;
  end;

// *********************************************************************//
// Interface: CustomLabels
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020916-0000-0000-C000-000000000046}
// *********************************************************************//
  CustomLabels = interface(IDispatch)
    ['{00020916-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): CustomLabel; safecall;
    function Add(const Name: WideString; var DotMatrix: OleVariant): CustomLabel; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  CustomLabelsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020916-0000-0000-C000-000000000046}
// *********************************************************************//
  CustomLabelsDisp = dispinterface
    ['{00020916-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): CustomLabel; dispid 0;
    function Add(const Name: WideString; var DotMatrix: OleVariant): CustomLabel; dispid 101;
  end;

// *********************************************************************//
// Interface: CustomLabel
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020915-0000-0000-C000-000000000046}
// *********************************************************************//
  CustomLabel = interface(IDispatch)
    ['{00020915-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Index: Integer; safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const prop: WideString); safecall;
    function Get_TopMargin: Single; safecall;
    procedure Set_TopMargin(prop: Single); safecall;
    function Get_SideMargin: Single; safecall;
    procedure Set_SideMargin(prop: Single); safecall;
    function Get_Height: Single; safecall;
    procedure Set_Height(prop: Single); safecall;
    function Get_Width: Single; safecall;
    procedure Set_Width(prop: Single); safecall;
    function Get_VerticalPitch: Single; safecall;
    procedure Set_VerticalPitch(prop: Single); safecall;
    function Get_HorizontalPitch: Single; safecall;
    procedure Set_HorizontalPitch(prop: Single); safecall;
    function Get_NumberAcross: Integer; safecall;
    procedure Set_NumberAcross(prop: Integer); safecall;
    function Get_NumberDown: Integer; safecall;
    procedure Set_NumberDown(prop: Integer); safecall;
    function Get_DotMatrix: WordBool; safecall;
    function Get_PageSize: WdCustomLabelPageSize; safecall;
    procedure Set_PageSize(prop: WdCustomLabelPageSize); safecall;
    function Get_Valid: WordBool; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Index: Integer read Get_Index;
    property Name: WideString read Get_Name write Set_Name;
    property TopMargin: Single read Get_TopMargin write Set_TopMargin;
    property SideMargin: Single read Get_SideMargin write Set_SideMargin;
    property Height: Single read Get_Height write Set_Height;
    property Width: Single read Get_Width write Set_Width;
    property VerticalPitch: Single read Get_VerticalPitch write Set_VerticalPitch;
    property HorizontalPitch: Single read Get_HorizontalPitch write Set_HorizontalPitch;
    property NumberAcross: Integer read Get_NumberAcross write Set_NumberAcross;
    property NumberDown: Integer read Get_NumberDown write Set_NumberDown;
    property DotMatrix: WordBool read Get_DotMatrix;
    property PageSize: WdCustomLabelPageSize read Get_PageSize write Set_PageSize;
    property Valid: WordBool read Get_Valid;
  end;

// *********************************************************************//
// DispIntf:  CustomLabelDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020915-0000-0000-C000-000000000046}
// *********************************************************************//
  CustomLabelDisp = dispinterface
    ['{00020915-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Index: Integer readonly dispid 1;
    property Name: WideString dispid 2;
    property TopMargin: Single dispid 3;
    property SideMargin: Single dispid 4;
    property Height: Single dispid 5;
    property Width: Single dispid 6;
    property VerticalPitch: Single dispid 7;
    property HorizontalPitch: Single dispid 8;
    property NumberAcross: Integer dispid 9;
    property NumberDown: Integer dispid 10;
    property DotMatrix: WordBool readonly dispid 11;
    property PageSize: WdCustomLabelPageSize dispid 12;
    property Valid: WordBool readonly dispid 13;
    procedure Delete; dispid 101;
  end;

// *********************************************************************//
// Interface: TablesOfContents
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020914-0000-0000-C000-000000000046}
// *********************************************************************//
  TablesOfContents = interface(IDispatch)
    ['{00020914-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Format: WdTocFormat; safecall;
    procedure Set_Format(prop: WdTocFormat); safecall;
    function Item(Index: Integer): TableOfContents; safecall;
    function AddOld(const Range: Range; var UseHeadingStyles: OleVariant; 
                    var UpperHeadingLevel: OleVariant; var LowerHeadingLevel: OleVariant; 
                    var UseFields: OleVariant; var TableID: OleVariant; 
                    var RightAlignPageNumbers: OleVariant; var IncludePageNumbers: OleVariant; 
                    var AddedStyles: OleVariant): TableOfContents; safecall;
    function MarkEntry(const Range: Range; var Entry: OleVariant; var EntryAutoText: OleVariant; 
                       var TableID: OleVariant; var Level: OleVariant): Field; safecall;
    function Add2000(const Range: Range; var UseHeadingStyles: OleVariant; 
                     var UpperHeadingLevel: OleVariant; var LowerHeadingLevel: OleVariant; 
                     var UseFields: OleVariant; var TableID: OleVariant; 
                     var RightAlignPageNumbers: OleVariant; var IncludePageNumbers: OleVariant; 
                     var AddedStyles: OleVariant; var UseHyperlinks: OleVariant; 
                     var HidePageNumbersInWeb: OleVariant): TableOfContents; safecall;
    function Add(const Range: Range; var UseHeadingStyles: OleVariant; 
                 var UpperHeadingLevel: OleVariant; var LowerHeadingLevel: OleVariant; 
                 var UseFields: OleVariant; var TableID: OleVariant; 
                 var RightAlignPageNumbers: OleVariant; var IncludePageNumbers: OleVariant; 
                 var AddedStyles: OleVariant; var UseHyperlinks: OleVariant; 
                 var HidePageNumbersInWeb: OleVariant; var UseOutlineLevels: OleVariant): TableOfContents; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Format: WdTocFormat read Get_Format write Set_Format;
  end;

// *********************************************************************//
// DispIntf:  TablesOfContentsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020914-0000-0000-C000-000000000046}
// *********************************************************************//
  TablesOfContentsDisp = dispinterface
    ['{00020914-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    property Format: WdTocFormat dispid 2;
    function Item(Index: Integer): TableOfContents; dispid 0;
    function AddOld(const Range: Range; var UseHeadingStyles: OleVariant; 
                    var UpperHeadingLevel: OleVariant; var LowerHeadingLevel: OleVariant; 
                    var UseFields: OleVariant; var TableID: OleVariant; 
                    var RightAlignPageNumbers: OleVariant; var IncludePageNumbers: OleVariant; 
                    var AddedStyles: OleVariant): TableOfContents; dispid 100;
    function MarkEntry(const Range: Range; var Entry: OleVariant; var EntryAutoText: OleVariant; 
                       var TableID: OleVariant; var Level: OleVariant): Field; dispid 101;
    function Add2000(const Range: Range; var UseHeadingStyles: OleVariant; 
                     var UpperHeadingLevel: OleVariant; var LowerHeadingLevel: OleVariant; 
                     var UseFields: OleVariant; var TableID: OleVariant; 
                     var RightAlignPageNumbers: OleVariant; var IncludePageNumbers: OleVariant; 
                     var AddedStyles: OleVariant; var UseHyperlinks: OleVariant; 
                     var HidePageNumbersInWeb: OleVariant): TableOfContents; dispid 102;
    function Add(const Range: Range; var UseHeadingStyles: OleVariant; 
                 var UpperHeadingLevel: OleVariant; var LowerHeadingLevel: OleVariant; 
                 var UseFields: OleVariant; var TableID: OleVariant; 
                 var RightAlignPageNumbers: OleVariant; var IncludePageNumbers: OleVariant; 
                 var AddedStyles: OleVariant; var UseHyperlinks: OleVariant; 
                 var HidePageNumbersInWeb: OleVariant; var UseOutlineLevels: OleVariant): TableOfContents; dispid 103;
  end;

// *********************************************************************//
// Interface: TableOfContents
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020913-0000-0000-C000-000000000046}
// *********************************************************************//
  TableOfContents = interface(IDispatch)
    ['{00020913-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_UseHeadingStyles: WordBool; safecall;
    procedure Set_UseHeadingStyles(prop: WordBool); safecall;
    function Get_UseFields: WordBool; safecall;
    procedure Set_UseFields(prop: WordBool); safecall;
    function Get_UpperHeadingLevel: Integer; safecall;
    procedure Set_UpperHeadingLevel(prop: Integer); safecall;
    function Get_LowerHeadingLevel: Integer; safecall;
    procedure Set_LowerHeadingLevel(prop: Integer); safecall;
    function Get_TableID: WideString; safecall;
    procedure Set_TableID(const prop: WideString); safecall;
    function Get_HeadingStyles: HeadingStyles; safecall;
    function Get_RightAlignPageNumbers: WordBool; safecall;
    procedure Set_RightAlignPageNumbers(prop: WordBool); safecall;
    function Get_IncludePageNumbers: WordBool; safecall;
    procedure Set_IncludePageNumbers(prop: WordBool); safecall;
    function Get_Range: Range; safecall;
    function Get_TabLeader: WdTabLeader; safecall;
    procedure Set_TabLeader(prop: WdTabLeader); safecall;
    procedure Delete; safecall;
    procedure UpdatePageNumbers; safecall;
    procedure Update; safecall;
    function Get_UseHyperlinks: WordBool; safecall;
    procedure Set_UseHyperlinks(prop: WordBool); safecall;
    function Get_HidePageNumbersInWeb: WordBool; safecall;
    procedure Set_HidePageNumbersInWeb(prop: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property UseHeadingStyles: WordBool read Get_UseHeadingStyles write Set_UseHeadingStyles;
    property UseFields: WordBool read Get_UseFields write Set_UseFields;
    property UpperHeadingLevel: Integer read Get_UpperHeadingLevel write Set_UpperHeadingLevel;
    property LowerHeadingLevel: Integer read Get_LowerHeadingLevel write Set_LowerHeadingLevel;
    property TableID: WideString read Get_TableID write Set_TableID;
    property HeadingStyles: HeadingStyles read Get_HeadingStyles;
    property RightAlignPageNumbers: WordBool read Get_RightAlignPageNumbers write Set_RightAlignPageNumbers;
    property IncludePageNumbers: WordBool read Get_IncludePageNumbers write Set_IncludePageNumbers;
    property Range: Range read Get_Range;
    property TabLeader: WdTabLeader read Get_TabLeader write Set_TabLeader;
    property UseHyperlinks: WordBool read Get_UseHyperlinks write Set_UseHyperlinks;
    property HidePageNumbersInWeb: WordBool read Get_HidePageNumbersInWeb write Set_HidePageNumbersInWeb;
  end;

// *********************************************************************//
// DispIntf:  TableOfContentsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020913-0000-0000-C000-000000000046}
// *********************************************************************//
  TableOfContentsDisp = dispinterface
    ['{00020913-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property UseHeadingStyles: WordBool dispid 1;
    property UseFields: WordBool dispid 2;
    property UpperHeadingLevel: Integer dispid 3;
    property LowerHeadingLevel: Integer dispid 4;
    property TableID: WideString dispid 5;
    property HeadingStyles: HeadingStyles readonly dispid 6;
    property RightAlignPageNumbers: WordBool dispid 7;
    property IncludePageNumbers: WordBool dispid 8;
    property Range: Range readonly dispid 9;
    property TabLeader: WdTabLeader dispid 10;
    procedure Delete; dispid 100;
    procedure UpdatePageNumbers; dispid 101;
    procedure Update; dispid 102;
    property UseHyperlinks: WordBool dispid 11;
    property HidePageNumbersInWeb: WordBool dispid 12;
  end;

// *********************************************************************//
// Interface: TablesOfAuthorities
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020912-0000-0000-C000-000000000046}
// *********************************************************************//
  TablesOfAuthorities = interface(IDispatch)
    ['{00020912-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Format: WdToaFormat; safecall;
    procedure Set_Format(prop: WdToaFormat); safecall;
    function Item(Index: Integer): TableOfAuthorities; safecall;
    function Add(const Range: Range; var Category: OleVariant; var Bookmark: OleVariant; 
                 var Passim: OleVariant; var KeepEntryFormatting: OleVariant; 
                 var Separator: OleVariant; var IncludeSequenceName: OleVariant; 
                 var EntrySeparator: OleVariant; var PageRangeSeparator: OleVariant; 
                 var IncludeCategoryHeader: OleVariant; var PageNumberSeparator: OleVariant): TableOfAuthorities; safecall;
    procedure NextCitation(const ShortCitation: WideString); safecall;
    function MarkCitation(const Range: Range; const ShortCitation: WideString; 
                          var LongCitation: OleVariant; var LongCitationAutoText: OleVariant; 
                          var Category: OleVariant): Field; safecall;
    procedure MarkAllCitations(const ShortCitation: WideString; var LongCitation: OleVariant; 
                               var LongCitationAutoText: OleVariant; var Category: OleVariant); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Format: WdToaFormat read Get_Format write Set_Format;
  end;

// *********************************************************************//
// DispIntf:  TablesOfAuthoritiesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020912-0000-0000-C000-000000000046}
// *********************************************************************//
  TablesOfAuthoritiesDisp = dispinterface
    ['{00020912-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    property Format: WdToaFormat dispid 2;
    function Item(Index: Integer): TableOfAuthorities; dispid 0;
    function Add(const Range: Range; var Category: OleVariant; var Bookmark: OleVariant; 
                 var Passim: OleVariant; var KeepEntryFormatting: OleVariant; 
                 var Separator: OleVariant; var IncludeSequenceName: OleVariant; 
                 var EntrySeparator: OleVariant; var PageRangeSeparator: OleVariant; 
                 var IncludeCategoryHeader: OleVariant; var PageNumberSeparator: OleVariant): TableOfAuthorities; dispid 100;
    procedure NextCitation(const ShortCitation: WideString); dispid 103;
    function MarkCitation(const Range: Range; const ShortCitation: WideString; 
                          var LongCitation: OleVariant; var LongCitationAutoText: OleVariant; 
                          var Category: OleVariant): Field; dispid 101;
    procedure MarkAllCitations(const ShortCitation: WideString; var LongCitation: OleVariant; 
                               var LongCitationAutoText: OleVariant; var Category: OleVariant); dispid 102;
  end;

// *********************************************************************//
// Interface: TableOfAuthorities
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020911-0000-0000-C000-000000000046}
// *********************************************************************//
  TableOfAuthorities = interface(IDispatch)
    ['{00020911-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Passim: WordBool; safecall;
    procedure Set_Passim(prop: WordBool); safecall;
    function Get_KeepEntryFormatting: WordBool; safecall;
    procedure Set_KeepEntryFormatting(prop: WordBool); safecall;
    function Get_Category: Integer; safecall;
    procedure Set_Category(prop: Integer); safecall;
    function Get_Bookmark: WideString; safecall;
    procedure Set_Bookmark(const prop: WideString); safecall;
    function Get_Separator: WideString; safecall;
    procedure Set_Separator(const prop: WideString); safecall;
    function Get_IncludeSequenceName: WideString; safecall;
    procedure Set_IncludeSequenceName(const prop: WideString); safecall;
    function Get_EntrySeparator: WideString; safecall;
    procedure Set_EntrySeparator(const prop: WideString); safecall;
    function Get_PageRangeSeparator: WideString; safecall;
    procedure Set_PageRangeSeparator(const prop: WideString); safecall;
    function Get_IncludeCategoryHeader: WordBool; safecall;
    procedure Set_IncludeCategoryHeader(prop: WordBool); safecall;
    function Get_PageNumberSeparator: WideString; safecall;
    procedure Set_PageNumberSeparator(const prop: WideString); safecall;
    function Get_Range: Range; safecall;
    function Get_TabLeader: WdTabLeader; safecall;
    procedure Set_TabLeader(prop: WdTabLeader); safecall;
    procedure Delete; safecall;
    procedure Update; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Passim: WordBool read Get_Passim write Set_Passim;
    property KeepEntryFormatting: WordBool read Get_KeepEntryFormatting write Set_KeepEntryFormatting;
    property Category: Integer read Get_Category write Set_Category;
    property Bookmark: WideString read Get_Bookmark write Set_Bookmark;
    property Separator: WideString read Get_Separator write Set_Separator;
    property IncludeSequenceName: WideString read Get_IncludeSequenceName write Set_IncludeSequenceName;
    property EntrySeparator: WideString read Get_EntrySeparator write Set_EntrySeparator;
    property PageRangeSeparator: WideString read Get_PageRangeSeparator write Set_PageRangeSeparator;
    property IncludeCategoryHeader: WordBool read Get_IncludeCategoryHeader write Set_IncludeCategoryHeader;
    property PageNumberSeparator: WideString read Get_PageNumberSeparator write Set_PageNumberSeparator;
    property Range: Range read Get_Range;
    property TabLeader: WdTabLeader read Get_TabLeader write Set_TabLeader;
  end;

// *********************************************************************//
// DispIntf:  TableOfAuthoritiesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020911-0000-0000-C000-000000000046}
// *********************************************************************//
  TableOfAuthoritiesDisp = dispinterface
    ['{00020911-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Passim: WordBool dispid 1;
    property KeepEntryFormatting: WordBool dispid 2;
    property Category: Integer dispid 3;
    property Bookmark: WideString dispid 4;
    property Separator: WideString dispid 5;
    property IncludeSequenceName: WideString dispid 6;
    property EntrySeparator: WideString dispid 7;
    property PageRangeSeparator: WideString dispid 8;
    property IncludeCategoryHeader: WordBool dispid 9;
    property PageNumberSeparator: WideString dispid 10;
    property Range: Range readonly dispid 11;
    property TabLeader: WdTabLeader dispid 12;
    procedure Delete; dispid 100;
    procedure Update; dispid 101;
  end;

// *********************************************************************//
// Interface: Dialogs
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020910-0000-0000-C000-000000000046}
// *********************************************************************//
  Dialogs = interface(IDispatch)
    ['{00020910-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(Index: WdWordDialog): Dialog; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  DialogsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020910-0000-0000-C000-000000000046}
// *********************************************************************//
  DialogsDisp = dispinterface
    ['{00020910-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(Index: WdWordDialog): Dialog; dispid 0;
  end;

// *********************************************************************//
// Interface: Dialog
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {000209B8-0000-0000-C000-000000000046}
// *********************************************************************//
  Dialog = interface(IDispatch)
    ['{000209B8-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_DefaultTab: WdWordDialogTab; safecall;
    procedure Set_DefaultTab(prop: WdWordDialogTab); safecall;
    function Get_type_: WdWordDialog; safecall;
    function Show(var TimeOut: OleVariant): Integer; safecall;
    function Display(var TimeOut: OleVariant): Integer; safecall;
    procedure Execute; safecall;
    procedure Update; safecall;
    function Get_CommandName: WideString; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property DefaultTab: WdWordDialogTab read Get_DefaultTab write Set_DefaultTab;
    property type_: WdWordDialog read Get_type_;
    property CommandName: WideString read Get_CommandName;
  end;

// *********************************************************************//
// DispIntf:  DialogDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {000209B8-0000-0000-C000-000000000046}
// *********************************************************************//
  DialogDisp = dispinterface
    ['{000209B8-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 32003;
    property Creator: Integer readonly dispid 32004;
    property Parent: IDispatch readonly dispid 32005;
    property DefaultTab: WdWordDialogTab dispid 32002;
    property type_: WdWordDialog readonly dispid 0;
    function Show(var TimeOut: OleVariant): Integer; dispid 336;
    function Display(var TimeOut: OleVariant): Integer; dispid 338;
    procedure Execute; dispid 32001;
    procedure Update; dispid 302;
    property CommandName: WideString readonly dispid 32006;
  end;

// *********************************************************************//
// Interface: PageSetup
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020971-0000-0000-C000-000000000046}
// *********************************************************************//
  PageSetup = interface(IDispatch)
    ['{00020971-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_TopMargin: Single; safecall;
    procedure Set_TopMargin(prop: Single); safecall;
    function Get_BottomMargin: Single; safecall;
    procedure Set_BottomMargin(prop: Single); safecall;
    function Get_LeftMargin: Single; safecall;
    procedure Set_LeftMargin(prop: Single); safecall;
    function Get_RightMargin: Single; safecall;
    procedure Set_RightMargin(prop: Single); safecall;
    function Get_Gutter: Single; safecall;
    procedure Set_Gutter(prop: Single); safecall;
    function Get_PageWidth: Single; safecall;
    procedure Set_PageWidth(prop: Single); safecall;
    function Get_PageHeight: Single; safecall;
    procedure Set_PageHeight(prop: Single); safecall;
    function Get_Orientation: WdOrientation; safecall;
    procedure Set_Orientation(prop: WdOrientation); safecall;
    function Get_FirstPageTray: WdPaperTray; safecall;
    procedure Set_FirstPageTray(prop: WdPaperTray); safecall;
    function Get_OtherPagesTray: WdPaperTray; safecall;
    procedure Set_OtherPagesTray(prop: WdPaperTray); safecall;
    function Get_VerticalAlignment: WdVerticalAlignment; safecall;
    procedure Set_VerticalAlignment(prop: WdVerticalAlignment); safecall;
    function Get_MirrorMargins: Integer; safecall;
    procedure Set_MirrorMargins(prop: Integer); safecall;
    function Get_HeaderDistance: Single; safecall;
    procedure Set_HeaderDistance(prop: Single); safecall;
    function Get_FooterDistance: Single; safecall;
    procedure Set_FooterDistance(prop: Single); safecall;
    function Get_SectionStart: WdSectionStart; safecall;
    procedure Set_SectionStart(prop: WdSectionStart); safecall;
    function Get_OddAndEvenPagesHeaderFooter: Integer; safecall;
    procedure Set_OddAndEvenPagesHeaderFooter(prop: Integer); safecall;
    function Get_DifferentFirstPageHeaderFooter: Integer; safecall;
    procedure Set_DifferentFirstPageHeaderFooter(prop: Integer); safecall;
    function Get_SuppressEndnotes: Integer; safecall;
    procedure Set_SuppressEndnotes(prop: Integer); safecall;
    function Get_LineNumbering: LineNumbering; safecall;
    procedure Set_LineNumbering(const prop: LineNumbering); safecall;
    function Get_TextColumns: TextColumns; safecall;
    procedure Set_TextColumns(const prop: TextColumns); safecall;
    function Get_PaperSize: WdPaperSize; safecall;
    procedure Set_PaperSize(prop: WdPaperSize); safecall;
    function Get_TwoPagesOnOne: WordBool; safecall;
    procedure Set_TwoPagesOnOne(prop: WordBool); safecall;
    function Get_GutterOnTop: WordBool; safecall;
    procedure Set_GutterOnTop(prop: WordBool); safecall;
    function Get_CharsLine: Single; safecall;
    procedure Set_CharsLine(prop: Single); safecall;
    function Get_LinesPage: Single; safecall;
    procedure Set_LinesPage(prop: Single); safecall;
    function Get_ShowGrid: WordBool; safecall;
    procedure Set_ShowGrid(prop: WordBool); safecall;
    procedure TogglePortrait; safecall;
    procedure SetAsTemplateDefault; safecall;
    function Get_GutterStyle: WdGutterStyleOld; safecall;
    procedure Set_GutterStyle(prop: WdGutterStyleOld); safecall;
    function Get_SectionDirection: WdSectionDirection; safecall;
    procedure Set_SectionDirection(prop: WdSectionDirection); safecall;
    function Get_LayoutMode: WdLayoutMode; safecall;
    procedure Set_LayoutMode(prop: WdLayoutMode); safecall;
    function Get_GutterPos: WdGutterStyle; safecall;
    procedure Set_GutterPos(prop: WdGutterStyle); safecall;
    function Get_BookFoldPrinting: WordBool; safecall;
    procedure Set_BookFoldPrinting(prop: WordBool); safecall;
    function Get_BookFoldRevPrinting: WordBool; safecall;
    procedure Set_BookFoldRevPrinting(prop: WordBool); safecall;
    function Get_BookFoldPrintingSheets: Integer; safecall;
    procedure Set_BookFoldPrintingSheets(prop: Integer); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property TopMargin: Single read Get_TopMargin write Set_TopMargin;
    property BottomMargin: Single read Get_BottomMargin write Set_BottomMargin;
    property LeftMargin: Single read Get_LeftMargin write Set_LeftMargin;
    property RightMargin: Single read Get_RightMargin write Set_RightMargin;
    property Gutter: Single read Get_Gutter write Set_Gutter;
    property PageWidth: Single read Get_PageWidth write Set_PageWidth;
    property PageHeight: Single read Get_PageHeight write Set_PageHeight;
    property Orientation: WdOrientation read Get_Orientation write Set_Orientation;
    property FirstPageTray: WdPaperTray read Get_FirstPageTray write Set_FirstPageTray;
    property OtherPagesTray: WdPaperTray read Get_OtherPagesTray write Set_OtherPagesTray;
    property VerticalAlignment: WdVerticalAlignment read Get_VerticalAlignment write Set_VerticalAlignment;
    property MirrorMargins: Integer read Get_MirrorMargins write Set_MirrorMargins;
    property HeaderDistance: Single read Get_HeaderDistance write Set_HeaderDistance;
    property FooterDistance: Single read Get_FooterDistance write Set_FooterDistance;
    property SectionStart: WdSectionStart read Get_SectionStart write Set_SectionStart;
    property OddAndEvenPagesHeaderFooter: Integer read Get_OddAndEvenPagesHeaderFooter write Set_OddAndEvenPagesHeaderFooter;
    property DifferentFirstPageHeaderFooter: Integer read Get_DifferentFirstPageHeaderFooter write Set_DifferentFirstPageHeaderFooter;
    property SuppressEndnotes: Integer read Get_SuppressEndnotes write Set_SuppressEndnotes;
    property LineNumbering: LineNumbering read Get_LineNumbering write Set_LineNumbering;
    property TextColumns: TextColumns read Get_TextColumns write Set_TextColumns;
    property PaperSize: WdPaperSize read Get_PaperSize write Set_PaperSize;
    property TwoPagesOnOne: WordBool read Get_TwoPagesOnOne write Set_TwoPagesOnOne;
    property GutterOnTop: WordBool read Get_GutterOnTop write Set_GutterOnTop;
    property CharsLine: Single read Get_CharsLine write Set_CharsLine;
    property LinesPage: Single read Get_LinesPage write Set_LinesPage;
    property ShowGrid: WordBool read Get_ShowGrid write Set_ShowGrid;
    property GutterStyle: WdGutterStyleOld read Get_GutterStyle write Set_GutterStyle;
    property SectionDirection: WdSectionDirection read Get_SectionDirection write Set_SectionDirection;
    property LayoutMode: WdLayoutMode read Get_LayoutMode write Set_LayoutMode;
    property GutterPos: WdGutterStyle read Get_GutterPos write Set_GutterPos;
    property BookFoldPrinting: WordBool read Get_BookFoldPrinting write Set_BookFoldPrinting;
    property BookFoldRevPrinting: WordBool read Get_BookFoldRevPrinting write Set_BookFoldRevPrinting;
    property BookFoldPrintingSheets: Integer read Get_BookFoldPrintingSheets write Set_BookFoldPrintingSheets;
  end;

// *********************************************************************//
// DispIntf:  PageSetupDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020971-0000-0000-C000-000000000046}
// *********************************************************************//
  PageSetupDisp = dispinterface
    ['{00020971-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property TopMargin: Single dispid 100;
    property BottomMargin: Single dispid 101;
    property LeftMargin: Single dispid 102;
    property RightMargin: Single dispid 103;
    property Gutter: Single dispid 104;
    property PageWidth: Single dispid 105;
    property PageHeight: Single dispid 106;
    property Orientation: WdOrientation dispid 107;
    property FirstPageTray: WdPaperTray dispid 108;
    property OtherPagesTray: WdPaperTray dispid 109;
    property VerticalAlignment: WdVerticalAlignment dispid 110;
    property MirrorMargins: Integer dispid 111;
    property HeaderDistance: Single dispid 112;
    property FooterDistance: Single dispid 113;
    property SectionStart: WdSectionStart dispid 114;
    property OddAndEvenPagesHeaderFooter: Integer dispid 115;
    property DifferentFirstPageHeaderFooter: Integer dispid 116;
    property SuppressEndnotes: Integer dispid 117;
    property LineNumbering: LineNumbering dispid 118;
    property TextColumns: TextColumns dispid 119;
    property PaperSize: WdPaperSize dispid 120;
    property TwoPagesOnOne: WordBool dispid 121;
    property GutterOnTop: WordBool dispid 122;
    property CharsLine: Single dispid 123;
    property LinesPage: Single dispid 124;
    property ShowGrid: WordBool dispid 128;
    procedure TogglePortrait; dispid 201;
    procedure SetAsTemplateDefault; dispid 202;
    property GutterStyle: WdGutterStyleOld dispid 129;
    property SectionDirection: WdSectionDirection dispid 130;
    property LayoutMode: WdLayoutMode dispid 131;
    property GutterPos: WdGutterStyle dispid 1222;
    property BookFoldPrinting: WordBool dispid 1223;
    property BookFoldRevPrinting: WordBool dispid 1224;
    property BookFoldPrintingSheets: Integer dispid 1225;
  end;

// *********************************************************************//
// Interface: LineNumbering
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020972-0000-0000-C000-000000000046}
// *********************************************************************//
  LineNumbering = interface(IDispatch)
    ['{00020972-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_RestartMode: WdNumberingRule; safecall;
    procedure Set_RestartMode(prop: WdNumberingRule); safecall;
    function Get_StartingNumber: Integer; safecall;
    procedure Set_StartingNumber(prop: Integer); safecall;
    function Get_DistanceFromText: Single; safecall;
    procedure Set_DistanceFromText(prop: Single); safecall;
    function Get_CountBy: Integer; safecall;
    procedure Set_CountBy(prop: Integer); safecall;
    function Get_Active: Integer; safecall;
    procedure Set_Active(prop: Integer); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property RestartMode: WdNumberingRule read Get_RestartMode write Set_RestartMode;
    property StartingNumber: Integer read Get_StartingNumber write Set_StartingNumber;
    property DistanceFromText: Single read Get_DistanceFromText write Set_DistanceFromText;
    property CountBy: Integer read Get_CountBy write Set_CountBy;
    property Active: Integer read Get_Active write Set_Active;
  end;

// *********************************************************************//
// DispIntf:  LineNumberingDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020972-0000-0000-C000-000000000046}
// *********************************************************************//
  LineNumberingDisp = dispinterface
    ['{00020972-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property RestartMode: WdNumberingRule dispid 100;
    property StartingNumber: Integer dispid 101;
    property DistanceFromText: Single dispid 102;
    property CountBy: Integer dispid 103;
    property Active: Integer dispid 104;
  end;

// *********************************************************************//
// Interface: TextColumns
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020973-0000-0000-C000-000000000046}
// *********************************************************************//
  TextColumns = interface(IDispatch)
    ['{00020973-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_EvenlySpaced: Integer; safecall;
    procedure Set_EvenlySpaced(prop: Integer); safecall;
    function Get_LineBetween: Integer; safecall;
    procedure Set_LineBetween(prop: Integer); safecall;
    function Get_Width: Single; safecall;
    procedure Set_Width(prop: Single); safecall;
    function Get_Spacing: Single; safecall;
    procedure Set_Spacing(prop: Single); safecall;
    function Item(Index: Integer): TextColumn; safecall;
    function Add(var Width: OleVariant; var Spacing: OleVariant; var EvenlySpaced: OleVariant): TextColumn; safecall;
    procedure SetCount(NumColumns: Integer); safecall;
    function Get_FlowDirection: WdFlowDirection; safecall;
    procedure Set_FlowDirection(prop: WdFlowDirection); safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property EvenlySpaced: Integer read Get_EvenlySpaced write Set_EvenlySpaced;
    property LineBetween: Integer read Get_LineBetween write Set_LineBetween;
    property Width: Single read Get_Width write Set_Width;
    property Spacing: Single read Get_Spacing write Set_Spacing;
    property FlowDirection: WdFlowDirection read Get_FlowDirection write Set_FlowDirection;
  end;

// *********************************************************************//
// DispIntf:  TextColumnsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020973-0000-0000-C000-000000000046}
// *********************************************************************//
  TextColumnsDisp = dispinterface
    ['{00020973-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property EvenlySpaced: Integer dispid 100;
    property LineBetween: Integer dispid 101;
    property Width: Single dispid 102;
    property Spacing: Single dispid 103;
    function Item(Index: Integer): TextColumn; dispid 0;
    function Add(var Width: OleVariant; var Spacing: OleVariant; var EvenlySpaced: OleVariant): TextColumn; dispid 201;
    procedure SetCount(NumColumns: Integer); dispid 202;
    property FlowDirection: WdFlowDirection dispid 104;
  end;

// *********************************************************************//
// Interface: TextColumn
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020974-0000-0000-C000-000000000046}
// *********************************************************************//
  TextColumn = interface(IDispatch)
    ['{00020974-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Width: Single; safecall;
    procedure Set_Width(prop: Single); safecall;
    function Get_SpaceAfter: Single; safecall;
    procedure Set_SpaceAfter(prop: Single); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Width: Single read Get_Width write Set_Width;
    property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
  end;

// *********************************************************************//
// DispIntf:  TextColumnDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020974-0000-0000-C000-000000000046}
// *********************************************************************//
  TextColumnDisp = dispinterface
    ['{00020974-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Width: Single dispid 100;
    property SpaceAfter: Single dispid 101;
  end;

// *********************************************************************//
// Interface: WordSelection
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020975-0000-0000-C000-000000000046}
// *********************************************************************//
  WordSelection = interface(IDispatch)
    ['{00020975-0000-0000-C000-000000000046}']
    function Get_Text: WideString; safecall;
    procedure Set_Text(const prop: WideString); safecall;
    function Get_FormattedText: Range; safecall;
    procedure Set_FormattedText(const prop: Range); safecall;
    function Get_Start: Integer; safecall;
    procedure Set_Start(prop: Integer); safecall;
    function Get_End_: Integer; safecall;
    procedure Set_End_(prop: Integer); safecall;
    function Get_Font: WordFont; safecall;
    procedure Set_Font(const prop: WordFont); safecall;
    function Get_type_: WdSelectionType; safecall;
    function Get_StoryType: WdStoryType; safecall;
    function Get_Style: OleVariant; safecall;
    procedure Set_Style(var prop: OleVariant); safecall;
    function Get_Tables: Tables; safecall;
    function Get_Words: Words; safecall;
    function Get_Sentences: Sentences; safecall;
    function Get_Characters: Characters; safecall;
    function Get_Footnotes: Footnotes; safecall;
    function Get_Endnotes: Endnotes; safecall;
    function Get_Comments: Comments; safecall;
    function Get_Cells: Cells; safecall;
    function Get_Sections: Sections; safecall;
    function Get_Paragraphs: Paragraphs; safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_Shading: Shading; safecall;
    function Get_Fields: Fields; safecall;
    function Get_FormFields: FormFields; safecall;
    function Get_Frames: Frames; safecall;
    function Get_ParagraphFormat: WordParagraphFormat; safecall;
    procedure Set_ParagraphFormat(const prop: WordParagraphFormat); safecall;
    function Get_PageSetup: PageSetup; safecall;
    procedure Set_PageSetup(const prop: PageSetup); safecall;
    function Get_Bookmarks: Bookmarks; safecall;
    function Get_StoryLength: Integer; safecall;
    function Get_LanguageID: WdLanguageID; safecall;
    procedure Set_LanguageID(prop: WdLanguageID); safecall;
    function Get_LanguageIDFarEast: WdLanguageID; safecall;
    procedure Set_LanguageIDFarEast(prop: WdLanguageID); safecall;
    function Get_LanguageIDOther: WdLanguageID; safecall;
    procedure Set_LanguageIDOther(prop: WdLanguageID); safecall;
    function Get_Hyperlinks: Hyperlinks; safecall;
    function Get_Columns: Columns; safecall;
    function Get_Rows: Rows; safecall;
    function Get_HeaderFooter: HeaderFooter; safecall;
    function Get_IsEndOfRowMark: WordBool; safecall;
    function Get_BookmarkID: Integer; safecall;
    function Get_PreviousBookmarkID: Integer; safecall;
    function Get_Find: Find; safecall;
    function Get_Range: Range; safecall;
    function Get_Information(Type_: WdInformation): OleVariant; safecall;
    function Get_Flags: WdSelectionFlags; safecall;
    procedure Set_Flags(prop: WdSelectionFlags); safecall;
    function Get_Active: WordBool; safecall;
    function Get_StartIsActive: WordBool; safecall;
    procedure Set_StartIsActive(prop: WordBool); safecall;
    function Get_IPAtEndOfLine: WordBool; safecall;
    function Get_ExtendMode: WordBool; safecall;
    procedure Set_ExtendMode(prop: WordBool); safecall;
    function Get_ColumnSelectMode: WordBool; safecall;
    procedure Set_ColumnSelectMode(prop: WordBool); safecall;
    function Get_Orientation: WdTextOrientation; safecall;
    procedure Set_Orientation(prop: WdTextOrientation); safecall;
    function Get_InlineShapes: InlineShapes; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Document: WordDocument; safecall;
    function Get_ShapeRange: ShapeRange; safecall;
    procedure Select; safecall;
    procedure SetRange(Start: Integer; End_: Integer); safecall;
    procedure Collapse(var Direction: OleVariant); safecall;
    procedure InsertBefore(const Text: WideString); safecall;
    procedure InsertAfter(const Text: WideString); safecall;
    function Next(var Unit_: OleVariant; var Count: OleVariant): Range; safecall;
    function Previous(var Unit_: OleVariant; var Count: OleVariant): Range; safecall;
    function StartOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; safecall;
    function EndOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; safecall;
    function Move(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveStart(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveEnd(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveWhile(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveStartWhile(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveEndWhile(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveUntil(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveStartUntil(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
    function MoveEndUntil(var Cset: OleVariant; var Count: OleVariant): Integer; safecall;
    procedure Cut; safecall;
    procedure Copy; safecall;
    procedure Paste; safecall;
    procedure InsertBreak(var Type_: OleVariant); safecall;
    procedure InsertFile(const FileName: WideString; var Range: OleVariant; 
                         var ConfirmConversions: OleVariant; var Link: OleVariant; 
                         var Attachment: OleVariant); safecall;
    function InStory(const Range: Range): WordBool; safecall;
    function InRange(const Range: Range): WordBool; safecall;
    function Delete(var Unit_: OleVariant; var Count: OleVariant): Integer; safecall;
    function Expand(var Unit_: OleVariant): Integer; safecall;
    procedure InsertParagraph; safecall;
    procedure InsertParagraphAfter; safecall;
    function ConvertToTableOld(var Separator: OleVariant; var NumRows: OleVariant; 
                               var NumColumns: OleVariant; var InitialColumnWidth: OleVariant; 
                               var Format: OleVariant; var ApplyBorders: OleVariant; 
                               var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
                               var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
                               var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
                               var ApplyLastColumn: OleVariant; var AutoFit: OleVariant): Table; safecall;
    procedure InsertDateTimeOld(var DateTimeFormat: OleVariant; var InsertAsField: OleVariant; 
                                var InsertAsFullWidth: OleVariant); safecall;
    procedure InsertSymbol(CharacterNumber: Integer; var Font: OleVariant; var Unicode: OleVariant; 
                           var Bias: OleVariant); safecall;
    procedure InsertCrossReference(var ReferenceType: OleVariant; ReferenceKind: WdReferenceKind; 
                                   var ReferenceItem: OleVariant; 
                                   var InsertAsHyperlink: OleVariant; 
                                   var IncludePosition: OleVariant); safecall;
    procedure InsertCaption(var Label_: OleVariant; var Title: OleVariant; 
                            var TitleAutoText: OleVariant; var Position: OleVariant); safecall;
    procedure CopyAsPicture; safecall;
    procedure SortOld(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
                      var SortFieldType: OleVariant; var SortOrder: OleVariant; 
                      var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
                      var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
                      var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
                      var SortColumn: OleVariant; var Separator: OleVariant; 
                      var CaseSensitive: OleVariant; var LanguageID: OleVariant); safecall;
    procedure SortAscending; safecall;
    procedure SortDescending; safecall;
    function IsEqual(const Range: Range): WordBool; safecall;
    function Calculate: Single; safecall;
    function GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
                   var Name: OleVariant): Range; safecall;
    function GoToNext(What: WdGoToItem): Range; safecall;
    function GoToPrevious(What: WdGoToItem): Range; safecall;
    procedure PasteSpecial(var IconIndex: OleVariant; var Link: OleVariant; 
                           var Placement: OleVariant; var DisplayAsIcon: OleVariant; 
                           var DataType: OleVariant; var IconFileName: OleVariant; 
                           var IconLabel: OleVariant); safecall;
    function PreviousField: Field; safecall;
    function NextField: Field; safecall;
    procedure InsertParagraphBefore; safecall;
    procedure InsertCells(var ShiftCells: OleVariant); safecall;
    procedure Extend(var Character: OleVariant); safecall;
    procedure Shrink; safecall;
    function MoveLeft(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; safecall;
    function MoveRight(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; safecall;
    function MoveUp(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; safecall;
    function MoveDown(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; safecall;
    function HomeKey(var Unit_: OleVariant; var Extend: OleVariant): Integer; safecall;
    function EndKey(var Unit_: OleVariant; var Extend: OleVariant): Integer; safecall;
    procedure EscapeKey; safecall;
    procedure TypeText(const Text: WideString); safecall;
    procedure CopyFormat; safecall;
    procedure PasteFormat; safecall;
    procedure TypeParagraph; safecall;
    procedure TypeBackspace; safecall;
    procedure NextSubdocument; safecall;
    procedure PreviousSubdocument; safecall;
    procedure SelectColumn; safecall;
    procedure SelectCurrentFont; safecall;
    procedure SelectCurrentAlignment; safecall;
    procedure SelectCurrentSpacing; safecall;
    procedure SelectCurrentIndent; safecall;
    procedure SelectCurrentTabs; safecall;
    procedure SelectCurrentColor; safecall;
    procedure CreateTextbox; safecall;
    procedure WholeStory; safecall;
    procedure SelectRow; safecall;
    procedure SplitTable; safecall;
    procedure InsertRows(var NumRows: OleVariant); safecall;
    procedure InsertColumns; safecall;
    procedure InsertFormula(var Formula: OleVariant; var NumberFormat: OleVariant); safecall;
    function NextRevision(var Wrap: OleVariant): Revision; safecall;
    function PreviousRevision(var Wrap: OleVariant): Revision; safecall;
    procedure PasteAsNestedTable; safecall;
    function CreateAutoTextEntry(const Name: WideString; const StyleName: WideString): AutoTextEntry; safecall;
    procedure DetectLanguage; safecall;
    procedure SelectCell; safecall;
    procedure InsertRowsBelow(var NumRows: OleVariant); safecall;
    procedure InsertColumnsRight; safecall;
    procedure InsertRowsAbove(var NumRows: OleVariant); safecall;
    procedure RtlRun; safecall;
    procedure LtrRun; safecall;
    procedure BoldRun; safecall;
    procedure ItalicRun; safecall;
    procedure RtlPara; safecall;
    procedure LtrPara; safecall;
    procedure InsertDateTime(var DateTimeFormat: OleVariant; var InsertAsField: OleVariant; 
                             var InsertAsFullWidth: OleVariant; var DateLanguage: OleVariant; 
                             var CalendarType: OleVariant); safecall;
    procedure Sort2000(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
                       var SortFieldType: OleVariant; var SortOrder: OleVariant; 
                       var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
                       var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
                       var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
                       var SortColumn: OleVariant; var Separator: OleVariant; 
                       var CaseSensitive: OleVariant; var BidiSort: OleVariant; 
                       var IgnoreThe: OleVariant; var IgnoreKashida: OleVariant; 
                       var IgnoreDiacritics: OleVariant; var IgnoreHe: OleVariant; 
                       var LanguageID: OleVariant); safecall;
    function ConvertToTable(var Separator: OleVariant; var NumRows: OleVariant; 
                            var NumColumns: OleVariant; var InitialColumnWidth: OleVariant; 
                            var Format: OleVariant; var ApplyBorders: OleVariant; 
                            var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
                            var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
                            var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
                            var ApplyLastColumn: OleVariant; var AutoFit: OleVariant; 
                            var AutoFitBehavior: OleVariant; var DefaultTableBehavior: OleVariant): Table; safecall;
    function Get_NoProofing: Integer; safecall;
    procedure Set_NoProofing(prop: Integer); safecall;
    function Get_TopLevelTables: Tables; safecall;
    function Get_LanguageDetected: WordBool; safecall;
    procedure Set_LanguageDetected(prop: WordBool); safecall;
    function Get_FitTextWidth: Single; safecall;
    procedure Set_FitTextWidth(prop: Single); safecall;
    procedure ClearFormatting; safecall;
    procedure PasteAppendTable; safecall;
    function Get_HTMLDivisions: HTMLDivisions; safecall;
    function Get_SmartTags: SmartTags; safecall;
    function Get_ChildShapeRange: ShapeRange; safecall;
    function Get_HasChildShapeRange: WordBool; safecall;
    function Get_FootnoteOptions: FootnoteOptions; safecall;
    function Get_EndnoteOptions: EndnoteOptions; safecall;
    procedure ToggleCharacterCode; safecall;
    procedure PasteAndFormat(Type_: WdRecoveryType); safecall;
    procedure PasteExcelTable(LinkedToExcel: WordBool; WordFormatting: WordBool; RTF: WordBool); safecall;
    procedure ShrinkDiscontiguousSelection; safecall;
    procedure InsertStyleSeparator; safecall;
    procedure Sort(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
                   var SortFieldType: OleVariant; var SortOrder: OleVariant; 
                   var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
                   var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
                   var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
                   var SortColumn: OleVariant; var Separator: OleVariant; 
                   var CaseSensitive: OleVariant; var BidiSort: OleVariant; 
                   var IgnoreThe: OleVariant; var IgnoreKashida: OleVariant; 
                   var IgnoreDiacritics: OleVariant; var IgnoreHe: OleVariant; 
                   var LanguageID: OleVariant; var SubFieldNumber: OleVariant; 
                   var SubFieldNumber2: OleVariant; var SubFieldNumber3: OleVariant); safecall;
    property Text: WideString read Get_Text write Set_Text;
    property FormattedText: Range read Get_FormattedText write Set_FormattedText;
    property Start: Integer read Get_Start write Set_Start;
    property End_: Integer read Get_End_ write Set_End_;
    property Font: WordFont read Get_Font write Set_Font;
    property type_: WdSelectionType read Get_type_;
    property StoryType: WdStoryType read Get_StoryType;
    property Tables: Tables read Get_Tables;
    property Words: Words read Get_Words;
    property Sentences: Sentences read Get_Sentences;
    property Characters: Characters read Get_Characters;
    property Footnotes: Footnotes read Get_Footnotes;
    property Endnotes: Endnotes read Get_Endnotes;
    property Comments: Comments read Get_Comments;
    property Cells: Cells read Get_Cells;
    property Sections: Sections read Get_Sections;
    property Paragraphs: Paragraphs read Get_Paragraphs;
    property Borders: Borders read Get_Borders write Set_Borders;
    property Shading: Shading read Get_Shading;
    property Fields: Fields read Get_Fields;
    property FormFields: FormFields read Get_FormFields;
    property Frames: Frames read Get_Frames;
    property ParagraphFormat: WordParagraphFormat read Get_ParagraphFormat write Set_ParagraphFormat;
    property PageSetup: PageSetup read Get_PageSetup write Set_PageSetup;
    property Bookmarks: Bookmarks read Get_Bookmarks;
    property StoryLength: Integer read Get_StoryLength;
    property LanguageID: WdLanguageID read Get_LanguageID write Set_LanguageID;
    property LanguageIDFarEast: WdLanguageID read Get_LanguageIDFarEast write Set_LanguageIDFarEast;
    property LanguageIDOther: WdLanguageID read Get_LanguageIDOther write Set_LanguageIDOther;
    property Hyperlinks: Hyperlinks read Get_Hyperlinks;
    property Columns: Columns read Get_Columns;
    property Rows: Rows read Get_Rows;
    property HeaderFooter: HeaderFooter read Get_HeaderFooter;
    property IsEndOfRowMark: WordBool read Get_IsEndOfRowMark;
    property BookmarkID: Integer read Get_BookmarkID;
    property PreviousBookmarkID: Integer read Get_PreviousBookmarkID;
    property Find: Find read Get_Find;
    property Range: Range read Get_Range;
    property Information[Type_: WdInformation]: OleVariant read Get_Information;
    property Flags: WdSelectionFlags read Get_Flags write Set_Flags;
    property Active: WordBool read Get_Active;
    property StartIsActive: WordBool read Get_StartIsActive write Set_StartIsActive;
    property IPAtEndOfLine: WordBool read Get_IPAtEndOfLine;
    property ExtendMode: WordBool read Get_ExtendMode write Set_ExtendMode;
    property ColumnSelectMode: WordBool read Get_ColumnSelectMode write Set_ColumnSelectMode;
    property Orientation: WdTextOrientation read Get_Orientation write Set_Orientation;
    property InlineShapes: InlineShapes read Get_InlineShapes;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Document: WordDocument read Get_Document;
    property ShapeRange: ShapeRange read Get_ShapeRange;
    property NoProofing: Integer read Get_NoProofing write Set_NoProofing;
    property TopLevelTables: Tables read Get_TopLevelTables;
    property LanguageDetected: WordBool read Get_LanguageDetected write Set_LanguageDetected;
    property FitTextWidth: Single read Get_FitTextWidth write Set_FitTextWidth;
    property HTMLDivisions: HTMLDivisions read Get_HTMLDivisions;
    property SmartTags: SmartTags read Get_SmartTags;
    property ChildShapeRange: ShapeRange read Get_ChildShapeRange;
    property HasChildShapeRange: WordBool read Get_HasChildShapeRange;
    property FootnoteOptions: FootnoteOptions read Get_FootnoteOptions;
    property EndnoteOptions: EndnoteOptions read Get_EndnoteOptions;
  end;

// *********************************************************************//
// DispIntf:  WordSelectionDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020975-0000-0000-C000-000000000046}
// *********************************************************************//
  WordSelectionDisp = dispinterface
    ['{00020975-0000-0000-C000-000000000046}']
    property Text: WideString dispid 0;
    property FormattedText: Range dispid 2;
    property Start: Integer dispid 3;
    property End_: Integer dispid 4;
    property Font: WordFont dispid 5;
    property type_: WdSelectionType readonly dispid 6;
    property StoryType: WdStoryType readonly dispid 7;
    function Style: OleVariant; dispid 8;
    property Tables: Tables readonly dispid 50;
    property Words: Words readonly dispid 51;
    property Sentences: Sentences readonly dispid 52;
    property Characters: Characters readonly dispid 53;
    property Footnotes: Footnotes readonly dispid 54;
    property Endnotes: Endnotes readonly dispid 55;
    property Comments: Comments readonly dispid 56;
    property Cells: Cells readonly dispid 57;
    property Sections: Sections readonly dispid 58;
    property Paragraphs: Paragraphs readonly dispid 59;
    property Borders: Borders dispid 1100;
    property Shading: Shading readonly dispid 61;
    property Fields: Fields readonly dispid 64;
    property FormFields: FormFields readonly dispid 65;
    property Frames: Frames readonly dispid 66;
    property ParagraphFormat: WordParagraphFormat dispid 1102;
    property PageSetup: PageSetup dispid 1101;
    property Bookmarks: Bookmarks readonly dispid 75;
    property StoryLength: Integer readonly dispid 152;
    property LanguageID: WdLanguageID dispid 153;
    property LanguageIDFarEast: WdLanguageID dispid 154;
    property LanguageIDOther: WdLanguageID dispid 155;
    property Hyperlinks: Hyperlinks readonly dispid 156;
    property Columns: Columns readonly dispid 302;
    property Rows: Rows readonly dispid 303;
    property HeaderFooter: HeaderFooter readonly dispid 306;
    property IsEndOfRowMark: WordBool readonly dispid 307;
    property BookmarkID: Integer readonly dispid 308;
    property PreviousBookmarkID: Integer readonly dispid 309;
    property Find: Find readonly dispid 262;
    property Range: Range readonly dispid 400;
    property Information[Type_: WdInformation]: OleVariant readonly dispid 401;
    property Flags: WdSelectionFlags dispid 402;
    property Active: WordBool readonly dispid 403;
    property StartIsActive: WordBool dispid 404;
    property IPAtEndOfLine: WordBool readonly dispid 405;
    property ExtendMode: WordBool dispid 406;
    property ColumnSelectMode: WordBool dispid 407;
    property Orientation: WdTextOrientation dispid 410;
    property InlineShapes: InlineShapes readonly dispid 411;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Document: WordDocument readonly dispid 1003;
    property ShapeRange: ShapeRange readonly dispid 1004;
    procedure Select; dispid 65535;
    procedure SetRange(Start: Integer; End_: Integer); dispid 100;
    procedure Collapse(var Direction: OleVariant); dispid 101;
    procedure InsertBefore(const Text: WideString); dispid 102;
    procedure InsertAfter(const Text: WideString); dispid 104;
    function Next(var Unit_: OleVariant; var Count: OleVariant): Range; dispid 105;
    function Previous(var Unit_: OleVariant; var Count: OleVariant): Range; dispid 106;
    function StartOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; dispid 107;
    function EndOf(var Unit_: OleVariant; var Extend: OleVariant): Integer; dispid 108;
    function Move(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 109;
    function MoveStart(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 110;
    function MoveEnd(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 111;
    function MoveWhile(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 112;
    function MoveStartWhile(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 113;
    function MoveEndWhile(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 114;
    function MoveUntil(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 115;
    function MoveStartUntil(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 116;
    function MoveEndUntil(var Cset: OleVariant; var Count: OleVariant): Integer; dispid 117;
    procedure Cut; dispid 119;
    procedure Copy; dispid 120;
    procedure Paste; dispid 121;
    procedure InsertBreak(var Type_: OleVariant); dispid 122;
    procedure InsertFile(const FileName: WideString; var Range: OleVariant; 
                         var ConfirmConversions: OleVariant; var Link: OleVariant; 
                         var Attachment: OleVariant); dispid 123;
    function InStory(const Range: Range): WordBool; dispid 125;
    function InRange(const Range: Range): WordBool; dispid 126;
    function Delete(var Unit_: OleVariant; var Count: OleVariant): Integer; dispid 127;
    function Expand(var Unit_: OleVariant): Integer; dispid 129;
    procedure InsertParagraph; dispid 160;
    procedure InsertParagraphAfter; dispid 161;
    function ConvertToTableOld(var Separator: OleVariant; var NumRows: OleVariant; 
                               var NumColumns: OleVariant; var InitialColumnWidth: OleVariant; 
                               var Format: OleVariant; var ApplyBorders: OleVariant; 
                               var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
                               var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
                               var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
                               var ApplyLastColumn: OleVariant; var AutoFit: OleVariant): Table; dispid 162;
    procedure InsertDateTimeOld(var DateTimeFormat: OleVariant; var InsertAsField: OleVariant; 
                                var InsertAsFullWidth: OleVariant); dispid 163;
    procedure InsertSymbol(CharacterNumber: Integer; var Font: OleVariant; var Unicode: OleVariant; 
                           var Bias: OleVariant); dispid 164;
    procedure InsertCrossReference(var ReferenceType: OleVariant; ReferenceKind: WdReferenceKind; 
                                   var ReferenceItem: OleVariant; 
                                   var InsertAsHyperlink: OleVariant; 
                                   var IncludePosition: OleVariant); dispid 165;
    procedure InsertCaption(var Label_: OleVariant; var Title: OleVariant; 
                            var TitleAutoText: OleVariant; var Position: OleVariant); dispid 166;
    procedure CopyAsPicture; dispid 167;
    procedure SortOld(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
                      var SortFieldType: OleVariant; var SortOrder: OleVariant; 
                      var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
                      var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
                      var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
                      var SortColumn: OleVariant; var Separator: OleVariant; 
                      var CaseSensitive: OleVariant; var LanguageID: OleVariant); dispid 168;
    procedure SortAscending; dispid 169;
    procedure SortDescending; dispid 170;
    function IsEqual(const Range: Range): WordBool; dispid 171;
    function Calculate: Single; dispid 172;
    function GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
                   var Name: OleVariant): Range; dispid 173;
    function GoToNext(What: WdGoToItem): Range; dispid 174;
    function GoToPrevious(What: WdGoToItem): Range; dispid 175;
    procedure PasteSpecial(var IconIndex: OleVariant; var Link: OleVariant; 
                           var Placement: OleVariant; var DisplayAsIcon: OleVariant; 
                           var DataType: OleVariant; var IconFileName: OleVariant; 
                           var IconLabel: OleVariant); dispid 176;
    function PreviousField: Field; dispid 177;
    function NextField: Field; dispid 178;
    procedure InsertParagraphBefore; dispid 212;
    procedure InsertCells(var ShiftCells: OleVariant); dispid 214;
    procedure Extend(var Character: OleVariant); dispid 300;
    procedure Shrink; dispid 301;
    function MoveLeft(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; dispid 500;
    function MoveRight(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; dispid 501;
    function MoveUp(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; dispid 502;
    function MoveDown(var Unit_: OleVariant; var Count: OleVariant; var Extend: OleVariant): Integer; dispid 503;
    function HomeKey(var Unit_: OleVariant; var Extend: OleVariant): Integer; dispid 504;
    function EndKey(var Unit_: OleVariant; var Extend: OleVariant): Integer; dispid 505;
    procedure EscapeKey; dispid 506;
    procedure TypeText(const Text: WideString); dispid 507;
    procedure CopyFormat; dispid 509;
    procedure PasteFormat; dispid 510;
    procedure TypeParagraph; dispid 512;
    procedure TypeBackspace; dispid 513;
    procedure NextSubdocument; dispid 514;
    procedure PreviousSubdocument; dispid 515;
    procedure SelectColumn; dispid 516;
    procedure SelectCurrentFont; dispid 517;
    procedure SelectCurrentAlignment; dispid 518;
    procedure SelectCurrentSpacing; dispid 519;
    procedure SelectCurrentIndent; dispid 520;
    procedure SelectCurrentTabs; dispid 521;
    procedure SelectCurrentColor; dispid 522;
    procedure CreateTextbox; dispid 523;
    procedure WholeStory; dispid 524;
    procedure SelectRow; dispid 525;
    procedure SplitTable; dispid 526;
    procedure InsertRows(var NumRows: OleVariant); dispid 528;
    procedure InsertColumns; dispid 529;
    procedure InsertFormula(var Formula: OleVariant; var NumberFormat: OleVariant); dispid 530;
    function NextRevision(var Wrap: OleVariant): Revision; dispid 531;
    function PreviousRevision(var Wrap: OleVariant): Revision; dispid 532;
    procedure PasteAsNestedTable; dispid 533;
    function CreateAutoTextEntry(const Name: WideString; const StyleName: WideString): AutoTextEntry; dispid 534;
    procedure DetectLanguage; dispid 535;
    procedure SelectCell; dispid 536;
    procedure InsertRowsBelow(var NumRows: OleVariant); dispid 537;
    procedure InsertColumnsRight; dispid 538;
    procedure InsertRowsAbove(var NumRows: OleVariant); dispid 539;
    procedure RtlRun; dispid 600;
    procedure LtrRun; dispid 601;
    procedure BoldRun; dispid 602;
    procedure ItalicRun; dispid 603;
    procedure RtlPara; dispid 605;
    procedure LtrPara; dispid 606;
    procedure InsertDateTime(var DateTimeFormat: OleVariant; var InsertAsField: OleVariant; 
                             var InsertAsFullWidth: OleVariant; var DateLanguage: OleVariant; 
                             var CalendarType: OleVariant); dispid 444;
    procedure Sort2000(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
                       var SortFieldType: OleVariant; var SortOrder: OleVariant; 
                       var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
                       var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
                       var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
                       var SortColumn: OleVariant; var Separator: OleVariant; 
                       var CaseSensitive: OleVariant; var BidiSort: OleVariant; 
                       var IgnoreThe: OleVariant; var IgnoreKashida: OleVariant; 
                       var IgnoreDiacritics: OleVariant; var IgnoreHe: OleVariant; 
                       var LanguageID: OleVariant); dispid 445;
    function ConvertToTable(var Separator: OleVariant; var NumRows: OleVariant; 
                            var NumColumns: OleVariant; var InitialColumnWidth: OleVariant; 
                            var Format: OleVariant; var ApplyBorders: OleVariant; 
                            var ApplyShading: OleVariant; var ApplyFont: OleVariant; 
                            var ApplyColor: OleVariant; var ApplyHeadingRows: OleVariant; 
                            var ApplyLastRow: OleVariant; var ApplyFirstColumn: OleVariant; 
                            var ApplyLastColumn: OleVariant; var AutoFit: OleVariant; 
                            var AutoFitBehavior: OleVariant; var DefaultTableBehavior: OleVariant): Table; dispid 457;
    property NoProofing: Integer dispid 1005;
    property TopLevelTables: Tables readonly dispid 1006;
    property LanguageDetected: WordBool dispid 1007;
    property FitTextWidth: Single dispid 1008;
    procedure ClearFormatting; dispid 1009;
    procedure PasteAppendTable; dispid 1010;
    property HTMLDivisions: HTMLDivisions readonly dispid 1011;
    property SmartTags: SmartTags readonly dispid 1015;
    property ChildShapeRange: ShapeRange readonly dispid 1021;
    property HasChildShapeRange: WordBool readonly dispid 1022;
    property FootnoteOptions: FootnoteOptions readonly dispid 1024;
    property EndnoteOptions: EndnoteOptions readonly dispid 1025;
    procedure ToggleCharacterCode; dispid 1012;
    procedure PasteAndFormat(Type_: WdRecoveryType); dispid 1013;
    procedure PasteExcelTable(LinkedToExcel: WordBool; WordFormatting: WordBool; RTF: WordBool); dispid 1014;
    procedure ShrinkDiscontiguousSelection; dispid 1019;
    procedure InsertStyleSeparator; dispid 1020;
    procedure Sort(var ExcludeHeader: OleVariant; var FieldNumber: OleVariant; 
                   var SortFieldType: OleVariant; var SortOrder: OleVariant; 
                   var FieldNumber2: OleVariant; var SortFieldType2: OleVariant; 
                   var SortOrder2: OleVariant; var FieldNumber3: OleVariant; 
                   var SortFieldType3: OleVariant; var SortOrder3: OleVariant; 
                   var SortColumn: OleVariant; var Separator: OleVariant; 
                   var CaseSensitive: OleVariant; var BidiSort: OleVariant; 
                   var IgnoreThe: OleVariant; var IgnoreKashida: OleVariant; 
                   var IgnoreDiacritics: OleVariant; var IgnoreHe: OleVariant; 
                   var LanguageID: OleVariant; var SubFieldNumber: OleVariant; 
                   var SubFieldNumber2: OleVariant; var SubFieldNumber3: OleVariant); dispid 1023;
  end;

// *********************************************************************//
// Interface: TablesOfAuthoritiesCategories
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020976-0000-0000-C000-000000000046}
// *********************************************************************//
  TablesOfAuthoritiesCategories = interface(IDispatch)
    ['{00020976-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): TableOfAuthoritiesCategory; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  TablesOfAuthoritiesCategoriesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020976-0000-0000-C000-000000000046}
// *********************************************************************//
  TablesOfAuthoritiesCategoriesDisp = dispinterface
    ['{00020976-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): TableOfAuthoritiesCategory; dispid 0;
  end;

// *********************************************************************//
// Interface: TableOfAuthoritiesCategory
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020977-0000-0000-C000-000000000046}
// *********************************************************************//
  TableOfAuthoritiesCategory = interface(IDispatch)
    ['{00020977-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const prop: WideString); safecall;
    function Get_Index: Integer; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name write Set_Name;
    property Index: Integer read Get_Index;
  end;

// *********************************************************************//
// DispIntf:  TableOfAuthoritiesCategoryDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020977-0000-0000-C000-000000000046}
// *********************************************************************//
  TableOfAuthoritiesCategoryDisp = dispinterface
    ['{00020977-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString dispid 0;
    property Index: Integer readonly dispid 1;
  end;

// *********************************************************************//
// Interface: CaptionLabels
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020978-0000-0000-C000-000000000046}
// *********************************************************************//
  CaptionLabels = interface(IDispatch)
    ['{00020978-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): CaptionLabel; safecall;
    function Add(const Name: WideString): CaptionLabel; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  CaptionLabelsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020978-0000-0000-C000-000000000046}
// *********************************************************************//
  CaptionLabelsDisp = dispinterface
    ['{00020978-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): CaptionLabel; dispid 0;
    function Add(const Name: WideString): CaptionLabel; dispid 100;
  end;

// *********************************************************************//
// Interface: CaptionLabel
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020979-0000-0000-C000-000000000046}
// *********************************************************************//
  CaptionLabel = interface(IDispatch)
    ['{00020979-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    function Get_BuiltIn: WordBool; safecall;
    function Get_ID: WdCaptionLabelID; safecall;
    function Get_IncludeChapterNumber: WordBool; safecall;
    procedure Set_IncludeChapterNumber(prop: WordBool); safecall;
    function Get_NumberStyle: WdCaptionNumberStyle; safecall;
    procedure Set_NumberStyle(prop: WdCaptionNumberStyle); safecall;
    function Get_ChapterStyleLevel: Integer; safecall;
    procedure Set_ChapterStyleLevel(prop: Integer); safecall;
    function Get_Separator: WdSeparatorType; safecall;
    procedure Set_Separator(prop: WdSeparatorType); safecall;
    function Get_Position: WdCaptionPosition; safecall;
    procedure Set_Position(prop: WdCaptionPosition); safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
    property BuiltIn: WordBool read Get_BuiltIn;
    property ID: WdCaptionLabelID read Get_ID;
    property IncludeChapterNumber: WordBool read Get_IncludeChapterNumber write Set_IncludeChapterNumber;
    property NumberStyle: WdCaptionNumberStyle read Get_NumberStyle write Set_NumberStyle;
    property ChapterStyleLevel: Integer read Get_ChapterStyleLevel write Set_ChapterStyleLevel;
    property Separator: WdSeparatorType read Get_Separator write Set_Separator;
    property Position: WdCaptionPosition read Get_Position write Set_Position;
  end;

// *********************************************************************//
// DispIntf:  CaptionLabelDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020979-0000-0000-C000-000000000046}
// *********************************************************************//
  CaptionLabelDisp = dispinterface
    ['{00020979-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString readonly dispid 0;
    property BuiltIn: WordBool readonly dispid 1;
    property ID: WdCaptionLabelID readonly dispid 2;
    property IncludeChapterNumber: WordBool dispid 3;
    property NumberStyle: WdCaptionNumberStyle dispid 4;
    property ChapterStyleLevel: Integer dispid 5;
    property Separator: WdSeparatorType dispid 6;
    property Position: WdCaptionPosition dispid 7;
    procedure Delete; dispid 100;
  end;

// *********************************************************************//
// Interface: AutoCaptions
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002097A-0000-0000-C000-000000000046}
// *********************************************************************//
  AutoCaptions = interface(IDispatch)
    ['{0002097A-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): AutoCaption; safecall;
    procedure CancelAutoInsert; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  AutoCaptionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002097A-0000-0000-C000-000000000046}
// *********************************************************************//
  AutoCaptionsDisp = dispinterface
    ['{0002097A-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): AutoCaption; dispid 0;
    procedure CancelAutoInsert; dispid 100;
  end;

// *********************************************************************//
// Interface: AutoCaption
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002097B-0000-0000-C000-000000000046}
// *********************************************************************//
  AutoCaption = interface(IDispatch)
    ['{0002097B-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    function Get_AutoInsert: WordBool; safecall;
    procedure Set_AutoInsert(prop: WordBool); safecall;
    function Get_Index: Integer; safecall;
    function Get_CaptionLabel: OleVariant; safecall;
    procedure Set_CaptionLabel(var prop: OleVariant); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
    property AutoInsert: WordBool read Get_AutoInsert write Set_AutoInsert;
    property Index: Integer read Get_Index;
  end;

// *********************************************************************//
// DispIntf:  AutoCaptionDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002097B-0000-0000-C000-000000000046}
// *********************************************************************//
  AutoCaptionDisp = dispinterface
    ['{0002097B-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString readonly dispid 0;
    property AutoInsert: WordBool dispid 1;
    property Index: Integer readonly dispid 2;
    function CaptionLabel: OleVariant; dispid 3;
  end;

// *********************************************************************//
// Interface: Indexes
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002097C-0000-0000-C000-000000000046}
// *********************************************************************//
  Indexes = interface(IDispatch)
    ['{0002097C-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Format: WdIndexFormat; safecall;
    procedure Set_Format(prop: WdIndexFormat); safecall;
    function Item(Index: Integer): Index; safecall;
    function AddOld(const Range: Range; var HeadingSeparator: OleVariant; 
                    var RightAlignPageNumbers: OleVariant; var Type_: OleVariant; 
                    var NumberOfColumns: OleVariant; var AccentedLetters: OleVariant): Index; safecall;
    function MarkEntry(const Range: Range; var Entry: OleVariant; var EntryAutoText: OleVariant; 
                       var CrossReference: OleVariant; var CrossReferenceAutoText: OleVariant; 
                       var BookmarkName: OleVariant; var Bold: OleVariant; var Italic: OleVariant; 
                       var Reading: OleVariant): Field; safecall;
    procedure MarkAllEntries(const Range: Range; var Entry: OleVariant; 
                             var EntryAutoText: OleVariant; var CrossReference: OleVariant; 
                             var CrossReferenceAutoText: OleVariant; var BookmarkName: OleVariant; 
                             var Bold: OleVariant; var Italic: OleVariant); safecall;
    procedure AutoMarkEntries(const ConcordanceFileName: WideString); safecall;
    function Add(const Range: Range; var HeadingSeparator: OleVariant; 
                 var RightAlignPageNumbers: OleVariant; var Type_: OleVariant; 
                 var NumberOfColumns: OleVariant; var AccentedLetters: OleVariant; 
                 var SortBy: OleVariant; var IndexLanguage: OleVariant): Index; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Format: WdIndexFormat read Get_Format write Set_Format;
  end;

// *********************************************************************//
// DispIntf:  IndexesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002097C-0000-0000-C000-000000000046}
// *********************************************************************//
  IndexesDisp = dispinterface
    ['{0002097C-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    property Format: WdIndexFormat dispid 2;
    function Item(Index: Integer): Index; dispid 0;
    function AddOld(const Range: Range; var HeadingSeparator: OleVariant; 
                    var RightAlignPageNumbers: OleVariant; var Type_: OleVariant; 
                    var NumberOfColumns: OleVariant; var AccentedLetters: OleVariant): Index; dispid 100;
    function MarkEntry(const Range: Range; var Entry: OleVariant; var EntryAutoText: OleVariant; 
                       var CrossReference: OleVariant; var CrossReferenceAutoText: OleVariant; 
                       var BookmarkName: OleVariant; var Bold: OleVariant; var Italic: OleVariant; 
                       var Reading: OleVariant): Field; dispid 101;
    procedure MarkAllEntries(const Range: Range; var Entry: OleVariant; 
                             var EntryAutoText: OleVariant; var CrossReference: OleVariant; 
                             var CrossReferenceAutoText: OleVariant; var BookmarkName: OleVariant; 
                             var Bold: OleVariant; var Italic: OleVariant); dispid 102;
    procedure AutoMarkEntries(const ConcordanceFileName: WideString); dispid 103;
    function Add(const Range: Range; var HeadingSeparator: OleVariant; 
                 var RightAlignPageNumbers: OleVariant; var Type_: OleVariant; 
                 var NumberOfColumns: OleVariant; var AccentedLetters: OleVariant; 
                 var SortBy: OleVariant; var IndexLanguage: OleVariant): Index; dispid 104;
  end;

// *********************************************************************//
// Interface: Index
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002097D-0000-0000-C000-000000000046}
// *********************************************************************//
  Index = interface(IDispatch)
    ['{0002097D-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_HeadingSeparator: WdHeadingSeparator; safecall;
    procedure Set_HeadingSeparator(prop: WdHeadingSeparator); safecall;
    function Get_RightAlignPageNumbers: WordBool; safecall;
    procedure Set_RightAlignPageNumbers(prop: WordBool); safecall;
    function Get_type_: WdIndexType; safecall;
    procedure Set_type_(prop: WdIndexType); safecall;
    function Get_NumberOfColumns: Integer; safecall;
    procedure Set_NumberOfColumns(prop: Integer); safecall;
    function Get_Range: Range; safecall;
    function Get_TabLeader: WdTabLeader; safecall;
    procedure Set_TabLeader(prop: WdTabLeader); safecall;
    function Get_AccentedLetters: WordBool; safecall;
    procedure Set_AccentedLetters(prop: WordBool); safecall;
    function Get_SortBy: WdIndexSortBy; safecall;
    procedure Set_SortBy(prop: WdIndexSortBy); safecall;
    function Get_Filter: WdIndexFilter; safecall;
    procedure Set_Filter(prop: WdIndexFilter); safecall;
    procedure Delete; safecall;
    procedure Update; safecall;
    function Get_IndexLanguage: WdLanguageID; safecall;
    procedure Set_IndexLanguage(prop: WdLanguageID); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property HeadingSeparator: WdHeadingSeparator read Get_HeadingSeparator write Set_HeadingSeparator;
    property RightAlignPageNumbers: WordBool read Get_RightAlignPageNumbers write Set_RightAlignPageNumbers;
    property type_: WdIndexType read Get_type_ write Set_type_;
    property NumberOfColumns: Integer read Get_NumberOfColumns write Set_NumberOfColumns;
    property Range: Range read Get_Range;
    property TabLeader: WdTabLeader read Get_TabLeader write Set_TabLeader;
    property AccentedLetters: WordBool read Get_AccentedLetters write Set_AccentedLetters;
    property SortBy: WdIndexSortBy read Get_SortBy write Set_SortBy;
    property Filter: WdIndexFilter read Get_Filter write Set_Filter;
    property IndexLanguage: WdLanguageID read Get_IndexLanguage write Set_IndexLanguage;
  end;

// *********************************************************************//
// DispIntf:  IndexDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002097D-0000-0000-C000-000000000046}
// *********************************************************************//
  IndexDisp = dispinterface
    ['{0002097D-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property HeadingSeparator: WdHeadingSeparator dispid 1;
    property RightAlignPageNumbers: WordBool dispid 2;
    property type_: WdIndexType dispid 3;
    property NumberOfColumns: Integer dispid 4;
    property Range: Range readonly dispid 5;
    property TabLeader: WdTabLeader dispid 6;
    property AccentedLetters: WordBool dispid 7;
    property SortBy: WdIndexSortBy dispid 8;
    property Filter: WdIndexFilter dispid 9;
    procedure Delete; dispid 100;
    procedure Update; dispid 102;
    property IndexLanguage: WdLanguageID dispid 10;
  end;

// *********************************************************************//
// Interface: AddIn
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002097E-0000-0000-C000-000000000046}
// *********************************************************************//
  AddIn = interface(IDispatch)
    ['{0002097E-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    function Get_Index: Integer; safecall;
    function Get_Path: WideString; safecall;
    function Get_Installed: WordBool; safecall;
    procedure Set_Installed(prop: WordBool); safecall;
    function Get_Compiled: WordBool; safecall;
    function Get_Autoload: WordBool; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
    property Index: Integer read Get_Index;
    property Path: WideString read Get_Path;
    property Installed: WordBool read Get_Installed write Set_Installed;
    property Compiled: WordBool read Get_Compiled;
    property Autoload: WordBool read Get_Autoload;
  end;

// *********************************************************************//
// DispIntf:  AddInDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002097E-0000-0000-C000-000000000046}
// *********************************************************************//
  AddInDisp = dispinterface
    ['{0002097E-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString readonly dispid 0;
    property Index: Integer readonly dispid 1;
    property Path: WideString readonly dispid 3;
    property Installed: WordBool dispid 4;
    property Compiled: WordBool readonly dispid 5;
    property Autoload: WordBool readonly dispid 6;
    procedure Delete; dispid 101;
  end;

// *********************************************************************//
// Interface: AddIns
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002097F-0000-0000-C000-000000000046}
// *********************************************************************//
  AddIns = interface(IDispatch)
    ['{0002097F-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): AddIn; safecall;
    function Add(const FileName: WideString; var Install: OleVariant): AddIn; safecall;
    procedure Unload(RemoveFromList: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  AddInsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002097F-0000-0000-C000-000000000046}
// *********************************************************************//
  AddInsDisp = dispinterface
    ['{0002097F-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): AddIn; dispid 0;
    function Add(const FileName: WideString; var Install: OleVariant): AddIn; dispid 2;
    procedure Unload(RemoveFromList: WordBool); dispid 3;
  end;

// *********************************************************************//
// Interface: Revisions
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020980-0000-0000-C000-000000000046}
// *********************************************************************//
  Revisions = interface(IDispatch)
    ['{00020980-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(Index: Integer): Revision; safecall;
    procedure AcceptAll; safecall;
    procedure RejectAll; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  RevisionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020980-0000-0000-C000-000000000046}
// *********************************************************************//
  RevisionsDisp = dispinterface
    ['{00020980-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 5;
    function Item(Index: Integer): Revision; dispid 0;
    procedure AcceptAll; dispid 101;
    procedure RejectAll; dispid 102;
  end;

// *********************************************************************//
// Interface: Revision
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020981-0000-0000-C000-000000000046}
// *********************************************************************//
  Revision = interface(IDispatch)
    ['{00020981-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Author: WideString; safecall;
    function Get_Date: TDateTime; safecall;
    function Get_Range: Range; safecall;
    function Get_type_: WdRevisionType; safecall;
    function Get_Index: Integer; safecall;
    procedure Accept; safecall;
    procedure Reject; safecall;
    function Get_Style: Style; safecall;
    function Get_FormatDescription: WideString; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Author: WideString read Get_Author;
    property Date: TDateTime read Get_Date;
    property Range: Range read Get_Range;
    property type_: WdRevisionType read Get_type_;
    property Index: Integer read Get_Index;
    property Style: Style read Get_Style;
    property FormatDescription: WideString read Get_FormatDescription;
  end;

// *********************************************************************//
// DispIntf:  RevisionDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020981-0000-0000-C000-000000000046}
// *********************************************************************//
  RevisionDisp = dispinterface
    ['{00020981-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Author: WideString readonly dispid 1;
    property Date: TDateTime readonly dispid 2;
    property Range: Range readonly dispid 3;
    property type_: WdRevisionType readonly dispid 4;
    property Index: Integer readonly dispid 5;
    procedure Accept; dispid 101;
    procedure Reject; dispid 102;
    property Style: Style readonly dispid 8;
    property FormatDescription: WideString readonly dispid 9;
  end;

// *********************************************************************//
// Interface: Task
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020982-0000-0000-C000-000000000046}
// *********************************************************************//
  Task = interface(IDispatch)
    ['{00020982-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    function Get_Left: Integer; safecall;
    procedure Set_Left(prop: Integer); safecall;
    function Get_Top: Integer; safecall;
    procedure Set_Top(prop: Integer); safecall;
    function Get_Width: Integer; safecall;
    procedure Set_Width(prop: Integer); safecall;
    function Get_Height: Integer; safecall;
    procedure Set_Height(prop: Integer); safecall;
    function Get_WindowState: WdWindowState; safecall;
    procedure Set_WindowState(prop: WdWindowState); safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Visible(prop: WordBool); safecall;
    procedure Activate(var Wait: OleVariant); safecall;
    procedure Close; safecall;
    procedure Move(Left: Integer; Top: Integer); safecall;
    procedure Resize(Width: Integer; Height: Integer); safecall;
    procedure SendWindowMessage(Message: Integer; wParam: Integer; lParam: Integer); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
    property Left: Integer read Get_Left write Set_Left;
    property Top: Integer read Get_Top write Set_Top;
    property Width: Integer read Get_Width write Set_Width;
    property Height: Integer read Get_Height write Set_Height;
    property WindowState: WdWindowState read Get_WindowState write Set_WindowState;
    property Visible: WordBool read Get_Visible write Set_Visible;
  end;

// *********************************************************************//
// DispIntf:  TaskDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020982-0000-0000-C000-000000000046}
// *********************************************************************//
  TaskDisp = dispinterface
    ['{00020982-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString readonly dispid 0;
    property Left: Integer dispid 1;
    property Top: Integer dispid 2;
    property Width: Integer dispid 3;
    property Height: Integer dispid 4;
    property WindowState: WdWindowState dispid 5;
    property Visible: WordBool dispid 6;
    procedure Activate(var Wait: OleVariant); dispid 10;
    procedure Close; dispid 11;
    procedure Move(Left: Integer; Top: Integer); dispid 12;
    procedure Resize(Width: Integer; Height: Integer); dispid 13;
    procedure SendWindowMessage(Message: Integer; wParam: Integer; lParam: Integer); dispid 14;
  end;

// *********************************************************************//
// Interface: Tasks
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020983-0000-0000-C000-000000000046}
// *********************************************************************//
  Tasks = interface(IDispatch)
    ['{00020983-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): Task; safecall;
    function Exists(const Name: WideString): WordBool; safecall;
    procedure ExitWindows; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  TasksDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020983-0000-0000-C000-000000000046}
// *********************************************************************//
  TasksDisp = dispinterface
    ['{00020983-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): Task; dispid 0;
    function Exists(const Name: WideString): WordBool; dispid 2;
    procedure ExitWindows; dispid 3;
  end;

// *********************************************************************//
// Interface: HeadersFooters
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020984-0000-0000-C000-000000000046}
// *********************************************************************//
  HeadersFooters = interface(IDispatch)
    ['{00020984-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(Index: WdHeaderFooterIndex): HeaderFooter; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  HeadersFootersDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020984-0000-0000-C000-000000000046}
// *********************************************************************//
  HeadersFootersDisp = dispinterface
    ['{00020984-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(Index: WdHeaderFooterIndex): HeaderFooter; dispid 0;
  end;

// *********************************************************************//
// Interface: HeaderFooter
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020985-0000-0000-C000-000000000046}
// *********************************************************************//
  HeaderFooter = interface(IDispatch)
    ['{00020985-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Range: Range; safecall;
    function Get_Index: WdHeaderFooterIndex; safecall;
    function Get_IsHeader: WordBool; safecall;
    function Get_Exists: WordBool; safecall;
    procedure Set_Exists(prop: WordBool); safecall;
    function Get_PageNumbers: PageNumbers; safecall;
    function Get_LinkToPrevious: WordBool; safecall;
    procedure Set_LinkToPrevious(prop: WordBool); safecall;
    function Get_Shapes: Shapes; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Range: Range read Get_Range;
    property Index: WdHeaderFooterIndex read Get_Index;
    property IsHeader: WordBool read Get_IsHeader;
    property Exists: WordBool read Get_Exists write Set_Exists;
    property PageNumbers: PageNumbers read Get_PageNumbers;
    property LinkToPrevious: WordBool read Get_LinkToPrevious write Set_LinkToPrevious;
    property Shapes: Shapes read Get_Shapes;
  end;

// *********************************************************************//
// DispIntf:  HeaderFooterDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020985-0000-0000-C000-000000000046}
// *********************************************************************//
  HeaderFooterDisp = dispinterface
    ['{00020985-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Range: Range readonly dispid 0;
    property Index: WdHeaderFooterIndex readonly dispid 2;
    property IsHeader: WordBool readonly dispid 3;
    property Exists: WordBool dispid 4;
    property PageNumbers: PageNumbers readonly dispid 5;
    property LinkToPrevious: WordBool dispid 6;
    property Shapes: Shapes readonly dispid 7;
  end;

// *********************************************************************//
// Interface: PageNumbers
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020986-0000-0000-C000-000000000046}
// *********************************************************************//
  PageNumbers = interface(IDispatch)
    ['{00020986-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_NumberStyle: WdPageNumberStyle; safecall;
    procedure Set_NumberStyle(prop: WdPageNumberStyle); safecall;
    function Get_IncludeChapterNumber: WordBool; safecall;
    procedure Set_IncludeChapterNumber(prop: WordBool); safecall;
    function Get_HeadingLevelForChapter: Integer; safecall;
    procedure Set_HeadingLevelForChapter(prop: Integer); safecall;
    function Get_ChapterPageSeparator: WdSeparatorType; safecall;
    procedure Set_ChapterPageSeparator(prop: WdSeparatorType); safecall;
    function Get_RestartNumberingAtSection: WordBool; safecall;
    procedure Set_RestartNumberingAtSection(prop: WordBool); safecall;
    function Get_StartingNumber: Integer; safecall;
    procedure Set_StartingNumber(prop: Integer); safecall;
    function Get_ShowFirstPageNumber: WordBool; safecall;
    procedure Set_ShowFirstPageNumber(prop: WordBool); safecall;
    function Item(Index: Integer): PageNumber; safecall;
    function Add(var PageNumberAlignment: OleVariant; var FirstPage: OleVariant): PageNumber; safecall;
    function Get_DoubleQuote: WordBool; safecall;
    procedure Set_DoubleQuote(prop: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property NumberStyle: WdPageNumberStyle read Get_NumberStyle write Set_NumberStyle;
    property IncludeChapterNumber: WordBool read Get_IncludeChapterNumber write Set_IncludeChapterNumber;
    property HeadingLevelForChapter: Integer read Get_HeadingLevelForChapter write Set_HeadingLevelForChapter;
    property ChapterPageSeparator: WdSeparatorType read Get_ChapterPageSeparator write Set_ChapterPageSeparator;
    property RestartNumberingAtSection: WordBool read Get_RestartNumberingAtSection write Set_RestartNumberingAtSection;
    property StartingNumber: Integer read Get_StartingNumber write Set_StartingNumber;
    property ShowFirstPageNumber: WordBool read Get_ShowFirstPageNumber write Set_ShowFirstPageNumber;
    property DoubleQuote: WordBool read Get_DoubleQuote write Set_DoubleQuote;
  end;

// *********************************************************************//
// DispIntf:  PageNumbersDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020986-0000-0000-C000-000000000046}
// *********************************************************************//
  PageNumbersDisp = dispinterface
    ['{00020986-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    property NumberStyle: WdPageNumberStyle dispid 2;
    property IncludeChapterNumber: WordBool dispid 3;
    property HeadingLevelForChapter: Integer dispid 4;
    property ChapterPageSeparator: WdSeparatorType dispid 5;
    property RestartNumberingAtSection: WordBool dispid 6;
    property StartingNumber: Integer dispid 7;
    property ShowFirstPageNumber: WordBool dispid 8;
    function Item(Index: Integer): PageNumber; dispid 0;
    function Add(var PageNumberAlignment: OleVariant; var FirstPage: OleVariant): PageNumber; dispid 101;
    property DoubleQuote: WordBool dispid 10;
  end;

// *********************************************************************//
// Interface: PageNumber
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020987-0000-0000-C000-000000000046}
// *********************************************************************//
  PageNumber = interface(IDispatch)
    ['{00020987-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Index: Integer; safecall;
    function Get_Alignment: WdPageNumberAlignment; safecall;
    procedure Set_Alignment(prop: WdPageNumberAlignment); safecall;
    procedure Select; safecall;
    procedure Copy; safecall;
    procedure Cut; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Index: Integer read Get_Index;
    property Alignment: WdPageNumberAlignment read Get_Alignment write Set_Alignment;
  end;

// *********************************************************************//
// DispIntf:  PageNumberDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020987-0000-0000-C000-000000000046}
// *********************************************************************//
  PageNumberDisp = dispinterface
    ['{00020987-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Index: Integer readonly dispid 1;
    property Alignment: WdPageNumberAlignment dispid 3;
    procedure Select; dispid 65535;
    procedure Copy; dispid 101;
    procedure Cut; dispid 102;
    procedure Delete; dispid 103;
  end;

// *********************************************************************//
// Interface: Subdocuments
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020988-0000-0000-C000-000000000046}
// *********************************************************************//
  Subdocuments = interface(IDispatch)
    ['{00020988-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Expanded: WordBool; safecall;
    procedure Set_Expanded(prop: WordBool); safecall;
    function Item(Index: Integer): Subdocument; safecall;
    function AddFromFile(var Name: OleVariant; var ConfirmConversions: OleVariant; 
                         var ReadOnly: OleVariant; var PasswordDocument: OleVariant; 
                         var PasswordTemplate: OleVariant; var Revert: OleVariant; 
                         var WritePasswordDocument: OleVariant; 
                         var WritePasswordTemplate: OleVariant): Subdocument; safecall;
    function AddFromRange(const Range: Range): Subdocument; safecall;
    procedure Merge(var FirstSubdocument: OleVariant; var LastSubdocument: OleVariant); safecall;
    procedure Delete; safecall;
    procedure Select; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Expanded: WordBool read Get_Expanded write Set_Expanded;
  end;

// *********************************************************************//
// DispIntf:  SubdocumentsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020988-0000-0000-C000-000000000046}
// *********************************************************************//
  SubdocumentsDisp = dispinterface
    ['{00020988-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Count: Integer readonly dispid 1;
    property _NewEnum: IUnknown readonly dispid -4;
    property Expanded: WordBool dispid 2;
    function Item(Index: Integer): Subdocument; dispid 0;
    function AddFromFile(var Name: OleVariant; var ConfirmConversions: OleVariant; 
                         var ReadOnly: OleVariant; var PasswordDocument: OleVariant; 
                         var PasswordTemplate: OleVariant; var Revert: OleVariant; 
                         var WritePasswordDocument: OleVariant; 
                         var WritePasswordTemplate: OleVariant): Subdocument; dispid 100;
    function AddFromRange(const Range: Range): Subdocument; dispid 101;
    procedure Merge(var FirstSubdocument: OleVariant; var LastSubdocument: OleVariant); dispid 102;
    procedure Delete; dispid 103;
    procedure Select; dispid 104;
  end;

// *********************************************************************//
// Interface: Subdocument
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020989-0000-0000-C000-000000000046}
// *********************************************************************//
  Subdocument = interface(IDispatch)
    ['{00020989-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Locked: WordBool; safecall;
    procedure Set_Locked(prop: WordBool); safecall;
    function Get_Range: Range; safecall;
    function Get_Name: WideString; safecall;
    function Get_Path: WideString; safecall;
    function Get_HasFile: WordBool; safecall;
    function Get_Level: Integer; safecall;
    procedure Delete; safecall;
    procedure Split(const Range: Range); safecall;
    function Open: WordDocument; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Locked: WordBool read Get_Locked write Set_Locked;
    property Range: Range read Get_Range;
    property Name: WideString read Get_Name;
    property Path: WideString read Get_Path;
    property HasFile: WordBool read Get_HasFile;
    property Level: Integer read Get_Level;
  end;

// *********************************************************************//
// DispIntf:  SubdocumentDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020989-0000-0000-C000-000000000046}
// *********************************************************************//
  SubdocumentDisp = dispinterface
    ['{00020989-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Locked: WordBool dispid 1;
    property Range: Range readonly dispid 2;
    property Name: WideString readonly dispid 3;
    property Path: WideString readonly dispid 4;
    property HasFile: WordBool readonly dispid 5;
    property Level: Integer readonly dispid 6;
    procedure Delete; dispid 100;
    procedure Split(const Range: Range); dispid 101;
    function Open: WordDocument; dispid 102;
  end;

// *********************************************************************//
// Interface: HeadingStyles
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002098A-0000-0000-C000-000000000046}
// *********************************************************************//
  HeadingStyles = interface(IDispatch)
    ['{0002098A-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(Index: Integer): HeadingStyle; safecall;
    function Add(var Style: OleVariant; Level: Smallint): HeadingStyle; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  HeadingStylesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002098A-0000-0000-C000-000000000046}
// *********************************************************************//
  HeadingStylesDisp = dispinterface
    ['{0002098A-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(Index: Integer): HeadingStyle; dispid 0;
    function Add(var Style: OleVariant; Level: Smallint): HeadingStyle; dispid 100;
  end;

// *********************************************************************//
// Interface: HeadingStyle
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002098B-0000-0000-C000-000000000046}
// *********************************************************************//
  HeadingStyle = interface(IDispatch)
    ['{0002098B-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Style: OleVariant; safecall;
    procedure Set_Style(var prop: OleVariant); safecall;
    function Get_Level: Smallint; safecall;
    procedure Set_Level(prop: Smallint); safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Level: Smallint read Get_Level write Set_Level;
  end;

// *********************************************************************//
// DispIntf:  HeadingStyleDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002098B-0000-0000-C000-000000000046}
// *********************************************************************//
  HeadingStyleDisp = dispinterface
    ['{0002098B-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Style: OleVariant; dispid 0;
    property Level: Smallint dispid 2;
    procedure Delete; dispid 100;
  end;

// *********************************************************************//
// Interface: StoryRanges
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002098C-0000-0000-C000-000000000046}
// *********************************************************************//
  StoryRanges = interface(IDispatch)
    ['{0002098C-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(Index: WdStoryType): Range; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  StoryRangesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002098C-0000-0000-C000-000000000046}
// *********************************************************************//
  StoryRangesDisp = dispinterface
    ['{0002098C-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(Index: WdStoryType): Range; dispid 0;
  end;

// *********************************************************************//
// Interface: ListLevel
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002098D-0000-0000-C000-000000000046}
// *********************************************************************//
  ListLevel = interface(IDispatch)
    ['{0002098D-0000-0000-C000-000000000046}']
    function Get_Index: Integer; safecall;
    function Get_NumberFormat: WideString; safecall;
    procedure Set_NumberFormat(const prop: WideString); safecall;
    function Get_TrailingCharacter: WdTrailingCharacter; safecall;
    procedure Set_TrailingCharacter(prop: WdTrailingCharacter); safecall;
    function Get_NumberStyle: WdListNumberStyle; safecall;
    procedure Set_NumberStyle(prop: WdListNumberStyle); safecall;
    function Get_NumberPosition: Single; safecall;
    procedure Set_NumberPosition(prop: Single); safecall;
    function Get_Alignment: WdListLevelAlignment; safecall;
    procedure Set_Alignment(prop: WdListLevelAlignment); safecall;
    function Get_TextPosition: Single; safecall;
    procedure Set_TextPosition(prop: Single); safecall;
    function Get_TabPosition: Single; safecall;
    procedure Set_TabPosition(prop: Single); safecall;
    function Get_ResetOnHigherOld: WordBool; safecall;
    procedure Set_ResetOnHigherOld(prop: WordBool); safecall;
    function Get_StartAt: Integer; safecall;
    procedure Set_StartAt(prop: Integer); safecall;
    function Get_LinkedStyle: WideString; safecall;
    procedure Set_LinkedStyle(const prop: WideString); safecall;
    function Get_Font: WordFont; safecall;
    procedure Set_Font(const prop: WordFont); safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_ResetOnHigher: Integer; safecall;
    procedure Set_ResetOnHigher(prop: Integer); safecall;
    function Get_PictureBullet: InlineShape; safecall;
    function ApplyPictureBullet(const FileName: WideString): InlineShape; safecall;
    property Index: Integer read Get_Index;
    property NumberFormat: WideString read Get_NumberFormat write Set_NumberFormat;
    property TrailingCharacter: WdTrailingCharacter read Get_TrailingCharacter write Set_TrailingCharacter;
    property NumberStyle: WdListNumberStyle read Get_NumberStyle write Set_NumberStyle;
    property NumberPosition: Single read Get_NumberPosition write Set_NumberPosition;
    property Alignment: WdListLevelAlignment read Get_Alignment write Set_Alignment;
    property TextPosition: Single read Get_TextPosition write Set_TextPosition;
    property TabPosition: Single read Get_TabPosition write Set_TabPosition;
    property ResetOnHigherOld: WordBool read Get_ResetOnHigherOld write Set_ResetOnHigherOld;
    property StartAt: Integer read Get_StartAt write Set_StartAt;
    property LinkedStyle: WideString read Get_LinkedStyle write Set_LinkedStyle;
    property Font: WordFont read Get_Font write Set_Font;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property ResetOnHigher: Integer read Get_ResetOnHigher write Set_ResetOnHigher;
    property PictureBullet: InlineShape read Get_PictureBullet;
  end;

// *********************************************************************//
// DispIntf:  ListLevelDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002098D-0000-0000-C000-000000000046}
// *********************************************************************//
  ListLevelDisp = dispinterface
    ['{0002098D-0000-0000-C000-000000000046}']
    property Index: Integer readonly dispid 1;
    property NumberFormat: WideString dispid 2;
    property TrailingCharacter: WdTrailingCharacter dispid 3;
    property NumberStyle: WdListNumberStyle dispid 4;
    property NumberPosition: Single dispid 5;
    property Alignment: WdListLevelAlignment dispid 6;
    property TextPosition: Single dispid 7;
    property TabPosition: Single dispid 8;
    property ResetOnHigherOld: WordBool dispid 9;
    property StartAt: Integer dispid 10;
    property LinkedStyle: WideString dispid 11;
    property Font: WordFont dispid 12;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property ResetOnHigher: Integer dispid 13;
    property PictureBullet: InlineShape readonly dispid 14;
    function ApplyPictureBullet(const FileName: WideString): InlineShape; dispid 0;
  end;

// *********************************************************************//
// Interface: ListLevels
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002098E-0000-0000-C000-000000000046}
// *********************************************************************//
  ListLevels = interface(IDispatch)
    ['{0002098E-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(Index: Integer): ListLevel; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  ListLevelsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002098E-0000-0000-C000-000000000046}
// *********************************************************************//
  ListLevelsDisp = dispinterface
    ['{0002098E-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(Index: Integer): ListLevel; dispid 0;
  end;

// *********************************************************************//
// Interface: ListTemplate
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002098F-0000-0000-C000-000000000046}
// *********************************************************************//
  ListTemplate = interface(IDispatch)
    ['{0002098F-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_OutlineNumbered: WordBool; safecall;
    procedure Set_OutlineNumbered(prop: WordBool); safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const prop: WideString); safecall;
    function Get_ListLevels: ListLevels; safecall;
    function Convert(var Level: OleVariant): ListTemplate; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property OutlineNumbered: WordBool read Get_OutlineNumbered write Set_OutlineNumbered;
    property Name: WideString read Get_Name write Set_Name;
    property ListLevels: ListLevels read Get_ListLevels;
  end;

// *********************************************************************//
// DispIntf:  ListTemplateDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002098F-0000-0000-C000-000000000046}
// *********************************************************************//
  ListTemplateDisp = dispinterface
    ['{0002098F-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property OutlineNumbered: WordBool dispid 1;
    property Name: WideString dispid 3;
    property ListLevels: ListLevels readonly dispid 2;
    function Convert(var Level: OleVariant): ListTemplate; dispid 101;
  end;

// *********************************************************************//
// Interface: ListTemplates
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020990-0000-0000-C000-000000000046}
// *********************************************************************//
  ListTemplates = interface(IDispatch)
    ['{00020990-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(var Index: OleVariant): ListTemplate; safecall;
    function Add(var OutlineNumbered: OleVariant; var Name: OleVariant): ListTemplate; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  ListTemplatesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020990-0000-0000-C000-000000000046}
// *********************************************************************//
  ListTemplatesDisp = dispinterface
    ['{00020990-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(var Index: OleVariant): ListTemplate; dispid 0;
    function Add(var OutlineNumbered: OleVariant; var Name: OleVariant): ListTemplate; dispid 100;
  end;

// *********************************************************************//
// Interface: ListParagraphs
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020991-0000-0000-C000-000000000046}
// *********************************************************************//
  ListParagraphs = interface(IDispatch)
    ['{00020991-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(Index: Integer): Paragraph; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  ListParagraphsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020991-0000-0000-C000-000000000046}
// *********************************************************************//
  ListParagraphsDisp = dispinterface
    ['{00020991-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(Index: Integer): Paragraph; dispid 0;
  end;

// *********************************************************************//
// Interface: List
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020992-0000-0000-C000-000000000046}
// *********************************************************************//
  List = interface(IDispatch)
    ['{00020992-0000-0000-C000-000000000046}']
    function Get_Range: Range; safecall;
    function Get_ListParagraphs: ListParagraphs; safecall;
    function Get_SingleListTemplate: WordBool; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    procedure ConvertNumbersToText(var NumberType: OleVariant); safecall;
    procedure RemoveNumbers(var NumberType: OleVariant); safecall;
    function CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer; safecall;
    procedure ApplyListTemplateOld(const ListTemplate: ListTemplate; 
                                   var ContinuePreviousList: OleVariant); safecall;
    function CanContinuePreviousList(const ListTemplate: ListTemplate): WdContinue; safecall;
    procedure ApplyListTemplate(const ListTemplate: ListTemplate; 
                                var ContinuePreviousList: OleVariant; 
                                var DefaultListBehavior: OleVariant); safecall;
    function Get_StyleName: WideString; safecall;
    property Range: Range read Get_Range;
    property ListParagraphs: ListParagraphs read Get_ListParagraphs;
    property SingleListTemplate: WordBool read Get_SingleListTemplate;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property StyleName: WideString read Get_StyleName;
  end;

// *********************************************************************//
// DispIntf:  ListDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020992-0000-0000-C000-000000000046}
// *********************************************************************//
  ListDisp = dispinterface
    ['{00020992-0000-0000-C000-000000000046}']
    property Range: Range readonly dispid 1;
    property ListParagraphs: ListParagraphs readonly dispid 2;
    property SingleListTemplate: WordBool readonly dispid 3;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    procedure ConvertNumbersToText(var NumberType: OleVariant); dispid 101;
    procedure RemoveNumbers(var NumberType: OleVariant); dispid 102;
    function CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer; dispid 103;
    procedure ApplyListTemplateOld(const ListTemplate: ListTemplate; 
                                   var ContinuePreviousList: OleVariant); dispid 104;
    function CanContinuePreviousList(const ListTemplate: ListTemplate): WdContinue; dispid 105;
    procedure ApplyListTemplate(const ListTemplate: ListTemplate; 
                                var ContinuePreviousList: OleVariant; 
                                var DefaultListBehavior: OleVariant); dispid 106;
    property StyleName: WideString readonly dispid 4;
  end;

// *********************************************************************//
// Interface: Lists
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020993-0000-0000-C000-000000000046}
// *********************************************************************//
  Lists = interface(IDispatch)
    ['{00020993-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(Index: Integer): List; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  ListsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020993-0000-0000-C000-000000000046}
// *********************************************************************//
  ListsDisp = dispinterface
    ['{00020993-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(Index: Integer): List; dispid 0;
  end;

// *********************************************************************//
// Interface: ListGallery
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020994-0000-0000-C000-000000000046}
// *********************************************************************//
  ListGallery = interface(IDispatch)
    ['{00020994-0000-0000-C000-000000000046}']
    function Get_ListTemplates: ListTemplates; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Modified(Index: Integer): WordBool; safecall;
    procedure Reset(Index: Integer); safecall;
    property ListTemplates: ListTemplates read Get_ListTemplates;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Modified[Index: Integer]: WordBool read Get_Modified;
  end;

// *********************************************************************//
// DispIntf:  ListGalleryDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020994-0000-0000-C000-000000000046}
// *********************************************************************//
  ListGalleryDisp = dispinterface
    ['{00020994-0000-0000-C000-000000000046}']
    property ListTemplates: ListTemplates readonly dispid 1;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Modified[Index: Integer]: WordBool readonly dispid 101;
    procedure Reset(Index: Integer); dispid 100;
  end;

// *********************************************************************//
// Interface: ListGalleries
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020995-0000-0000-C000-000000000046}
// *********************************************************************//
  ListGalleries = interface(IDispatch)
    ['{00020995-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(Index: WdListGalleryType): ListGallery; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  ListGalleriesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020995-0000-0000-C000-000000000046}
// *********************************************************************//
  ListGalleriesDisp = dispinterface
    ['{00020995-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(Index: WdListGalleryType): ListGallery; dispid 0;
  end;

// *********************************************************************//
// Interface: KeyBindings
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020996-0000-0000-C000-000000000046}
// *********************************************************************//
  KeyBindings = interface(IDispatch)
    ['{00020996-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Context: IDispatch; safecall;
    function Item(Index: Integer): KeyBinding; safecall;
    function Add(KeyCategory: WdKeyCategory; const Command: WideString; KeyCode: Integer; 
                 var KeyCode2: OleVariant; var CommandParameter: OleVariant): KeyBinding; safecall;
    procedure ClearAll; safecall;
    function Key(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Context: IDispatch read Get_Context;
  end;

// *********************************************************************//
// DispIntf:  KeyBindingsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020996-0000-0000-C000-000000000046}
// *********************************************************************//
  KeyBindingsDisp = dispinterface
    ['{00020996-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Context: IDispatch readonly dispid 10;
    function Item(Index: Integer): KeyBinding; dispid 0;
    function Add(KeyCategory: WdKeyCategory; const Command: WideString; KeyCode: Integer; 
                 var KeyCode2: OleVariant; var CommandParameter: OleVariant): KeyBinding; dispid 101;
    procedure ClearAll; dispid 102;
    function Key(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding; dispid 110;
  end;

// *********************************************************************//
// Interface: KeysBoundTo
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020997-0000-0000-C000-000000000046}
// *********************************************************************//
  KeysBoundTo = interface(IDispatch)
    ['{00020997-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_KeyCategory: WdKeyCategory; safecall;
    function Get_Command: WideString; safecall;
    function Get_CommandParameter: WideString; safecall;
    function Get_Context: IDispatch; safecall;
    function Item(Index: Integer): KeyBinding; safecall;
    function Key(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property KeyCategory: WdKeyCategory read Get_KeyCategory;
    property Command: WideString read Get_Command;
    property CommandParameter: WideString read Get_CommandParameter;
    property Context: IDispatch read Get_Context;
  end;

// *********************************************************************//
// DispIntf:  KeysBoundToDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020997-0000-0000-C000-000000000046}
// *********************************************************************//
  KeysBoundToDisp = dispinterface
    ['{00020997-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property KeyCategory: WdKeyCategory readonly dispid 3;
    property Command: WideString readonly dispid 4;
    property CommandParameter: WideString readonly dispid 5;
    property Context: IDispatch readonly dispid 10;
    function Item(Index: Integer): KeyBinding; dispid 0;
    function Key(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding; dispid 1;
  end;

// *********************************************************************//
// Interface: KeyBinding
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020998-0000-0000-C000-000000000046}
// *********************************************************************//
  KeyBinding = interface(IDispatch)
    ['{00020998-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Command: WideString; safecall;
    function Get_KeyString: WideString; safecall;
    function Get_Protected_: WordBool; safecall;
    function Get_KeyCategory: WdKeyCategory; safecall;
    function Get_KeyCode: Integer; safecall;
    function Get_KeyCode2: Integer; safecall;
    function Get_CommandParameter: WideString; safecall;
    function Get_Context: IDispatch; safecall;
    procedure Clear; safecall;
    procedure Disable; safecall;
    procedure Execute; safecall;
    procedure Rebind(KeyCategory: WdKeyCategory; const Command: WideString; 
                     var CommandParameter: OleVariant); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Command: WideString read Get_Command;
    property KeyString: WideString read Get_KeyString;
    property Protected_: WordBool read Get_Protected_;
    property KeyCategory: WdKeyCategory read Get_KeyCategory;
    property KeyCode: Integer read Get_KeyCode;
    property KeyCode2: Integer read Get_KeyCode2;
    property CommandParameter: WideString read Get_CommandParameter;
    property Context: IDispatch read Get_Context;
  end;

// *********************************************************************//
// DispIntf:  KeyBindingDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020998-0000-0000-C000-000000000046}
// *********************************************************************//
  KeyBindingDisp = dispinterface
    ['{00020998-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Command: WideString readonly dispid 1;
    property KeyString: WideString readonly dispid 2;
    property Protected_: WordBool readonly dispid 3;
    property KeyCategory: WdKeyCategory readonly dispid 4;
    property KeyCode: Integer readonly dispid 6;
    property KeyCode2: Integer readonly dispid 7;
    property CommandParameter: WideString readonly dispid 8;
    property Context: IDispatch readonly dispid 10;
    procedure Clear; dispid 101;
    procedure Disable; dispid 102;
    procedure Execute; dispid 103;
    procedure Rebind(KeyCategory: WdKeyCategory; const Command: WideString; 
                     var CommandParameter: OleVariant); dispid 104;
  end;

// *********************************************************************//
// Interface: FileConverter
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020999-0000-0000-C000-000000000046}
// *********************************************************************//
  FileConverter = interface(IDispatch)
    ['{00020999-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_FormatName: WideString; safecall;
    function Get__className: WideString; safecall;
    function Get_SaveFormat: Integer; safecall;
    function Get_OpenFormat: Integer; safecall;
    function Get_CanSave: WordBool; safecall;
    function Get_CanOpen: WordBool; safecall;
    function Get_Path: WideString; safecall;
    function Get_Name: WideString; safecall;
    function Get_Extensions: WideString; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property FormatName: WideString read Get_FormatName;
    property _className: WideString read Get__className;
    property SaveFormat: Integer read Get_SaveFormat;
    property OpenFormat: Integer read Get_OpenFormat;
    property CanSave: WordBool read Get_CanSave;
    property CanOpen: WordBool read Get_CanOpen;
    property Path: WideString read Get_Path;
    property Name: WideString read Get_Name;
    property Extensions: WideString read Get_Extensions;
  end;

// *********************************************************************//
// DispIntf:  FileConverterDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020999-0000-0000-C000-000000000046}
// *********************************************************************//
  FileConverterDisp = dispinterface
    ['{00020999-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property FormatName: WideString readonly dispid 0;
    property _className: WideString readonly dispid 1;
    property SaveFormat: Integer readonly dispid 2;
    property OpenFormat: Integer readonly dispid 3;
    property CanSave: WordBool readonly dispid 4;
    property CanOpen: WordBool readonly dispid 5;
    property Path: WideString readonly dispid 6;
    property Name: WideString readonly dispid 7;
    property Extensions: WideString readonly dispid 8;
  end;

// *********************************************************************//
// Interface: FileConverters
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002099A-0000-0000-C000-000000000046}
// *********************************************************************//
  FileConverters = interface(IDispatch)
    ['{0002099A-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_ConvertMacWordChevrons: WdChevronConvertRule; safecall;
    procedure Set_ConvertMacWordChevrons(prop: WdChevronConvertRule); safecall;
    function Item(var Index: OleVariant): FileConverter; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
    property ConvertMacWordChevrons: WdChevronConvertRule read Get_ConvertMacWordChevrons write Set_ConvertMacWordChevrons;
  end;

// *********************************************************************//
// DispIntf:  FileConvertersDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002099A-0000-0000-C000-000000000046}
// *********************************************************************//
  FileConvertersDisp = dispinterface
    ['{0002099A-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Count: Integer readonly dispid 1;
    property _NewEnum: IUnknown readonly dispid -4;
    property ConvertMacWordChevrons: WdChevronConvertRule dispid 2;
    function Item(var Index: OleVariant): FileConverter; dispid 0;
  end;

// *********************************************************************//
// Interface: SynonymInfo
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002099B-0000-0000-C000-000000000046}
// *********************************************************************//
  SynonymInfo = interface(IDispatch)
    ['{0002099B-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Word: WideString; safecall;
    function Get_Found: WordBool; safecall;
    function Get_MeaningCount: Integer; safecall;
    function Get_MeaningList: OleVariant; safecall;
    function Get_PartOfSpeechList: OleVariant; safecall;
    function Get_SynonymList(var Meaning: OleVariant): OleVariant; safecall;
    function Get_AntonymList: OleVariant; safecall;
    function Get_RelatedExpressionList: OleVariant; safecall;
    function Get_RelatedWordList: OleVariant; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Word: WideString read Get_Word;
    property Found: WordBool read Get_Found;
    property MeaningCount: Integer read Get_MeaningCount;
    property MeaningList: OleVariant read Get_MeaningList;
    property PartOfSpeechList: OleVariant read Get_PartOfSpeechList;
    property SynonymList[var Meaning: OleVariant]: OleVariant read Get_SynonymList;
    property AntonymList: OleVariant read Get_AntonymList;
    property RelatedExpressionList: OleVariant read Get_RelatedExpressionList;
    property RelatedWordList: OleVariant read Get_RelatedWordList;
  end;

// *********************************************************************//
// DispIntf:  SynonymInfoDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002099B-0000-0000-C000-000000000046}
// *********************************************************************//
  SynonymInfoDisp = dispinterface
    ['{0002099B-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Word: WideString readonly dispid 1;
    property Found: WordBool readonly dispid 2;
    property MeaningCount: Integer readonly dispid 3;
    property MeaningList: OleVariant readonly dispid 4;
    property PartOfSpeechList: OleVariant readonly dispid 5;
    property SynonymList[var Meaning: OleVariant]: OleVariant readonly dispid 7;
    property AntonymList: OleVariant readonly dispid 8;
    property RelatedExpressionList: OleVariant readonly dispid 9;
    property RelatedWordList: OleVariant readonly dispid 10;
  end;

// *********************************************************************//
// Interface: Hyperlinks
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002099C-0000-0000-C000-000000000046}
// *********************************************************************//
  Hyperlinks = interface(IDispatch)
    ['{0002099C-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Item(var Index: OleVariant): Hyperlink; safecall;
    function _Add(const Anchor: IDispatch; var Address: OleVariant; var SubAddress: OleVariant): Hyperlink; safecall;
    function Add(const Anchor: IDispatch; var Address: OleVariant; var SubAddress: OleVariant; 
                 var ScreenTip: OleVariant; var TextToDisplay: OleVariant; var Target: OleVariant): Hyperlink; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  HyperlinksDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002099C-0000-0000-C000-000000000046}
// *********************************************************************//
  HyperlinksDisp = dispinterface
    ['{0002099C-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Count: Integer readonly dispid 1;
    property _NewEnum: IUnknown readonly dispid -4;
    function Item(var Index: OleVariant): Hyperlink; dispid 0;
    function _Add(const Anchor: IDispatch; var Address: OleVariant; var SubAddress: OleVariant): Hyperlink; dispid 100;
    function Add(const Anchor: IDispatch; var Address: OleVariant; var SubAddress: OleVariant; 
                 var ScreenTip: OleVariant; var TextToDisplay: OleVariant; var Target: OleVariant): Hyperlink; dispid 101;
  end;

// *********************************************************************//
// Interface: Hyperlink
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002099D-0000-0000-C000-000000000046}
// *********************************************************************//
  Hyperlink = interface(IDispatch)
    ['{0002099D-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    function Get_AddressOld: WideString; safecall;
    function Get_type_: MsoHyperlinkType; safecall;
    function Get_Range: Range; safecall;
    function Get_Shape: Shape; safecall;
    function Get_SubAddressOld: WideString; safecall;
    function Get_ExtraInfoRequired: WordBool; safecall;
    procedure Delete; safecall;
    procedure Follow(var NewWindow: OleVariant; var AddHistory: OleVariant; 
                     var ExtraInfo: OleVariant; var Method: OleVariant; var HeaderInfo: OleVariant); safecall;
    procedure AddToFavorites; safecall;
    procedure CreateNewDocument(const FileName: WideString; EditNow: WordBool; Overwrite: WordBool); safecall;
    function Get_Address: WideString; safecall;
    procedure Set_Address(const prop: WideString); safecall;
    function Get_SubAddress: WideString; safecall;
    procedure Set_SubAddress(const prop: WideString); safecall;
    function Get_EmailSubject: WideString; safecall;
    procedure Set_EmailSubject(const prop: WideString); safecall;
    function Get_ScreenTip: WideString; safecall;
    procedure Set_ScreenTip(const prop: WideString); safecall;
    function Get_TextToDisplay: WideString; safecall;
    procedure Set_TextToDisplay(const prop: WideString); safecall;
    function Get_Target: WideString; safecall;
    procedure Set_Target(const prop: WideString); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
    property AddressOld: WideString read Get_AddressOld;
    property type_: MsoHyperlinkType read Get_type_;
    property Range: Range read Get_Range;
    property Shape: Shape read Get_Shape;
    property SubAddressOld: WideString read Get_SubAddressOld;
    property ExtraInfoRequired: WordBool read Get_ExtraInfoRequired;
    property Address: WideString read Get_Address write Set_Address;
    property SubAddress: WideString read Get_SubAddress write Set_SubAddress;
    property EmailSubject: WideString read Get_EmailSubject write Set_EmailSubject;
    property ScreenTip: WideString read Get_ScreenTip write Set_ScreenTip;
    property TextToDisplay: WideString read Get_TextToDisplay write Set_TextToDisplay;
    property Target: WideString read Get_Target write Set_Target;
  end;

// *********************************************************************//
// DispIntf:  HyperlinkDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002099D-0000-0000-C000-000000000046}
// *********************************************************************//
  HyperlinkDisp = dispinterface
    ['{0002099D-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString readonly dispid 1003;
    property AddressOld: WideString readonly dispid 1004;
    property type_: MsoHyperlinkType readonly dispid 1005;
    property Range: Range readonly dispid 1006;
    property Shape: Shape readonly dispid 1007;
    property SubAddressOld: WideString readonly dispid 1008;
    property ExtraInfoRequired: WordBool readonly dispid 1009;
    procedure Delete; dispid 103;
    procedure Follow(var NewWindow: OleVariant; var AddHistory: OleVariant; 
                     var ExtraInfo: OleVariant; var Method: OleVariant; var HeaderInfo: OleVariant); dispid 104;
    procedure AddToFavorites; dispid 105;
    procedure CreateNewDocument(const FileName: WideString; EditNow: WordBool; Overwrite: WordBool); dispid 106;
    property Address: WideString dispid 1100;
    property SubAddress: WideString dispid 1101;
    property EmailSubject: WideString dispid 1010;
    property ScreenTip: WideString dispid 1011;
    property TextToDisplay: WideString dispid 1012;
    property Target: WideString dispid 1013;
  end;

// *********************************************************************//
// Interface: Shapes
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002099F-0000-0000-C000-000000000046}
// *********************************************************************//
  Shapes = interface(IDispatch)
    ['{0002099F-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Item(var Index: OleVariant): Shape; safecall;
    function AddCallout(Type_: MsoCalloutType; Left: Single; Top: Single; Width: Single; 
                        Height: Single; var Anchor: OleVariant): Shape; safecall;
    function AddConnector(Type_: MsoConnectorType; BeginX: Single; BeginY: Single; EndX: Single; 
                          EndY: Single): Shape; safecall;
    function AddCurve(var SafeArrayOfPoints: OleVariant; var Anchor: OleVariant): Shape; safecall;
    function AddLabel(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
                      Height: Single; var Anchor: OleVariant): Shape; safecall;
    function AddLine(BeginX: Single; BeginY: Single; EndX: Single; EndY: Single; 
                     var Anchor: OleVariant): Shape; safecall;
    function AddPicture(const FileName: WideString; var LinkToFile: OleVariant; 
                        var SaveWithDocument: OleVariant; var Left: OleVariant; 
                        var Top: OleVariant; var Width: OleVariant; var Height: OleVariant; 
                        var Anchor: OleVariant): Shape; safecall;
    function AddPolyline(var SafeArrayOfPoints: OleVariant; var Anchor: OleVariant): Shape; safecall;
    function AddShape(Type_: Integer; Left: Single; Top: Single; Width: Single; Height: Single; 
                      var Anchor: OleVariant): Shape; safecall;
    function AddTextEffect(PresetTextEffect: MsoPresetTextEffect; const Text: WideString; 
                           const FontName: WideString; FontSize: Single; FontBold: MsoTriState; 
                           FontItalic: MsoTriState; Left: Single; Top: Single; 
                           var Anchor: OleVariant): Shape; safecall;
    function AddTextbox(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
                        Height: Single; var Anchor: OleVariant): Shape; safecall;
    function BuildFreeform(EditingType: MsoEditingType; X1: Single; Y1: Single): FreeformBuilder; safecall;
    function Range(var Index: OleVariant): ShapeRange; safecall;
    procedure SelectAll; safecall;
    function AddOLEObject(var ClassType: OleVariant; var FileName: OleVariant; 
                          var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
                          var IconFileName: OleVariant; var IconIndex: OleVariant; 
                          var IconLabel: OleVariant; var Left: OleVariant; var Top: OleVariant; 
                          var Width: OleVariant; var Height: OleVariant; var Anchor: OleVariant): Shape; safecall;
    function AddOLEControl(var ClassType: OleVariant; var Left: OleVariant; var Top: OleVariant; 
                           var Width: OleVariant; var Height: OleVariant; var Anchor: OleVariant): Shape; safecall;
    function AddDiagram(Type_: MsoDiagramType; Left: Single; Top: Single; Width: Single; 
                        Height: Single; var Anchor: OleVariant): Shape; safecall;
    function AddCanvas(Left: Single; Top: Single; Width: Single; Height: Single; 
                       var Anchor: OleVariant): Shape; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  ShapesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {0002099F-0000-0000-C000-000000000046}
// *********************************************************************//
  ShapesDisp = dispinterface
    ['{0002099F-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 8000;
    property Creator: Integer readonly dispid 8001;
    property Parent: IDispatch readonly dispid 1;
    property Count: Integer readonly dispid 2;
    property _NewEnum: IUnknown readonly dispid -4;
    function Item(var Index: OleVariant): Shape; dispid 0;
    function AddCallout(Type_: MsoCalloutType; Left: Single; Top: Single; Width: Single; 
                        Height: Single; var Anchor: OleVariant): Shape; dispid 10;
    function AddConnector(Type_: MsoConnectorType; BeginX: Single; BeginY: Single; EndX: Single; 
                          EndY: Single): Shape; dispid 11;
    function AddCurve(var SafeArrayOfPoints: OleVariant; var Anchor: OleVariant): Shape; dispid 12;
    function AddLabel(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
                      Height: Single; var Anchor: OleVariant): Shape; dispid 13;
    function AddLine(BeginX: Single; BeginY: Single; EndX: Single; EndY: Single; 
                     var Anchor: OleVariant): Shape; dispid 14;
    function AddPicture(const FileName: WideString; var LinkToFile: OleVariant; 
                        var SaveWithDocument: OleVariant; var Left: OleVariant; 
                        var Top: OleVariant; var Width: OleVariant; var Height: OleVariant; 
                        var Anchor: OleVariant): Shape; dispid 15;
    function AddPolyline(var SafeArrayOfPoints: OleVariant; var Anchor: OleVariant): Shape; dispid 16;
    function AddShape(Type_: Integer; Left: Single; Top: Single; Width: Single; Height: Single; 
                      var Anchor: OleVariant): Shape; dispid 17;
    function AddTextEffect(PresetTextEffect: MsoPresetTextEffect; const Text: WideString; 
                           const FontName: WideString; FontSize: Single; FontBold: MsoTriState; 
                           FontItalic: MsoTriState; Left: Single; Top: Single; 
                           var Anchor: OleVariant): Shape; dispid 18;
    function AddTextbox(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
                        Height: Single; var Anchor: OleVariant): Shape; dispid 19;
    function BuildFreeform(EditingType: MsoEditingType; X1: Single; Y1: Single): FreeformBuilder; dispid 20;
    function Range(var Index: OleVariant): ShapeRange; dispid 21;
    procedure SelectAll; dispid 22;
    function AddOLEObject(var ClassType: OleVariant; var FileName: OleVariant; 
                          var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
                          var IconFileName: OleVariant; var IconIndex: OleVariant; 
                          var IconLabel: OleVariant; var Left: OleVariant; var Top: OleVariant; 
                          var Width: OleVariant; var Height: OleVariant; var Anchor: OleVariant): Shape; dispid 24;
    function AddOLEControl(var ClassType: OleVariant; var Left: OleVariant; var Top: OleVariant; 
                           var Width: OleVariant; var Height: OleVariant; var Anchor: OleVariant): Shape; dispid 102;
    function AddDiagram(Type_: MsoDiagramType; Left: Single; Top: Single; Width: Single; 
                        Height: Single; var Anchor: OleVariant): Shape; dispid 23;
    function AddCanvas(Left: Single; Top: Single; Width: Single; Height: Single; 
                       var Anchor: OleVariant): Shape; dispid 25;
  end;

// *********************************************************************//
// Interface: ShapeRange
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B5-0000-0000-C000-000000000046}
// *********************************************************************//
  ShapeRange = interface(IDispatch)
    ['{000209B5-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Adjustments: Adjustments; safecall;
    function Get_AutoShapeType: MsoAutoShapeType; safecall;
    procedure Set_AutoShapeType(prop: MsoAutoShapeType); safecall;
    function Get_Callout: CalloutFormat; safecall;
    function Get_ConnectionSiteCount: Integer; safecall;
    function Get_Connector: MsoTriState; safecall;
    function Get_ConnectorFormat: ConnectorFormat; safecall;
    function Get_Fill: FillFormat; safecall;
    function Get_GroupItems: GroupShapes; safecall;
    function Get_Height: Single; safecall;
    procedure Set_Height(prop: Single); safecall;
    function Get_HorizontalFlip: MsoTriState; safecall;
    function Get_Left: Single; safecall;
    procedure Set_Left(prop: Single); safecall;
    function Get_Line: LineFormat; safecall;
    function Get_LockAspectRatio: MsoTriState; safecall;
    procedure Set_LockAspectRatio(prop: MsoTriState); safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const prop: WideString); safecall;
    function Get_Nodes: ShapeNodes; safecall;
    function Get_Rotation: Single; safecall;
    procedure Set_Rotation(prop: Single); safecall;
    function Get_PictureFormat: PictureFormat; safecall;
    function Get_Shadow: ShadowFormat; safecall;
    function Get_TextEffect: TextEffectFormat; safecall;
    function Get_TextFrame: TextFrame; safecall;
    function Get_ThreeD: ThreeDFormat; safecall;
    function Get_Top: Single; safecall;
    procedure Set_Top(prop: Single); safecall;
    function Get_type_: MsoShapeType; safecall;
    function Get_VerticalFlip: MsoTriState; safecall;
    function Get_Vertices: OleVariant; safecall;
    function Get_Visible: MsoTriState; safecall;
    procedure Set_Visible(prop: MsoTriState); safecall;
    function Get_Width: Single; safecall;
    procedure Set_Width(prop: Single); safecall;
    function Get_ZOrderPosition: Integer; safecall;
    function Get_Hyperlink: Hyperlink; safecall;
    function Get_RelativeHorizontalPosition: WdRelativeHorizontalPosition; safecall;
    procedure Set_RelativeHorizontalPosition(prop: WdRelativeHorizontalPosition); safecall;
    function Get_RelativeVerticalPosition: WdRelativeVerticalPosition; safecall;
    procedure Set_RelativeVerticalPosition(prop: WdRelativeVerticalPosition); safecall;
    function Get_LockAnchor: Integer; safecall;
    procedure Set_LockAnchor(prop: Integer); safecall;
    function Get_WrapFormat: WrapFormat; safecall;
    function Get_Anchor: Range; safecall;
    function Item(var Index: OleVariant): Shape; safecall;
    procedure Align(Align: MsoAlignCmd; RelativeTo: Integer); safecall;
    procedure Apply; safecall;
    procedure Delete; safecall;
    procedure Distribute(Distribute: MsoDistributeCmd; RelativeTo: Integer); safecall;
    function Duplicate: ShapeRange; safecall;
    procedure Flip(FlipCmd: MsoFlipCmd); safecall;
    procedure IncrementLeft(Increment: Single); safecall;
    procedure IncrementRotation(Increment: Single); safecall;
    procedure IncrementTop(Increment: Single); safecall;
    function Group: Shape; safecall;
    procedure PickUp; safecall;
    function Regroup: Shape; safecall;
    procedure RerouteConnections; safecall;
    procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); safecall;
    procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); safecall;
    procedure Select(var Replace: OleVariant); safecall;
    procedure SetShapesDefaultProperties; safecall;
    function Ungroup: ShapeRange; safecall;
    procedure ZOrder(ZOrderCmd: MsoZOrderCmd); safecall;
    function ConvertToFrame: Frame; safecall;
    function ConvertToInlineShape: InlineShape; safecall;
    procedure Activate; safecall;
    function Get_AlternativeText: WideString; safecall;
    procedure Set_AlternativeText(const prop: WideString); safecall;
    function Get_HasDiagram: MsoTriState; safecall;
    function Get_Diagram: IMsoDiagram; safecall;
    function Get_HasDiagramNode: MsoTriState; safecall;
    function Get_DiagramNode: DiagramNode; safecall;
    function Get_Child: MsoTriState; safecall;
    function Get_ParentGroup: Shape; safecall;
    function Get_CanvasItems: CanvasShapes; safecall;
    function Get_ID: Integer; safecall;
    procedure CanvasCropLeft(Increment: Single); safecall;
    procedure CanvasCropTop(Increment: Single); safecall;
    procedure CanvasCropRight(Increment: Single); safecall;
    procedure CanvasCropBottom(Increment: Single); safecall;
    procedure Set_RTF(const Param1: WideString); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Adjustments: Adjustments read Get_Adjustments;
    property AutoShapeType: MsoAutoShapeType read Get_AutoShapeType write Set_AutoShapeType;
    property Callout: CalloutFormat read Get_Callout;
    property ConnectionSiteCount: Integer read Get_ConnectionSiteCount;
    property Connector: MsoTriState read Get_Connector;
    property ConnectorFormat: ConnectorFormat read Get_ConnectorFormat;
    property Fill: FillFormat read Get_Fill;
    property GroupItems: GroupShapes read Get_GroupItems;
    property Height: Single read Get_Height write Set_Height;
    property HorizontalFlip: MsoTriState read Get_HorizontalFlip;
    property Left: Single read Get_Left write Set_Left;
    property Line: LineFormat read Get_Line;
    property LockAspectRatio: MsoTriState read Get_LockAspectRatio write Set_LockAspectRatio;
    property Name: WideString read Get_Name write Set_Name;
    property Nodes: ShapeNodes read Get_Nodes;
    property Rotation: Single read Get_Rotation write Set_Rotation;
    property PictureFormat: PictureFormat read Get_PictureFormat;
    property Shadow: ShadowFormat read Get_Shadow;
    property TextEffect: TextEffectFormat read Get_TextEffect;
    property TextFrame: TextFrame read Get_TextFrame;
    property ThreeD: ThreeDFormat read Get_ThreeD;
    property Top: Single read Get_Top write Set_Top;
    property type_: MsoShapeType read Get_type_;
    property VerticalFlip: MsoTriState read Get_VerticalFlip;
    property Vertices: OleVariant read Get_Vertices;
    property Visible: MsoTriState read Get_Visible write Set_Visible;
    property Width: Single read Get_Width write Set_Width;
    property ZOrderPosition: Integer read Get_ZOrderPosition;
    property Hyperlink: Hyperlink read Get_Hyperlink;
    property RelativeHorizontalPosition: WdRelativeHorizontalPosition read Get_RelativeHorizontalPosition write Set_RelativeHorizontalPosition;
    property RelativeVerticalPosition: WdRelativeVerticalPosition read Get_RelativeVerticalPosition write Set_RelativeVerticalPosition;
    property LockAnchor: Integer read Get_LockAnchor write Set_LockAnchor;
    property WrapFormat: WrapFormat read Get_WrapFormat;
    property Anchor: Range read Get_Anchor;
    property AlternativeText: WideString read Get_AlternativeText write Set_AlternativeText;
    property HasDiagram: MsoTriState read Get_HasDiagram;
    property Diagram: IMsoDiagram read Get_Diagram;
    property HasDiagramNode: MsoTriState read Get_HasDiagramNode;
    property DiagramNode: DiagramNode read Get_DiagramNode;
    property Child: MsoTriState read Get_Child;
    property ParentGroup: Shape read Get_ParentGroup;
    property CanvasItems: CanvasShapes read Get_CanvasItems;
    property ID: Integer read Get_ID;
    property RTF: WideString write Set_RTF;
  end;

// *********************************************************************//
// DispIntf:  ShapeRangeDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B5-0000-0000-C000-000000000046}
// *********************************************************************//
  ShapeRangeDisp = dispinterface
    ['{000209B5-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 8000;
    property Creator: Integer readonly dispid 8001;
    property Parent: IDispatch readonly dispid 1;
    property Count: Integer readonly dispid 2;
    property _NewEnum: IUnknown readonly dispid -4;
    property Adjustments: Adjustments readonly dispid 100;
    property AutoShapeType: MsoAutoShapeType dispid 101;
    property Callout: CalloutFormat readonly dispid 103;
    property ConnectionSiteCount: Integer readonly dispid 104;
    property Connector: MsoTriState readonly dispid 105;
    property ConnectorFormat: ConnectorFormat readonly dispid 106;
    property Fill: FillFormat readonly dispid 107;
    property GroupItems: GroupShapes readonly dispid 108;
    property Height: Single dispid 109;
    property HorizontalFlip: MsoTriState readonly dispid 110;
    property Left: Single dispid 111;
    property Line: LineFormat readonly dispid 112;
    property LockAspectRatio: MsoTriState dispid 113;
    property Name: WideString dispid 115;
    property Nodes: ShapeNodes readonly dispid 116;
    property Rotation: Single dispid 117;
    property PictureFormat: PictureFormat readonly dispid 118;
    property Shadow: ShadowFormat readonly dispid 119;
    property TextEffect: TextEffectFormat readonly dispid 120;
    property TextFrame: TextFrame readonly dispid 121;
    property ThreeD: ThreeDFormat readonly dispid 122;
    property Top: Single dispid 123;
    property type_: MsoShapeType readonly dispid 124;
    property VerticalFlip: MsoTriState readonly dispid 125;
    property Vertices: OleVariant readonly dispid 126;
    property Visible: MsoTriState dispid 127;
    property Width: Single dispid 128;
    property ZOrderPosition: Integer readonly dispid 129;
    property Hyperlink: Hyperlink readonly dispid 1001;
    property RelativeHorizontalPosition: WdRelativeHorizontalPosition dispid 300;
    property RelativeVerticalPosition: WdRelativeVerticalPosition dispid 301;
    property LockAnchor: Integer dispid 302;
    property WrapFormat: WrapFormat readonly dispid 303;
    property Anchor: Range readonly dispid 304;
    function Item(var Index: OleVariant): Shape; dispid 0;
    procedure Align(Align: MsoAlignCmd; RelativeTo: Integer); dispid 10;
    procedure Apply; dispid 11;
    procedure Delete; dispid 12;
    procedure Distribute(Distribute: MsoDistributeCmd; RelativeTo: Integer); dispid 13;
    function Duplicate: ShapeRange; dispid 14;
    procedure Flip(FlipCmd: MsoFlipCmd); dispid 15;
    procedure IncrementLeft(Increment: Single); dispid 16;
    procedure IncrementRotation(Increment: Single); dispid 17;
    procedure IncrementTop(Increment: Single); dispid 18;
    function Group: Shape; dispid 19;
    procedure PickUp; dispid 20;
    function Regroup: Shape; dispid 21;
    procedure RerouteConnections; dispid 22;
    procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); dispid 23;
    procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); dispid 24;
    procedure Select(var Replace: OleVariant); dispid 25;
    procedure SetShapesDefaultProperties; dispid 26;
    function Ungroup: ShapeRange; dispid 27;
    procedure ZOrder(ZOrderCmd: MsoZOrderCmd); dispid 28;
    function ConvertToFrame: Frame; dispid 29;
    function ConvertToInlineShape: InlineShape; dispid 30;
    procedure Activate; dispid 50;
    property AlternativeText: WideString dispid 131;
    property HasDiagram: MsoTriState readonly dispid 132;
    property Diagram: IMsoDiagram readonly dispid 133;
    property HasDiagramNode: MsoTriState readonly dispid 134;
    property DiagramNode: DiagramNode readonly dispid 135;
    property Child: MsoTriState readonly dispid 136;
    property ParentGroup: Shape readonly dispid 137;
    property CanvasItems: CanvasShapes readonly dispid 138;
    property ID: Integer readonly dispid 139;
    procedure CanvasCropLeft(Increment: Single); dispid 140;
    procedure CanvasCropTop(Increment: Single); dispid 141;
    procedure CanvasCropRight(Increment: Single); dispid 142;
    procedure CanvasCropBottom(Increment: Single); dispid 143;
    property RTF: WideString writeonly dispid 144;
  end;

// *********************************************************************//
// Interface: GroupShapes
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B6-0000-0000-C000-000000000046}
// *********************************************************************//
  GroupShapes = interface(IDispatch)
    ['{000209B6-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Item(var Index: OleVariant): Shape; safecall;
    function Range(var Index: OleVariant): ShapeRange; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  GroupShapesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B6-0000-0000-C000-000000000046}
// *********************************************************************//
  GroupShapesDisp = dispinterface
    ['{000209B6-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 8000;
    property Creator: Integer readonly dispid 8001;
    property Parent: IDispatch readonly dispid 1;
    property Count: Integer readonly dispid 2;
    property _NewEnum: IUnknown readonly dispid -4;
    function Item(var Index: OleVariant): Shape; dispid 0;
    function Range(var Index: OleVariant): ShapeRange; dispid 10;
  end;

// *********************************************************************//
// Interface: Shape
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A0-0000-0000-C000-000000000046}
// *********************************************************************//
  Shape = interface(IDispatch)
    ['{000209A0-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Adjustments: Adjustments; safecall;
    function Get_AutoShapeType: MsoAutoShapeType; safecall;
    procedure Set_AutoShapeType(prop: MsoAutoShapeType); safecall;
    function Get_Callout: CalloutFormat; safecall;
    function Get_ConnectionSiteCount: Integer; safecall;
    function Get_Connector: MsoTriState; safecall;
    function Get_ConnectorFormat: ConnectorFormat; safecall;
    function Get_Fill: FillFormat; safecall;
    function Get_GroupItems: GroupShapes; safecall;
    function Get_Height: Single; safecall;
    procedure Set_Height(prop: Single); safecall;
    function Get_HorizontalFlip: MsoTriState; safecall;
    function Get_Left: Single; safecall;
    procedure Set_Left(prop: Single); safecall;
    function Get_Line: LineFormat; safecall;
    function Get_LockAspectRatio: MsoTriState; safecall;
    procedure Set_LockAspectRatio(prop: MsoTriState); safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const prop: WideString); safecall;
    function Get_Nodes: ShapeNodes; safecall;
    function Get_Rotation: Single; safecall;
    procedure Set_Rotation(prop: Single); safecall;
    function Get_PictureFormat: PictureFormat; safecall;
    function Get_Shadow: ShadowFormat; safecall;
    function Get_TextEffect: TextEffectFormat; safecall;
    function Get_TextFrame: TextFrame; safecall;
    function Get_ThreeD: ThreeDFormat; safecall;
    function Get_Top: Single; safecall;
    procedure Set_Top(prop: Single); safecall;
    function Get_type_: MsoShapeType; safecall;
    function Get_VerticalFlip: MsoTriState; safecall;
    function Get_Vertices: OleVariant; safecall;
    function Get_Visible: MsoTriState; safecall;
    procedure Set_Visible(prop: MsoTriState); safecall;
    function Get_Width: Single; safecall;
    procedure Set_Width(prop: Single); safecall;
    function Get_ZOrderPosition: Integer; safecall;
    function Get_Hyperlink: Hyperlink; safecall;
    function Get_RelativeHorizontalPosition: WdRelativeHorizontalPosition; safecall;
    procedure Set_RelativeHorizontalPosition(prop: WdRelativeHorizontalPosition); safecall;
    function Get_RelativeVerticalPosition: WdRelativeVerticalPosition; safecall;
    procedure Set_RelativeVerticalPosition(prop: WdRelativeVerticalPosition); safecall;
    function Get_LockAnchor: Integer; safecall;
    procedure Set_LockAnchor(prop: Integer); safecall;
    function Get_WrapFormat: WrapFormat; safecall;
    function Get_OLEFormat: OLEFormat; safecall;
    function Get_Anchor: Range; safecall;
    function Get_LinkFormat: LinkFormat; safecall;
    procedure Apply; safecall;
    procedure Delete; safecall;
    function Duplicate: Shape; safecall;
    procedure Flip(FlipCmd: MsoFlipCmd); safecall;
    procedure IncrementLeft(Increment: Single); safecall;
    procedure IncrementRotation(Increment: Single); safecall;
    procedure IncrementTop(Increment: Single); safecall;
    procedure PickUp; safecall;
    procedure RerouteConnections; safecall;
    procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); safecall;
    procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); safecall;
    procedure Select(var Replace: OleVariant); safecall;
    procedure SetShapesDefaultProperties; safecall;
    function Ungroup: ShapeRange; safecall;
    procedure ZOrder(ZOrderCmd: MsoZOrderCmd); safecall;
    function ConvertToInlineShape: InlineShape; safecall;
    function ConvertToFrame: Frame; safecall;
    procedure Activate; safecall;
    function Get_AlternativeText: WideString; safecall;
    procedure Set_AlternativeText(const prop: WideString); safecall;
    function Get_Script: Script; safecall;
    function Get_HasDiagram: MsoTriState; safecall;
    function Get_Diagram: IMsoDiagram; safecall;
    function Get_HasDiagramNode: MsoTriState; safecall;
    function Get_DiagramNode: DiagramNode; safecall;
    function Get_Child: MsoTriState; safecall;
    function Get_ParentGroup: Shape; safecall;
    function Get_CanvasItems: CanvasShapes; safecall;
    function Get_ID: Integer; safecall;
    procedure CanvasCropLeft(Increment: Single); safecall;
    procedure CanvasCropTop(Increment: Single); safecall;
    procedure CanvasCropRight(Increment: Single); safecall;
    procedure CanvasCropBottom(Increment: Single); safecall;
    procedure Set_RTF(const Param1: WideString); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Adjustments: Adjustments read Get_Adjustments;
    property AutoShapeType: MsoAutoShapeType read Get_AutoShapeType write Set_AutoShapeType;
    property Callout: CalloutFormat read Get_Callout;
    property ConnectionSiteCount: Integer read Get_ConnectionSiteCount;
    property Connector: MsoTriState read Get_Connector;
    property ConnectorFormat: ConnectorFormat read Get_ConnectorFormat;
    property Fill: FillFormat read Get_Fill;
    property GroupItems: GroupShapes read Get_GroupItems;
    property Height: Single read Get_Height write Set_Height;
    property HorizontalFlip: MsoTriState read Get_HorizontalFlip;
    property Left: Single read Get_Left write Set_Left;
    property Line: LineFormat read Get_Line;
    property LockAspectRatio: MsoTriState read Get_LockAspectRatio write Set_LockAspectRatio;
    property Name: WideString read Get_Name write Set_Name;
    property Nodes: ShapeNodes read Get_Nodes;
    property Rotation: Single read Get_Rotation write Set_Rotation;
    property PictureFormat: PictureFormat read Get_PictureFormat;
    property Shadow: ShadowFormat read Get_Shadow;
    property TextEffect: TextEffectFormat read Get_TextEffect;
    property TextFrame: TextFrame read Get_TextFrame;
    property ThreeD: ThreeDFormat read Get_ThreeD;
    property Top: Single read Get_Top write Set_Top;
    property type_: MsoShapeType read Get_type_;
    property VerticalFlip: MsoTriState read Get_VerticalFlip;
    property Vertices: OleVariant read Get_Vertices;
    property Visible: MsoTriState read Get_Visible write Set_Visible;
    property Width: Single read Get_Width write Set_Width;
    property ZOrderPosition: Integer read Get_ZOrderPosition;
    property Hyperlink: Hyperlink read Get_Hyperlink;
    property RelativeHorizontalPosition: WdRelativeHorizontalPosition read Get_RelativeHorizontalPosition write Set_RelativeHorizontalPosition;
    property RelativeVerticalPosition: WdRelativeVerticalPosition read Get_RelativeVerticalPosition write Set_RelativeVerticalPosition;
    property LockAnchor: Integer read Get_LockAnchor write Set_LockAnchor;
    property WrapFormat: WrapFormat read Get_WrapFormat;
    property OLEFormat: OLEFormat read Get_OLEFormat;
    property Anchor: Range read Get_Anchor;
    property LinkFormat: LinkFormat read Get_LinkFormat;
    property AlternativeText: WideString read Get_AlternativeText write Set_AlternativeText;
    property Script: Script read Get_Script;
    property HasDiagram: MsoTriState read Get_HasDiagram;
    property Diagram: IMsoDiagram read Get_Diagram;
    property HasDiagramNode: MsoTriState read Get_HasDiagramNode;
    property DiagramNode: DiagramNode read Get_DiagramNode;
    property Child: MsoTriState read Get_Child;
    property ParentGroup: Shape read Get_ParentGroup;
    property CanvasItems: CanvasShapes read Get_CanvasItems;
    property ID: Integer read Get_ID;
    property RTF: WideString write Set_RTF;
  end;

// *********************************************************************//
// DispIntf:  ShapeDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A0-0000-0000-C000-000000000046}
// *********************************************************************//
  ShapeDisp = dispinterface
    ['{000209A0-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 8000;
    property Creator: Integer readonly dispid 8001;
    property Parent: IDispatch readonly dispid 1;
    property Adjustments: Adjustments readonly dispid 100;
    property AutoShapeType: MsoAutoShapeType dispid 101;
    property Callout: CalloutFormat readonly dispid 103;
    property ConnectionSiteCount: Integer readonly dispid 104;
    property Connector: MsoTriState readonly dispid 105;
    property ConnectorFormat: ConnectorFormat readonly dispid 106;
    property Fill: FillFormat readonly dispid 107;
    property GroupItems: GroupShapes readonly dispid 108;
    property Height: Single dispid 109;
    property HorizontalFlip: MsoTriState readonly dispid 110;
    property Left: Single dispid 111;
    property Line: LineFormat readonly dispid 112;
    property LockAspectRatio: MsoTriState dispid 113;
    property Name: WideString dispid 115;
    property Nodes: ShapeNodes readonly dispid 116;
    property Rotation: Single dispid 117;
    property PictureFormat: PictureFormat readonly dispid 118;
    property Shadow: ShadowFormat readonly dispid 119;
    property TextEffect: TextEffectFormat readonly dispid 120;
    property TextFrame: TextFrame readonly dispid 121;
    property ThreeD: ThreeDFormat readonly dispid 122;
    property Top: Single dispid 123;
    property type_: MsoShapeType readonly dispid 124;
    property VerticalFlip: MsoTriState readonly dispid 125;
    property Vertices: OleVariant readonly dispid 126;
    property Visible: MsoTriState dispid 127;
    property Width: Single dispid 128;
    property ZOrderPosition: Integer readonly dispid 129;
    property Hyperlink: Hyperlink readonly dispid 1001;
    property RelativeHorizontalPosition: WdRelativeHorizontalPosition dispid 300;
    property RelativeVerticalPosition: WdRelativeVerticalPosition dispid 301;
    property LockAnchor: Integer dispid 302;
    property WrapFormat: WrapFormat readonly dispid 303;
    property OLEFormat: OLEFormat readonly dispid 500;
    property Anchor: Range readonly dispid 501;
    property LinkFormat: LinkFormat readonly dispid 502;
    procedure Apply; dispid 10;
    procedure Delete; dispid 11;
    function Duplicate: Shape; dispid 12;
    procedure Flip(FlipCmd: MsoFlipCmd); dispid 13;
    procedure IncrementLeft(Increment: Single); dispid 14;
    procedure IncrementRotation(Increment: Single); dispid 15;
    procedure IncrementTop(Increment: Single); dispid 16;
    procedure PickUp; dispid 17;
    procedure RerouteConnections; dispid 18;
    procedure ScaleHeight(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); dispid 19;
    procedure ScaleWidth(Factor: Single; RelativeToOriginalSize: MsoTriState; Scale: MsoScaleFrom); dispid 20;
    procedure Select(var Replace: OleVariant); dispid 21;
    procedure SetShapesDefaultProperties; dispid 22;
    function Ungroup: ShapeRange; dispid 23;
    procedure ZOrder(ZOrderCmd: MsoZOrderCmd); dispid 24;
    function ConvertToInlineShape: InlineShape; dispid 25;
    function ConvertToFrame: Frame; dispid 29;
    procedure Activate; dispid 50;
    property AlternativeText: WideString dispid 131;
    property Script: Script readonly dispid 503;
    property HasDiagram: MsoTriState readonly dispid 132;
    property Diagram: IMsoDiagram readonly dispid 133;
    property HasDiagramNode: MsoTriState readonly dispid 134;
    property DiagramNode: DiagramNode readonly dispid 135;
    property Child: MsoTriState readonly dispid 136;
    property ParentGroup: Shape readonly dispid 137;
    property CanvasItems: CanvasShapes readonly dispid 138;
    property ID: Integer readonly dispid 139;
    procedure CanvasCropLeft(Increment: Single); dispid 140;
    procedure CanvasCropTop(Increment: Single); dispid 141;
    procedure CanvasCropRight(Increment: Single); dispid 142;
    procedure CanvasCropBottom(Increment: Single); dispid 143;
    property RTF: WideString writeonly dispid 144;
  end;

// *********************************************************************//
// Interface: TextFrame
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B2-0000-0000-C000-000000000046}
// *********************************************************************//
  TextFrame = interface(IDispatch)
    ['{000209B2-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: Shape; safecall;
    function Get_MarginBottom: Single; safecall;
    procedure Set_MarginBottom(prop: Single); safecall;
    function Get_MarginLeft: Single; safecall;
    procedure Set_MarginLeft(prop: Single); safecall;
    function Get_MarginRight: Single; safecall;
    procedure Set_MarginRight(prop: Single); safecall;
    function Get_MarginTop: Single; safecall;
    procedure Set_MarginTop(prop: Single); safecall;
    function Get_Orientation: MsoTextOrientation; safecall;
    procedure Set_Orientation(prop: MsoTextOrientation); safecall;
    function Get_TextRange: Range; safecall;
    function Get_ContainingRange: Range; safecall;
    function Get_Next: TextFrame; safecall;
    procedure Set_Next(const prop: TextFrame); safecall;
    function Get_Previous: TextFrame; safecall;
    procedure Set_Previous(const prop: TextFrame); safecall;
    function Get_Overflowing: WordBool; safecall;
    function Get_HasText: Integer; safecall;
    procedure BreakForwardLink; safecall;
    function ValidLinkTarget(const TargetTextFrame: TextFrame): WordBool; safecall;
    function Get_AutoSize: Integer; safecall;
    procedure Set_AutoSize(prop: Integer); safecall;
    function Get_WordWrap: Integer; safecall;
    procedure Set_WordWrap(prop: Integer); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: Shape read Get_Parent;
    property MarginBottom: Single read Get_MarginBottom write Set_MarginBottom;
    property MarginLeft: Single read Get_MarginLeft write Set_MarginLeft;
    property MarginRight: Single read Get_MarginRight write Set_MarginRight;
    property MarginTop: Single read Get_MarginTop write Set_MarginTop;
    property Orientation: MsoTextOrientation read Get_Orientation write Set_Orientation;
    property TextRange: Range read Get_TextRange;
    property ContainingRange: Range read Get_ContainingRange;
    property Next: TextFrame read Get_Next write Set_Next;
    property Previous: TextFrame read Get_Previous write Set_Previous;
    property Overflowing: WordBool read Get_Overflowing;
    property HasText: Integer read Get_HasText;
    property AutoSize: Integer read Get_AutoSize write Set_AutoSize;
    property WordWrap: Integer read Get_WordWrap write Set_WordWrap;
  end;

// *********************************************************************//
// DispIntf:  TextFrameDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B2-0000-0000-C000-000000000046}
// *********************************************************************//
  TextFrameDisp = dispinterface
    ['{000209B2-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 8000;
    property Creator: Integer readonly dispid 8001;
    property Parent: Shape readonly dispid 1;
    property MarginBottom: Single dispid 100;
    property MarginLeft: Single dispid 101;
    property MarginRight: Single dispid 102;
    property MarginTop: Single dispid 103;
    property Orientation: MsoTextOrientation dispid 104;
    property TextRange: Range readonly dispid 1001;
    property ContainingRange: Range readonly dispid 1002;
    property Next: TextFrame dispid 5001;
    property Previous: TextFrame dispid 5002;
    property Overflowing: WordBool readonly dispid 5003;
    property HasText: Integer readonly dispid 5008;
    procedure BreakForwardLink; dispid 5004;
    function ValidLinkTarget(const TargetTextFrame: TextFrame): WordBool; dispid 5006;
    property AutoSize: Integer dispid 5009;
    property WordWrap: Integer dispid 5010;
  end;

// *********************************************************************//
// Interface: _LetterContent
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A1-0000-0000-C000-000000000046}
// *********************************************************************//
  _LetterContent = interface(IDispatch)
    ['{000209A1-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Duplicate: WordLetterContent; safecall;
    function Get_DateFormat: WideString; safecall;
    procedure Set_DateFormat(const prop: WideString); safecall;
    function Get_IncludeHeaderFooter: WordBool; safecall;
    procedure Set_IncludeHeaderFooter(prop: WordBool); safecall;
    function Get_PageDesign: WideString; safecall;
    procedure Set_PageDesign(const prop: WideString); safecall;
    function Get_LetterStyle: WdLetterStyle; safecall;
    procedure Set_LetterStyle(prop: WdLetterStyle); safecall;
    function Get_Letterhead: WordBool; safecall;
    procedure Set_Letterhead(prop: WordBool); safecall;
    function Get_LetterheadLocation: WdLetterheadLocation; safecall;
    procedure Set_LetterheadLocation(prop: WdLetterheadLocation); safecall;
    function Get_LetterheadSize: Single; safecall;
    procedure Set_LetterheadSize(prop: Single); safecall;
    function Get_RecipientName: WideString; safecall;
    procedure Set_RecipientName(const prop: WideString); safecall;
    function Get_RecipientAddress: WideString; safecall;
    procedure Set_RecipientAddress(const prop: WideString); safecall;
    function Get_Salutation: WideString; safecall;
    procedure Set_Salutation(const prop: WideString); safecall;
    function Get_SalutationType: WdSalutationType; safecall;
    procedure Set_SalutationType(prop: WdSalutationType); safecall;
    function Get_RecipientReference: WideString; safecall;
    procedure Set_RecipientReference(const prop: WideString); safecall;
    function Get_MailingInstructions: WideString; safecall;
    procedure Set_MailingInstructions(const prop: WideString); safecall;
    function Get_AttentionLine: WideString; safecall;
    procedure Set_AttentionLine(const prop: WideString); safecall;
    function Get_Subject: WideString; safecall;
    procedure Set_Subject(const prop: WideString); safecall;
    function Get_EnclosureNumber: Integer; safecall;
    procedure Set_EnclosureNumber(prop: Integer); safecall;
    function Get_CCList: WideString; safecall;
    procedure Set_CCList(const prop: WideString); safecall;
    function Get_ReturnAddress: WideString; safecall;
    procedure Set_ReturnAddress(const prop: WideString); safecall;
    function Get_SenderName: WideString; safecall;
    procedure Set_SenderName(const prop: WideString); safecall;
    function Get_Closing: WideString; safecall;
    procedure Set_Closing(const prop: WideString); safecall;
    function Get_SenderCompany: WideString; safecall;
    procedure Set_SenderCompany(const prop: WideString); safecall;
    function Get_SenderJobTitle: WideString; safecall;
    procedure Set_SenderJobTitle(const prop: WideString); safecall;
    function Get_SenderInitials: WideString; safecall;
    procedure Set_SenderInitials(const prop: WideString); safecall;
    function Get_InfoBlock: WordBool; safecall;
    procedure Set_InfoBlock(prop: WordBool); safecall;
    function Get_RecipientCode: WideString; safecall;
    procedure Set_RecipientCode(const prop: WideString); safecall;
    function Get_RecipientGender: WdSalutationGender; safecall;
    procedure Set_RecipientGender(prop: WdSalutationGender); safecall;
    function Get_ReturnAddressShortForm: WideString; safecall;
    procedure Set_ReturnAddressShortForm(const prop: WideString); safecall;
    function Get_SenderCity: WideString; safecall;
    procedure Set_SenderCity(const prop: WideString); safecall;
    function Get_SenderCode: WideString; safecall;
    procedure Set_SenderCode(const prop: WideString); safecall;
    function Get_SenderGender: WdSalutationGender; safecall;
    procedure Set_SenderGender(prop: WdSalutationGender); safecall;
    function Get_SenderReference: WideString; safecall;
    procedure Set_SenderReference(const prop: WideString); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Duplicate: WordLetterContent read Get_Duplicate;
    property DateFormat: WideString read Get_DateFormat write Set_DateFormat;
    property IncludeHeaderFooter: WordBool read Get_IncludeHeaderFooter write Set_IncludeHeaderFooter;
    property PageDesign: WideString read Get_PageDesign write Set_PageDesign;
    property LetterStyle: WdLetterStyle read Get_LetterStyle write Set_LetterStyle;
    property Letterhead: WordBool read Get_Letterhead write Set_Letterhead;
    property LetterheadLocation: WdLetterheadLocation read Get_LetterheadLocation write Set_LetterheadLocation;
    property LetterheadSize: Single read Get_LetterheadSize write Set_LetterheadSize;
    property RecipientName: WideString read Get_RecipientName write Set_RecipientName;
    property RecipientAddress: WideString read Get_RecipientAddress write Set_RecipientAddress;
    property Salutation: WideString read Get_Salutation write Set_Salutation;
    property SalutationType: WdSalutationType read Get_SalutationType write Set_SalutationType;
    property RecipientReference: WideString read Get_RecipientReference write Set_RecipientReference;
    property MailingInstructions: WideString read Get_MailingInstructions write Set_MailingInstructions;
    property AttentionLine: WideString read Get_AttentionLine write Set_AttentionLine;
    property Subject: WideString read Get_Subject write Set_Subject;
    property EnclosureNumber: Integer read Get_EnclosureNumber write Set_EnclosureNumber;
    property CCList: WideString read Get_CCList write Set_CCList;
    property ReturnAddress: WideString read Get_ReturnAddress write Set_ReturnAddress;
    property SenderName: WideString read Get_SenderName write Set_SenderName;
    property Closing: WideString read Get_Closing write Set_Closing;
    property SenderCompany: WideString read Get_SenderCompany write Set_SenderCompany;
    property SenderJobTitle: WideString read Get_SenderJobTitle write Set_SenderJobTitle;
    property SenderInitials: WideString read Get_SenderInitials write Set_SenderInitials;
    property InfoBlock: WordBool read Get_InfoBlock write Set_InfoBlock;
    property RecipientCode: WideString read Get_RecipientCode write Set_RecipientCode;
    property RecipientGender: WdSalutationGender read Get_RecipientGender write Set_RecipientGender;
    property ReturnAddressShortForm: WideString read Get_ReturnAddressShortForm write Set_ReturnAddressShortForm;
    property SenderCity: WideString read Get_SenderCity write Set_SenderCity;
    property SenderCode: WideString read Get_SenderCode write Set_SenderCode;
    property SenderGender: WdSalutationGender read Get_SenderGender write Set_SenderGender;
    property SenderReference: WideString read Get_SenderReference write Set_SenderReference;
  end;

// *********************************************************************//
// DispIntf:  _LetterContentDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A1-0000-0000-C000-000000000046}
// *********************************************************************//
  _LetterContentDisp = dispinterface
    ['{000209A1-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Duplicate: WordLetterContent readonly dispid 10;
    property DateFormat: WideString dispid 101;
    property IncludeHeaderFooter: WordBool dispid 102;
    property PageDesign: WideString dispid 103;
    property LetterStyle: WdLetterStyle dispid 104;
    property Letterhead: WordBool dispid 105;
    property LetterheadLocation: WdLetterheadLocation dispid 106;
    property LetterheadSize: Single dispid 107;
    property RecipientName: WideString dispid 108;
    property RecipientAddress: WideString dispid 109;
    property Salutation: WideString dispid 110;
    property SalutationType: WdSalutationType dispid 111;
    property RecipientReference: WideString dispid 112;
    property MailingInstructions: WideString dispid 114;
    property AttentionLine: WideString dispid 115;
    property Subject: WideString dispid 116;
    property EnclosureNumber: Integer dispid 117;
    property CCList: WideString dispid 118;
    property ReturnAddress: WideString dispid 119;
    property SenderName: WideString dispid 120;
    property Closing: WideString dispid 121;
    property SenderCompany: WideString dispid 122;
    property SenderJobTitle: WideString dispid 123;
    property SenderInitials: WideString dispid 124;
    property InfoBlock: WordBool dispid 125;
    property RecipientCode: WideString dispid 126;
    property RecipientGender: WdSalutationGender dispid 127;
    property ReturnAddressShortForm: WideString dispid 128;
    property SenderCity: WideString dispid 129;
    property SenderCode: WideString dispid 130;
    property SenderGender: WdSalutationGender dispid 131;
    property SenderReference: WideString dispid 132;
  end;

// *********************************************************************//
// Interface: View
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A5-0000-0000-C000-000000000046}
// *********************************************************************//
  View = interface(IDispatch)
    ['{000209A5-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_type_: WdViewType; safecall;
    procedure Set_type_(prop: WdViewType); safecall;
    function Get_FullScreen: WordBool; safecall;
    procedure Set_FullScreen(prop: WordBool); safecall;
    function Get_Draft: WordBool; safecall;
    procedure Set_Draft(prop: WordBool); safecall;
    function Get_ShowAll: WordBool; safecall;
    procedure Set_ShowAll(prop: WordBool); safecall;
    function Get_ShowFieldCodes: WordBool; safecall;
    procedure Set_ShowFieldCodes(prop: WordBool); safecall;
    function Get_MailMergeDataView: WordBool; safecall;
    procedure Set_MailMergeDataView(prop: WordBool); safecall;
    function Get_Magnifier: WordBool; safecall;
    procedure Set_Magnifier(prop: WordBool); safecall;
    function Get_ShowFirstLineOnly: WordBool; safecall;
    procedure Set_ShowFirstLineOnly(prop: WordBool); safecall;
    function Get_ShowFormat: WordBool; safecall;
    procedure Set_ShowFormat(prop: WordBool); safecall;
    function Get_Zoom: Zoom; safecall;
    function Get_ShowObjectAnchors: WordBool; safecall;
    procedure Set_ShowObjectAnchors(prop: WordBool); safecall;
    function Get_ShowTextBoundaries: WordBool; safecall;
    procedure Set_ShowTextBoundaries(prop: WordBool); safecall;
    function Get_ShowHighlight: WordBool; safecall;
    procedure Set_ShowHighlight(prop: WordBool); safecall;
    function Get_ShowDrawings: WordBool; safecall;
    procedure Set_ShowDrawings(prop: WordBool); safecall;
    function Get_ShowTabs: WordBool; safecall;
    procedure Set_ShowTabs(prop: WordBool); safecall;
    function Get_ShowSpaces: WordBool; safecall;
    procedure Set_ShowSpaces(prop: WordBool); safecall;
    function Get_ShowParagraphs: WordBool; safecall;
    procedure Set_ShowParagraphs(prop: WordBool); safecall;
    function Get_ShowHyphens: WordBool; safecall;
    procedure Set_ShowHyphens(prop: WordBool); safecall;
    function Get_ShowHiddenText: WordBool; safecall;
    procedure Set_ShowHiddenText(prop: WordBool); safecall;
    function Get_WrapToWindow: WordBool; safecall;
    procedure Set_WrapToWindow(prop: WordBool); safecall;
    function Get_ShowPicturePlaceHolders: WordBool; safecall;
    procedure Set_ShowPicturePlaceHolders(prop: WordBool); safecall;
    function Get_ShowBookmarks: WordBool; safecall;
    procedure Set_ShowBookmarks(prop: WordBool); safecall;
    function Get_FieldShading: WdFieldShading; safecall;
    procedure Set_FieldShading(prop: WdFieldShading); safecall;
    function Get_ShowAnimation: WordBool; safecall;
    procedure Set_ShowAnimation(prop: WordBool); safecall;
    function Get_TableGridlines: WordBool; safecall;
    procedure Set_TableGridlines(prop: WordBool); safecall;
    function Get_EnlargeFontsLessThan: Integer; safecall;
    procedure Set_EnlargeFontsLessThan(prop: Integer); safecall;
    function Get_ShowMainTextLayer: WordBool; safecall;
    procedure Set_ShowMainTextLayer(prop: WordBool); safecall;
    function Get_SeekView: WdSeekView; safecall;
    procedure Set_SeekView(prop: WdSeekView); safecall;
    function Get_SplitSpecial: WdSpecialPane; safecall;
    procedure Set_SplitSpecial(prop: WdSpecialPane); safecall;
    function Get_BrowseToWindow: Integer; safecall;
    procedure Set_BrowseToWindow(prop: Integer); safecall;
    function Get_ShowOptionalBreaks: WordBool; safecall;
    procedure Set_ShowOptionalBreaks(prop: WordBool); safecall;
    procedure CollapseOutline(var Range: OleVariant); safecall;
    procedure ExpandOutline(var Range: OleVariant); safecall;
    procedure ShowAllHeadings; safecall;
    procedure ShowHeading(Level: Integer); safecall;
    procedure PreviousHeaderFooter; safecall;
    procedure NextHeaderFooter; safecall;
    function Get_DisplayPageBoundaries: WordBool; safecall;
    procedure Set_DisplayPageBoundaries(prop: WordBool); safecall;
    function Get_DisplaySmartTags: WordBool; safecall;
    procedure Set_DisplaySmartTags(prop: WordBool); safecall;
    function Get_ShowRevisionsAndComments: WordBool; safecall;
    procedure Set_ShowRevisionsAndComments(prop: WordBool); safecall;
    function Get_ShowComments: WordBool; safecall;
    procedure Set_ShowComments(prop: WordBool); safecall;
    function Get_ShowInsertionsAndDeletions: WordBool; safecall;
    procedure Set_ShowInsertionsAndDeletions(prop: WordBool); safecall;
    function Get_ShowFormatChanges: WordBool; safecall;
    procedure Set_ShowFormatChanges(prop: WordBool); safecall;
    function Get_RevisionsView: WdRevisionsView; safecall;
    procedure Set_RevisionsView(prop: WdRevisionsView); safecall;
    function Get_RevisionsMode: WdRevisionsMode; safecall;
    procedure Set_RevisionsMode(prop: WdRevisionsMode); safecall;
    function Get_RevisionsBalloonWidth: Single; safecall;
    procedure Set_RevisionsBalloonWidth(prop: Single); safecall;
    function Get_RevisionsBalloonWidthType: WdRevisionsBalloonWidthType; safecall;
    procedure Set_RevisionsBalloonWidthType(prop: WdRevisionsBalloonWidthType); safecall;
    function Get_RevisionsBalloonSide: WdRevisionsBalloonMargin; safecall;
    procedure Set_RevisionsBalloonSide(prop: WdRevisionsBalloonMargin); safecall;
    function Get_Reviewers: Reviewers; safecall;
    function Get_RevisionsBalloonShowConnectingLines: WordBool; safecall;
    procedure Set_RevisionsBalloonShowConnectingLines(prop: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property type_: WdViewType read Get_type_ write Set_type_;
    property FullScreen: WordBool read Get_FullScreen write Set_FullScreen;
    property Draft: WordBool read Get_Draft write Set_Draft;
    property ShowAll: WordBool read Get_ShowAll write Set_ShowAll;
    property ShowFieldCodes: WordBool read Get_ShowFieldCodes write Set_ShowFieldCodes;
    property MailMergeDataView: WordBool read Get_MailMergeDataView write Set_MailMergeDataView;
    property Magnifier: WordBool read Get_Magnifier write Set_Magnifier;
    property ShowFirstLineOnly: WordBool read Get_ShowFirstLineOnly write Set_ShowFirstLineOnly;
    property ShowFormat: WordBool read Get_ShowFormat write Set_ShowFormat;
    property Zoom: Zoom read Get_Zoom;
    property ShowObjectAnchors: WordBool read Get_ShowObjectAnchors write Set_ShowObjectAnchors;
    property ShowTextBoundaries: WordBool read Get_ShowTextBoundaries write Set_ShowTextBoundaries;
    property ShowHighlight: WordBool read Get_ShowHighlight write Set_ShowHighlight;
    property ShowDrawings: WordBool read Get_ShowDrawings write Set_ShowDrawings;
    property ShowTabs: WordBool read Get_ShowTabs write Set_ShowTabs;
    property ShowSpaces: WordBool read Get_ShowSpaces write Set_ShowSpaces;
    property ShowParagraphs: WordBool read Get_ShowParagraphs write Set_ShowParagraphs;
    property ShowHyphens: WordBool read Get_ShowHyphens write Set_ShowHyphens;
    property ShowHiddenText: WordBool read Get_ShowHiddenText write Set_ShowHiddenText;
    property WrapToWindow: WordBool read Get_WrapToWindow write Set_WrapToWindow;
    property ShowPicturePlaceHolders: WordBool read Get_ShowPicturePlaceHolders write Set_ShowPicturePlaceHolders;
    property ShowBookmarks: WordBool read Get_ShowBookmarks write Set_ShowBookmarks;
    property FieldShading: WdFieldShading read Get_FieldShading write Set_FieldShading;
    property ShowAnimation: WordBool read Get_ShowAnimation write Set_ShowAnimation;
    property TableGridlines: WordBool read Get_TableGridlines write Set_TableGridlines;
    property EnlargeFontsLessThan: Integer read Get_EnlargeFontsLessThan write Set_EnlargeFontsLessThan;
    property ShowMainTextLayer: WordBool read Get_ShowMainTextLayer write Set_ShowMainTextLayer;
    property SeekView: WdSeekView read Get_SeekView write Set_SeekView;
    property SplitSpecial: WdSpecialPane read Get_SplitSpecial write Set_SplitSpecial;
    property BrowseToWindow: Integer read Get_BrowseToWindow write Set_BrowseToWindow;
    property ShowOptionalBreaks: WordBool read Get_ShowOptionalBreaks write Set_ShowOptionalBreaks;
    property DisplayPageBoundaries: WordBool read Get_DisplayPageBoundaries write Set_DisplayPageBoundaries;
    property DisplaySmartTags: WordBool read Get_DisplaySmartTags write Set_DisplaySmartTags;
    property ShowRevisionsAndComments: WordBool read Get_ShowRevisionsAndComments write Set_ShowRevisionsAndComments;
    property ShowComments: WordBool read Get_ShowComments write Set_ShowComments;
    property ShowInsertionsAndDeletions: WordBool read Get_ShowInsertionsAndDeletions write Set_ShowInsertionsAndDeletions;
    property ShowFormatChanges: WordBool read Get_ShowFormatChanges write Set_ShowFormatChanges;
    property RevisionsView: WdRevisionsView read Get_RevisionsView write Set_RevisionsView;
    property RevisionsMode: WdRevisionsMode read Get_RevisionsMode write Set_RevisionsMode;
    property RevisionsBalloonWidth: Single read Get_RevisionsBalloonWidth write Set_RevisionsBalloonWidth;
    property RevisionsBalloonWidthType: WdRevisionsBalloonWidthType read Get_RevisionsBalloonWidthType write Set_RevisionsBalloonWidthType;
    property RevisionsBalloonSide: WdRevisionsBalloonMargin read Get_RevisionsBalloonSide write Set_RevisionsBalloonSide;
    property Reviewers: Reviewers read Get_Reviewers;
    property RevisionsBalloonShowConnectingLines: WordBool read Get_RevisionsBalloonShowConnectingLines write Set_RevisionsBalloonShowConnectingLines;
  end;

// *********************************************************************//
// DispIntf:  ViewDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A5-0000-0000-C000-000000000046}
// *********************************************************************//
  ViewDisp = dispinterface
    ['{000209A5-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property type_: WdViewType dispid 0;
    property FullScreen: WordBool dispid 1;
    property Draft: WordBool dispid 2;
    property ShowAll: WordBool dispid 3;
    property ShowFieldCodes: WordBool dispid 4;
    property MailMergeDataView: WordBool dispid 5;
    property Magnifier: WordBool dispid 7;
    property ShowFirstLineOnly: WordBool dispid 8;
    property ShowFormat: WordBool dispid 9;
    property Zoom: Zoom readonly dispid 10;
    property ShowObjectAnchors: WordBool dispid 11;
    property ShowTextBoundaries: WordBool dispid 12;
    property ShowHighlight: WordBool dispid 13;
    property ShowDrawings: WordBool dispid 14;
    property ShowTabs: WordBool dispid 15;
    property ShowSpaces: WordBool dispid 16;
    property ShowParagraphs: WordBool dispid 17;
    property ShowHyphens: WordBool dispid 18;
    property ShowHiddenText: WordBool dispid 19;
    property WrapToWindow: WordBool dispid 20;
    property ShowPicturePlaceHolders: WordBool dispid 21;
    property ShowBookmarks: WordBool dispid 22;
    property FieldShading: WdFieldShading dispid 23;
    property ShowAnimation: WordBool dispid 24;
    property TableGridlines: WordBool dispid 25;
    property EnlargeFontsLessThan: Integer dispid 26;
    property ShowMainTextLayer: WordBool dispid 27;
    property SeekView: WdSeekView dispid 28;
    property SplitSpecial: WdSpecialPane dispid 29;
    property BrowseToWindow: Integer dispid 30;
    property ShowOptionalBreaks: WordBool dispid 31;
    procedure CollapseOutline(var Range: OleVariant); dispid 101;
    procedure ExpandOutline(var Range: OleVariant); dispid 102;
    procedure ShowAllHeadings; dispid 103;
    procedure ShowHeading(Level: Integer); dispid 104;
    procedure PreviousHeaderFooter; dispid 105;
    procedure NextHeaderFooter; dispid 106;
    property DisplayPageBoundaries: WordBool dispid 32;
    property DisplaySmartTags: WordBool dispid 33;
    property ShowRevisionsAndComments: WordBool dispid 34;
    property ShowComments: WordBool dispid 35;
    property ShowInsertionsAndDeletions: WordBool dispid 36;
    property ShowFormatChanges: WordBool dispid 37;
    property RevisionsView: WdRevisionsView dispid 38;
    property RevisionsMode: WdRevisionsMode dispid 39;
    property RevisionsBalloonWidth: Single dispid 40;
    property RevisionsBalloonWidthType: WdRevisionsBalloonWidthType dispid 41;
    property RevisionsBalloonSide: WdRevisionsBalloonMargin dispid 42;
    property Reviewers: Reviewers readonly dispid 43;
    property RevisionsBalloonShowConnectingLines: WordBool dispid 44;
  end;

// *********************************************************************//
// Interface: Zoom
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A6-0000-0000-C000-000000000046}
// *********************************************************************//
  Zoom = interface(IDispatch)
    ['{000209A6-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Percentage: Integer; safecall;
    procedure Set_Percentage(prop: Integer); safecall;
    function Get_PageFit: WdPageFit; safecall;
    procedure Set_PageFit(prop: WdPageFit); safecall;
    function Get_PageRows: Integer; safecall;
    procedure Set_PageRows(prop: Integer); safecall;
    function Get_PageColumns: Integer; safecall;
    procedure Set_PageColumns(prop: Integer); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Percentage: Integer read Get_Percentage write Set_Percentage;
    property PageFit: WdPageFit read Get_PageFit write Set_PageFit;
    property PageRows: Integer read Get_PageRows write Set_PageRows;
    property PageColumns: Integer read Get_PageColumns write Set_PageColumns;
  end;

// *********************************************************************//
// DispIntf:  ZoomDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A6-0000-0000-C000-000000000046}
// *********************************************************************//
  ZoomDisp = dispinterface
    ['{000209A6-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Percentage: Integer dispid 0;
    property PageFit: WdPageFit dispid 1;
    property PageRows: Integer dispid 2;
    property PageColumns: Integer dispid 3;
  end;

// *********************************************************************//
// Interface: Zooms
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A7-0000-0000-C000-000000000046}
// *********************************************************************//
  Zooms = interface(IDispatch)
    ['{000209A7-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(Index: WdViewType): Zoom; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  ZoomsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A7-0000-0000-C000-000000000046}
// *********************************************************************//
  ZoomsDisp = dispinterface
    ['{000209A7-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(Index: WdViewType): Zoom; dispid 0;
  end;

// *********************************************************************//
// Interface: InlineShape
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A8-0000-0000-C000-000000000046}
// *********************************************************************//
  InlineShape = interface(IDispatch)
    ['{000209A8-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_Range: Range; safecall;
    function Get_LinkFormat: LinkFormat; safecall;
    function Get_Field: Field; safecall;
    function Get_OLEFormat: OLEFormat; safecall;
    function Get_type_: WdInlineShapeType; safecall;
    function Get_Hyperlink: Hyperlink; safecall;
    function Get_Height: Single; safecall;
    procedure Set_Height(prop: Single); safecall;
    function Get_Width: Single; safecall;
    procedure Set_Width(prop: Single); safecall;
    function Get_ScaleHeight: Single; safecall;
    procedure Set_ScaleHeight(prop: Single); safecall;
    function Get_ScaleWidth: Single; safecall;
    procedure Set_ScaleWidth(prop: Single); safecall;
    function Get_LockAspectRatio: MsoTriState; safecall;
    procedure Set_LockAspectRatio(prop: MsoTriState); safecall;
    function Get_Line: LineFormat; safecall;
    function Get_Fill: FillFormat; safecall;
    function Get_PictureFormat: PictureFormat; safecall;
    procedure Set_PictureFormat(const prop: PictureFormat); safecall;
    procedure Activate; safecall;
    procedure Reset; safecall;
    procedure Delete; safecall;
    procedure Select; safecall;
    function ConvertToShape: Shape; safecall;
    function Get_HorizontalLineFormat: HorizontalLineFormat; safecall;
    function Get_Script: Script; safecall;
    function Get_OWSAnchor: Integer; safecall;
    function Get_TextEffect: TextEffectFormat; safecall;
    procedure Set_TextEffect(const prop: TextEffectFormat); safecall;
    function Get_AlternativeText: WideString; safecall;
    procedure Set_AlternativeText(const prop: WideString); safecall;
    function Get_IsPictureBullet: WordBool; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Borders: Borders read Get_Borders write Set_Borders;
    property Range: Range read Get_Range;
    property LinkFormat: LinkFormat read Get_LinkFormat;
    property Field: Field read Get_Field;
    property OLEFormat: OLEFormat read Get_OLEFormat;
    property type_: WdInlineShapeType read Get_type_;
    property Hyperlink: Hyperlink read Get_Hyperlink;
    property Height: Single read Get_Height write Set_Height;
    property Width: Single read Get_Width write Set_Width;
    property ScaleHeight: Single read Get_ScaleHeight write Set_ScaleHeight;
    property ScaleWidth: Single read Get_ScaleWidth write Set_ScaleWidth;
    property LockAspectRatio: MsoTriState read Get_LockAspectRatio write Set_LockAspectRatio;
    property Line: LineFormat read Get_Line;
    property Fill: FillFormat read Get_Fill;
    property PictureFormat: PictureFormat read Get_PictureFormat write Set_PictureFormat;
    property HorizontalLineFormat: HorizontalLineFormat read Get_HorizontalLineFormat;
    property Script: Script read Get_Script;
    property OWSAnchor: Integer read Get_OWSAnchor;
    property TextEffect: TextEffectFormat read Get_TextEffect write Set_TextEffect;
    property AlternativeText: WideString read Get_AlternativeText write Set_AlternativeText;
    property IsPictureBullet: WordBool read Get_IsPictureBullet;
  end;

// *********************************************************************//
// DispIntf:  InlineShapeDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A8-0000-0000-C000-000000000046}
// *********************************************************************//
  InlineShapeDisp = dispinterface
    ['{000209A8-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Borders: Borders dispid 1100;
    property Range: Range readonly dispid 2;
    property LinkFormat: LinkFormat readonly dispid 3;
    property Field: Field readonly dispid 4;
    property OLEFormat: OLEFormat readonly dispid 5;
    property type_: WdInlineShapeType readonly dispid 6;
    property Hyperlink: Hyperlink readonly dispid 7;
    property Height: Single dispid 8;
    property Width: Single dispid 9;
    property ScaleHeight: Single dispid 10;
    property ScaleWidth: Single dispid 11;
    property LockAspectRatio: MsoTriState dispid 12;
    property Line: LineFormat readonly dispid 112;
    property Fill: FillFormat readonly dispid 107;
    property PictureFormat: PictureFormat dispid 118;
    procedure Activate; dispid 100;
    procedure Reset; dispid 101;
    procedure Delete; dispid 102;
    procedure Select; dispid 65535;
    function ConvertToShape: Shape; dispid 104;
    property HorizontalLineFormat: HorizontalLineFormat readonly dispid 119;
    property Script: Script readonly dispid 122;
    property OWSAnchor: Integer readonly dispid 130;
    property TextEffect: TextEffectFormat dispid 120;
    property AlternativeText: WideString dispid 131;
    property IsPictureBullet: WordBool readonly dispid 132;
  end;

// *********************************************************************//
// Interface: InlineShapes
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A9-0000-0000-C000-000000000046}
// *********************************************************************//
  InlineShapes = interface(IDispatch)
    ['{000209A9-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Item(Index: Integer): InlineShape; safecall;
    function AddPicture(const FileName: WideString; var LinkToFile: OleVariant; 
                        var SaveWithDocument: OleVariant; var Range: OleVariant): InlineShape; safecall;
    function AddOLEObject(var ClassType: OleVariant; var FileName: OleVariant; 
                          var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
                          var IconFileName: OleVariant; var IconIndex: OleVariant; 
                          var IconLabel: OleVariant; var Range: OleVariant): InlineShape; safecall;
    function AddOLEControl(var ClassType: OleVariant; var Range: OleVariant): InlineShape; safecall;
    function New(const Range: Range): InlineShape; safecall;
    function AddHorizontalLine(const FileName: WideString; var Range: OleVariant): InlineShape; safecall;
    function AddHorizontalLineStandard(var Range: OleVariant): InlineShape; safecall;
    function AddPictureBullet(const FileName: WideString; var Range: OleVariant): InlineShape; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  InlineShapesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209A9-0000-0000-C000-000000000046}
// *********************************************************************//
  InlineShapesDisp = dispinterface
    ['{000209A9-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Count: Integer readonly dispid 1;
    property _NewEnum: IUnknown readonly dispid -4;
    function Item(Index: Integer): InlineShape; dispid 0;
    function AddPicture(const FileName: WideString; var LinkToFile: OleVariant; 
                        var SaveWithDocument: OleVariant; var Range: OleVariant): InlineShape; dispid 100;
    function AddOLEObject(var ClassType: OleVariant; var FileName: OleVariant; 
                          var LinkToFile: OleVariant; var DisplayAsIcon: OleVariant; 
                          var IconFileName: OleVariant; var IconIndex: OleVariant; 
                          var IconLabel: OleVariant; var Range: OleVariant): InlineShape; dispid 24;
    function AddOLEControl(var ClassType: OleVariant; var Range: OleVariant): InlineShape; dispid 102;
    function New(const Range: Range): InlineShape; dispid 200;
    function AddHorizontalLine(const FileName: WideString; var Range: OleVariant): InlineShape; dispid 104;
    function AddHorizontalLineStandard(var Range: OleVariant): InlineShape; dispid 105;
    function AddPictureBullet(const FileName: WideString; var Range: OleVariant): InlineShape; dispid 106;
  end;

// *********************************************************************//
// Interface: SpellingSuggestions
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209AA-0000-0000-C000-000000000046}
// *********************************************************************//
  SpellingSuggestions = interface(IDispatch)
    ['{000209AA-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_SpellingErrorType: WdSpellingErrorType; safecall;
    function Item(Index: Integer): SpellingSuggestion; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property SpellingErrorType: WdSpellingErrorType read Get_SpellingErrorType;
  end;

// *********************************************************************//
// DispIntf:  SpellingSuggestionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209AA-0000-0000-C000-000000000046}
// *********************************************************************//
  SpellingSuggestionsDisp = dispinterface
    ['{000209AA-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    property SpellingErrorType: WdSpellingErrorType readonly dispid 2;
    function Item(Index: Integer): SpellingSuggestion; dispid 0;
  end;

// *********************************************************************//
// Interface: SpellingSuggestion
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209AB-0000-0000-C000-000000000046}
// *********************************************************************//
  SpellingSuggestion = interface(IDispatch)
    ['{000209AB-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
  end;

// *********************************************************************//
// DispIntf:  SpellingSuggestionDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209AB-0000-0000-C000-000000000046}
// *********************************************************************//
  SpellingSuggestionDisp = dispinterface
    ['{000209AB-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString readonly dispid 0;
  end;

// *********************************************************************//
// Interface: Dictionaries
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209AC-0000-0000-C000-000000000046}
// *********************************************************************//
  Dictionaries = interface(IDispatch)
    ['{000209AC-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Maximum: Integer; safecall;
    function Get_ActiveCustomDictionary: Dictionary; safecall;
    procedure Set_ActiveCustomDictionary(const prop: Dictionary); safecall;
    function Item(var Index: OleVariant): Dictionary; safecall;
    function Add(const FileName: WideString): Dictionary; safecall;
    procedure ClearAll; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Maximum: Integer read Get_Maximum;
    property ActiveCustomDictionary: Dictionary read Get_ActiveCustomDictionary write Set_ActiveCustomDictionary;
  end;

// *********************************************************************//
// DispIntf:  DictionariesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209AC-0000-0000-C000-000000000046}
// *********************************************************************//
  DictionariesDisp = dispinterface
    ['{000209AC-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    property Maximum: Integer readonly dispid 2;
    property ActiveCustomDictionary: Dictionary dispid 3;
    function Item(var Index: OleVariant): Dictionary; dispid 0;
    function Add(const FileName: WideString): Dictionary; dispid 101;
    procedure ClearAll; dispid 102;
  end;

// *********************************************************************//
// Interface: HangulHanjaConversionDictionaries
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E0-0000-0000-C000-000000000046}
// *********************************************************************//
  HangulHanjaConversionDictionaries = interface(IDispatch)
    ['{000209E0-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Maximum: Integer; safecall;
    function Get_ActiveCustomDictionary: Dictionary; safecall;
    procedure Set_ActiveCustomDictionary(const prop: Dictionary); safecall;
    function Get_BuiltinDictionary: Dictionary; safecall;
    function Item(var Index: OleVariant): Dictionary; safecall;
    function Add(const FileName: WideString): Dictionary; safecall;
    procedure ClearAll; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Maximum: Integer read Get_Maximum;
    property ActiveCustomDictionary: Dictionary read Get_ActiveCustomDictionary write Set_ActiveCustomDictionary;
    property BuiltinDictionary: Dictionary read Get_BuiltinDictionary;
  end;

// *********************************************************************//
// DispIntf:  HangulHanjaConversionDictionariesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E0-0000-0000-C000-000000000046}
// *********************************************************************//
  HangulHanjaConversionDictionariesDisp = dispinterface
    ['{000209E0-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    property Maximum: Integer readonly dispid 2;
    property ActiveCustomDictionary: Dictionary dispid 3;
    property BuiltinDictionary: Dictionary readonly dispid 4;
    function Item(var Index: OleVariant): Dictionary; dispid 0;
    function Add(const FileName: WideString): Dictionary; dispid 101;
    procedure ClearAll; dispid 102;
  end;

// *********************************************************************//
// Interface: Dictionary
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209AD-0000-0000-C000-000000000046}
// *********************************************************************//
  Dictionary = interface(IDispatch)
    ['{000209AD-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    function Get_Path: WideString; safecall;
    function Get_LanguageID: WdLanguageID; safecall;
    procedure Set_LanguageID(prop: WdLanguageID); safecall;
    function Get_ReadOnly: WordBool; safecall;
    function Get_type_: WdDictionaryType; safecall;
    function Get_LanguageSpecific: WordBool; safecall;
    procedure Set_LanguageSpecific(prop: WordBool); safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
    property Path: WideString read Get_Path;
    property LanguageID: WdLanguageID read Get_LanguageID write Set_LanguageID;
    property ReadOnly: WordBool read Get_ReadOnly;
    property type_: WdDictionaryType read Get_type_;
    property LanguageSpecific: WordBool read Get_LanguageSpecific write Set_LanguageSpecific;
  end;

// *********************************************************************//
// DispIntf:  DictionaryDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209AD-0000-0000-C000-000000000046}
// *********************************************************************//
  DictionaryDisp = dispinterface
    ['{000209AD-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString readonly dispid 0;
    property Path: WideString readonly dispid 1;
    property LanguageID: WdLanguageID dispid 2;
    property ReadOnly: WordBool readonly dispid 3;
    property type_: WdDictionaryType readonly dispid 4;
    property LanguageSpecific: WordBool dispid 5;
    procedure Delete; dispid 101;
  end;

// *********************************************************************//
// Interface: ReadabilityStatistics
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209AE-0000-0000-C000-000000000046}
// *********************************************************************//
  ReadabilityStatistics = interface(IDispatch)
    ['{000209AE-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): ReadabilityStatistic; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  ReadabilityStatisticsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209AE-0000-0000-C000-000000000046}
// *********************************************************************//
  ReadabilityStatisticsDisp = dispinterface
    ['{000209AE-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): ReadabilityStatistic; dispid 0;
  end;

// *********************************************************************//
// Interface: ReadabilityStatistic
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209AF-0000-0000-C000-000000000046}
// *********************************************************************//
  ReadabilityStatistic = interface(IDispatch)
    ['{000209AF-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Name: WideString; safecall;
    function Get_Value: Single; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
    property Value: Single read Get_Value;
  end;

// *********************************************************************//
// DispIntf:  ReadabilityStatisticDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209AF-0000-0000-C000-000000000046}
// *********************************************************************//
  ReadabilityStatisticDisp = dispinterface
    ['{000209AF-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Name: WideString readonly dispid 0;
    property Value: Single readonly dispid 1;
  end;

// *********************************************************************//
// Interface: Versions
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B3-0000-0000-C000-000000000046}
// *********************************************************************//
  Versions = interface(IDispatch)
    ['{000209B3-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_AutoVersion: WdAutoVersions; safecall;
    procedure Set_AutoVersion(prop: WdAutoVersions); safecall;
    function Item(Index: Integer): Version; safecall;
    procedure Save(var Comment: OleVariant); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property AutoVersion: WdAutoVersions read Get_AutoVersion write Set_AutoVersion;
  end;

// *********************************************************************//
// DispIntf:  VersionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B3-0000-0000-C000-000000000046}
// *********************************************************************//
  VersionsDisp = dispinterface
    ['{000209B3-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property AutoVersion: WdAutoVersions dispid 3;
    function Item(Index: Integer): Version; dispid 0;
    procedure Save(var Comment: OleVariant); dispid 11;
  end;

// *********************************************************************//
// Interface: Version
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B4-0000-0000-C000-000000000046}
// *********************************************************************//
  Version = interface(IDispatch)
    ['{000209B4-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_SavedBy: WideString; safecall;
    function Get_Comment: WideString; safecall;
    function Get_Date: TDateTime; safecall;
    function Get_Index: Integer; safecall;
    procedure OpenOld; safecall;
    procedure Delete; safecall;
    function Open: WordDocument; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property SavedBy: WideString read Get_SavedBy;
    property Comment: WideString read Get_Comment;
    property Date: TDateTime read Get_Date;
    property Index: Integer read Get_Index;
  end;

// *********************************************************************//
// DispIntf:  VersionDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B4-0000-0000-C000-000000000046}
// *********************************************************************//
  VersionDisp = dispinterface
    ['{000209B4-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property SavedBy: WideString readonly dispid 1003;
    property Comment: WideString readonly dispid 1004;
    property Date: TDateTime readonly dispid 1005;
    property Index: Integer readonly dispid 2;
    procedure OpenOld; dispid 101;
    procedure Delete; dispid 102;
    function Open: WordDocument; dispid 103;
  end;

// *********************************************************************//
// Interface: Options
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B7-0000-0000-C000-000000000046}
// *********************************************************************//
  Options = interface(IDispatch)
    ['{000209B7-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_AllowAccentedUppercase: WordBool; safecall;
    procedure Set_AllowAccentedUppercase(prop: WordBool); safecall;
    function Get_WPHelp: WordBool; safecall;
    procedure Set_WPHelp(prop: WordBool); safecall;
    function Get_WPDocNavKeys: WordBool; safecall;
    procedure Set_WPDocNavKeys(prop: WordBool); safecall;
    function Get_Pagination: WordBool; safecall;
    procedure Set_Pagination(prop: WordBool); safecall;
    function Get_BlueScreen: WordBool; safecall;
    procedure Set_BlueScreen(prop: WordBool); safecall;
    function Get_EnableSound: WordBool; safecall;
    procedure Set_EnableSound(prop: WordBool); safecall;
    function Get_ConfirmConversions: WordBool; safecall;
    procedure Set_ConfirmConversions(prop: WordBool); safecall;
    function Get_UpdateLinksAtOpen: WordBool; safecall;
    procedure Set_UpdateLinksAtOpen(prop: WordBool); safecall;
    function Get_SendMailAttach: WordBool; safecall;
    procedure Set_SendMailAttach(prop: WordBool); safecall;
    function Get_MeasurementUnit: WdMeasurementUnits; safecall;
    procedure Set_MeasurementUnit(prop: WdMeasurementUnits); safecall;
    function Get_ButtonFieldClicks: Integer; safecall;
    procedure Set_ButtonFieldClicks(prop: Integer); safecall;
    function Get_ShortMenuNames: WordBool; safecall;
    procedure Set_ShortMenuNames(prop: WordBool); safecall;
    function Get_RTFInClipboard: WordBool; safecall;
    procedure Set_RTFInClipboard(prop: WordBool); safecall;
    function Get_UpdateFieldsAtPrint: WordBool; safecall;
    procedure Set_UpdateFieldsAtPrint(prop: WordBool); safecall;
    function Get_PrintProperties: WordBool; safecall;
    procedure Set_PrintProperties(prop: WordBool); safecall;
    function Get_PrintFieldCodes: WordBool; safecall;
    procedure Set_PrintFieldCodes(prop: WordBool); safecall;
    function Get_PrintComments: WordBool; safecall;
    procedure Set_PrintComments(prop: WordBool); safecall;
    function Get_PrintHiddenText: WordBool; safecall;
    procedure Set_PrintHiddenText(prop: WordBool); safecall;
    function Get_EnvelopeFeederInstalled: WordBool; safecall;
    function Get_UpdateLinksAtPrint: WordBool; safecall;
    procedure Set_UpdateLinksAtPrint(prop: WordBool); safecall;
    function Get_PrintBackground: WordBool; safecall;
    procedure Set_PrintBackground(prop: WordBool); safecall;
    function Get_PrintDrawingObjects: WordBool; safecall;
    procedure Set_PrintDrawingObjects(prop: WordBool); safecall;
    function Get_DefaultTray: WideString; safecall;
    procedure Set_DefaultTray(const prop: WideString); safecall;
    function Get_DefaultTrayID: Integer; safecall;
    procedure Set_DefaultTrayID(prop: Integer); safecall;
    function Get_CreateBackup: WordBool; safecall;
    procedure Set_CreateBackup(prop: WordBool); safecall;
    function Get_AllowFastSave: WordBool; safecall;
    procedure Set_AllowFastSave(prop: WordBool); safecall;
    function Get_SavePropertiesPrompt: WordBool; safecall;
    procedure Set_SavePropertiesPrompt(prop: WordBool); safecall;
    function Get_SaveNormalPrompt: WordBool; safecall;
    procedure Set_SaveNormalPrompt(prop: WordBool); safecall;
    function Get_SaveInterval: Integer; safecall;
    procedure Set_SaveInterval(prop: Integer); safecall;
    function Get_BackgroundSave: WordBool; safecall;
    procedure Set_BackgroundSave(prop: WordBool); safecall;
    function Get_InsertedTextMark: WdInsertedTextMark; safecall;
    procedure Set_InsertedTextMark(prop: WdInsertedTextMark); safecall;
    function Get_DeletedTextMark: WdDeletedTextMark; safecall;
    procedure Set_DeletedTextMark(prop: WdDeletedTextMark); safecall;
    function Get_RevisedLinesMark: WdRevisedLinesMark; safecall;
    procedure Set_RevisedLinesMark(prop: WdRevisedLinesMark); safecall;
    function Get_InsertedTextColor: WdColorIndex; safecall;
    procedure Set_InsertedTextColor(prop: WdColorIndex); safecall;
    function Get_DeletedTextColor: WdColorIndex; safecall;
    procedure Set_DeletedTextColor(prop: WdColorIndex); safecall;
    function Get_RevisedLinesColor: WdColorIndex; safecall;
    procedure Set_RevisedLinesColor(prop: WdColorIndex); safecall;
    function Get_DefaultFilePath(Path: WdDefaultFilePath): WideString; safecall;
    procedure Set_DefaultFilePath(Path: WdDefaultFilePath; const prop: WideString); safecall;
    function Get_Overtype: WordBool; safecall;
    procedure Set_Overtype(prop: WordBool); safecall;
    function Get_ReplaceSelection: WordBool; safecall;
    procedure Set_ReplaceSelection(prop: WordBool); safecall;
    function Get_AllowDragAndDrop: WordBool; safecall;
    procedure Set_AllowDragAndDrop(prop: WordBool); safecall;
    function Get_AutoWordSelection: WordBool; safecall;
    procedure Set_AutoWordSelection(prop: WordBool); safecall;
    function Get_INSKeyForPaste: WordBool; safecall;
    procedure Set_INSKeyForPaste(prop: WordBool); safecall;
    function Get_SmartCutPaste: WordBool; safecall;
    procedure Set_SmartCutPaste(prop: WordBool); safecall;
    function Get_TabIndentKey: WordBool; safecall;
    procedure Set_TabIndentKey(prop: WordBool); safecall;
    function Get_PictureEditor: WideString; safecall;
    procedure Set_PictureEditor(const prop: WideString); safecall;
    function Get_AnimateScreenMovements: WordBool; safecall;
    procedure Set_AnimateScreenMovements(prop: WordBool); safecall;
    function Get_VirusProtection: WordBool; safecall;
    procedure Set_VirusProtection(prop: WordBool); safecall;
    function Get_RevisedPropertiesMark: WdRevisedPropertiesMark; safecall;
    procedure Set_RevisedPropertiesMark(prop: WdRevisedPropertiesMark); safecall;
    function Get_RevisedPropertiesColor: WdColorIndex; safecall;
    procedure Set_RevisedPropertiesColor(prop: WdColorIndex); safecall;
    function Get_SnapToGrid: WordBool; safecall;
    procedure Set_SnapToGrid(prop: WordBool); safecall;
    function Get_SnapToShapes: WordBool; safecall;
    procedure Set_SnapToShapes(prop: WordBool); safecall;
    function Get_GridDistanceHorizontal: Single; safecall;
    procedure Set_GridDistanceHorizontal(prop: Single); safecall;
    function Get_GridDistanceVertical: Single; safecall;
    procedure Set_GridDistanceVertical(prop: Single); safecall;
    function Get_GridOriginHorizontal: Single; safecall;
    procedure Set_GridOriginHorizontal(prop: Single); safecall;
    function Get_GridOriginVertical: Single; safecall;
    procedure Set_GridOriginVertical(prop: Single); safecall;
    function Get_InlineConversion: WordBool; safecall;
    procedure Set_InlineConversion(prop: WordBool); safecall;
    function Get_IMEAutomaticControl: WordBool; safecall;
    procedure Set_IMEAutomaticControl(prop: WordBool); safecall;
    function Get_AutoFormatApplyHeadings: WordBool; safecall;
    procedure Set_AutoFormatApplyHeadings(prop: WordBool); safecall;
    function Get_AutoFormatApplyLists: WordBool; safecall;
    procedure Set_AutoFormatApplyLists(prop: WordBool); safecall;
    function Get_AutoFormatApplyBulletedLists: WordBool; safecall;
    procedure Set_AutoFormatApplyBulletedLists(prop: WordBool); safecall;
    function Get_AutoFormatApplyOtherParas: WordBool; safecall;
    procedure Set_AutoFormatApplyOtherParas(prop: WordBool); safecall;
    function Get_AutoFormatReplaceQuotes: WordBool; safecall;
    procedure Set_AutoFormatReplaceQuotes(prop: WordBool); safecall;
    function Get_AutoFormatReplaceSymbols: WordBool; safecall;
    procedure Set_AutoFormatReplaceSymbols(prop: WordBool); safecall;
    function Get_AutoFormatReplaceOrdinals: WordBool; safecall;
    procedure Set_AutoFormatReplaceOrdinals(prop: WordBool); safecall;
    function Get_AutoFormatReplaceFractions: WordBool; safecall;
    procedure Set_AutoFormatReplaceFractions(prop: WordBool); safecall;
    function Get_AutoFormatReplacePlainTextEmphasis: WordBool; safecall;
    procedure Set_AutoFormatReplacePlainTextEmphasis(prop: WordBool); safecall;
    function Get_AutoFormatPreserveStyles: WordBool; safecall;
    procedure Set_AutoFormatPreserveStyles(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyHeadings: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyHeadings(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyBorders: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyBorders(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyBulletedLists: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyBulletedLists(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyNumberedLists: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyNumberedLists(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeReplaceQuotes: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeReplaceQuotes(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeReplaceSymbols: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeReplaceSymbols(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeReplaceOrdinals: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeReplaceOrdinals(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeReplaceFractions: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeReplaceFractions(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeReplacePlainTextEmphasis: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeReplacePlainTextEmphasis(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeFormatListItemBeginning: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeFormatListItemBeginning(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeDefineStyles: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeDefineStyles(prop: WordBool); safecall;
    function Get_AutoFormatPlainTextWordMail: WordBool; safecall;
    procedure Set_AutoFormatPlainTextWordMail(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeReplaceHyperlinks: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeReplaceHyperlinks(prop: WordBool); safecall;
    function Get_AutoFormatReplaceHyperlinks: WordBool; safecall;
    procedure Set_AutoFormatReplaceHyperlinks(prop: WordBool); safecall;
    function Get_DefaultHighlightColorIndex: WdColorIndex; safecall;
    procedure Set_DefaultHighlightColorIndex(prop: WdColorIndex); safecall;
    function Get_DefaultBorderLineStyle: WdLineStyle; safecall;
    procedure Set_DefaultBorderLineStyle(prop: WdLineStyle); safecall;
    function Get_CheckSpellingAsYouType: WordBool; safecall;
    procedure Set_CheckSpellingAsYouType(prop: WordBool); safecall;
    function Get_CheckGrammarAsYouType: WordBool; safecall;
    procedure Set_CheckGrammarAsYouType(prop: WordBool); safecall;
    function Get_IgnoreInternetAndFileAddresses: WordBool; safecall;
    procedure Set_IgnoreInternetAndFileAddresses(prop: WordBool); safecall;
    function Get_ShowReadabilityStatistics: WordBool; safecall;
    procedure Set_ShowReadabilityStatistics(prop: WordBool); safecall;
    function Get_IgnoreUppercase: WordBool; safecall;
    procedure Set_IgnoreUppercase(prop: WordBool); safecall;
    function Get_IgnoreMixedDigits: WordBool; safecall;
    procedure Set_IgnoreMixedDigits(prop: WordBool); safecall;
    function Get_SuggestFromMainDictionaryOnly: WordBool; safecall;
    procedure Set_SuggestFromMainDictionaryOnly(prop: WordBool); safecall;
    function Get_SuggestSpellingCorrections: WordBool; safecall;
    procedure Set_SuggestSpellingCorrections(prop: WordBool); safecall;
    function Get_DefaultBorderLineWidth: WdLineWidth; safecall;
    procedure Set_DefaultBorderLineWidth(prop: WdLineWidth); safecall;
    function Get_CheckGrammarWithSpelling: WordBool; safecall;
    procedure Set_CheckGrammarWithSpelling(prop: WordBool); safecall;
    function Get_DefaultOpenFormat: WdOpenFormat; safecall;
    procedure Set_DefaultOpenFormat(prop: WdOpenFormat); safecall;
    function Get_PrintDraft: WordBool; safecall;
    procedure Set_PrintDraft(prop: WordBool); safecall;
    function Get_PrintReverse: WordBool; safecall;
    procedure Set_PrintReverse(prop: WordBool); safecall;
    function Get_MapPaperSize: WordBool; safecall;
    procedure Set_MapPaperSize(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyTables: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyTables(prop: WordBool); safecall;
    function Get_AutoFormatApplyFirstIndents: WordBool; safecall;
    procedure Set_AutoFormatApplyFirstIndents(prop: WordBool); safecall;
    function Get_AutoFormatMatchParentheses: WordBool; safecall;
    procedure Set_AutoFormatMatchParentheses(prop: WordBool); safecall;
    function Get_AutoFormatReplaceFarEastDashes: WordBool; safecall;
    procedure Set_AutoFormatReplaceFarEastDashes(prop: WordBool); safecall;
    function Get_AutoFormatDeleteAutoSpaces: WordBool; safecall;
    procedure Set_AutoFormatDeleteAutoSpaces(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyFirstIndents: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyFirstIndents(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyDates: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyDates(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyClosings: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyClosings(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeMatchParentheses: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeMatchParentheses(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeReplaceFarEastDashes: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeReplaceFarEastDashes(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeDeleteAutoSpaces: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeDeleteAutoSpaces(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeInsertClosings: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeInsertClosings(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeAutoLetterWizard: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeAutoLetterWizard(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeInsertOvers: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeInsertOvers(prop: WordBool); safecall;
    function Get_DisplayGridLines: WordBool; safecall;
    procedure Set_DisplayGridLines(prop: WordBool); safecall;
    function Get_MatchFuzzyCase: WordBool; safecall;
    procedure Set_MatchFuzzyCase(prop: WordBool); safecall;
    function Get_MatchFuzzyByte: WordBool; safecall;
    procedure Set_MatchFuzzyByte(prop: WordBool); safecall;
    function Get_MatchFuzzyHiragana: WordBool; safecall;
    procedure Set_MatchFuzzyHiragana(prop: WordBool); safecall;
    function Get_MatchFuzzySmallKana: WordBool; safecall;
    procedure Set_MatchFuzzySmallKana(prop: WordBool); safecall;
    function Get_MatchFuzzyDash: WordBool; safecall;
    procedure Set_MatchFuzzyDash(prop: WordBool); safecall;
    function Get_MatchFuzzyIterationMark: WordBool; safecall;
    procedure Set_MatchFuzzyIterationMark(prop: WordBool); safecall;
    function Get_MatchFuzzyKanji: WordBool; safecall;
    procedure Set_MatchFuzzyKanji(prop: WordBool); safecall;
    function Get_MatchFuzzyOldKana: WordBool; safecall;
    procedure Set_MatchFuzzyOldKana(prop: WordBool); safecall;
    function Get_MatchFuzzyProlongedSoundMark: WordBool; safecall;
    procedure Set_MatchFuzzyProlongedSoundMark(prop: WordBool); safecall;
    function Get_MatchFuzzyDZ: WordBool; safecall;
    procedure Set_MatchFuzzyDZ(prop: WordBool); safecall;
    function Get_MatchFuzzyBV: WordBool; safecall;
    procedure Set_MatchFuzzyBV(prop: WordBool); safecall;
    function Get_MatchFuzzyTC: WordBool; safecall;
    procedure Set_MatchFuzzyTC(prop: WordBool); safecall;
    function Get_MatchFuzzyHF: WordBool; safecall;
    procedure Set_MatchFuzzyHF(prop: WordBool); safecall;
    function Get_MatchFuzzyZJ: WordBool; safecall;
    procedure Set_MatchFuzzyZJ(prop: WordBool); safecall;
    function Get_MatchFuzzyAY: WordBool; safecall;
    procedure Set_MatchFuzzyAY(prop: WordBool); safecall;
    function Get_MatchFuzzyKiKu: WordBool; safecall;
    procedure Set_MatchFuzzyKiKu(prop: WordBool); safecall;
    function Get_MatchFuzzyPunctuation: WordBool; safecall;
    procedure Set_MatchFuzzyPunctuation(prop: WordBool); safecall;
    function Get_MatchFuzzySpace: WordBool; safecall;
    procedure Set_MatchFuzzySpace(prop: WordBool); safecall;
    function Get_ApplyFarEastFontsToAscii: WordBool; safecall;
    procedure Set_ApplyFarEastFontsToAscii(prop: WordBool); safecall;
    function Get_ConvertHighAnsiToFarEast: WordBool; safecall;
    procedure Set_ConvertHighAnsiToFarEast(prop: WordBool); safecall;
    function Get_PrintOddPagesInAscendingOrder: WordBool; safecall;
    procedure Set_PrintOddPagesInAscendingOrder(prop: WordBool); safecall;
    function Get_PrintEvenPagesInAscendingOrder: WordBool; safecall;
    procedure Set_PrintEvenPagesInAscendingOrder(prop: WordBool); safecall;
    function Get_DefaultBorderColorIndex: WdColorIndex; safecall;
    procedure Set_DefaultBorderColorIndex(prop: WdColorIndex); safecall;
    function Get_EnableMisusedWordsDictionary: WordBool; safecall;
    procedure Set_EnableMisusedWordsDictionary(prop: WordBool); safecall;
    function Get_AllowCombinedAuxiliaryForms: WordBool; safecall;
    procedure Set_AllowCombinedAuxiliaryForms(prop: WordBool); safecall;
    function Get_HangulHanjaFastConversion: WordBool; safecall;
    procedure Set_HangulHanjaFastConversion(prop: WordBool); safecall;
    function Get_CheckHangulEndings: WordBool; safecall;
    procedure Set_CheckHangulEndings(prop: WordBool); safecall;
    function Get_EnableHangulHanjaRecentOrdering: WordBool; safecall;
    procedure Set_EnableHangulHanjaRecentOrdering(prop: WordBool); safecall;
    function Get_MultipleWordConversionsMode: WdMultipleWordConversionsMode; safecall;
    procedure Set_MultipleWordConversionsMode(prop: WdMultipleWordConversionsMode); safecall;
    procedure SetWPHelpOptions(var CommandKeyHelp: OleVariant; var DocNavigationKeys: OleVariant; 
                               var MouseSimulation: OleVariant; var DemoGuidance: OleVariant; 
                               var DemoSpeed: OleVariant; var HelpType: OleVariant); safecall;
    function Get_DefaultBorderColor: WdColor; safecall;
    procedure Set_DefaultBorderColor(prop: WdColor); safecall;
    function Get_AllowPixelUnits: WordBool; safecall;
    procedure Set_AllowPixelUnits(prop: WordBool); safecall;
    function Get_UseCharacterUnit: WordBool; safecall;
    procedure Set_UseCharacterUnit(prop: WordBool); safecall;
    function Get_AllowCompoundNounProcessing: WordBool; safecall;
    procedure Set_AllowCompoundNounProcessing(prop: WordBool); safecall;
    function Get_AutoKeyboardSwitching: WordBool; safecall;
    procedure Set_AutoKeyboardSwitching(prop: WordBool); safecall;
    function Get_DocumentViewDirection: WdDocumentViewDirection; safecall;
    procedure Set_DocumentViewDirection(prop: WdDocumentViewDirection); safecall;
    function Get_ArabicNumeral: WdArabicNumeral; safecall;
    procedure Set_ArabicNumeral(prop: WdArabicNumeral); safecall;
    function Get_MonthNames: WdMonthNames; safecall;
    procedure Set_MonthNames(prop: WdMonthNames); safecall;
    function Get_CursorMovement: WdCursorMovement; safecall;
    procedure Set_CursorMovement(prop: WdCursorMovement); safecall;
    function Get_VisualSelection: WdVisualSelection; safecall;
    procedure Set_VisualSelection(prop: WdVisualSelection); safecall;
    function Get_ShowDiacritics: WordBool; safecall;
    procedure Set_ShowDiacritics(prop: WordBool); safecall;
    function Get_ShowControlCharacters: WordBool; safecall;
    procedure Set_ShowControlCharacters(prop: WordBool); safecall;
    function Get_AddControlCharacters: WordBool; safecall;
    procedure Set_AddControlCharacters(prop: WordBool); safecall;
    function Get_AddBiDirectionalMarksWhenSavingTextFile: WordBool; safecall;
    procedure Set_AddBiDirectionalMarksWhenSavingTextFile(prop: WordBool); safecall;
    function Get_StrictInitialAlefHamza: WordBool; safecall;
    procedure Set_StrictInitialAlefHamza(prop: WordBool); safecall;
    function Get_StrictFinalYaa: WordBool; safecall;
    procedure Set_StrictFinalYaa(prop: WordBool); safecall;
    function Get_HebrewMode: WdHebSpellStart; safecall;
    procedure Set_HebrewMode(prop: WdHebSpellStart); safecall;
    function Get_ArabicMode: WdAraSpeller; safecall;
    procedure Set_ArabicMode(prop: WdAraSpeller); safecall;
    function Get_AllowClickAndTypeMouse: WordBool; safecall;
    procedure Set_AllowClickAndTypeMouse(prop: WordBool); safecall;
    function Get_UseGermanSpellingReform: WordBool; safecall;
    procedure Set_UseGermanSpellingReform(prop: WordBool); safecall;
    function Get_InterpretHighAnsi: WdHighAnsiText; safecall;
    procedure Set_InterpretHighAnsi(prop: WdHighAnsiText); safecall;
    function Get_AddHebDoubleQuote: WordBool; safecall;
    procedure Set_AddHebDoubleQuote(prop: WordBool); safecall;
    function Get_UseDiffDiacColor: WordBool; safecall;
    procedure Set_UseDiffDiacColor(prop: WordBool); safecall;
    function Get_DiacriticColorVal: WdColor; safecall;
    procedure Set_DiacriticColorVal(prop: WdColor); safecall;
    function Get_OptimizeForWord97byDefault: WordBool; safecall;
    procedure Set_OptimizeForWord97byDefault(prop: WordBool); safecall;
    function Get_LocalNetworkFile: WordBool; safecall;
    procedure Set_LocalNetworkFile(prop: WordBool); safecall;
    function Get_TypeNReplace: WordBool; safecall;
    procedure Set_TypeNReplace(prop: WordBool); safecall;
    function Get_SequenceCheck: WordBool; safecall;
    procedure Set_SequenceCheck(prop: WordBool); safecall;
    function Get_BackgroundOpen: WordBool; safecall;
    procedure Set_BackgroundOpen(prop: WordBool); safecall;
    function Get_DisableFeaturesbyDefault: WordBool; safecall;
    procedure Set_DisableFeaturesbyDefault(prop: WordBool); safecall;
    function Get_PasteAdjustWordSpacing: WordBool; safecall;
    procedure Set_PasteAdjustWordSpacing(prop: WordBool); safecall;
    function Get_PasteAdjustParagraphSpacing: WordBool; safecall;
    procedure Set_PasteAdjustParagraphSpacing(prop: WordBool); safecall;
    function Get_PasteAdjustTableFormatting: WordBool; safecall;
    procedure Set_PasteAdjustTableFormatting(prop: WordBool); safecall;
    function Get_PasteSmartStyleBehavior: WordBool; safecall;
    procedure Set_PasteSmartStyleBehavior(prop: WordBool); safecall;
    function Get_PasteMergeFromPPT: WordBool; safecall;
    procedure Set_PasteMergeFromPPT(prop: WordBool); safecall;
    function Get_PasteMergeFromXL: WordBool; safecall;
    procedure Set_PasteMergeFromXL(prop: WordBool); safecall;
    function Get_CtrlClickHyperlinkToOpen: WordBool; safecall;
    procedure Set_CtrlClickHyperlinkToOpen(prop: WordBool); safecall;
    function Get_PictureWrapType: WdWrapTypeMerged; safecall;
    procedure Set_PictureWrapType(prop: WdWrapTypeMerged); safecall;
    function Get_DisableFeaturesIntroducedAfterbyDefault: WdDisableFeaturesIntroducedAfter; safecall;
    procedure Set_DisableFeaturesIntroducedAfterbyDefault(prop: WdDisableFeaturesIntroducedAfter); safecall;
    function Get_PasteSmartCutPaste: WordBool; safecall;
    procedure Set_PasteSmartCutPaste(prop: WordBool); safecall;
    function Get_DisplayPasteOptions: WordBool; safecall;
    procedure Set_DisplayPasteOptions(prop: WordBool); safecall;
    function Get_PromptUpdateStyle: WordBool; safecall;
    procedure Set_PromptUpdateStyle(prop: WordBool); safecall;
    function Get_DefaultEPostageApp: WideString; safecall;
    procedure Set_DefaultEPostageApp(const prop: WideString); safecall;
    function Get_DefaultTextEncoding: MsoEncoding; safecall;
    procedure Set_DefaultTextEncoding(prop: MsoEncoding); safecall;
    function Get_LabelSmartTags: WordBool; safecall;
    procedure Set_LabelSmartTags(prop: WordBool); safecall;
    function Get_DisplaySmartTagButtons: WordBool; safecall;
    procedure Set_DisplaySmartTagButtons(prop: WordBool); safecall;
    function Get_WarnBeforeSavingPrintingSendingMarkup: WordBool; safecall;
    procedure Set_WarnBeforeSavingPrintingSendingMarkup(prop: WordBool); safecall;
    function Get_StoreRSIDOnSave: WordBool; safecall;
    procedure Set_StoreRSIDOnSave(prop: WordBool); safecall;
    function Get_ShowFormatError: WordBool; safecall;
    procedure Set_ShowFormatError(prop: WordBool); safecall;
    function Get_FormatScanning: WordBool; safecall;
    procedure Set_FormatScanning(prop: WordBool); safecall;
    function Get_PasteMergeLists: WordBool; safecall;
    procedure Set_PasteMergeLists(prop: WordBool); safecall;
    function Get_AutoCreateNewDrawings: WordBool; safecall;
    procedure Set_AutoCreateNewDrawings(prop: WordBool); safecall;
    function Get_SmartParaSelection: WordBool; safecall;
    procedure Set_SmartParaSelection(prop: WordBool); safecall;
    function Get_RevisionsBalloonPrintOrientation: WdRevisionsBalloonPrintOrientation; safecall;
    procedure Set_RevisionsBalloonPrintOrientation(prop: WdRevisionsBalloonPrintOrientation); safecall;
    function Get_CommentsColor: WdColorIndex; safecall;
    procedure Set_CommentsColor(prop: WdColorIndex); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property AllowAccentedUppercase: WordBool read Get_AllowAccentedUppercase write Set_AllowAccentedUppercase;
    property WPHelp: WordBool read Get_WPHelp write Set_WPHelp;
    property WPDocNavKeys: WordBool read Get_WPDocNavKeys write Set_WPDocNavKeys;
    property Pagination: WordBool read Get_Pagination write Set_Pagination;
    property BlueScreen: WordBool read Get_BlueScreen write Set_BlueScreen;
    property EnableSound: WordBool read Get_EnableSound write Set_EnableSound;
    property ConfirmConversions: WordBool read Get_ConfirmConversions write Set_ConfirmConversions;
    property UpdateLinksAtOpen: WordBool read Get_UpdateLinksAtOpen write Set_UpdateLinksAtOpen;
    property SendMailAttach: WordBool read Get_SendMailAttach write Set_SendMailAttach;
    property MeasurementUnit: WdMeasurementUnits read Get_MeasurementUnit write Set_MeasurementUnit;
    property ButtonFieldClicks: Integer read Get_ButtonFieldClicks write Set_ButtonFieldClicks;
    property ShortMenuNames: WordBool read Get_ShortMenuNames write Set_ShortMenuNames;
    property RTFInClipboard: WordBool read Get_RTFInClipboard write Set_RTFInClipboard;
    property UpdateFieldsAtPrint: WordBool read Get_UpdateFieldsAtPrint write Set_UpdateFieldsAtPrint;
    property PrintProperties: WordBool read Get_PrintProperties write Set_PrintProperties;
    property PrintFieldCodes: WordBool read Get_PrintFieldCodes write Set_PrintFieldCodes;
    property PrintComments: WordBool read Get_PrintComments write Set_PrintComments;
    property PrintHiddenText: WordBool read Get_PrintHiddenText write Set_PrintHiddenText;
    property EnvelopeFeederInstalled: WordBool read Get_EnvelopeFeederInstalled;
    property UpdateLinksAtPrint: WordBool read Get_UpdateLinksAtPrint write Set_UpdateLinksAtPrint;
    property PrintBackground: WordBool read Get_PrintBackground write Set_PrintBackground;
    property PrintDrawingObjects: WordBool read Get_PrintDrawingObjects write Set_PrintDrawingObjects;
    property DefaultTray: WideString read Get_DefaultTray write Set_DefaultTray;
    property DefaultTrayID: Integer read Get_DefaultTrayID write Set_DefaultTrayID;
    property CreateBackup: WordBool read Get_CreateBackup write Set_CreateBackup;
    property AllowFastSave: WordBool read Get_AllowFastSave write Set_AllowFastSave;
    property SavePropertiesPrompt: WordBool read Get_SavePropertiesPrompt write Set_SavePropertiesPrompt;
    property SaveNormalPrompt: WordBool read Get_SaveNormalPrompt write Set_SaveNormalPrompt;
    property SaveInterval: Integer read Get_SaveInterval write Set_SaveInterval;
    property BackgroundSave: WordBool read Get_BackgroundSave write Set_BackgroundSave;
    property InsertedTextMark: WdInsertedTextMark read Get_InsertedTextMark write Set_InsertedTextMark;
    property DeletedTextMark: WdDeletedTextMark read Get_DeletedTextMark write Set_DeletedTextMark;
    property RevisedLinesMark: WdRevisedLinesMark read Get_RevisedLinesMark write Set_RevisedLinesMark;
    property InsertedTextColor: WdColorIndex read Get_InsertedTextColor write Set_InsertedTextColor;
    property DeletedTextColor: WdColorIndex read Get_DeletedTextColor write Set_DeletedTextColor;
    property RevisedLinesColor: WdColorIndex read Get_RevisedLinesColor write Set_RevisedLinesColor;
    property DefaultFilePath[Path: WdDefaultFilePath]: WideString read Get_DefaultFilePath write Set_DefaultFilePath;
    property Overtype: WordBool read Get_Overtype write Set_Overtype;
    property ReplaceSelection: WordBool read Get_ReplaceSelection write Set_ReplaceSelection;
    property AllowDragAndDrop: WordBool read Get_AllowDragAndDrop write Set_AllowDragAndDrop;
    property AutoWordSelection: WordBool read Get_AutoWordSelection write Set_AutoWordSelection;
    property INSKeyForPaste: WordBool read Get_INSKeyForPaste write Set_INSKeyForPaste;
    property SmartCutPaste: WordBool read Get_SmartCutPaste write Set_SmartCutPaste;
    property TabIndentKey: WordBool read Get_TabIndentKey write Set_TabIndentKey;
    property PictureEditor: WideString read Get_PictureEditor write Set_PictureEditor;
    property AnimateScreenMovements: WordBool read Get_AnimateScreenMovements write Set_AnimateScreenMovements;
    property VirusProtection: WordBool read Get_VirusProtection write Set_VirusProtection;
    property RevisedPropertiesMark: WdRevisedPropertiesMark read Get_RevisedPropertiesMark write Set_RevisedPropertiesMark;
    property RevisedPropertiesColor: WdColorIndex read Get_RevisedPropertiesColor write Set_RevisedPropertiesColor;
    property SnapToGrid: WordBool read Get_SnapToGrid write Set_SnapToGrid;
    property SnapToShapes: WordBool read Get_SnapToShapes write Set_SnapToShapes;
    property GridDistanceHorizontal: Single read Get_GridDistanceHorizontal write Set_GridDistanceHorizontal;
    property GridDistanceVertical: Single read Get_GridDistanceVertical write Set_GridDistanceVertical;
    property GridOriginHorizontal: Single read Get_GridOriginHorizontal write Set_GridOriginHorizontal;
    property GridOriginVertical: Single read Get_GridOriginVertical write Set_GridOriginVertical;
    property InlineConversion: WordBool read Get_InlineConversion write Set_InlineConversion;
    property IMEAutomaticControl: WordBool read Get_IMEAutomaticControl write Set_IMEAutomaticControl;
    property AutoFormatApplyHeadings: WordBool read Get_AutoFormatApplyHeadings write Set_AutoFormatApplyHeadings;
    property AutoFormatApplyLists: WordBool read Get_AutoFormatApplyLists write Set_AutoFormatApplyLists;
    property AutoFormatApplyBulletedLists: WordBool read Get_AutoFormatApplyBulletedLists write Set_AutoFormatApplyBulletedLists;
    property AutoFormatApplyOtherParas: WordBool read Get_AutoFormatApplyOtherParas write Set_AutoFormatApplyOtherParas;
    property AutoFormatReplaceQuotes: WordBool read Get_AutoFormatReplaceQuotes write Set_AutoFormatReplaceQuotes;
    property AutoFormatReplaceSymbols: WordBool read Get_AutoFormatReplaceSymbols write Set_AutoFormatReplaceSymbols;
    property AutoFormatReplaceOrdinals: WordBool read Get_AutoFormatReplaceOrdinals write Set_AutoFormatReplaceOrdinals;
    property AutoFormatReplaceFractions: WordBool read Get_AutoFormatReplaceFractions write Set_AutoFormatReplaceFractions;
    property AutoFormatReplacePlainTextEmphasis: WordBool read Get_AutoFormatReplacePlainTextEmphasis write Set_AutoFormatReplacePlainTextEmphasis;
    property AutoFormatPreserveStyles: WordBool read Get_AutoFormatPreserveStyles write Set_AutoFormatPreserveStyles;
    property AutoFormatAsYouTypeApplyHeadings: WordBool read Get_AutoFormatAsYouTypeApplyHeadings write Set_AutoFormatAsYouTypeApplyHeadings;
    property AutoFormatAsYouTypeApplyBorders: WordBool read Get_AutoFormatAsYouTypeApplyBorders write Set_AutoFormatAsYouTypeApplyBorders;
    property AutoFormatAsYouTypeApplyBulletedLists: WordBool read Get_AutoFormatAsYouTypeApplyBulletedLists write Set_AutoFormatAsYouTypeApplyBulletedLists;
    property AutoFormatAsYouTypeApplyNumberedLists: WordBool read Get_AutoFormatAsYouTypeApplyNumberedLists write Set_AutoFormatAsYouTypeApplyNumberedLists;
    property AutoFormatAsYouTypeReplaceQuotes: WordBool read Get_AutoFormatAsYouTypeReplaceQuotes write Set_AutoFormatAsYouTypeReplaceQuotes;
    property AutoFormatAsYouTypeReplaceSymbols: WordBool read Get_AutoFormatAsYouTypeReplaceSymbols write Set_AutoFormatAsYouTypeReplaceSymbols;
    property AutoFormatAsYouTypeReplaceOrdinals: WordBool read Get_AutoFormatAsYouTypeReplaceOrdinals write Set_AutoFormatAsYouTypeReplaceOrdinals;
    property AutoFormatAsYouTypeReplaceFractions: WordBool read Get_AutoFormatAsYouTypeReplaceFractions write Set_AutoFormatAsYouTypeReplaceFractions;
    property AutoFormatAsYouTypeReplacePlainTextEmphasis: WordBool read Get_AutoFormatAsYouTypeReplacePlainTextEmphasis write Set_AutoFormatAsYouTypeReplacePlainTextEmphasis;
    property AutoFormatAsYouTypeFormatListItemBeginning: WordBool read Get_AutoFormatAsYouTypeFormatListItemBeginning write Set_AutoFormatAsYouTypeFormatListItemBeginning;
    property AutoFormatAsYouTypeDefineStyles: WordBool read Get_AutoFormatAsYouTypeDefineStyles write Set_AutoFormatAsYouTypeDefineStyles;
    property AutoFormatPlainTextWordMail: WordBool read Get_AutoFormatPlainTextWordMail write Set_AutoFormatPlainTextWordMail;
    property AutoFormatAsYouTypeReplaceHyperlinks: WordBool read Get_AutoFormatAsYouTypeReplaceHyperlinks write Set_AutoFormatAsYouTypeReplaceHyperlinks;
    property AutoFormatReplaceHyperlinks: WordBool read Get_AutoFormatReplaceHyperlinks write Set_AutoFormatReplaceHyperlinks;
    property DefaultHighlightColorIndex: WdColorIndex read Get_DefaultHighlightColorIndex write Set_DefaultHighlightColorIndex;
    property DefaultBorderLineStyle: WdLineStyle read Get_DefaultBorderLineStyle write Set_DefaultBorderLineStyle;
    property CheckSpellingAsYouType: WordBool read Get_CheckSpellingAsYouType write Set_CheckSpellingAsYouType;
    property CheckGrammarAsYouType: WordBool read Get_CheckGrammarAsYouType write Set_CheckGrammarAsYouType;
    property IgnoreInternetAndFileAddresses: WordBool read Get_IgnoreInternetAndFileAddresses write Set_IgnoreInternetAndFileAddresses;
    property ShowReadabilityStatistics: WordBool read Get_ShowReadabilityStatistics write Set_ShowReadabilityStatistics;
    property IgnoreUppercase: WordBool read Get_IgnoreUppercase write Set_IgnoreUppercase;
    property IgnoreMixedDigits: WordBool read Get_IgnoreMixedDigits write Set_IgnoreMixedDigits;
    property SuggestFromMainDictionaryOnly: WordBool read Get_SuggestFromMainDictionaryOnly write Set_SuggestFromMainDictionaryOnly;
    property SuggestSpellingCorrections: WordBool read Get_SuggestSpellingCorrections write Set_SuggestSpellingCorrections;
    property DefaultBorderLineWidth: WdLineWidth read Get_DefaultBorderLineWidth write Set_DefaultBorderLineWidth;
    property CheckGrammarWithSpelling: WordBool read Get_CheckGrammarWithSpelling write Set_CheckGrammarWithSpelling;
    property DefaultOpenFormat: WdOpenFormat read Get_DefaultOpenFormat write Set_DefaultOpenFormat;
    property PrintDraft: WordBool read Get_PrintDraft write Set_PrintDraft;
    property PrintReverse: WordBool read Get_PrintReverse write Set_PrintReverse;
    property MapPaperSize: WordBool read Get_MapPaperSize write Set_MapPaperSize;
    property AutoFormatAsYouTypeApplyTables: WordBool read Get_AutoFormatAsYouTypeApplyTables write Set_AutoFormatAsYouTypeApplyTables;
    property AutoFormatApplyFirstIndents: WordBool read Get_AutoFormatApplyFirstIndents write Set_AutoFormatApplyFirstIndents;
    property AutoFormatMatchParentheses: WordBool read Get_AutoFormatMatchParentheses write Set_AutoFormatMatchParentheses;
    property AutoFormatReplaceFarEastDashes: WordBool read Get_AutoFormatReplaceFarEastDashes write Set_AutoFormatReplaceFarEastDashes;
    property AutoFormatDeleteAutoSpaces: WordBool read Get_AutoFormatDeleteAutoSpaces write Set_AutoFormatDeleteAutoSpaces;
    property AutoFormatAsYouTypeApplyFirstIndents: WordBool read Get_AutoFormatAsYouTypeApplyFirstIndents write Set_AutoFormatAsYouTypeApplyFirstIndents;
    property AutoFormatAsYouTypeApplyDates: WordBool read Get_AutoFormatAsYouTypeApplyDates write Set_AutoFormatAsYouTypeApplyDates;
    property AutoFormatAsYouTypeApplyClosings: WordBool read Get_AutoFormatAsYouTypeApplyClosings write Set_AutoFormatAsYouTypeApplyClosings;
    property AutoFormatAsYouTypeMatchParentheses: WordBool read Get_AutoFormatAsYouTypeMatchParentheses write Set_AutoFormatAsYouTypeMatchParentheses;
    property AutoFormatAsYouTypeReplaceFarEastDashes: WordBool read Get_AutoFormatAsYouTypeReplaceFarEastDashes write Set_AutoFormatAsYouTypeReplaceFarEastDashes;
    property AutoFormatAsYouTypeDeleteAutoSpaces: WordBool read Get_AutoFormatAsYouTypeDeleteAutoSpaces write Set_AutoFormatAsYouTypeDeleteAutoSpaces;
    property AutoFormatAsYouTypeInsertClosings: WordBool read Get_AutoFormatAsYouTypeInsertClosings write Set_AutoFormatAsYouTypeInsertClosings;
    property AutoFormatAsYouTypeAutoLetterWizard: WordBool read Get_AutoFormatAsYouTypeAutoLetterWizard write Set_AutoFormatAsYouTypeAutoLetterWizard;
    property AutoFormatAsYouTypeInsertOvers: WordBool read Get_AutoFormatAsYouTypeInsertOvers write Set_AutoFormatAsYouTypeInsertOvers;
    property DisplayGridLines: WordBool read Get_DisplayGridLines write Set_DisplayGridLines;
    property MatchFuzzyCase: WordBool read Get_MatchFuzzyCase write Set_MatchFuzzyCase;
    property MatchFuzzyByte: WordBool read Get_MatchFuzzyByte write Set_MatchFuzzyByte;
    property MatchFuzzyHiragana: WordBool read Get_MatchFuzzyHiragana write Set_MatchFuzzyHiragana;
    property MatchFuzzySmallKana: WordBool read Get_MatchFuzzySmallKana write Set_MatchFuzzySmallKana;
    property MatchFuzzyDash: WordBool read Get_MatchFuzzyDash write Set_MatchFuzzyDash;
    property MatchFuzzyIterationMark: WordBool read Get_MatchFuzzyIterationMark write Set_MatchFuzzyIterationMark;
    property MatchFuzzyKanji: WordBool read Get_MatchFuzzyKanji write Set_MatchFuzzyKanji;
    property MatchFuzzyOldKana: WordBool read Get_MatchFuzzyOldKana write Set_MatchFuzzyOldKana;
    property MatchFuzzyProlongedSoundMark: WordBool read Get_MatchFuzzyProlongedSoundMark write Set_MatchFuzzyProlongedSoundMark;
    property MatchFuzzyDZ: WordBool read Get_MatchFuzzyDZ write Set_MatchFuzzyDZ;
    property MatchFuzzyBV: WordBool read Get_MatchFuzzyBV write Set_MatchFuzzyBV;
    property MatchFuzzyTC: WordBool read Get_MatchFuzzyTC write Set_MatchFuzzyTC;
    property MatchFuzzyHF: WordBool read Get_MatchFuzzyHF write Set_MatchFuzzyHF;
    property MatchFuzzyZJ: WordBool read Get_MatchFuzzyZJ write Set_MatchFuzzyZJ;
    property MatchFuzzyAY: WordBool read Get_MatchFuzzyAY write Set_MatchFuzzyAY;
    property MatchFuzzyKiKu: WordBool read Get_MatchFuzzyKiKu write Set_MatchFuzzyKiKu;
    property MatchFuzzyPunctuation: WordBool read Get_MatchFuzzyPunctuation write Set_MatchFuzzyPunctuation;
    property MatchFuzzySpace: WordBool read Get_MatchFuzzySpace write Set_MatchFuzzySpace;
    property ApplyFarEastFontsToAscii: WordBool read Get_ApplyFarEastFontsToAscii write Set_ApplyFarEastFontsToAscii;
    property ConvertHighAnsiToFarEast: WordBool read Get_ConvertHighAnsiToFarEast write Set_ConvertHighAnsiToFarEast;
    property PrintOddPagesInAscendingOrder: WordBool read Get_PrintOddPagesInAscendingOrder write Set_PrintOddPagesInAscendingOrder;
    property PrintEvenPagesInAscendingOrder: WordBool read Get_PrintEvenPagesInAscendingOrder write Set_PrintEvenPagesInAscendingOrder;
    property DefaultBorderColorIndex: WdColorIndex read Get_DefaultBorderColorIndex write Set_DefaultBorderColorIndex;
    property EnableMisusedWordsDictionary: WordBool read Get_EnableMisusedWordsDictionary write Set_EnableMisusedWordsDictionary;
    property AllowCombinedAuxiliaryForms: WordBool read Get_AllowCombinedAuxiliaryForms write Set_AllowCombinedAuxiliaryForms;
    property HangulHanjaFastConversion: WordBool read Get_HangulHanjaFastConversion write Set_HangulHanjaFastConversion;
    property CheckHangulEndings: WordBool read Get_CheckHangulEndings write Set_CheckHangulEndings;
    property EnableHangulHanjaRecentOrdering: WordBool read Get_EnableHangulHanjaRecentOrdering write Set_EnableHangulHanjaRecentOrdering;
    property MultipleWordConversionsMode: WdMultipleWordConversionsMode read Get_MultipleWordConversionsMode write Set_MultipleWordConversionsMode;
    property DefaultBorderColor: WdColor read Get_DefaultBorderColor write Set_DefaultBorderColor;
    property AllowPixelUnits: WordBool read Get_AllowPixelUnits write Set_AllowPixelUnits;
    property UseCharacterUnit: WordBool read Get_UseCharacterUnit write Set_UseCharacterUnit;
    property AllowCompoundNounProcessing: WordBool read Get_AllowCompoundNounProcessing write Set_AllowCompoundNounProcessing;
    property AutoKeyboardSwitching: WordBool read Get_AutoKeyboardSwitching write Set_AutoKeyboardSwitching;
    property DocumentViewDirection: WdDocumentViewDirection read Get_DocumentViewDirection write Set_DocumentViewDirection;
    property ArabicNumeral: WdArabicNumeral read Get_ArabicNumeral write Set_ArabicNumeral;
    property MonthNames: WdMonthNames read Get_MonthNames write Set_MonthNames;
    property CursorMovement: WdCursorMovement read Get_CursorMovement write Set_CursorMovement;
    property VisualSelection: WdVisualSelection read Get_VisualSelection write Set_VisualSelection;
    property ShowDiacritics: WordBool read Get_ShowDiacritics write Set_ShowDiacritics;
    property ShowControlCharacters: WordBool read Get_ShowControlCharacters write Set_ShowControlCharacters;
    property AddControlCharacters: WordBool read Get_AddControlCharacters write Set_AddControlCharacters;
    property AddBiDirectionalMarksWhenSavingTextFile: WordBool read Get_AddBiDirectionalMarksWhenSavingTextFile write Set_AddBiDirectionalMarksWhenSavingTextFile;
    property StrictInitialAlefHamza: WordBool read Get_StrictInitialAlefHamza write Set_StrictInitialAlefHamza;
    property StrictFinalYaa: WordBool read Get_StrictFinalYaa write Set_StrictFinalYaa;
    property HebrewMode: WdHebSpellStart read Get_HebrewMode write Set_HebrewMode;
    property ArabicMode: WdAraSpeller read Get_ArabicMode write Set_ArabicMode;
    property AllowClickAndTypeMouse: WordBool read Get_AllowClickAndTypeMouse write Set_AllowClickAndTypeMouse;
    property UseGermanSpellingReform: WordBool read Get_UseGermanSpellingReform write Set_UseGermanSpellingReform;
    property InterpretHighAnsi: WdHighAnsiText read Get_InterpretHighAnsi write Set_InterpretHighAnsi;
    property AddHebDoubleQuote: WordBool read Get_AddHebDoubleQuote write Set_AddHebDoubleQuote;
    property UseDiffDiacColor: WordBool read Get_UseDiffDiacColor write Set_UseDiffDiacColor;
    property DiacriticColorVal: WdColor read Get_DiacriticColorVal write Set_DiacriticColorVal;
    property OptimizeForWord97byDefault: WordBool read Get_OptimizeForWord97byDefault write Set_OptimizeForWord97byDefault;
    property LocalNetworkFile: WordBool read Get_LocalNetworkFile write Set_LocalNetworkFile;
    property TypeNReplace: WordBool read Get_TypeNReplace write Set_TypeNReplace;
    property SequenceCheck: WordBool read Get_SequenceCheck write Set_SequenceCheck;
    property BackgroundOpen: WordBool read Get_BackgroundOpen write Set_BackgroundOpen;
    property DisableFeaturesbyDefault: WordBool read Get_DisableFeaturesbyDefault write Set_DisableFeaturesbyDefault;
    property PasteAdjustWordSpacing: WordBool read Get_PasteAdjustWordSpacing write Set_PasteAdjustWordSpacing;
    property PasteAdjustParagraphSpacing: WordBool read Get_PasteAdjustParagraphSpacing write Set_PasteAdjustParagraphSpacing;
    property PasteAdjustTableFormatting: WordBool read Get_PasteAdjustTableFormatting write Set_PasteAdjustTableFormatting;
    property PasteSmartStyleBehavior: WordBool read Get_PasteSmartStyleBehavior write Set_PasteSmartStyleBehavior;
    property PasteMergeFromPPT: WordBool read Get_PasteMergeFromPPT write Set_PasteMergeFromPPT;
    property PasteMergeFromXL: WordBool read Get_PasteMergeFromXL write Set_PasteMergeFromXL;
    property CtrlClickHyperlinkToOpen: WordBool read Get_CtrlClickHyperlinkToOpen write Set_CtrlClickHyperlinkToOpen;
    property PictureWrapType: WdWrapTypeMerged read Get_PictureWrapType write Set_PictureWrapType;
    property DisableFeaturesIntroducedAfterbyDefault: WdDisableFeaturesIntroducedAfter read Get_DisableFeaturesIntroducedAfterbyDefault write Set_DisableFeaturesIntroducedAfterbyDefault;
    property PasteSmartCutPaste: WordBool read Get_PasteSmartCutPaste write Set_PasteSmartCutPaste;
    property DisplayPasteOptions: WordBool read Get_DisplayPasteOptions write Set_DisplayPasteOptions;
    property PromptUpdateStyle: WordBool read Get_PromptUpdateStyle write Set_PromptUpdateStyle;
    property DefaultEPostageApp: WideString read Get_DefaultEPostageApp write Set_DefaultEPostageApp;
    property DefaultTextEncoding: MsoEncoding read Get_DefaultTextEncoding write Set_DefaultTextEncoding;
    property LabelSmartTags: WordBool read Get_LabelSmartTags write Set_LabelSmartTags;
    property DisplaySmartTagButtons: WordBool read Get_DisplaySmartTagButtons write Set_DisplaySmartTagButtons;
    property WarnBeforeSavingPrintingSendingMarkup: WordBool read Get_WarnBeforeSavingPrintingSendingMarkup write Set_WarnBeforeSavingPrintingSendingMarkup;
    property StoreRSIDOnSave: WordBool read Get_StoreRSIDOnSave write Set_StoreRSIDOnSave;
    property ShowFormatError: WordBool read Get_ShowFormatError write Set_ShowFormatError;
    property FormatScanning: WordBool read Get_FormatScanning write Set_FormatScanning;
    property PasteMergeLists: WordBool read Get_PasteMergeLists write Set_PasteMergeLists;
    property AutoCreateNewDrawings: WordBool read Get_AutoCreateNewDrawings write Set_AutoCreateNewDrawings;
    property SmartParaSelection: WordBool read Get_SmartParaSelection write Set_SmartParaSelection;
    property RevisionsBalloonPrintOrientation: WdRevisionsBalloonPrintOrientation read Get_RevisionsBalloonPrintOrientation write Set_RevisionsBalloonPrintOrientation;
    property CommentsColor: WdColorIndex read Get_CommentsColor write Set_CommentsColor;
  end;

// *********************************************************************//
// DispIntf:  OptionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209B7-0000-0000-C000-000000000046}
// *********************************************************************//
  OptionsDisp = dispinterface
    ['{000209B7-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property AllowAccentedUppercase: WordBool dispid 1;
    property WPHelp: WordBool dispid 17;
    property WPDocNavKeys: WordBool dispid 18;
    property Pagination: WordBool dispid 19;
    property BlueScreen: WordBool dispid 20;
    property EnableSound: WordBool dispid 21;
    property ConfirmConversions: WordBool dispid 22;
    property UpdateLinksAtOpen: WordBool dispid 23;
    property SendMailAttach: WordBool dispid 24;
    property MeasurementUnit: WdMeasurementUnits dispid 26;
    property ButtonFieldClicks: Integer dispid 27;
    property ShortMenuNames: WordBool dispid 28;
    property RTFInClipboard: WordBool dispid 29;
    property UpdateFieldsAtPrint: WordBool dispid 30;
    property PrintProperties: WordBool dispid 31;
    property PrintFieldCodes: WordBool dispid 32;
    property PrintComments: WordBool dispid 33;
    property PrintHiddenText: WordBool dispid 34;
    property EnvelopeFeederInstalled: WordBool readonly dispid 35;
    property UpdateLinksAtPrint: WordBool dispid 36;
    property PrintBackground: WordBool dispid 37;
    property PrintDrawingObjects: WordBool dispid 38;
    property DefaultTray: WideString dispid 39;
    property DefaultTrayID: Integer dispid 40;
    property CreateBackup: WordBool dispid 41;
    property AllowFastSave: WordBool dispid 42;
    property SavePropertiesPrompt: WordBool dispid 43;
    property SaveNormalPrompt: WordBool dispid 44;
    property SaveInterval: Integer dispid 45;
    property BackgroundSave: WordBool dispid 46;
    property InsertedTextMark: WdInsertedTextMark dispid 57;
    property DeletedTextMark: WdDeletedTextMark dispid 58;
    property RevisedLinesMark: WdRevisedLinesMark dispid 59;
    property InsertedTextColor: WdColorIndex dispid 60;
    property DeletedTextColor: WdColorIndex dispid 61;
    property RevisedLinesColor: WdColorIndex dispid 62;
    property DefaultFilePath[Path: WdDefaultFilePath]: WideString dispid 65;
    property Overtype: WordBool dispid 66;
    property ReplaceSelection: WordBool dispid 67;
    property AllowDragAndDrop: WordBool dispid 68;
    property AutoWordSelection: WordBool dispid 69;
    property INSKeyForPaste: WordBool dispid 70;
    property SmartCutPaste: WordBool dispid 71;
    property TabIndentKey: WordBool dispid 72;
    property PictureEditor: WideString dispid 73;
    property AnimateScreenMovements: WordBool dispid 74;
    property VirusProtection: WordBool dispid 75;
    property RevisedPropertiesMark: WdRevisedPropertiesMark dispid 76;
    property RevisedPropertiesColor: WdColorIndex dispid 77;
    property SnapToGrid: WordBool dispid 79;
    property SnapToShapes: WordBool dispid 80;
    property GridDistanceHorizontal: Single dispid 81;
    property GridDistanceVertical: Single dispid 82;
    property GridOriginHorizontal: Single dispid 83;
    property GridOriginVertical: Single dispid 84;
    property InlineConversion: WordBool dispid 86;
    property IMEAutomaticControl: WordBool dispid 87;
    property AutoFormatApplyHeadings: WordBool dispid 250;
    property AutoFormatApplyLists: WordBool dispid 251;
    property AutoFormatApplyBulletedLists: WordBool dispid 252;
    property AutoFormatApplyOtherParas: WordBool dispid 253;
    property AutoFormatReplaceQuotes: WordBool dispid 254;
    property AutoFormatReplaceSymbols: WordBool dispid 255;
    property AutoFormatReplaceOrdinals: WordBool dispid 256;
    property AutoFormatReplaceFractions: WordBool dispid 257;
    property AutoFormatReplacePlainTextEmphasis: WordBool dispid 258;
    property AutoFormatPreserveStyles: WordBool dispid 259;
    property AutoFormatAsYouTypeApplyHeadings: WordBool dispid 260;
    property AutoFormatAsYouTypeApplyBorders: WordBool dispid 261;
    property AutoFormatAsYouTypeApplyBulletedLists: WordBool dispid 262;
    property AutoFormatAsYouTypeApplyNumberedLists: WordBool dispid 263;
    property AutoFormatAsYouTypeReplaceQuotes: WordBool dispid 264;
    property AutoFormatAsYouTypeReplaceSymbols: WordBool dispid 265;
    property AutoFormatAsYouTypeReplaceOrdinals: WordBool dispid 266;
    property AutoFormatAsYouTypeReplaceFractions: WordBool dispid 267;
    property AutoFormatAsYouTypeReplacePlainTextEmphasis: WordBool dispid 268;
    property AutoFormatAsYouTypeFormatListItemBeginning: WordBool dispid 269;
    property AutoFormatAsYouTypeDefineStyles: WordBool dispid 270;
    property AutoFormatPlainTextWordMail: WordBool dispid 271;
    property AutoFormatAsYouTypeReplaceHyperlinks: WordBool dispid 272;
    property AutoFormatReplaceHyperlinks: WordBool dispid 273;
    property DefaultHighlightColorIndex: WdColorIndex dispid 274;
    property DefaultBorderLineStyle: WdLineStyle dispid 275;
    property CheckSpellingAsYouType: WordBool dispid 276;
    property CheckGrammarAsYouType: WordBool dispid 277;
    property IgnoreInternetAndFileAddresses: WordBool dispid 278;
    property ShowReadabilityStatistics: WordBool dispid 279;
    property IgnoreUppercase: WordBool dispid 280;
    property IgnoreMixedDigits: WordBool dispid 281;
    property SuggestFromMainDictionaryOnly: WordBool dispid 282;
    property SuggestSpellingCorrections: WordBool dispid 283;
    property DefaultBorderLineWidth: WdLineWidth dispid 284;
    property CheckGrammarWithSpelling: WordBool dispid 285;
    property DefaultOpenFormat: WdOpenFormat dispid 286;
    property PrintDraft: WordBool dispid 287;
    property PrintReverse: WordBool dispid 288;
    property MapPaperSize: WordBool dispid 289;
    property AutoFormatAsYouTypeApplyTables: WordBool dispid 290;
    property AutoFormatApplyFirstIndents: WordBool dispid 291;
    property AutoFormatMatchParentheses: WordBool dispid 294;
    property AutoFormatReplaceFarEastDashes: WordBool dispid 295;
    property AutoFormatDeleteAutoSpaces: WordBool dispid 296;
    property AutoFormatAsYouTypeApplyFirstIndents: WordBool dispid 297;
    property AutoFormatAsYouTypeApplyDates: WordBool dispid 298;
    property AutoFormatAsYouTypeApplyClosings: WordBool dispid 299;
    property AutoFormatAsYouTypeMatchParentheses: WordBool dispid 300;
    property AutoFormatAsYouTypeReplaceFarEastDashes: WordBool dispid 301;
    property AutoFormatAsYouTypeDeleteAutoSpaces: WordBool dispid 302;
    property AutoFormatAsYouTypeInsertClosings: WordBool dispid 303;
    property AutoFormatAsYouTypeAutoLetterWizard: WordBool dispid 304;
    property AutoFormatAsYouTypeInsertOvers: WordBool dispid 305;
    property DisplayGridLines: WordBool dispid 306;
    property MatchFuzzyCase: WordBool dispid 309;
    property MatchFuzzyByte: WordBool dispid 310;
    property MatchFuzzyHiragana: WordBool dispid 311;
    property MatchFuzzySmallKana: WordBool dispid 312;
    property MatchFuzzyDash: WordBool dispid 313;
    property MatchFuzzyIterationMark: WordBool dispid 314;
    property MatchFuzzyKanji: WordBool dispid 315;
    property MatchFuzzyOldKana: WordBool dispid 316;
    property MatchFuzzyProlongedSoundMark: WordBool dispid 317;
    property MatchFuzzyDZ: WordBool dispid 318;
    property MatchFuzzyBV: WordBool dispid 319;
    property MatchFuzzyTC: WordBool dispid 320;
    property MatchFuzzyHF: WordBool dispid 321;
    property MatchFuzzyZJ: WordBool dispid 322;
    property MatchFuzzyAY: WordBool dispid 323;
    property MatchFuzzyKiKu: WordBool dispid 324;
    property MatchFuzzyPunctuation: WordBool dispid 325;
    property MatchFuzzySpace: WordBool dispid 326;
    property ApplyFarEastFontsToAscii: WordBool dispid 327;
    property ConvertHighAnsiToFarEast: WordBool dispid 328;
    property PrintOddPagesInAscendingOrder: WordBool dispid 330;
    property PrintEvenPagesInAscendingOrder: WordBool dispid 331;
    property DefaultBorderColorIndex: WdColorIndex dispid 337;
    property EnableMisusedWordsDictionary: WordBool dispid 338;
    property AllowCombinedAuxiliaryForms: WordBool dispid 339;
    property HangulHanjaFastConversion: WordBool dispid 340;
    property CheckHangulEndings: WordBool dispid 341;
    property EnableHangulHanjaRecentOrdering: WordBool dispid 342;
    property MultipleWordConversionsMode: WdMultipleWordConversionsMode dispid 343;
    procedure SetWPHelpOptions(var CommandKeyHelp: OleVariant; var DocNavigationKeys: OleVariant; 
                               var MouseSimulation: OleVariant; var DemoGuidance: OleVariant; 
                               var DemoSpeed: OleVariant; var HelpType: OleVariant); dispid 333;
    property DefaultBorderColor: WdColor dispid 344;
    property AllowPixelUnits: WordBool dispid 345;
    property UseCharacterUnit: WordBool dispid 346;
    property AllowCompoundNounProcessing: WordBool dispid 347;
    property AutoKeyboardSwitching: WordBool dispid 399;
    property DocumentViewDirection: WdDocumentViewDirection dispid 400;
    property ArabicNumeral: WdArabicNumeral dispid 401;
    property MonthNames: WdMonthNames dispid 402;
    property CursorMovement: WdCursorMovement dispid 403;
    property VisualSelection: WdVisualSelection dispid 404;
    property ShowDiacritics: WordBool dispid 405;
    property ShowControlCharacters: WordBool dispid 406;
    property AddControlCharacters: WordBool dispid 407;
    property AddBiDirectionalMarksWhenSavingTextFile: WordBool dispid 408;
    property StrictInitialAlefHamza: WordBool dispid 409;
    property StrictFinalYaa: WordBool dispid 410;
    property HebrewMode: WdHebSpellStart dispid 411;
    property ArabicMode: WdAraSpeller dispid 412;
    property AllowClickAndTypeMouse: WordBool dispid 413;
    property UseGermanSpellingReform: WordBool dispid 415;
    property InterpretHighAnsi: WdHighAnsiText dispid 418;
    property AddHebDoubleQuote: WordBool dispid 419;
    property UseDiffDiacColor: WordBool dispid 420;
    property DiacriticColorVal: WdColor dispid 421;
    property OptimizeForWord97byDefault: WordBool dispid 423;
    property LocalNetworkFile: WordBool dispid 424;
    property TypeNReplace: WordBool dispid 425;
    property SequenceCheck: WordBool dispid 426;
    property BackgroundOpen: WordBool dispid 427;
    property DisableFeaturesbyDefault: WordBool dispid 428;
    property PasteAdjustWordSpacing: WordBool dispid 429;
    property PasteAdjustParagraphSpacing: WordBool dispid 430;
    property PasteAdjustTableFormatting: WordBool dispid 431;
    property PasteSmartStyleBehavior: WordBool dispid 432;
    property PasteMergeFromPPT: WordBool dispid 433;
    property PasteMergeFromXL: WordBool dispid 434;
    property CtrlClickHyperlinkToOpen: WordBool dispid 435;
    property PictureWrapType: WdWrapTypeMerged dispid 436;
    property DisableFeaturesIntroducedAfterbyDefault: WdDisableFeaturesIntroducedAfter dispid 437;
    property PasteSmartCutPaste: WordBool dispid 438;
    property DisplayPasteOptions: WordBool dispid 439;
    property PromptUpdateStyle: WordBool dispid 441;
    property DefaultEPostageApp: WideString dispid 442;
    property DefaultTextEncoding: MsoEncoding dispid 443;
    property LabelSmartTags: WordBool dispid 444;
    property DisplaySmartTagButtons: WordBool dispid 445;
    property WarnBeforeSavingPrintingSendingMarkup: WordBool dispid 446;
    property StoreRSIDOnSave: WordBool dispid 447;
    property ShowFormatError: WordBool dispid 448;
    property FormatScanning: WordBool dispid 449;
    property PasteMergeLists: WordBool dispid 450;
    property AutoCreateNewDrawings: WordBool dispid 451;
    property SmartParaSelection: WordBool dispid 452;
    property RevisionsBalloonPrintOrientation: WdRevisionsBalloonPrintOrientation dispid 453;
    property CommentsColor: WdColorIndex dispid 454;
  end;

// *********************************************************************//
// Interface: MailMessage
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209BA-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMessage = interface(IDispatch)
    ['{000209BA-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    procedure CheckName; safecall;
    procedure Delete; safecall;
    procedure DisplayMoveDialog; safecall;
    procedure DisplayProperties; safecall;
    procedure DisplaySelectNamesDialog; safecall;
    procedure Forward; safecall;
    procedure GoToNext; safecall;
    procedure GoToPrevious; safecall;
    procedure Reply; safecall;
    procedure ReplyAll; safecall;
    procedure ToggleHeader; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  MailMessageDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209BA-0000-0000-C000-000000000046}
// *********************************************************************//
  MailMessageDisp = dispinterface
    ['{000209BA-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    procedure CheckName; dispid 334;
    procedure Delete; dispid 335;
    procedure DisplayMoveDialog; dispid 336;
    procedure DisplayProperties; dispid 337;
    procedure DisplaySelectNamesDialog; dispid 338;
    procedure Forward; dispid 339;
    procedure GoToNext; dispid 340;
    procedure GoToPrevious; dispid 341;
    procedure Reply; dispid 342;
    procedure ReplyAll; dispid 343;
    procedure ToggleHeader; dispid 344;
  end;

// *********************************************************************//
// Interface: ProofreadingErrors
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209BB-0000-0000-C000-000000000046}
// *********************************************************************//
  ProofreadingErrors = interface(IDispatch)
    ['{000209BB-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_type_: WdProofreadingErrorType; safecall;
    function Item(Index: Integer): Range; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property type_: WdProofreadingErrorType read Get_type_;
  end;

// *********************************************************************//
// DispIntf:  ProofreadingErrorsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209BB-0000-0000-C000-000000000046}
// *********************************************************************//
  ProofreadingErrorsDisp = dispinterface
    ['{000209BB-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    property type_: WdProofreadingErrorType readonly dispid 2;
    function Item(Index: Integer): Range; dispid 0;
  end;

// *********************************************************************//
// Interface: Mailer
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209BD-0000-0000-C000-000000000046}
// *********************************************************************//
  Mailer = interface(IDispatch)
    ['{000209BD-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_BCCRecipients: OleVariant; safecall;
    procedure Set_BCCRecipients(var prop: OleVariant); safecall;
    function Get_CCRecipients: OleVariant; safecall;
    procedure Set_CCRecipients(var prop: OleVariant); safecall;
    function Get_Recipients: OleVariant; safecall;
    procedure Set_Recipients(var prop: OleVariant); safecall;
    function Get_Enclosures: OleVariant; safecall;
    procedure Set_Enclosures(var prop: OleVariant); safecall;
    function Get_Sender: WideString; safecall;
    function Get_SendDateTime: TDateTime; safecall;
    function Get_Received: WordBool; safecall;
    function Get_Subject: WideString; safecall;
    procedure Set_Subject(const prop: WideString); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Sender: WideString read Get_Sender;
    property SendDateTime: TDateTime read Get_SendDateTime;
    property Received: WordBool read Get_Received;
    property Subject: WideString read Get_Subject write Set_Subject;
  end;

// *********************************************************************//
// DispIntf:  MailerDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209BD-0000-0000-C000-000000000046}
// *********************************************************************//
  MailerDisp = dispinterface
    ['{000209BD-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function BCCRecipients: OleVariant; dispid 100;
    function CCRecipients: OleVariant; dispid 101;
    function Recipients: OleVariant; dispid 102;
    function Enclosures: OleVariant; dispid 103;
    property Sender: WideString readonly dispid 104;
    property SendDateTime: TDateTime readonly dispid 105;
    property Received: WordBool readonly dispid 106;
    property Subject: WideString dispid 107;
  end;

// *********************************************************************//
// Interface: WrapFormat
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C3-0000-0000-C000-000000000046}
// *********************************************************************//
  WrapFormat = interface(IDispatch)
    ['{000209C3-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_type_: WdWrapType; safecall;
    procedure Set_type_(prop: WdWrapType); safecall;
    function Get_Side: WdWrapSideType; safecall;
    procedure Set_Side(prop: WdWrapSideType); safecall;
    function Get_DistanceTop: Single; safecall;
    procedure Set_DistanceTop(prop: Single); safecall;
    function Get_DistanceBottom: Single; safecall;
    procedure Set_DistanceBottom(prop: Single); safecall;
    function Get_DistanceLeft: Single; safecall;
    procedure Set_DistanceLeft(prop: Single); safecall;
    function Get_DistanceRight: Single; safecall;
    procedure Set_DistanceRight(prop: Single); safecall;
    function Get_AllowOverlap: Integer; safecall;
    procedure Set_AllowOverlap(prop: Integer); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property type_: WdWrapType read Get_type_ write Set_type_;
    property Side: WdWrapSideType read Get_Side write Set_Side;
    property DistanceTop: Single read Get_DistanceTop write Set_DistanceTop;
    property DistanceBottom: Single read Get_DistanceBottom write Set_DistanceBottom;
    property DistanceLeft: Single read Get_DistanceLeft write Set_DistanceLeft;
    property DistanceRight: Single read Get_DistanceRight write Set_DistanceRight;
    property AllowOverlap: Integer read Get_AllowOverlap write Set_AllowOverlap;
  end;

// *********************************************************************//
// DispIntf:  WrapFormatDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C3-0000-0000-C000-000000000046}
// *********************************************************************//
  WrapFormatDisp = dispinterface
    ['{000209C3-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property type_: WdWrapType dispid 100;
    property Side: WdWrapSideType dispid 101;
    property DistanceTop: Single dispid 102;
    property DistanceBottom: Single dispid 103;
    property DistanceLeft: Single dispid 104;
    property DistanceRight: Single dispid 105;
    property AllowOverlap: Integer dispid 106;
  end;

// *********************************************************************//
// Interface: HangulAndAlphabetExceptions
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209D1-0000-0000-C000-000000000046}
// *********************************************************************//
  HangulAndAlphabetExceptions = interface(IDispatch)
    ['{000209D1-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): HangulAndAlphabetException; safecall;
    function Add(const Name: WideString): HangulAndAlphabetException; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  HangulAndAlphabetExceptionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209D1-0000-0000-C000-000000000046}
// *********************************************************************//
  HangulAndAlphabetExceptionsDisp = dispinterface
    ['{000209D1-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): HangulAndAlphabetException; dispid 0;
    function Add(const Name: WideString): HangulAndAlphabetException; dispid 101;
  end;

// *********************************************************************//
// Interface: HangulAndAlphabetException
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209D2-0000-0000-C000-000000000046}
// *********************************************************************//
  HangulAndAlphabetException = interface(IDispatch)
    ['{000209D2-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Index: Integer; safecall;
    function Get_Name: WideString; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Index: Integer read Get_Index;
    property Name: WideString read Get_Name;
  end;

// *********************************************************************//
// DispIntf:  HangulAndAlphabetExceptionDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209D2-0000-0000-C000-000000000046}
// *********************************************************************//
  HangulAndAlphabetExceptionDisp = dispinterface
    ['{000209D2-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Index: Integer readonly dispid 1;
    property Name: WideString readonly dispid 2;
    procedure Delete; dispid 101;
  end;

// *********************************************************************//
// Interface: Adjustments
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C4-0000-0000-C000-000000000046}
// *********************************************************************//
  Adjustments = interface(IDispatch)
    ['{000209C4-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get_Item(Index: Integer): Single; safecall;
    procedure Set_Item(Index: Integer; prop: Single); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property Item[Index: Integer]: Single read Get_Item write Set_Item; default;
  end;

// *********************************************************************//
// DispIntf:  AdjustmentsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C4-0000-0000-C000-000000000046}
// *********************************************************************//
  AdjustmentsDisp = dispinterface
    ['{000209C4-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1;
    property Count: Integer readonly dispid 2;
    property Item[Index: Integer]: Single dispid 0; default;
  end;

// *********************************************************************//
// Interface: CalloutFormat
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C5-0000-0000-C000-000000000046}
// *********************************************************************//
  CalloutFormat = interface(IDispatch)
    ['{000209C5-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Accent: MsoTriState; safecall;
    procedure Set_Accent(prop: MsoTriState); safecall;
    function Get_Angle: MsoCalloutAngleType; safecall;
    procedure Set_Angle(prop: MsoCalloutAngleType); safecall;
    function Get_AutoAttach: MsoTriState; safecall;
    procedure Set_AutoAttach(prop: MsoTriState); safecall;
    function Get_AutoLength: MsoTriState; safecall;
    function Get_Border: MsoTriState; safecall;
    procedure Set_Border(prop: MsoTriState); safecall;
    function Get_Drop: Single; safecall;
    function Get_DropType: MsoCalloutDropType; safecall;
    function Get_Gap: Single; safecall;
    procedure Set_Gap(prop: Single); safecall;
    function Get_Length: Single; safecall;
    function Get_type_: MsoCalloutType; safecall;
    procedure Set_type_(prop: MsoCalloutType); safecall;
    procedure AutomaticLength; safecall;
    procedure CustomDrop(Drop: Single); safecall;
    procedure CustomLength(Length: Single); safecall;
    procedure PresetDrop(DropType: MsoCalloutDropType); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Accent: MsoTriState read Get_Accent write Set_Accent;
    property Angle: MsoCalloutAngleType read Get_Angle write Set_Angle;
    property AutoAttach: MsoTriState read Get_AutoAttach write Set_AutoAttach;
    property AutoLength: MsoTriState read Get_AutoLength;
    property Border: MsoTriState read Get_Border write Set_Border;
    property Drop: Single read Get_Drop;
    property DropType: MsoCalloutDropType read Get_DropType;
    property Gap: Single read Get_Gap write Set_Gap;
    property Length: Single read Get_Length;
    property type_: MsoCalloutType read Get_type_ write Set_type_;
  end;

// *********************************************************************//
// DispIntf:  CalloutFormatDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C5-0000-0000-C000-000000000046}
// *********************************************************************//
  CalloutFormatDisp = dispinterface
    ['{000209C5-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1;
    property Accent: MsoTriState dispid 100;
    property Angle: MsoCalloutAngleType dispid 101;
    property AutoAttach: MsoTriState dispid 102;
    property AutoLength: MsoTriState readonly dispid 103;
    property Border: MsoTriState dispid 104;
    property Drop: Single readonly dispid 105;
    property DropType: MsoCalloutDropType readonly dispid 106;
    property Gap: Single dispid 107;
    property Length: Single readonly dispid 108;
    property type_: MsoCalloutType dispid 109;
    procedure AutomaticLength; dispid 10;
    procedure CustomDrop(Drop: Single); dispid 11;
    procedure CustomLength(Length: Single); dispid 12;
    procedure PresetDrop(DropType: MsoCalloutDropType); dispid 13;
  end;

// *********************************************************************//
// Interface: ColorFormat
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C6-0000-0000-C000-000000000046}
// *********************************************************************//
  ColorFormat = interface(IDispatch)
    ['{000209C6-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_RGB: Integer; safecall;
    procedure Set_RGB(prop: Integer); safecall;
    function Get_SchemeColor: Integer; safecall;
    procedure Set_SchemeColor(prop: Integer); safecall;
    function Get_type_: MsoColorType; safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const prop: WideString); safecall;
    function Get_TintAndShade: Single; safecall;
    procedure Set_TintAndShade(prop: Single); safecall;
    function Get_OverPrint: MsoTriState; safecall;
    procedure Set_OverPrint(prop: MsoTriState); safecall;
    function Get_Ink(Index: Integer): Single; safecall;
    procedure Set_Ink(Index: Integer; prop: Single); safecall;
    function Get_Cyan: Integer; safecall;
    procedure Set_Cyan(prop: Integer); safecall;
    function Get_Magenta: Integer; safecall;
    procedure Set_Magenta(prop: Integer); safecall;
    function Get_Yellow: Integer; safecall;
    procedure Set_Yellow(prop: Integer); safecall;
    function Get_Black: Integer; safecall;
    procedure Set_Black(prop: Integer); safecall;
    procedure SetCMYK(Cyan: Integer; Magenta: Integer; Yellow: Integer; Black: Integer); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property RGB: Integer read Get_RGB write Set_RGB;
    property SchemeColor: Integer read Get_SchemeColor write Set_SchemeColor;
    property type_: MsoColorType read Get_type_;
    property Name: WideString read Get_Name write Set_Name;
    property TintAndShade: Single read Get_TintAndShade write Set_TintAndShade;
    property OverPrint: MsoTriState read Get_OverPrint write Set_OverPrint;
    property Ink[Index: Integer]: Single read Get_Ink write Set_Ink;
    property Cyan: Integer read Get_Cyan write Set_Cyan;
    property Magenta: Integer read Get_Magenta write Set_Magenta;
    property Yellow: Integer read Get_Yellow write Set_Yellow;
    property Black: Integer read Get_Black write Set_Black;
  end;

// *********************************************************************//
// DispIntf:  ColorFormatDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C6-0000-0000-C000-000000000046}
// *********************************************************************//
  ColorFormatDisp = dispinterface
    ['{000209C6-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1;
    property RGB: Integer dispid 0;
    property SchemeColor: Integer dispid 100;
    property type_: MsoColorType readonly dispid 101;
    property Name: WideString dispid 102;
    property TintAndShade: Single dispid 103;
    property OverPrint: MsoTriState dispid 104;
    property Ink[Index: Integer]: Single dispid 105;
    property Cyan: Integer dispid 106;
    property Magenta: Integer dispid 107;
    property Yellow: Integer dispid 108;
    property Black: Integer dispid 109;
    procedure SetCMYK(Cyan: Integer; Magenta: Integer; Yellow: Integer; Black: Integer); dispid 110;
  end;

// *********************************************************************//
// Interface: ConnectorFormat
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C7-0000-0000-C000-000000000046}
// *********************************************************************//
  ConnectorFormat = interface(IDispatch)
    ['{000209C7-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_BeginConnected: MsoTriState; safecall;
    function Get_BeginConnectedShape: Shape; safecall;
    function Get_BeginConnectionSite: Integer; safecall;
    function Get_EndConnected: MsoTriState; safecall;
    function Get_EndConnectedShape: Shape; safecall;
    function Get_EndConnectionSite: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_type_: MsoConnectorType; safecall;
    procedure Set_type_(prop: MsoConnectorType); safecall;
    procedure BeginConnect(out ConnectedShape: Shape; ConnectionSite: Integer); safecall;
    procedure BeginDisconnect; safecall;
    procedure EndConnect(out ConnectedShape: Shape; ConnectionSite: Integer); safecall;
    procedure EndDisconnect; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property BeginConnected: MsoTriState read Get_BeginConnected;
    property BeginConnectedShape: Shape read Get_BeginConnectedShape;
    property BeginConnectionSite: Integer read Get_BeginConnectionSite;
    property EndConnected: MsoTriState read Get_EndConnected;
    property EndConnectedShape: Shape read Get_EndConnectedShape;
    property EndConnectionSite: Integer read Get_EndConnectionSite;
    property Parent: IDispatch read Get_Parent;
    property type_: MsoConnectorType read Get_type_ write Set_type_;
  end;

// *********************************************************************//
// DispIntf:  ConnectorFormatDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C7-0000-0000-C000-000000000046}
// *********************************************************************//
  ConnectorFormatDisp = dispinterface
    ['{000209C7-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property BeginConnected: MsoTriState readonly dispid 100;
    property BeginConnectedShape: Shape readonly dispid 101;
    property BeginConnectionSite: Integer readonly dispid 102;
    property EndConnected: MsoTriState readonly dispid 103;
    property EndConnectedShape: Shape readonly dispid 104;
    property EndConnectionSite: Integer readonly dispid 105;
    property Parent: IDispatch readonly dispid 1;
    property type_: MsoConnectorType dispid 106;
    procedure BeginConnect(out ConnectedShape: Shape; ConnectionSite: Integer); dispid 10;
    procedure BeginDisconnect; dispid 11;
    procedure EndConnect(out ConnectedShape: Shape; ConnectionSite: Integer); dispid 12;
    procedure EndDisconnect; dispid 13;
  end;

// *********************************************************************//
// Interface: FillFormat
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C8-0000-0000-C000-000000000046}
// *********************************************************************//
  FillFormat = interface(IDispatch)
    ['{000209C8-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_BackColor: ColorFormat; safecall;
    function Get_ForeColor: ColorFormat; safecall;
    function Get_GradientColorType: MsoGradientColorType; safecall;
    function Get_GradientDegree: Single; safecall;
    function Get_GradientStyle: MsoGradientStyle; safecall;
    function Get_GradientVariant: Integer; safecall;
    function Get_Pattern: MsoPatternType; safecall;
    function Get_PresetGradientType: MsoPresetGradientType; safecall;
    function Get_PresetTexture: MsoPresetTexture; safecall;
    function Get_TextureName: WideString; safecall;
    function Get_TextureType: MsoTextureType; safecall;
    function Get_Transparency: Single; safecall;
    procedure Set_Transparency(prop: Single); safecall;
    function Get_type_: MsoFillType; safecall;
    function Get_Visible: MsoTriState; safecall;
    procedure Set_Visible(prop: MsoTriState); safecall;
    procedure Background; safecall;
    procedure OneColorGradient(Style: MsoGradientStyle; Variant: Integer; Degree: Single); safecall;
    procedure Patterned(Pattern: MsoPatternType); safecall;
    procedure PresetGradient(Style: MsoGradientStyle; Variant: Integer; 
                             PresetGradientType: MsoPresetGradientType); safecall;
    procedure PresetTextured(PresetTexture: MsoPresetTexture); safecall;
    procedure Solid; safecall;
    procedure TwoColorGradient(Style: MsoGradientStyle; Variant: Integer); safecall;
    procedure UserPicture(const PictureFile: WideString); safecall;
    procedure UserTextured(const TextureFile: WideString); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property BackColor: ColorFormat read Get_BackColor;
    property ForeColor: ColorFormat read Get_ForeColor;
    property GradientColorType: MsoGradientColorType read Get_GradientColorType;
    property GradientDegree: Single read Get_GradientDegree;
    property GradientStyle: MsoGradientStyle read Get_GradientStyle;
    property GradientVariant: Integer read Get_GradientVariant;
    property Pattern: MsoPatternType read Get_Pattern;
    property PresetGradientType: MsoPresetGradientType read Get_PresetGradientType;
    property PresetTexture: MsoPresetTexture read Get_PresetTexture;
    property TextureName: WideString read Get_TextureName;
    property TextureType: MsoTextureType read Get_TextureType;
    property Transparency: Single read Get_Transparency write Set_Transparency;
    property type_: MsoFillType read Get_type_;
    property Visible: MsoTriState read Get_Visible write Set_Visible;
  end;

// *********************************************************************//
// DispIntf:  FillFormatDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C8-0000-0000-C000-000000000046}
// *********************************************************************//
  FillFormatDisp = dispinterface
    ['{000209C8-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1;
    property BackColor: ColorFormat readonly dispid 100;
    property ForeColor: ColorFormat readonly dispid 101;
    property GradientColorType: MsoGradientColorType readonly dispid 102;
    property GradientDegree: Single readonly dispid 103;
    property GradientStyle: MsoGradientStyle readonly dispid 104;
    property GradientVariant: Integer readonly dispid 105;
    property Pattern: MsoPatternType readonly dispid 106;
    property PresetGradientType: MsoPresetGradientType readonly dispid 107;
    property PresetTexture: MsoPresetTexture readonly dispid 108;
    property TextureName: WideString readonly dispid 109;
    property TextureType: MsoTextureType readonly dispid 110;
    property Transparency: Single dispid 111;
    property type_: MsoFillType readonly dispid 112;
    property Visible: MsoTriState dispid 113;
    procedure Background; dispid 10;
    procedure OneColorGradient(Style: MsoGradientStyle; Variant: Integer; Degree: Single); dispid 11;
    procedure Patterned(Pattern: MsoPatternType); dispid 12;
    procedure PresetGradient(Style: MsoGradientStyle; Variant: Integer; 
                             PresetGradientType: MsoPresetGradientType); dispid 13;
    procedure PresetTextured(PresetTexture: MsoPresetTexture); dispid 14;
    procedure Solid; dispid 15;
    procedure TwoColorGradient(Style: MsoGradientStyle; Variant: Integer); dispid 16;
    procedure UserPicture(const PictureFile: WideString); dispid 17;
    procedure UserTextured(const TextureFile: WideString); dispid 18;
  end;

// *********************************************************************//
// Interface: FreeformBuilder
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C9-0000-0000-C000-000000000046}
// *********************************************************************//
  FreeformBuilder = interface(IDispatch)
    ['{000209C9-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    procedure AddNodes(SegmentType: MsoSegmentType; EditingType: MsoEditingType; X1: Single; 
                       Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); safecall;
    function ConvertToShape(var Anchor: OleVariant): Shape; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  FreeformBuilderDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209C9-0000-0000-C000-000000000046}
// *********************************************************************//
  FreeformBuilderDisp = dispinterface
    ['{000209C9-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1;
    procedure AddNodes(SegmentType: MsoSegmentType; EditingType: MsoEditingType; X1: Single; 
                       Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); dispid 10;
    function ConvertToShape(var Anchor: OleVariant): Shape; dispid 11;
  end;

// *********************************************************************//
// Interface: LineFormat
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209CA-0000-0000-C000-000000000046}
// *********************************************************************//
  LineFormat = interface(IDispatch)
    ['{000209CA-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_BackColor: ColorFormat; safecall;
    function Get_BeginArrowheadLength: MsoArrowheadLength; safecall;
    procedure Set_BeginArrowheadLength(prop: MsoArrowheadLength); safecall;
    function Get_BeginArrowheadStyle: MsoArrowheadStyle; safecall;
    procedure Set_BeginArrowheadStyle(prop: MsoArrowheadStyle); safecall;
    function Get_BeginArrowheadWidth: MsoArrowheadWidth; safecall;
    procedure Set_BeginArrowheadWidth(prop: MsoArrowheadWidth); safecall;
    function Get_DashStyle: MsoLineDashStyle; safecall;
    procedure Set_DashStyle(prop: MsoLineDashStyle); safecall;
    function Get_EndArrowheadLength: MsoArrowheadLength; safecall;
    procedure Set_EndArrowheadLength(prop: MsoArrowheadLength); safecall;
    function Get_EndArrowheadStyle: MsoArrowheadStyle; safecall;
    procedure Set_EndArrowheadStyle(prop: MsoArrowheadStyle); safecall;
    function Get_EndArrowheadWidth: MsoArrowheadWidth; safecall;
    procedure Set_EndArrowheadWidth(prop: MsoArrowheadWidth); safecall;
    function Get_ForeColor: ColorFormat; safecall;
    function Get_Pattern: MsoPatternType; safecall;
    procedure Set_Pattern(prop: MsoPatternType); safecall;
    function Get_Style: MsoLineStyle; safecall;
    procedure Set_Style(prop: MsoLineStyle); safecall;
    function Get_Transparency: Single; safecall;
    procedure Set_Transparency(prop: Single); safecall;
    function Get_Visible: MsoTriState; safecall;
    procedure Set_Visible(prop: MsoTriState); safecall;
    function Get_Weight: Single; safecall;
    procedure Set_Weight(prop: Single); safecall;
    function Get_InsetPen: MsoTriState; safecall;
    procedure Set_InsetPen(prop: MsoTriState); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property BackColor: ColorFormat read Get_BackColor;
    property BeginArrowheadLength: MsoArrowheadLength read Get_BeginArrowheadLength write Set_BeginArrowheadLength;
    property BeginArrowheadStyle: MsoArrowheadStyle read Get_BeginArrowheadStyle write Set_BeginArrowheadStyle;
    property BeginArrowheadWidth: MsoArrowheadWidth read Get_BeginArrowheadWidth write Set_BeginArrowheadWidth;
    property DashStyle: MsoLineDashStyle read Get_DashStyle write Set_DashStyle;
    property EndArrowheadLength: MsoArrowheadLength read Get_EndArrowheadLength write Set_EndArrowheadLength;
    property EndArrowheadStyle: MsoArrowheadStyle read Get_EndArrowheadStyle write Set_EndArrowheadStyle;
    property EndArrowheadWidth: MsoArrowheadWidth read Get_EndArrowheadWidth write Set_EndArrowheadWidth;
    property ForeColor: ColorFormat read Get_ForeColor;
    property Pattern: MsoPatternType read Get_Pattern write Set_Pattern;
    property Style: MsoLineStyle read Get_Style write Set_Style;
    property Transparency: Single read Get_Transparency write Set_Transparency;
    property Visible: MsoTriState read Get_Visible write Set_Visible;
    property Weight: Single read Get_Weight write Set_Weight;
    property InsetPen: MsoTriState read Get_InsetPen write Set_InsetPen;
  end;

// *********************************************************************//
// DispIntf:  LineFormatDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209CA-0000-0000-C000-000000000046}
// *********************************************************************//
  LineFormatDisp = dispinterface
    ['{000209CA-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1;
    property BackColor: ColorFormat readonly dispid 100;
    property BeginArrowheadLength: MsoArrowheadLength dispid 101;
    property BeginArrowheadStyle: MsoArrowheadStyle dispid 102;
    property BeginArrowheadWidth: MsoArrowheadWidth dispid 103;
    property DashStyle: MsoLineDashStyle dispid 104;
    property EndArrowheadLength: MsoArrowheadLength dispid 105;
    property EndArrowheadStyle: MsoArrowheadStyle dispid 106;
    property EndArrowheadWidth: MsoArrowheadWidth dispid 107;
    property ForeColor: ColorFormat readonly dispid 108;
    property Pattern: MsoPatternType dispid 109;
    property Style: MsoLineStyle dispid 110;
    property Transparency: Single dispid 111;
    property Visible: MsoTriState dispid 112;
    property Weight: Single dispid 113;
    property InsetPen: MsoTriState dispid 114;
  end;

// *********************************************************************//
// Interface: PictureFormat
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209CB-0000-0000-C000-000000000046}
// *********************************************************************//
  PictureFormat = interface(IDispatch)
    ['{000209CB-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Brightness: Single; safecall;
    procedure Set_Brightness(prop: Single); safecall;
    function Get_ColorType: MsoPictureColorType; safecall;
    procedure Set_ColorType(prop: MsoPictureColorType); safecall;
    function Get_Contrast: Single; safecall;
    procedure Set_Contrast(prop: Single); safecall;
    function Get_CropBottom: Single; safecall;
    procedure Set_CropBottom(prop: Single); safecall;
    function Get_CropLeft: Single; safecall;
    procedure Set_CropLeft(prop: Single); safecall;
    function Get_CropRight: Single; safecall;
    procedure Set_CropRight(prop: Single); safecall;
    function Get_CropTop: Single; safecall;
    procedure Set_CropTop(prop: Single); safecall;
    function Get_TransparencyColor: Integer; safecall;
    procedure Set_TransparencyColor(prop: Integer); safecall;
    function Get_TransparentBackground: MsoTriState; safecall;
    procedure Set_TransparentBackground(prop: MsoTriState); safecall;
    procedure IncrementBrightness(Increment: Single); safecall;
    procedure IncrementContrast(Increment: Single); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Brightness: Single read Get_Brightness write Set_Brightness;
    property ColorType: MsoPictureColorType read Get_ColorType write Set_ColorType;
    property Contrast: Single read Get_Contrast write Set_Contrast;
    property CropBottom: Single read Get_CropBottom write Set_CropBottom;
    property CropLeft: Single read Get_CropLeft write Set_CropLeft;
    property CropRight: Single read Get_CropRight write Set_CropRight;
    property CropTop: Single read Get_CropTop write Set_CropTop;
    property TransparencyColor: Integer read Get_TransparencyColor write Set_TransparencyColor;
    property TransparentBackground: MsoTriState read Get_TransparentBackground write Set_TransparentBackground;
  end;

// *********************************************************************//
// DispIntf:  PictureFormatDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209CB-0000-0000-C000-000000000046}
// *********************************************************************//
  PictureFormatDisp = dispinterface
    ['{000209CB-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1;
    property Brightness: Single dispid 100;
    property ColorType: MsoPictureColorType dispid 101;
    property Contrast: Single dispid 102;
    property CropBottom: Single dispid 103;
    property CropLeft: Single dispid 104;
    property CropRight: Single dispid 105;
    property CropTop: Single dispid 106;
    property TransparencyColor: Integer dispid 107;
    property TransparentBackground: MsoTriState dispid 108;
    procedure IncrementBrightness(Increment: Single); dispid 10;
    procedure IncrementContrast(Increment: Single); dispid 11;
  end;

// *********************************************************************//
// Interface: ShadowFormat
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209CC-0000-0000-C000-000000000046}
// *********************************************************************//
  ShadowFormat = interface(IDispatch)
    ['{000209CC-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_ForeColor: ColorFormat; safecall;
    function Get_Obscured: MsoTriState; safecall;
    procedure Set_Obscured(prop: MsoTriState); safecall;
    function Get_OffsetX: Single; safecall;
    procedure Set_OffsetX(prop: Single); safecall;
    function Get_OffsetY: Single; safecall;
    procedure Set_OffsetY(prop: Single); safecall;
    function Get_Transparency: Single; safecall;
    procedure Set_Transparency(prop: Single); safecall;
    function Get_type_: MsoShadowType; safecall;
    procedure Set_type_(prop: MsoShadowType); safecall;
    function Get_Visible: MsoTriState; safecall;
    procedure Set_Visible(prop: MsoTriState); safecall;
    procedure IncrementOffsetX(Increment: Single); safecall;
    procedure IncrementOffsetY(Increment: Single); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property ForeColor: ColorFormat read Get_ForeColor;
    property Obscured: MsoTriState read Get_Obscured write Set_Obscured;
    property OffsetX: Single read Get_OffsetX write Set_OffsetX;
    property OffsetY: Single read Get_OffsetY write Set_OffsetY;
    property Transparency: Single read Get_Transparency write Set_Transparency;
    property type_: MsoShadowType read Get_type_ write Set_type_;
    property Visible: MsoTriState read Get_Visible write Set_Visible;
  end;

// *********************************************************************//
// DispIntf:  ShadowFormatDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209CC-0000-0000-C000-000000000046}
// *********************************************************************//
  ShadowFormatDisp = dispinterface
    ['{000209CC-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1;
    property ForeColor: ColorFormat readonly dispid 100;
    property Obscured: MsoTriState dispid 101;
    property OffsetX: Single dispid 102;
    property OffsetY: Single dispid 103;
    property Transparency: Single dispid 104;
    property type_: MsoShadowType dispid 105;
    property Visible: MsoTriState dispid 106;
    procedure IncrementOffsetX(Increment: Single); dispid 10;
    procedure IncrementOffsetY(Increment: Single); dispid 11;
  end;

// *********************************************************************//
// Interface: ShapeNode
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209CD-0000-0000-C000-000000000046}
// *********************************************************************//
  ShapeNode = interface(IDispatch)
    ['{000209CD-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_EditingType: MsoEditingType; safecall;
    function Get_Points: OleVariant; safecall;
    function Get_SegmentType: MsoSegmentType; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property EditingType: MsoEditingType read Get_EditingType;
    property Points: OleVariant read Get_Points;
    property SegmentType: MsoSegmentType read Get_SegmentType;
  end;

// *********************************************************************//
// DispIntf:  ShapeNodeDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209CD-0000-0000-C000-000000000046}
// *********************************************************************//
  ShapeNodeDisp = dispinterface
    ['{000209CD-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1;
    property EditingType: MsoEditingType readonly dispid 100;
    property Points: OleVariant readonly dispid 101;
    property SegmentType: MsoSegmentType readonly dispid 102;
  end;

// *********************************************************************//
// Interface: ShapeNodes
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209CE-0000-0000-C000-000000000046}
// *********************************************************************//
  ShapeNodes = interface(IDispatch)
    ['{000209CE-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    procedure Delete(Index: Integer); safecall;
    function Item(var Index: OleVariant): ShapeNode; safecall;
    procedure SetEditingType(Index: Integer; EditingType: MsoEditingType); safecall;
    procedure SetPosition(Index: Integer; X1: Single; Y1: Single); safecall;
    procedure SetSegmentType(Index: Integer; SegmentType: MsoSegmentType); safecall;
    procedure Insert(Index: Integer; SegmentType: MsoSegmentType; EditingType: MsoEditingType; 
                     X1: Single; Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  ShapeNodesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209CE-0000-0000-C000-000000000046}
// *********************************************************************//
  ShapeNodesDisp = dispinterface
    ['{000209CE-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1;
    property Count: Integer readonly dispid 2;
    property _NewEnum: IUnknown readonly dispid -4;
    procedure Delete(Index: Integer); dispid 11;
    function Item(var Index: OleVariant): ShapeNode; dispid 0;
    procedure SetEditingType(Index: Integer; EditingType: MsoEditingType); dispid 13;
    procedure SetPosition(Index: Integer; X1: Single; Y1: Single); dispid 14;
    procedure SetSegmentType(Index: Integer; SegmentType: MsoSegmentType); dispid 15;
    procedure Insert(Index: Integer; SegmentType: MsoSegmentType; EditingType: MsoEditingType; 
                     X1: Single; Y1: Single; X2: Single; Y2: Single; X3: Single; Y3: Single); dispid 12;
  end;

// *********************************************************************//
// Interface: TextEffectFormat
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209CF-0000-0000-C000-000000000046}
// *********************************************************************//
  TextEffectFormat = interface(IDispatch)
    ['{000209CF-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Alignment: MsoTextEffectAlignment; safecall;
    procedure Set_Alignment(prop: MsoTextEffectAlignment); safecall;
    function Get_FontBold: MsoTriState; safecall;
    procedure Set_FontBold(prop: MsoTriState); safecall;
    function Get_FontItalic: MsoTriState; safecall;
    procedure Set_FontItalic(prop: MsoTriState); safecall;
    function Get_FontName: WideString; safecall;
    procedure Set_FontName(const prop: WideString); safecall;
    function Get_FontSize: Single; safecall;
    procedure Set_FontSize(prop: Single); safecall;
    function Get_KernedPairs: MsoTriState; safecall;
    procedure Set_KernedPairs(prop: MsoTriState); safecall;
    function Get_NormalizedHeight: MsoTriState; safecall;
    procedure Set_NormalizedHeight(prop: MsoTriState); safecall;
    function Get_PresetShape: MsoPresetTextEffectShape; safecall;
    procedure Set_PresetShape(prop: MsoPresetTextEffectShape); safecall;
    function Get_PresetTextEffect: MsoPresetTextEffect; safecall;
    procedure Set_PresetTextEffect(prop: MsoPresetTextEffect); safecall;
    function Get_RotatedChars: MsoTriState; safecall;
    procedure Set_RotatedChars(prop: MsoTriState); safecall;
    function Get_Text: WideString; safecall;
    procedure Set_Text(const prop: WideString); safecall;
    function Get_Tracking: Single; safecall;
    procedure Set_Tracking(prop: Single); safecall;
    procedure ToggleVerticalText; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Alignment: MsoTextEffectAlignment read Get_Alignment write Set_Alignment;
    property FontBold: MsoTriState read Get_FontBold write Set_FontBold;
    property FontItalic: MsoTriState read Get_FontItalic write Set_FontItalic;
    property FontName: WideString read Get_FontName write Set_FontName;
    property FontSize: Single read Get_FontSize write Set_FontSize;
    property KernedPairs: MsoTriState read Get_KernedPairs write Set_KernedPairs;
    property NormalizedHeight: MsoTriState read Get_NormalizedHeight write Set_NormalizedHeight;
    property PresetShape: MsoPresetTextEffectShape read Get_PresetShape write Set_PresetShape;
    property PresetTextEffect: MsoPresetTextEffect read Get_PresetTextEffect write Set_PresetTextEffect;
    property RotatedChars: MsoTriState read Get_RotatedChars write Set_RotatedChars;
    property Text: WideString read Get_Text write Set_Text;
    property Tracking: Single read Get_Tracking write Set_Tracking;
  end;

// *********************************************************************//
// DispIntf:  TextEffectFormatDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209CF-0000-0000-C000-000000000046}
// *********************************************************************//
  TextEffectFormatDisp = dispinterface
    ['{000209CF-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1;
    property Alignment: MsoTextEffectAlignment dispid 100;
    property FontBold: MsoTriState dispid 101;
    property FontItalic: MsoTriState dispid 102;
    property FontName: WideString dispid 103;
    property FontSize: Single dispid 104;
    property KernedPairs: MsoTriState dispid 105;
    property NormalizedHeight: MsoTriState dispid 106;
    property PresetShape: MsoPresetTextEffectShape dispid 107;
    property PresetTextEffect: MsoPresetTextEffect dispid 108;
    property RotatedChars: MsoTriState dispid 109;
    property Text: WideString dispid 110;
    property Tracking: Single dispid 111;
    procedure ToggleVerticalText; dispid 10;
  end;

// *********************************************************************//
// Interface: ThreeDFormat
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209D0-0000-0000-C000-000000000046}
// *********************************************************************//
  ThreeDFormat = interface(IDispatch)
    ['{000209D0-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Depth: Single; safecall;
    procedure Set_Depth(prop: Single); safecall;
    function Get_ExtrusionColor: ColorFormat; safecall;
    function Get_ExtrusionColorType: MsoExtrusionColorType; safecall;
    procedure Set_ExtrusionColorType(prop: MsoExtrusionColorType); safecall;
    function Get_Perspective: MsoTriState; safecall;
    procedure Set_Perspective(prop: MsoTriState); safecall;
    function Get_PresetExtrusionDirection: MsoPresetExtrusionDirection; safecall;
    function Get_PresetLightingDirection: MsoPresetLightingDirection; safecall;
    procedure Set_PresetLightingDirection(prop: MsoPresetLightingDirection); safecall;
    function Get_PresetLightingSoftness: MsoPresetLightingSoftness; safecall;
    procedure Set_PresetLightingSoftness(prop: MsoPresetLightingSoftness); safecall;
    function Get_PresetMaterial: MsoPresetMaterial; safecall;
    procedure Set_PresetMaterial(prop: MsoPresetMaterial); safecall;
    function Get_PresetThreeDFormat: MsoPresetThreeDFormat; safecall;
    function Get_RotationX: Single; safecall;
    procedure Set_RotationX(prop: Single); safecall;
    function Get_RotationY: Single; safecall;
    procedure Set_RotationY(prop: Single); safecall;
    function Get_Visible: MsoTriState; safecall;
    procedure Set_Visible(prop: MsoTriState); safecall;
    procedure IncrementRotationX(Increment: Single); safecall;
    procedure IncrementRotationY(Increment: Single); safecall;
    procedure ResetRotation; safecall;
    procedure SetExtrusionDirection(PresetExtrusionDirection: MsoPresetExtrusionDirection); safecall;
    procedure SetThreeDFormat(PresetThreeDFormat: MsoPresetThreeDFormat); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Depth: Single read Get_Depth write Set_Depth;
    property ExtrusionColor: ColorFormat read Get_ExtrusionColor;
    property ExtrusionColorType: MsoExtrusionColorType read Get_ExtrusionColorType write Set_ExtrusionColorType;
    property Perspective: MsoTriState read Get_Perspective write Set_Perspective;
    property PresetExtrusionDirection: MsoPresetExtrusionDirection read Get_PresetExtrusionDirection;
    property PresetLightingDirection: MsoPresetLightingDirection read Get_PresetLightingDirection write Set_PresetLightingDirection;
    property PresetLightingSoftness: MsoPresetLightingSoftness read Get_PresetLightingSoftness write Set_PresetLightingSoftness;
    property PresetMaterial: MsoPresetMaterial read Get_PresetMaterial write Set_PresetMaterial;
    property PresetThreeDFormat: MsoPresetThreeDFormat read Get_PresetThreeDFormat;
    property RotationX: Single read Get_RotationX write Set_RotationX;
    property RotationY: Single read Get_RotationY write Set_RotationY;
    property Visible: MsoTriState read Get_Visible write Set_Visible;
  end;

// *********************************************************************//
// DispIntf:  ThreeDFormatDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209D0-0000-0000-C000-000000000046}
// *********************************************************************//
  ThreeDFormatDisp = dispinterface
    ['{000209D0-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1;
    property Depth: Single dispid 100;
    property ExtrusionColor: ColorFormat readonly dispid 101;
    property ExtrusionColorType: MsoExtrusionColorType dispid 102;
    property Perspective: MsoTriState dispid 103;
    property PresetExtrusionDirection: MsoPresetExtrusionDirection readonly dispid 104;
    property PresetLightingDirection: MsoPresetLightingDirection dispid 105;
    property PresetLightingSoftness: MsoPresetLightingSoftness dispid 106;
    property PresetMaterial: MsoPresetMaterial dispid 107;
    property PresetThreeDFormat: MsoPresetThreeDFormat readonly dispid 108;
    property RotationX: Single dispid 109;
    property RotationY: Single dispid 110;
    property Visible: MsoTriState dispid 111;
    procedure IncrementRotationX(Increment: Single); dispid 10;
    procedure IncrementRotationY(Increment: Single); dispid 11;
    procedure ResetRotation; dispid 12;
    procedure SetExtrusionDirection(PresetExtrusionDirection: MsoPresetExtrusionDirection); dispid 14;
    procedure SetThreeDFormat(PresetThreeDFormat: MsoPresetThreeDFormat); dispid 13;
  end;

// *********************************************************************//
// DispIntf:  ApplicationEvents
// Flags:     (4112) Hidden Dispatchable
// GUID:      {000209F7-0000-0000-C000-000000000046}
// *********************************************************************//
  ApplicationEvents = dispinterface
    ['{000209F7-0000-0000-C000-000000000046}']
  end;

// *********************************************************************//
// DispIntf:  ApplicationEvents2
// Flags:     (4112) Hidden Dispatchable
// GUID:      {000209FE-0000-0000-C000-000000000046}
// *********************************************************************//
  ApplicationEvents2 = dispinterface
    ['{000209FE-0000-0000-C000-000000000046}']
    procedure Startup; dispid 1;
    procedure Quit; dispid 2;
    procedure DocumentChange; dispid 3;
    procedure DocumentOpen(const Doc: WordDocument); dispid 4;
    procedure DocumentBeforeClose(const Doc: WordDocument; var Cancel: WordBool); dispid 6;
    procedure DocumentBeforePrint(const Doc: WordDocument; var Cancel: WordBool); dispid 7;
    procedure DocumentBeforeSave(const Doc: WordDocument; var SaveAsUI: WordBool; 
                                 var Cancel: WordBool); dispid 8;
    procedure NewDocument(const Doc: WordDocument); dispid 9;
    procedure WindowActivate(const Doc: WordDocument; const Wn: Window); dispid 10;
    procedure WindowDeactivate(const Doc: WordDocument; const Wn: Window); dispid 11;
    procedure WindowSelectionChange(const Sel: WordSelection); dispid 12;
    procedure WindowBeforeRightClick(const Sel: WordSelection; var Cancel: WordBool); dispid 13;
    procedure WindowBeforeDoubleClick(const Sel: WordSelection; var Cancel: WordBool); dispid 14;
  end;

// *********************************************************************//
// DispIntf:  DocumentEvents
// Flags:     (4112) Hidden Dispatchable
// GUID:      {000209F6-0000-0000-C000-000000000046}
// *********************************************************************//
  DocumentEvents = dispinterface
    ['{000209F6-0000-0000-C000-000000000046}']
    procedure New; dispid 4;
    procedure Open; dispid 5;
    procedure Close; dispid 6;
  end;

// *********************************************************************//
// DispIntf:  OCXEvents
// Flags:     (4112) Hidden Dispatchable
// GUID:      {000209F3-0000-0000-C000-000000000046}
// *********************************************************************//
  OCXEvents = dispinterface
    ['{000209F3-0000-0000-C000-000000000046}']
    procedure GotFocus; dispid -2147417888;
    procedure LostFocus; dispid -2147417887;
  end;

// *********************************************************************//
// Interface: IApplicationEvents
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209F7-0001-0000-C000-000000000046}
// *********************************************************************//
  IApplicationEvents = interface(IDispatch)
    ['{000209F7-0001-0000-C000-000000000046}']
    procedure Startup; safecall;
    procedure Quit; safecall;
    procedure DocumentChange; safecall;
  end;

// *********************************************************************//
// DispIntf:  IApplicationEventsDisp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209F7-0001-0000-C000-000000000046}
// *********************************************************************//
  IApplicationEventsDisp = dispinterface
    ['{000209F7-0001-0000-C000-000000000046}']
    procedure Startup; dispid 1;
    procedure Quit; dispid 2;
    procedure DocumentChange; dispid 3;
  end;

// *********************************************************************//
// Interface: IApplicationEvents2
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209FE-0001-0000-C000-000000000046}
// *********************************************************************//
  IApplicationEvents2 = interface(IDispatch)
    ['{000209FE-0001-0000-C000-000000000046}']
    procedure Startup; safecall;
    procedure Quit; safecall;
    procedure DocumentChange; safecall;
    procedure DocumentOpen(const Doc: WordDocument); safecall;
    procedure DocumentBeforeClose(const Doc: WordDocument; var Cancel: WordBool); safecall;
    procedure DocumentBeforePrint(const Doc: WordDocument; var Cancel: WordBool); safecall;
    procedure DocumentBeforeSave(const Doc: WordDocument; var SaveAsUI: WordBool; 
                                 var Cancel: WordBool); safecall;
    procedure NewDocument(const Doc: WordDocument); safecall;
    procedure WindowActivate(const Doc: WordDocument; const Wn: Window); safecall;
    procedure WindowDeactivate(const Doc: WordDocument; const Wn: Window); safecall;
    procedure WindowSelectionChange(const Sel: WordSelection); safecall;
    procedure WindowBeforeRightClick(const Sel: WordSelection; var Cancel: WordBool); safecall;
    procedure WindowBeforeDoubleClick(const Sel: WordSelection; var Cancel: WordBool); safecall;
  end;

// *********************************************************************//
// DispIntf:  IApplicationEvents2Disp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209FE-0001-0000-C000-000000000046}
// *********************************************************************//
  IApplicationEvents2Disp = dispinterface
    ['{000209FE-0001-0000-C000-000000000046}']
    procedure Startup; dispid 1;
    procedure Quit; dispid 2;
    procedure DocumentChange; dispid 3;
    procedure DocumentOpen(const Doc: WordDocument); dispid 4;
    procedure DocumentBeforeClose(const Doc: WordDocument; var Cancel: WordBool); dispid 6;
    procedure DocumentBeforePrint(const Doc: WordDocument; var Cancel: WordBool); dispid 7;
    procedure DocumentBeforeSave(const Doc: WordDocument; var SaveAsUI: WordBool; 
                                 var Cancel: WordBool); dispid 8;
    procedure NewDocument(const Doc: WordDocument); dispid 9;
    procedure WindowActivate(const Doc: WordDocument; const Wn: Window); dispid 10;
    procedure WindowDeactivate(const Doc: WordDocument; const Wn: Window); dispid 11;
    procedure WindowSelectionChange(const Sel: WordSelection); dispid 12;
    procedure WindowBeforeRightClick(const Sel: WordSelection; var Cancel: WordBool); dispid 13;
    procedure WindowBeforeDoubleClick(const Sel: WordSelection; var Cancel: WordBool); dispid 14;
  end;

// *********************************************************************//
// DispIntf:  ApplicationEvents3
// Flags:     (4112) Hidden Dispatchable
// GUID:      {00020A00-0000-0000-C000-000000000046}
// *********************************************************************//
  ApplicationEvents3 = dispinterface
    ['{00020A00-0000-0000-C000-000000000046}']
    procedure Startup; dispid 1;
    procedure Quit; dispid 2;
    procedure DocumentChange; dispid 3;
    procedure DocumentOpen(const Doc: WordDocument); dispid 4;
    procedure DocumentBeforeClose(const Doc: WordDocument; var Cancel: WordBool); dispid 6;
    procedure DocumentBeforePrint(const Doc: WordDocument; var Cancel: WordBool); dispid 7;
    procedure DocumentBeforeSave(const Doc: WordDocument; var SaveAsUI: WordBool; 
                                 var Cancel: WordBool); dispid 8;
    procedure NewDocument(const Doc: WordDocument); dispid 9;
    procedure WindowActivate(const Doc: WordDocument; const Wn: Window); dispid 10;
    procedure WindowDeactivate(const Doc: WordDocument; const Wn: Window); dispid 11;
    procedure WindowSelectionChange(const Sel: WordSelection); dispid 12;
    procedure WindowBeforeRightClick(const Sel: WordSelection; var Cancel: WordBool); dispid 13;
    procedure WindowBeforeDoubleClick(const Sel: WordSelection; var Cancel: WordBool); dispid 14;
    procedure EPostagePropertyDialog(const Doc: WordDocument); dispid 15;
    procedure EPostageInsert(const Doc: WordDocument); dispid 16;
    procedure MailMergeAfterMerge(const Doc: WordDocument; const DocResult: WordDocument); dispid 17;
    procedure MailMergeAfterRecordMerge(const Doc: WordDocument); dispid 18;
    procedure MailMergeBeforeMerge(const Doc: WordDocument; StartRecord: Integer; 
                                   EndRecord: Integer; var Cancel: WordBool); dispid 19;
    procedure MailMergeBeforeRecordMerge(const Doc: WordDocument; var Cancel: WordBool); dispid 20;
    procedure MailMergeDataSourceLoad(const Doc: WordDocument); dispid 21;
    procedure MailMergeDataSourceValidate(const Doc: WordDocument; var Handled: WordBool); dispid 22;
    procedure MailMergeWizardSendToCustom(const Doc: WordDocument); dispid 23;
    procedure MailMergeWizardStateChange(const Doc: WordDocument; var FromState: SYSINT; 
                                         var ToState: SYSINT; var Handled: WordBool); dispid 24;
    procedure WindowSize(const Doc: WordDocument; const Wn: Window); dispid 25;
  end;

// *********************************************************************//
// Interface: EmailAuthor
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209D7-0000-0000-C000-000000000046}
// *********************************************************************//
  EmailAuthor = interface(IDispatch)
    ['{000209D7-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Style: Style; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Style: Style read Get_Style;
  end;

// *********************************************************************//
// DispIntf:  EmailAuthorDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209D7-0000-0000-C000-000000000046}
// *********************************************************************//
  EmailAuthorDisp = dispinterface
    ['{000209D7-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Style: Style readonly dispid 103;
  end;

// *********************************************************************//
// Interface: EmailOptions
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209DB-0000-0000-C000-000000000046}
// *********************************************************************//
  EmailOptions = interface(IDispatch)
    ['{000209DB-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_UseThemeStyle: WordBool; safecall;
    procedure Set_UseThemeStyle(prop: WordBool); safecall;
    function Get_MarkCommentsWith: WideString; safecall;
    procedure Set_MarkCommentsWith(const prop: WideString); safecall;
    function Get_MarkComments: WordBool; safecall;
    procedure Set_MarkComments(prop: WordBool); safecall;
    function Get_EmailSignature: EmailSignature; safecall;
    function Get_ComposeStyle: Style; safecall;
    function Get_ReplyStyle: Style; safecall;
    function Get_ThemeName: WideString; safecall;
    procedure Set_ThemeName(const prop: WideString); safecall;
    function Get_Dummy1: WordBool; safecall;
    function Get_Dummy2: WordBool; safecall;
    procedure Dummy3; safecall;
    function Get_NewColorOnReply: WordBool; safecall;
    procedure Set_NewColorOnReply(prop: WordBool); safecall;
    function Get_PlainTextStyle: Style; safecall;
    function Get_UseThemeStyleOnReply: WordBool; safecall;
    procedure Set_UseThemeStyleOnReply(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyHeadings: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyHeadings(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyBorders: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyBorders(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyBulletedLists: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyBulletedLists(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyNumberedLists: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyNumberedLists(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeReplaceQuotes: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeReplaceQuotes(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeReplaceSymbols: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeReplaceSymbols(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeReplaceOrdinals: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeReplaceOrdinals(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeReplaceFractions: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeReplaceFractions(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeReplacePlainTextEmphasis: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeReplacePlainTextEmphasis(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeFormatListItemBeginning: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeFormatListItemBeginning(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeDefineStyles: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeDefineStyles(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeReplaceHyperlinks: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeReplaceHyperlinks(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyTables: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyTables(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyFirstIndents: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyFirstIndents(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyDates: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyDates(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeApplyClosings: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeApplyClosings(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeMatchParentheses: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeMatchParentheses(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeReplaceFarEastDashes: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeReplaceFarEastDashes(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeDeleteAutoSpaces: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeDeleteAutoSpaces(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeInsertClosings: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeInsertClosings(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeAutoLetterWizard: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeAutoLetterWizard(prop: WordBool); safecall;
    function Get_AutoFormatAsYouTypeInsertOvers: WordBool; safecall;
    procedure Set_AutoFormatAsYouTypeInsertOvers(prop: WordBool); safecall;
    function Get_RelyOnCSS: WordBool; safecall;
    procedure Set_RelyOnCSS(prop: WordBool); safecall;
    function Get_HTMLFidelity: WdEmailHTMLFidelity; safecall;
    procedure Set_HTMLFidelity(prop: WdEmailHTMLFidelity); safecall;
    function Get_EmbedSmartTag: WordBool; safecall;
    procedure Set_EmbedSmartTag(prop: WordBool); safecall;
    function Get_TabIndentKey: WordBool; safecall;
    procedure Set_TabIndentKey(prop: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property UseThemeStyle: WordBool read Get_UseThemeStyle write Set_UseThemeStyle;
    property MarkCommentsWith: WideString read Get_MarkCommentsWith write Set_MarkCommentsWith;
    property MarkComments: WordBool read Get_MarkComments write Set_MarkComments;
    property EmailSignature: EmailSignature read Get_EmailSignature;
    property ComposeStyle: Style read Get_ComposeStyle;
    property ReplyStyle: Style read Get_ReplyStyle;
    property ThemeName: WideString read Get_ThemeName write Set_ThemeName;
    property Dummy1: WordBool read Get_Dummy1;
    property Dummy2: WordBool read Get_Dummy2;
    property NewColorOnReply: WordBool read Get_NewColorOnReply write Set_NewColorOnReply;
    property PlainTextStyle: Style read Get_PlainTextStyle;
    property UseThemeStyleOnReply: WordBool read Get_UseThemeStyleOnReply write Set_UseThemeStyleOnReply;
    property AutoFormatAsYouTypeApplyHeadings: WordBool read Get_AutoFormatAsYouTypeApplyHeadings write Set_AutoFormatAsYouTypeApplyHeadings;
    property AutoFormatAsYouTypeApplyBorders: WordBool read Get_AutoFormatAsYouTypeApplyBorders write Set_AutoFormatAsYouTypeApplyBorders;
    property AutoFormatAsYouTypeApplyBulletedLists: WordBool read Get_AutoFormatAsYouTypeApplyBulletedLists write Set_AutoFormatAsYouTypeApplyBulletedLists;
    property AutoFormatAsYouTypeApplyNumberedLists: WordBool read Get_AutoFormatAsYouTypeApplyNumberedLists write Set_AutoFormatAsYouTypeApplyNumberedLists;
    property AutoFormatAsYouTypeReplaceQuotes: WordBool read Get_AutoFormatAsYouTypeReplaceQuotes write Set_AutoFormatAsYouTypeReplaceQuotes;
    property AutoFormatAsYouTypeReplaceSymbols: WordBool read Get_AutoFormatAsYouTypeReplaceSymbols write Set_AutoFormatAsYouTypeReplaceSymbols;
    property AutoFormatAsYouTypeReplaceOrdinals: WordBool read Get_AutoFormatAsYouTypeReplaceOrdinals write Set_AutoFormatAsYouTypeReplaceOrdinals;
    property AutoFormatAsYouTypeReplaceFractions: WordBool read Get_AutoFormatAsYouTypeReplaceFractions write Set_AutoFormatAsYouTypeReplaceFractions;
    property AutoFormatAsYouTypeReplacePlainTextEmphasis: WordBool read Get_AutoFormatAsYouTypeReplacePlainTextEmphasis write Set_AutoFormatAsYouTypeReplacePlainTextEmphasis;
    property AutoFormatAsYouTypeFormatListItemBeginning: WordBool read Get_AutoFormatAsYouTypeFormatListItemBeginning write Set_AutoFormatAsYouTypeFormatListItemBeginning;
    property AutoFormatAsYouTypeDefineStyles: WordBool read Get_AutoFormatAsYouTypeDefineStyles write Set_AutoFormatAsYouTypeDefineStyles;
    property AutoFormatAsYouTypeReplaceHyperlinks: WordBool read Get_AutoFormatAsYouTypeReplaceHyperlinks write Set_AutoFormatAsYouTypeReplaceHyperlinks;
    property AutoFormatAsYouTypeApplyTables: WordBool read Get_AutoFormatAsYouTypeApplyTables write Set_AutoFormatAsYouTypeApplyTables;
    property AutoFormatAsYouTypeApplyFirstIndents: WordBool read Get_AutoFormatAsYouTypeApplyFirstIndents write Set_AutoFormatAsYouTypeApplyFirstIndents;
    property AutoFormatAsYouTypeApplyDates: WordBool read Get_AutoFormatAsYouTypeApplyDates write Set_AutoFormatAsYouTypeApplyDates;
    property AutoFormatAsYouTypeApplyClosings: WordBool read Get_AutoFormatAsYouTypeApplyClosings write Set_AutoFormatAsYouTypeApplyClosings;
    property AutoFormatAsYouTypeMatchParentheses: WordBool read Get_AutoFormatAsYouTypeMatchParentheses write Set_AutoFormatAsYouTypeMatchParentheses;
    property AutoFormatAsYouTypeReplaceFarEastDashes: WordBool read Get_AutoFormatAsYouTypeReplaceFarEastDashes write Set_AutoFormatAsYouTypeReplaceFarEastDashes;
    property AutoFormatAsYouTypeDeleteAutoSpaces: WordBool read Get_AutoFormatAsYouTypeDeleteAutoSpaces write Set_AutoFormatAsYouTypeDeleteAutoSpaces;
    property AutoFormatAsYouTypeInsertClosings: WordBool read Get_AutoFormatAsYouTypeInsertClosings write Set_AutoFormatAsYouTypeInsertClosings;
    property AutoFormatAsYouTypeAutoLetterWizard: WordBool read Get_AutoFormatAsYouTypeAutoLetterWizard write Set_AutoFormatAsYouTypeAutoLetterWizard;
    property AutoFormatAsYouTypeInsertOvers: WordBool read Get_AutoFormatAsYouTypeInsertOvers write Set_AutoFormatAsYouTypeInsertOvers;
    property RelyOnCSS: WordBool read Get_RelyOnCSS write Set_RelyOnCSS;
    property HTMLFidelity: WdEmailHTMLFidelity read Get_HTMLFidelity write Set_HTMLFidelity;
    property EmbedSmartTag: WordBool read Get_EmbedSmartTag write Set_EmbedSmartTag;
    property TabIndentKey: WordBool read Get_TabIndentKey write Set_TabIndentKey;
  end;

// *********************************************************************//
// DispIntf:  EmailOptionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209DB-0000-0000-C000-000000000046}
// *********************************************************************//
  EmailOptionsDisp = dispinterface
    ['{000209DB-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 100;
    property Creator: Integer readonly dispid 101;
    property Parent: IDispatch readonly dispid 102;
    property UseThemeStyle: WordBool dispid 103;
    property MarkCommentsWith: WideString dispid 106;
    property MarkComments: WordBool dispid 107;
    property EmailSignature: EmailSignature readonly dispid 108;
    property ComposeStyle: Style readonly dispid 109;
    property ReplyStyle: Style readonly dispid 110;
    property ThemeName: WideString dispid 114;
    property Dummy1: WordBool readonly dispid 111;
    property Dummy2: WordBool readonly dispid 112;
    procedure Dummy3; dispid 113;
    property NewColorOnReply: WordBool dispid 116;
    property PlainTextStyle: Style readonly dispid 117;
    property UseThemeStyleOnReply: WordBool dispid 118;
    property AutoFormatAsYouTypeApplyHeadings: WordBool dispid 260;
    property AutoFormatAsYouTypeApplyBorders: WordBool dispid 261;
    property AutoFormatAsYouTypeApplyBulletedLists: WordBool dispid 262;
    property AutoFormatAsYouTypeApplyNumberedLists: WordBool dispid 263;
    property AutoFormatAsYouTypeReplaceQuotes: WordBool dispid 264;
    property AutoFormatAsYouTypeReplaceSymbols: WordBool dispid 265;
    property AutoFormatAsYouTypeReplaceOrdinals: WordBool dispid 266;
    property AutoFormatAsYouTypeReplaceFractions: WordBool dispid 267;
    property AutoFormatAsYouTypeReplacePlainTextEmphasis: WordBool dispid 268;
    property AutoFormatAsYouTypeFormatListItemBeginning: WordBool dispid 269;
    property AutoFormatAsYouTypeDefineStyles: WordBool dispid 270;
    property AutoFormatAsYouTypeReplaceHyperlinks: WordBool dispid 272;
    property AutoFormatAsYouTypeApplyTables: WordBool dispid 290;
    property AutoFormatAsYouTypeApplyFirstIndents: WordBool dispid 297;
    property AutoFormatAsYouTypeApplyDates: WordBool dispid 298;
    property AutoFormatAsYouTypeApplyClosings: WordBool dispid 299;
    property AutoFormatAsYouTypeMatchParentheses: WordBool dispid 300;
    property AutoFormatAsYouTypeReplaceFarEastDashes: WordBool dispid 301;
    property AutoFormatAsYouTypeDeleteAutoSpaces: WordBool dispid 302;
    property AutoFormatAsYouTypeInsertClosings: WordBool dispid 303;
    property AutoFormatAsYouTypeAutoLetterWizard: WordBool dispid 304;
    property AutoFormatAsYouTypeInsertOvers: WordBool dispid 305;
    property RelyOnCSS: WordBool dispid 306;
    property HTMLFidelity: WdEmailHTMLFidelity dispid 307;
    property EmbedSmartTag: WordBool dispid 308;
    property TabIndentKey: WordBool dispid 309;
  end;

// *********************************************************************//
// Interface: EmailSignature
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209DC-0000-0000-C000-000000000046}
// *********************************************************************//
  EmailSignature = interface(IDispatch)
    ['{000209DC-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_NewMessageSignature: WideString; safecall;
    procedure Set_NewMessageSignature(const prop: WideString); safecall;
    function Get_ReplyMessageSignature: WideString; safecall;
    procedure Set_ReplyMessageSignature(const prop: WideString); safecall;
    function Get_EmailSignatureEntries: EmailSignatureEntries; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property NewMessageSignature: WideString read Get_NewMessageSignature write Set_NewMessageSignature;
    property ReplyMessageSignature: WideString read Get_ReplyMessageSignature write Set_ReplyMessageSignature;
    property EmailSignatureEntries: EmailSignatureEntries read Get_EmailSignatureEntries;
  end;

// *********************************************************************//
// DispIntf:  EmailSignatureDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209DC-0000-0000-C000-000000000046}
// *********************************************************************//
  EmailSignatureDisp = dispinterface
    ['{000209DC-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 100;
    property Creator: Integer readonly dispid 101;
    property Parent: IDispatch readonly dispid 102;
    property NewMessageSignature: WideString dispid 103;
    property ReplyMessageSignature: WideString dispid 104;
    property EmailSignatureEntries: EmailSignatureEntries readonly dispid 105;
  end;

// *********************************************************************//
// Interface: Email
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209DD-0000-0000-C000-000000000046}
// *********************************************************************//
  Email = interface(IDispatch)
    ['{000209DD-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_CurrentEmailAuthor: EmailAuthor; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property CurrentEmailAuthor: EmailAuthor read Get_CurrentEmailAuthor;
  end;

// *********************************************************************//
// DispIntf:  EmailDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209DD-0000-0000-C000-000000000046}
// *********************************************************************//
  EmailDisp = dispinterface
    ['{000209DD-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 100;
    property Creator: Integer readonly dispid 101;
    property Parent: IDispatch readonly dispid 102;
    property CurrentEmailAuthor: EmailAuthor readonly dispid 105;
  end;

// *********************************************************************//
// Interface: HorizontalLineFormat
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209DE-0000-0000-C000-000000000046}
// *********************************************************************//
  HorizontalLineFormat = interface(IDispatch)
    ['{000209DE-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_PercentWidth: Single; safecall;
    procedure Set_PercentWidth(prop: Single); safecall;
    function Get_NoShade: WordBool; safecall;
    procedure Set_NoShade(prop: WordBool); safecall;
    function Get_Alignment: WdHorizontalLineAlignment; safecall;
    procedure Set_Alignment(prop: WdHorizontalLineAlignment); safecall;
    function Get_WidthType: WdHorizontalLineWidthType; safecall;
    procedure Set_WidthType(prop: WdHorizontalLineWidthType); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property PercentWidth: Single read Get_PercentWidth write Set_PercentWidth;
    property NoShade: WordBool read Get_NoShade write Set_NoShade;
    property Alignment: WdHorizontalLineAlignment read Get_Alignment write Set_Alignment;
    property WidthType: WdHorizontalLineWidthType read Get_WidthType write Set_WidthType;
  end;

// *********************************************************************//
// DispIntf:  HorizontalLineFormatDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209DE-0000-0000-C000-000000000046}
// *********************************************************************//
  HorizontalLineFormatDisp = dispinterface
    ['{000209DE-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property PercentWidth: Single dispid 2;
    property NoShade: WordBool dispid 3;
    property Alignment: WdHorizontalLineAlignment dispid 4;
    property WidthType: WdHorizontalLineWidthType dispid 5;
  end;

// *********************************************************************//
// Interface: Frameset
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E2-0000-0000-C000-000000000046}
// *********************************************************************//
  Frameset = interface(IDispatch)
    ['{000209E2-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_ParentFrameset: Frameset; safecall;
    function Get_type_: WdFramesetType; safecall;
    function Get_WidthType: WdFramesetSizeType; safecall;
    procedure Set_WidthType(prop: WdFramesetSizeType); safecall;
    function Get_HeightType: WdFramesetSizeType; safecall;
    procedure Set_HeightType(prop: WdFramesetSizeType); safecall;
    function Get_Width: Integer; safecall;
    procedure Set_Width(prop: Integer); safecall;
    function Get_Height: Integer; safecall;
    procedure Set_Height(prop: Integer); safecall;
    function Get_ChildFramesetCount: Integer; safecall;
    function Get_ChildFramesetItem(Index: Integer): Frameset; safecall;
    function Get_FramesetBorderWidth: Single; safecall;
    procedure Set_FramesetBorderWidth(prop: Single); safecall;
    function Get_FramesetBorderColor: WdColor; safecall;
    procedure Set_FramesetBorderColor(prop: WdColor); safecall;
    function Get_FrameScrollbarType: WdScrollbarType; safecall;
    procedure Set_FrameScrollbarType(prop: WdScrollbarType); safecall;
    function Get_FrameResizable: WordBool; safecall;
    procedure Set_FrameResizable(prop: WordBool); safecall;
    function Get_FrameName: WideString; safecall;
    procedure Set_FrameName(const prop: WideString); safecall;
    function Get_FrameDisplayBorders: WordBool; safecall;
    procedure Set_FrameDisplayBorders(prop: WordBool); safecall;
    function Get_FrameDefaultURL: WideString; safecall;
    procedure Set_FrameDefaultURL(const prop: WideString); safecall;
    function Get_FrameLinkToFile: WordBool; safecall;
    procedure Set_FrameLinkToFile(prop: WordBool); safecall;
    function AddNewFrame(Where: WdFramesetNewFrameLocation): Frameset; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property ParentFrameset: Frameset read Get_ParentFrameset;
    property type_: WdFramesetType read Get_type_;
    property WidthType: WdFramesetSizeType read Get_WidthType write Set_WidthType;
    property HeightType: WdFramesetSizeType read Get_HeightType write Set_HeightType;
    property Width: Integer read Get_Width write Set_Width;
    property Height: Integer read Get_Height write Set_Height;
    property ChildFramesetCount: Integer read Get_ChildFramesetCount;
    property ChildFramesetItem[Index: Integer]: Frameset read Get_ChildFramesetItem;
    property FramesetBorderWidth: Single read Get_FramesetBorderWidth write Set_FramesetBorderWidth;
    property FramesetBorderColor: WdColor read Get_FramesetBorderColor write Set_FramesetBorderColor;
    property FrameScrollbarType: WdScrollbarType read Get_FrameScrollbarType write Set_FrameScrollbarType;
    property FrameResizable: WordBool read Get_FrameResizable write Set_FrameResizable;
    property FrameName: WideString read Get_FrameName write Set_FrameName;
    property FrameDisplayBorders: WordBool read Get_FrameDisplayBorders write Set_FrameDisplayBorders;
    property FrameDefaultURL: WideString read Get_FrameDefaultURL write Set_FrameDefaultURL;
    property FrameLinkToFile: WordBool read Get_FrameLinkToFile write Set_FrameLinkToFile;
  end;

// *********************************************************************//
// DispIntf:  FramesetDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E2-0000-0000-C000-000000000046}
// *********************************************************************//
  FramesetDisp = dispinterface
    ['{000209E2-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property ParentFrameset: Frameset readonly dispid 1003;
    property type_: WdFramesetType readonly dispid 0;
    property WidthType: WdFramesetSizeType dispid 1;
    property HeightType: WdFramesetSizeType dispid 2;
    property Width: Integer dispid 3;
    property Height: Integer dispid 4;
    property ChildFramesetCount: Integer readonly dispid 5;
    property ChildFramesetItem[Index: Integer]: Frameset readonly dispid 6;
    property FramesetBorderWidth: Single dispid 20;
    property FramesetBorderColor: WdColor dispid 21;
    property FrameScrollbarType: WdScrollbarType dispid 30;
    property FrameResizable: WordBool dispid 31;
    property FrameName: WideString dispid 34;
    property FrameDisplayBorders: WordBool dispid 35;
    property FrameDefaultURL: WideString dispid 36;
    property FrameLinkToFile: WordBool dispid 37;
    function AddNewFrame(Where: WdFramesetNewFrameLocation): Frameset; dispid 50;
    procedure Delete; dispid 51;
  end;

// *********************************************************************//
// Interface: DefaultWebOptions
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E3-0000-0000-C000-000000000046}
// *********************************************************************//
  DefaultWebOptions = interface(IDispatch)
    ['{000209E3-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_OptimizeForBrowser: WordBool; safecall;
    procedure Set_OptimizeForBrowser(prop: WordBool); safecall;
    function Get_BrowserLevel: WdBrowserLevel; safecall;
    procedure Set_BrowserLevel(prop: WdBrowserLevel); safecall;
    function Get_RelyOnCSS: WordBool; safecall;
    procedure Set_RelyOnCSS(prop: WordBool); safecall;
    function Get_OrganizeInFolder: WordBool; safecall;
    procedure Set_OrganizeInFolder(prop: WordBool); safecall;
    function Get_UpdateLinksOnSave: WordBool; safecall;
    procedure Set_UpdateLinksOnSave(prop: WordBool); safecall;
    function Get_UseLongFileNames: WordBool; safecall;
    procedure Set_UseLongFileNames(prop: WordBool); safecall;
    function Get_CheckIfOfficeIsHTMLEditor: WordBool; safecall;
    procedure Set_CheckIfOfficeIsHTMLEditor(prop: WordBool); safecall;
    function Get_CheckIfWordIsDefaultHTMLEditor: WordBool; safecall;
    procedure Set_CheckIfWordIsDefaultHTMLEditor(prop: WordBool); safecall;
    function Get_RelyOnVML: WordBool; safecall;
    procedure Set_RelyOnVML(prop: WordBool); safecall;
    function Get_AllowPNG: WordBool; safecall;
    procedure Set_AllowPNG(prop: WordBool); safecall;
    function Get_ScreenSize: MsoScreenSize; safecall;
    procedure Set_ScreenSize(prop: MsoScreenSize); safecall;
    function Get_PixelsPerInch: Integer; safecall;
    procedure Set_PixelsPerInch(prop: Integer); safecall;
    function Get_Encoding: MsoEncoding; safecall;
    procedure Set_Encoding(prop: MsoEncoding); safecall;
    function Get_AlwaysSaveInDefaultEncoding: WordBool; safecall;
    procedure Set_AlwaysSaveInDefaultEncoding(prop: WordBool); safecall;
    function Get_Fonts: WebPageFonts; safecall;
    function Get_FolderSuffix: WideString; safecall;
    function Get_TargetBrowser: MsoTargetBrowser; safecall;
    procedure Set_TargetBrowser(prop: MsoTargetBrowser); safecall;
    function Get_SaveNewWebPagesAsWebArchives: WordBool; safecall;
    procedure Set_SaveNewWebPagesAsWebArchives(prop: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property OptimizeForBrowser: WordBool read Get_OptimizeForBrowser write Set_OptimizeForBrowser;
    property BrowserLevel: WdBrowserLevel read Get_BrowserLevel write Set_BrowserLevel;
    property RelyOnCSS: WordBool read Get_RelyOnCSS write Set_RelyOnCSS;
    property OrganizeInFolder: WordBool read Get_OrganizeInFolder write Set_OrganizeInFolder;
    property UpdateLinksOnSave: WordBool read Get_UpdateLinksOnSave write Set_UpdateLinksOnSave;
    property UseLongFileNames: WordBool read Get_UseLongFileNames write Set_UseLongFileNames;
    property CheckIfOfficeIsHTMLEditor: WordBool read Get_CheckIfOfficeIsHTMLEditor write Set_CheckIfOfficeIsHTMLEditor;
    property CheckIfWordIsDefaultHTMLEditor: WordBool read Get_CheckIfWordIsDefaultHTMLEditor write Set_CheckIfWordIsDefaultHTMLEditor;
    property RelyOnVML: WordBool read Get_RelyOnVML write Set_RelyOnVML;
    property AllowPNG: WordBool read Get_AllowPNG write Set_AllowPNG;
    property ScreenSize: MsoScreenSize read Get_ScreenSize write Set_ScreenSize;
    property PixelsPerInch: Integer read Get_PixelsPerInch write Set_PixelsPerInch;
    property Encoding: MsoEncoding read Get_Encoding write Set_Encoding;
    property AlwaysSaveInDefaultEncoding: WordBool read Get_AlwaysSaveInDefaultEncoding write Set_AlwaysSaveInDefaultEncoding;
    property Fonts: WebPageFonts read Get_Fonts;
    property FolderSuffix: WideString read Get_FolderSuffix;
    property TargetBrowser: MsoTargetBrowser read Get_TargetBrowser write Set_TargetBrowser;
    property SaveNewWebPagesAsWebArchives: WordBool read Get_SaveNewWebPagesAsWebArchives write Set_SaveNewWebPagesAsWebArchives;
  end;

// *********************************************************************//
// DispIntf:  DefaultWebOptionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E3-0000-0000-C000-000000000046}
// *********************************************************************//
  DefaultWebOptionsDisp = dispinterface
    ['{000209E3-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property OptimizeForBrowser: WordBool dispid 1;
    property BrowserLevel: WdBrowserLevel dispid 2;
    property RelyOnCSS: WordBool dispid 3;
    property OrganizeInFolder: WordBool dispid 4;
    property UpdateLinksOnSave: WordBool dispid 5;
    property UseLongFileNames: WordBool dispid 6;
    property CheckIfOfficeIsHTMLEditor: WordBool dispid 7;
    property CheckIfWordIsDefaultHTMLEditor: WordBool dispid 8;
    property RelyOnVML: WordBool dispid 9;
    property AllowPNG: WordBool dispid 10;
    property ScreenSize: MsoScreenSize dispid 11;
    property PixelsPerInch: Integer dispid 12;
    property Encoding: MsoEncoding dispid 13;
    property AlwaysSaveInDefaultEncoding: WordBool dispid 14;
    property Fonts: WebPageFonts readonly dispid 15;
    property FolderSuffix: WideString readonly dispid 16;
    property TargetBrowser: MsoTargetBrowser dispid 17;
    property SaveNewWebPagesAsWebArchives: WordBool dispid 18;
  end;

// *********************************************************************//
// Interface: WebOptions
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E4-0000-0000-C000-000000000046}
// *********************************************************************//
  WebOptions = interface(IDispatch)
    ['{000209E4-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_OptimizeForBrowser: WordBool; safecall;
    procedure Set_OptimizeForBrowser(prop: WordBool); safecall;
    function Get_BrowserLevel: WdBrowserLevel; safecall;
    procedure Set_BrowserLevel(prop: WdBrowserLevel); safecall;
    function Get_RelyOnCSS: WordBool; safecall;
    procedure Set_RelyOnCSS(prop: WordBool); safecall;
    function Get_OrganizeInFolder: WordBool; safecall;
    procedure Set_OrganizeInFolder(prop: WordBool); safecall;
    function Get_UseLongFileNames: WordBool; safecall;
    procedure Set_UseLongFileNames(prop: WordBool); safecall;
    function Get_RelyOnVML: WordBool; safecall;
    procedure Set_RelyOnVML(prop: WordBool); safecall;
    function Get_AllowPNG: WordBool; safecall;
    procedure Set_AllowPNG(prop: WordBool); safecall;
    function Get_ScreenSize: MsoScreenSize; safecall;
    procedure Set_ScreenSize(prop: MsoScreenSize); safecall;
    function Get_PixelsPerInch: Integer; safecall;
    procedure Set_PixelsPerInch(prop: Integer); safecall;
    function Get_Encoding: MsoEncoding; safecall;
    procedure Set_Encoding(prop: MsoEncoding); safecall;
    function Get_FolderSuffix: WideString; safecall;
    procedure UseDefaultFolderSuffix; safecall;
    function Get_TargetBrowser: MsoTargetBrowser; safecall;
    procedure Set_TargetBrowser(prop: MsoTargetBrowser); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property OptimizeForBrowser: WordBool read Get_OptimizeForBrowser write Set_OptimizeForBrowser;
    property BrowserLevel: WdBrowserLevel read Get_BrowserLevel write Set_BrowserLevel;
    property RelyOnCSS: WordBool read Get_RelyOnCSS write Set_RelyOnCSS;
    property OrganizeInFolder: WordBool read Get_OrganizeInFolder write Set_OrganizeInFolder;
    property UseLongFileNames: WordBool read Get_UseLongFileNames write Set_UseLongFileNames;
    property RelyOnVML: WordBool read Get_RelyOnVML write Set_RelyOnVML;
    property AllowPNG: WordBool read Get_AllowPNG write Set_AllowPNG;
    property ScreenSize: MsoScreenSize read Get_ScreenSize write Set_ScreenSize;
    property PixelsPerInch: Integer read Get_PixelsPerInch write Set_PixelsPerInch;
    property Encoding: MsoEncoding read Get_Encoding write Set_Encoding;
    property FolderSuffix: WideString read Get_FolderSuffix;
    property TargetBrowser: MsoTargetBrowser read Get_TargetBrowser write Set_TargetBrowser;
  end;

// *********************************************************************//
// DispIntf:  WebOptionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E4-0000-0000-C000-000000000046}
// *********************************************************************//
  WebOptionsDisp = dispinterface
    ['{000209E4-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property OptimizeForBrowser: WordBool dispid 1;
    property BrowserLevel: WdBrowserLevel dispid 2;
    property RelyOnCSS: WordBool dispid 3;
    property OrganizeInFolder: WordBool dispid 4;
    property UseLongFileNames: WordBool dispid 5;
    property RelyOnVML: WordBool dispid 6;
    property AllowPNG: WordBool dispid 7;
    property ScreenSize: MsoScreenSize dispid 8;
    property PixelsPerInch: Integer dispid 9;
    property Encoding: MsoEncoding dispid 10;
    property FolderSuffix: WideString readonly dispid 11;
    procedure UseDefaultFolderSuffix; dispid 101;
    property TargetBrowser: MsoTargetBrowser dispid 12;
  end;

// *********************************************************************//
// Interface: OtherCorrectionsExceptions
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209DF-0000-0000-C000-000000000046}
// *********************************************************************//
  OtherCorrectionsExceptions = interface(IDispatch)
    ['{000209DF-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): OtherCorrectionsException; safecall;
    function Add(const Name: WideString): OtherCorrectionsException; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  OtherCorrectionsExceptionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209DF-0000-0000-C000-000000000046}
// *********************************************************************//
  OtherCorrectionsExceptionsDisp = dispinterface
    ['{000209DF-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): OtherCorrectionsException; dispid 0;
    function Add(const Name: WideString): OtherCorrectionsException; dispid 101;
  end;

// *********************************************************************//
// Interface: OtherCorrectionsException
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E1-0000-0000-C000-000000000046}
// *********************************************************************//
  OtherCorrectionsException = interface(IDispatch)
    ['{000209E1-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Index: Integer; safecall;
    function Get_Name: WideString; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Index: Integer read Get_Index;
    property Name: WideString read Get_Name;
  end;

// *********************************************************************//
// DispIntf:  OtherCorrectionsExceptionDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E1-0000-0000-C000-000000000046}
// *********************************************************************//
  OtherCorrectionsExceptionDisp = dispinterface
    ['{000209E1-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Index: Integer readonly dispid 1;
    property Name: WideString readonly dispid 2;
    procedure Delete; dispid 101;
  end;

// *********************************************************************//
// Interface: EmailSignatureEntries
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E5-0000-0000-C000-000000000046}
// *********************************************************************//
  EmailSignatureEntries = interface(IDispatch)
    ['{000209E5-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): EmailSignatureEntry; safecall;
    function Add(const Name: WideString; const Range: Range): EmailSignatureEntry; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  EmailSignatureEntriesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E5-0000-0000-C000-000000000046}
// *********************************************************************//
  EmailSignatureEntriesDisp = dispinterface
    ['{000209E5-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): EmailSignatureEntry; dispid 0;
    function Add(const Name: WideString; const Range: Range): EmailSignatureEntry; dispid 101;
  end;

// *********************************************************************//
// Interface: EmailSignatureEntry
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E6-0000-0000-C000-000000000046}
// *********************************************************************//
  EmailSignatureEntry = interface(IDispatch)
    ['{000209E6-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Index: Integer; safecall;
    function Get_Name: WideString; safecall;
    procedure Set_Name(const prop: WideString); safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Index: Integer read Get_Index;
    property Name: WideString read Get_Name write Set_Name;
  end;

// *********************************************************************//
// DispIntf:  EmailSignatureEntryDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E6-0000-0000-C000-000000000046}
// *********************************************************************//
  EmailSignatureEntryDisp = dispinterface
    ['{000209E6-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Index: Integer readonly dispid 1;
    property Name: WideString dispid 2;
    procedure Delete; dispid 101;
  end;

// *********************************************************************//
// Interface: HTMLDivision
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E7-0000-0000-C000-000000000046}
// *********************************************************************//
  HTMLDivision = interface(IDispatch)
    ['{000209E7-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Range: Range; safecall;
    function Get_Borders: Borders; safecall;
    function Get_LeftIndent: Single; safecall;
    procedure Set_LeftIndent(prop: Single); safecall;
    function Get_RightIndent: Single; safecall;
    procedure Set_RightIndent(prop: Single); safecall;
    function Get_SpaceBefore: Single; safecall;
    procedure Set_SpaceBefore(prop: Single); safecall;
    function Get_SpaceAfter: Single; safecall;
    procedure Set_SpaceAfter(prop: Single); safecall;
    function Get_HTMLDivisions: HTMLDivisions; safecall;
    function HTMLDivisionParent(var LevelsUp: OleVariant): HTMLDivision; safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Range: Range read Get_Range;
    property Borders: Borders read Get_Borders;
    property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
    property RightIndent: Single read Get_RightIndent write Set_RightIndent;
    property SpaceBefore: Single read Get_SpaceBefore write Set_SpaceBefore;
    property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
    property HTMLDivisions: HTMLDivisions read Get_HTMLDivisions;
  end;

// *********************************************************************//
// DispIntf:  HTMLDivisionDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E7-0000-0000-C000-000000000046}
// *********************************************************************//
  HTMLDivisionDisp = dispinterface
    ['{000209E7-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Range: Range readonly dispid 1;
    property Borders: Borders readonly dispid 1100;
    property LeftIndent: Single dispid 3;
    property RightIndent: Single dispid 4;
    property SpaceBefore: Single dispid 5;
    property SpaceAfter: Single dispid 6;
    property HTMLDivisions: HTMLDivisions readonly dispid 7;
    function HTMLDivisionParent(var LevelsUp: OleVariant): HTMLDivision; dispid 8;
    procedure Delete; dispid 101;
  end;

// *********************************************************************//
// Interface: HTMLDivisions
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E8-0000-0000-C000-000000000046}
// *********************************************************************//
  HTMLDivisions = interface(IDispatch)
    ['{000209E8-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_NestingLevel: Integer; safecall;
    function Add(var Range: OleVariant): HTMLDivision; safecall;
    function Item(Index: Integer): HTMLDivision; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property NestingLevel: Integer read Get_NestingLevel;
  end;

// *********************************************************************//
// DispIntf:  HTMLDivisionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E8-0000-0000-C000-000000000046}
// *********************************************************************//
  HTMLDivisionsDisp = dispinterface
    ['{000209E8-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    property NestingLevel: Integer readonly dispid 2;
    function Add(var Range: OleVariant): HTMLDivision; dispid 101;
    function Item(Index: Integer): HTMLDivision; dispid 0;
  end;

// *********************************************************************//
// Interface: DiagramNode
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E9-0000-0000-C000-000000000046}
// *********************************************************************//
  DiagramNode = interface(IDispatch)
    ['{000209E9-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Children: DiagramNodeChildren; safecall;
    function Get_Shape: Shape; safecall;
    function Get_Root: DiagramNode; safecall;
    function Get_Diagram: Diagram; safecall;
    function Get_Layout: MsoOrgChartLayoutType; safecall;
    procedure Set_Layout(prop: MsoOrgChartLayoutType); safecall;
    function Get_TextShape: Shape; safecall;
    function AddNode(Pos: MsoRelativeNodePosition; NodeType: MsoDiagramNodeType): DiagramNode; safecall;
    procedure Delete; safecall;
    procedure MoveNode(out TargetNode: DiagramNode; Pos: MsoRelativeNodePosition); safecall;
    procedure ReplaceNode(out TargetNode: DiagramNode); safecall;
    procedure SwapNode(out TargetNode: DiagramNode; Pos: MsoRelativeNodePosition); safecall;
    function CloneNode(copyChildren: WordBool; out TargetNode: DiagramNode; 
                       Pos: MsoRelativeNodePosition): DiagramNode; safecall;
    procedure TransferChildren(out ReceivingNode: DiagramNode); safecall;
    function NextNode: DiagramNode; safecall;
    function PrevNode: DiagramNode; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Children: DiagramNodeChildren read Get_Children;
    property Shape: Shape read Get_Shape;
    property Root: DiagramNode read Get_Root;
    property Diagram: Diagram read Get_Diagram;
    property Layout: MsoOrgChartLayoutType read Get_Layout write Set_Layout;
    property TextShape: Shape read Get_TextShape;
  end;

// *********************************************************************//
// DispIntf:  DiagramNodeDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209E9-0000-0000-C000-000000000046}
// *********************************************************************//
  DiagramNodeDisp = dispinterface
    ['{000209E9-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 100;
    property Children: DiagramNodeChildren readonly dispid 101;
    property Shape: Shape readonly dispid 102;
    property Root: DiagramNode readonly dispid 103;
    property Diagram: Diagram readonly dispid 104;
    property Layout: MsoOrgChartLayoutType dispid 105;
    property TextShape: Shape readonly dispid 106;
    function AddNode(Pos: MsoRelativeNodePosition; NodeType: MsoDiagramNodeType): DiagramNode; dispid 10;
    procedure Delete; dispid 11;
    procedure MoveNode(out TargetNode: DiagramNode; Pos: MsoRelativeNodePosition); dispid 12;
    procedure ReplaceNode(out TargetNode: DiagramNode); dispid 13;
    procedure SwapNode(out TargetNode: DiagramNode; Pos: MsoRelativeNodePosition); dispid 14;
    function CloneNode(copyChildren: WordBool; out TargetNode: DiagramNode; 
                       Pos: MsoRelativeNodePosition): DiagramNode; dispid 15;
    procedure TransferChildren(out ReceivingNode: DiagramNode); dispid 16;
    function NextNode: DiagramNode; dispid 17;
    function PrevNode: DiagramNode; dispid 18;
  end;

// *********************************************************************//
// Interface: DiagramNodeChildren
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209EA-0000-0000-C000-000000000046}
// *********************************************************************//
  DiagramNodeChildren = interface(IDispatch)
    ['{000209EA-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get_FirstChild: DiagramNode; safecall;
    function Get_LastChild: DiagramNode; safecall;
    function Item(var Index: OleVariant): DiagramNode; safecall;
    function AddNode(var Index: OleVariant; NodeType: MsoDiagramNodeType): DiagramNode; safecall;
    procedure SelectAll; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property FirstChild: DiagramNode read Get_FirstChild;
    property LastChild: DiagramNode read Get_LastChild;
  end;

// *********************************************************************//
// DispIntf:  DiagramNodeChildrenDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209EA-0000-0000-C000-000000000046}
// *********************************************************************//
  DiagramNodeChildrenDisp = dispinterface
    ['{000209EA-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property _NewEnum: IUnknown readonly dispid -4;
    property Parent: IDispatch readonly dispid 100;
    property Count: Integer readonly dispid 101;
    property FirstChild: DiagramNode readonly dispid 103;
    property LastChild: DiagramNode readonly dispid 104;
    function Item(var Index: OleVariant): DiagramNode; dispid 0;
    function AddNode(var Index: OleVariant; NodeType: MsoDiagramNodeType): DiagramNode; dispid 10;
    procedure SelectAll; dispid 11;
  end;

// *********************************************************************//
// Interface: DiagramNodes
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209EB-0000-0000-C000-000000000046}
// *********************************************************************//
  DiagramNodes = interface(IDispatch)
    ['{000209EB-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): DiagramNode; safecall;
    procedure SelectAll; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  DiagramNodesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209EB-0000-0000-C000-000000000046}
// *********************************************************************//
  DiagramNodesDisp = dispinterface
    ['{000209EB-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property _NewEnum: IUnknown readonly dispid -4;
    property Parent: IDispatch readonly dispid 100;
    property Count: Integer readonly dispid 101;
    function Item(var Index: OleVariant): DiagramNode; dispid 0;
    procedure SelectAll; dispid 10;
  end;

// *********************************************************************//
// Interface: Diagram
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209EC-0000-0000-C000-000000000046}
// *********************************************************************//
  Diagram = interface(IDispatch)
    ['{000209EC-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Nodes: DiagramNodes; safecall;
    function Get_type_: MsoDiagramType; safecall;
    function Get_AutoLayout: MsoTriState; safecall;
    procedure Set_AutoLayout(prop: MsoTriState); safecall;
    function Get_Reverse: MsoTriState; safecall;
    procedure Set_Reverse(prop: MsoTriState); safecall;
    function Get_AutoFormat: MsoTriState; safecall;
    procedure Set_AutoFormat(prop: MsoTriState); safecall;
    procedure Convert(Type_: MsoDiagramType); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Nodes: DiagramNodes read Get_Nodes;
    property type_: MsoDiagramType read Get_type_;
    property AutoLayout: MsoTriState read Get_AutoLayout write Set_AutoLayout;
    property Reverse: MsoTriState read Get_Reverse write Set_Reverse;
    property AutoFormat: MsoTriState read Get_AutoFormat write Set_AutoFormat;
  end;

// *********************************************************************//
// DispIntf:  DiagramDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209EC-0000-0000-C000-000000000046}
// *********************************************************************//
  DiagramDisp = dispinterface
    ['{000209EC-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 100;
    property Nodes: DiagramNodes readonly dispid 101;
    property type_: MsoDiagramType readonly dispid 102;
    property AutoLayout: MsoTriState dispid 103;
    property Reverse: MsoTriState dispid 104;
    property AutoFormat: MsoTriState dispid 105;
    procedure Convert(Type_: MsoDiagramType); dispid 10;
  end;

// *********************************************************************//
// Interface: CustomProperty
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B923FDE0-F08C-11D3-91B0-00105A0A19FD}
// *********************************************************************//
  CustomProperty = interface(IDispatch)
    ['{B923FDE0-F08C-11D3-91B0-00105A0A19FD}']
    function Get_Name: WideString; safecall;
    function Get_Value: WideString; safecall;
    procedure Set_Value(const prop: WideString); safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    procedure Delete; safecall;
    property Name: WideString read Get_Name;
    property Value: WideString read Get_Value write Set_Value;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  CustomPropertyDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B923FDE0-F08C-11D3-91B0-00105A0A19FD}
// *********************************************************************//
  CustomPropertyDisp = dispinterface
    ['{B923FDE0-F08C-11D3-91B0-00105A0A19FD}']
    property Name: WideString readonly dispid 1;
    property Value: WideString dispid 0;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    procedure Delete; dispid 11;
  end;

// *********************************************************************//
// Interface: CustomProperties
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B923FDE1-F08C-11D3-91B0-00105A0A19FD}
// *********************************************************************//
  CustomProperties = interface(IDispatch)
    ['{B923FDE1-F08C-11D3-91B0-00105A0A19FD}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(var Index: OleVariant): CustomProperty; safecall;
    function Add(const Name: WideString; const Value: WideString): CustomProperty; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  CustomPropertiesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B923FDE1-F08C-11D3-91B0-00105A0A19FD}
// *********************************************************************//
  CustomPropertiesDisp = dispinterface
    ['{B923FDE1-F08C-11D3-91B0-00105A0A19FD}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(var Index: OleVariant): CustomProperty; dispid 0;
    function Add(const Name: WideString; const Value: WideString): CustomProperty; dispid 5;
  end;

// *********************************************************************//
// Interface: SmartTag
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209ED-0000-0000-C000-000000000046}
// *********************************************************************//
  SmartTag = interface(IDispatch)
    ['{000209ED-0000-0000-C000-000000000046}']
    function Get_Name: WideString; safecall;
    function Get_XML: WideString; safecall;
    function Get_Range: Range; safecall;
    function Get_DownloadURL: WideString; safecall;
    function Get_Properties: CustomProperties; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    procedure Select; safecall;
    procedure Delete; safecall;
    property Name: WideString read Get_Name;
    property XML: WideString read Get_XML;
    property Range: Range read Get_Range;
    property DownloadURL: WideString read Get_DownloadURL;
    property Properties: CustomProperties read Get_Properties;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  SmartTagDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209ED-0000-0000-C000-000000000046}
// *********************************************************************//
  SmartTagDisp = dispinterface
    ['{000209ED-0000-0000-C000-000000000046}']
    property Name: WideString readonly dispid 0;
    property XML: WideString readonly dispid 2;
    property Range: Range readonly dispid 3;
    property DownloadURL: WideString readonly dispid 4;
    property Properties: CustomProperties readonly dispid 5;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    procedure Select; dispid 65535;
    procedure Delete; dispid 11;
  end;

// *********************************************************************//
// Interface: SmartTags
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209EE-0000-0000-C000-000000000046}
// *********************************************************************//
  SmartTags = interface(IDispatch)
    ['{000209EE-0000-0000-C000-000000000046}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(var Index: OleVariant): SmartTag; safecall;
    function Add(const Name: WideString; var Range: OleVariant; var Properties: OleVariant): SmartTag; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  SmartTagsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209EE-0000-0000-C000-000000000046}
// *********************************************************************//
  SmartTagsDisp = dispinterface
    ['{000209EE-0000-0000-C000-000000000046}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(var Index: OleVariant): SmartTag; dispid 0;
    function Add(const Name: WideString; var Range: OleVariant; var Properties: OleVariant): SmartTag; dispid 5;
  end;

// *********************************************************************//
// Interface: StyleSheet
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209EF-0000-0000-C000-000000000046}
// *********************************************************************//
  StyleSheet = interface(IDispatch)
    ['{000209EF-0000-0000-C000-000000000046}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_FullName: WideString; safecall;
    function Get_Index: Integer; safecall;
    function Get_Name: WideString; safecall;
    function Get_Path: WideString; safecall;
    function Get_type_: WdStyleSheetLinkType; safecall;
    procedure Set_type_(prop: WdStyleSheetLinkType); safecall;
    function Get_Title: WideString; safecall;
    procedure Set_Title(const prop: WideString); safecall;
    procedure Move(Precedence: WdStyleSheetPrecedence); safecall;
    procedure Delete; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property FullName: WideString read Get_FullName;
    property Index: Integer read Get_Index;
    property Name: WideString read Get_Name;
    property Path: WideString read Get_Path;
    property type_: WdStyleSheetLinkType read Get_type_ write Set_type_;
    property Title: WideString read Get_Title write Set_Title;
  end;

// *********************************************************************//
// DispIntf:  StyleSheetDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {000209EF-0000-0000-C000-000000000046}
// *********************************************************************//
  StyleSheetDisp = dispinterface
    ['{000209EF-0000-0000-C000-000000000046}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 100;
    property FullName: WideString readonly dispid 1;
    property Index: Integer readonly dispid 2;
    property Name: WideString readonly dispid 3;
    property Path: WideString readonly dispid 4;
    property type_: WdStyleSheetLinkType dispid 5;
    property Title: WideString dispid 6;
    procedure Move(Precedence: WdStyleSheetPrecedence); dispid 7;
    procedure Delete; dispid 8;
  end;

// *********************************************************************//
// Interface: StyleSheets
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {07B7CC7E-E66C-11D3-9454-00105AA31A08}
// *********************************************************************//
  StyleSheets = interface(IDispatch)
    ['{07B7CC7E-E66C-11D3-9454-00105AA31A08}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): StyleSheet; safecall;
    function Add(const FileName: WideString; LinkType: WdStyleSheetLinkType; 
                 const Title: WideString; Precedence: WdStyleSheetPrecedence): StyleSheet; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  StyleSheetsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {07B7CC7E-E66C-11D3-9454-00105AA31A08}
// *********************************************************************//
  StyleSheetsDisp = dispinterface
    ['{07B7CC7E-E66C-11D3-9454-00105AA31A08}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    function Item(var Index: OleVariant): StyleSheet; dispid 0;
    function Add(const FileName: WideString; LinkType: WdStyleSheetLinkType; 
                 const Title: WideString; Precedence: WdStyleSheetPrecedence): StyleSheet; dispid 2;
  end;

// *********************************************************************//
// Interface: MappedDataField
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {5D311669-EA51-11D3-87CC-00105AA31A34}
// *********************************************************************//
  MappedDataField = interface(IDispatch)
    ['{5D311669-EA51-11D3-87CC-00105AA31A34}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Index: Integer; safecall;
    function Get_DataFieldName: WideString; safecall;
    function Get_Name: WideString; safecall;
    function Get_Value: WideString; safecall;
    function Get_DataFieldIndex: Integer; safecall;
    procedure Set_DataFieldIndex(prop: Integer); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Index: Integer read Get_Index;
    property DataFieldName: WideString read Get_DataFieldName;
    property Name: WideString read Get_Name;
    property Value: WideString read Get_Value;
    property DataFieldIndex: Integer read Get_DataFieldIndex write Set_DataFieldIndex;
  end;

// *********************************************************************//
// DispIntf:  MappedDataFieldDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {5D311669-EA51-11D3-87CC-00105AA31A34}
// *********************************************************************//
  MappedDataFieldDisp = dispinterface
    ['{5D311669-EA51-11D3-87CC-00105AA31A34}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Index: Integer readonly dispid 1;
    property DataFieldName: WideString readonly dispid 2;
    property Name: WideString readonly dispid 0;
    property Value: WideString readonly dispid 4;
    property DataFieldIndex: Integer dispid 5;
  end;

// *********************************************************************//
// Interface: MappedDataFields
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {799A6814-EA41-11D3-87CC-00105AA31A34}
// *********************************************************************//
  MappedDataFields = interface(IDispatch)
    ['{799A6814-EA41-11D3-87CC-00105AA31A34}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Item(Index: WdMappedDataFields): MappedDataField; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  MappedDataFieldsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {799A6814-EA41-11D3-87CC-00105AA31A34}
// *********************************************************************//
  MappedDataFieldsDisp = dispinterface
    ['{799A6814-EA41-11D3-87CC-00105AA31A34}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Count: Integer readonly dispid 1;
    property _NewEnum: IUnknown readonly dispid -4;
    function Item(Index: WdMappedDataFields): MappedDataField; dispid 0;
  end;

// *********************************************************************//
// Interface: CanvasShapes
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {396F9073-F9FD-11D3-8EA0-0050049A1A01}
// *********************************************************************//
  CanvasShapes = interface(IDispatch)
    ['{396F9073-F9FD-11D3-8EA0-0050049A1A01}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Item(var Index: OleVariant): Shape; safecall;
    function AddCallout(Type_: MsoCalloutType; Left: Single; Top: Single; Width: Single; 
                        Height: Single): Shape; safecall;
    function AddConnector(Type_: MsoConnectorType; BeginX: Single; BeginY: Single; EndX: Single; 
                          EndY: Single): Shape; safecall;
    function AddCurve(var SafeArrayOfPoints: OleVariant): Shape; safecall;
    function AddLabel(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
                      Height: Single): Shape; safecall;
    function AddLine(BeginX: Single; BeginY: Single; EndX: Single; EndY: Single): Shape; safecall;
    function AddPicture(const FileName: WideString; var LinkToFile: OleVariant; 
                        var SaveWithDocument: OleVariant; var Left: OleVariant; 
                        var Top: OleVariant; var Width: OleVariant; var Height: OleVariant): Shape; safecall;
    function AddPolyline(var SafeArrayOfPoints: OleVariant): Shape; safecall;
    function AddShape(Type_: Integer; Left: Single; Top: Single; Width: Single; Height: Single): Shape; safecall;
    function AddTextEffect(PresetTextEffect: MsoPresetTextEffect; const Text: WideString; 
                           const FontName: WideString; FontSize: Single; FontBold: MsoTriState; 
                           FontItalic: MsoTriState; Left: Single; Top: Single): Shape; safecall;
    function AddTextbox(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
                        Height: Single): Shape; safecall;
    function BuildFreeform(EditingType: MsoEditingType; X1: Single; Y1: Single): FreeformBuilder; safecall;
    function Range(var Index: OleVariant): ShapeRange; safecall;
    procedure SelectAll; safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  CanvasShapesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {396F9073-F9FD-11D3-8EA0-0050049A1A01}
// *********************************************************************//
  CanvasShapesDisp = dispinterface
    ['{396F9073-F9FD-11D3-8EA0-0050049A1A01}']
    property Application: WordApplication readonly dispid 8000;
    property Creator: Integer readonly dispid 8001;
    property Parent: IDispatch readonly dispid 1;
    property Count: Integer readonly dispid 2;
    property _NewEnum: IUnknown readonly dispid -4;
    function Item(var Index: OleVariant): Shape; dispid 0;
    function AddCallout(Type_: MsoCalloutType; Left: Single; Top: Single; Width: Single; 
                        Height: Single): Shape; dispid 10;
    function AddConnector(Type_: MsoConnectorType; BeginX: Single; BeginY: Single; EndX: Single; 
                          EndY: Single): Shape; dispid 11;
    function AddCurve(var SafeArrayOfPoints: OleVariant): Shape; dispid 12;
    function AddLabel(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
                      Height: Single): Shape; dispid 13;
    function AddLine(BeginX: Single; BeginY: Single; EndX: Single; EndY: Single): Shape; dispid 14;
    function AddPicture(const FileName: WideString; var LinkToFile: OleVariant; 
                        var SaveWithDocument: OleVariant; var Left: OleVariant; 
                        var Top: OleVariant; var Width: OleVariant; var Height: OleVariant): Shape; dispid 15;
    function AddPolyline(var SafeArrayOfPoints: OleVariant): Shape; dispid 16;
    function AddShape(Type_: Integer; Left: Single; Top: Single; Width: Single; Height: Single): Shape; dispid 17;
    function AddTextEffect(PresetTextEffect: MsoPresetTextEffect; const Text: WideString; 
                           const FontName: WideString; FontSize: Single; FontBold: MsoTriState; 
                           FontItalic: MsoTriState; Left: Single; Top: Single): Shape; dispid 18;
    function AddTextbox(Orientation: MsoTextOrientation; Left: Single; Top: Single; Width: Single; 
                        Height: Single): Shape; dispid 19;
    function BuildFreeform(EditingType: MsoEditingType; X1: Single; Y1: Single): FreeformBuilder; dispid 20;
    function Range(var Index: OleVariant): ShapeRange; dispid 21;
    procedure SelectAll; dispid 22;
  end;

// *********************************************************************//
// Interface: TableStyle
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B7564E97-0519-4C68-B400-3803E7C63242}
// *********************************************************************//
  TableStyle = interface(IDispatch)
    ['{B7564E97-0519-4C68-B400-3803E7C63242}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_AllowPageBreaks: WordBool; safecall;
    procedure Set_AllowPageBreaks(prop: WordBool); safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_BottomPadding: Single; safecall;
    procedure Set_BottomPadding(prop: Single); safecall;
    function Get_LeftPadding: Single; safecall;
    procedure Set_LeftPadding(prop: Single); safecall;
    function Get_TopPadding: Single; safecall;
    procedure Set_TopPadding(prop: Single); safecall;
    function Get_RightPadding: Single; safecall;
    procedure Set_RightPadding(prop: Single); safecall;
    function Get_Alignment: WdRowAlignment; safecall;
    procedure Set_Alignment(prop: WdRowAlignment); safecall;
    function Get_Spacing: Single; safecall;
    procedure Set_Spacing(prop: Single); safecall;
    function Condition(ConditionCode: WdConditionCode): ConditionalStyle; safecall;
    function Get_TableDirection: WdTableDirection; safecall;
    procedure Set_TableDirection(prop: WdTableDirection); safecall;
    function Get_AllowBreakAcrossPage: Integer; safecall;
    procedure Set_AllowBreakAcrossPage(prop: Integer); safecall;
    function Get_LeftIndent: Single; safecall;
    procedure Set_LeftIndent(prop: Single); safecall;
    function Get_Shading: Shading; safecall;
    function Get_RowStripe: Integer; safecall;
    procedure Set_RowStripe(prop: Integer); safecall;
    function Get_ColumnStripe: Integer; safecall;
    procedure Set_ColumnStripe(prop: Integer); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property AllowPageBreaks: WordBool read Get_AllowPageBreaks write Set_AllowPageBreaks;
    property Borders: Borders read Get_Borders write Set_Borders;
    property BottomPadding: Single read Get_BottomPadding write Set_BottomPadding;
    property LeftPadding: Single read Get_LeftPadding write Set_LeftPadding;
    property TopPadding: Single read Get_TopPadding write Set_TopPadding;
    property RightPadding: Single read Get_RightPadding write Set_RightPadding;
    property Alignment: WdRowAlignment read Get_Alignment write Set_Alignment;
    property Spacing: Single read Get_Spacing write Set_Spacing;
    property TableDirection: WdTableDirection read Get_TableDirection write Set_TableDirection;
    property AllowBreakAcrossPage: Integer read Get_AllowBreakAcrossPage write Set_AllowBreakAcrossPage;
    property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
    property Shading: Shading read Get_Shading;
    property RowStripe: Integer read Get_RowStripe write Set_RowStripe;
    property ColumnStripe: Integer read Get_ColumnStripe write Set_ColumnStripe;
  end;

// *********************************************************************//
// DispIntf:  TableStyleDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B7564E97-0519-4C68-B400-3803E7C63242}
// *********************************************************************//
  TableStyleDisp = dispinterface
    ['{B7564E97-0519-4C68-B400-3803E7C63242}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 100;
    property AllowPageBreaks: WordBool dispid 2;
    property Borders: Borders dispid 3;
    property BottomPadding: Single dispid 4;
    property LeftPadding: Single dispid 5;
    property TopPadding: Single dispid 6;
    property RightPadding: Single dispid 7;
    property Alignment: WdRowAlignment dispid 9;
    property Spacing: Single dispid 10;
    function Condition(ConditionCode: WdConditionCode): ConditionalStyle; dispid 16;
    property TableDirection: WdTableDirection dispid 12;
    property AllowBreakAcrossPage: Integer dispid 13;
    property LeftIndent: Single dispid 14;
    property Shading: Shading readonly dispid 15;
    property RowStripe: Integer dispid 17;
    property ColumnStripe: Integer dispid 18;
  end;

// *********************************************************************//
// Interface: ConditionalStyle
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {1498F56D-ED33-41F9-B37B-EF30E50B08AC}
// *********************************************************************//
  ConditionalStyle = interface(IDispatch)
    ['{1498F56D-ED33-41F9-B37B-EF30E50B08AC}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Shading: Shading; safecall;
    function Get_Borders: Borders; safecall;
    procedure Set_Borders(const prop: Borders); safecall;
    function Get_BottomPadding: Single; safecall;
    procedure Set_BottomPadding(prop: Single); safecall;
    function Get_TopPadding: Single; safecall;
    procedure Set_TopPadding(prop: Single); safecall;
    function Get_LeftPadding: Single; safecall;
    procedure Set_LeftPadding(prop: Single); safecall;
    function Get_RightPadding: Single; safecall;
    procedure Set_RightPadding(prop: Single); safecall;
    function Get_ParagraphFormat: WordParagraphFormat; safecall;
    procedure Set_ParagraphFormat(const prop: WordParagraphFormat); safecall;
    function Get_Font: WordFont; safecall;
    procedure Set_Font(const prop: WordFont); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Shading: Shading read Get_Shading;
    property Borders: Borders read Get_Borders write Set_Borders;
    property BottomPadding: Single read Get_BottomPadding write Set_BottomPadding;
    property TopPadding: Single read Get_TopPadding write Set_TopPadding;
    property LeftPadding: Single read Get_LeftPadding write Set_LeftPadding;
    property RightPadding: Single read Get_RightPadding write Set_RightPadding;
    property ParagraphFormat: WordParagraphFormat read Get_ParagraphFormat write Set_ParagraphFormat;
    property Font: WordFont read Get_Font write Set_Font;
  end;

// *********************************************************************//
// DispIntf:  ConditionalStyleDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {1498F56D-ED33-41F9-B37B-EF30E50B08AC}
// *********************************************************************//
  ConditionalStyleDisp = dispinterface
    ['{1498F56D-ED33-41F9-B37B-EF30E50B08AC}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 100;
    property Shading: Shading readonly dispid 1;
    property Borders: Borders dispid 2;
    property BottomPadding: Single dispid 3;
    property TopPadding: Single dispid 4;
    property LeftPadding: Single dispid 5;
    property RightPadding: Single dispid 6;
    property ParagraphFormat: WordParagraphFormat dispid 9;
    property Font: WordFont dispid 10;
  end;

// *********************************************************************//
// Interface: FootnoteOptions
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {BEA85A24-D7DA-4F3D-B58C-ED90FB01D615}
// *********************************************************************//
  FootnoteOptions = interface(IDispatch)
    ['{BEA85A24-D7DA-4F3D-B58C-ED90FB01D615}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Location: WdFootnoteLocation; safecall;
    procedure Set_Location(prop: WdFootnoteLocation); safecall;
    function Get_NumberStyle: WdNoteNumberStyle; safecall;
    procedure Set_NumberStyle(prop: WdNoteNumberStyle); safecall;
    function Get_StartingNumber: Integer; safecall;
    procedure Set_StartingNumber(prop: Integer); safecall;
    function Get_NumberingRule: WdNumberingRule; safecall;
    procedure Set_NumberingRule(prop: WdNumberingRule); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Location: WdFootnoteLocation read Get_Location write Set_Location;
    property NumberStyle: WdNoteNumberStyle read Get_NumberStyle write Set_NumberStyle;
    property StartingNumber: Integer read Get_StartingNumber write Set_StartingNumber;
    property NumberingRule: WdNumberingRule read Get_NumberingRule write Set_NumberingRule;
  end;

// *********************************************************************//
// DispIntf:  FootnoteOptionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {BEA85A24-D7DA-4F3D-B58C-ED90FB01D615}
// *********************************************************************//
  FootnoteOptionsDisp = dispinterface
    ['{BEA85A24-D7DA-4F3D-B58C-ED90FB01D615}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Location: WdFootnoteLocation dispid 100;
    property NumberStyle: WdNoteNumberStyle dispid 101;
    property StartingNumber: Integer dispid 102;
    property NumberingRule: WdNumberingRule dispid 103;
  end;

// *********************************************************************//
// Interface: EndnoteOptions
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {BF043168-F4DE-4E7C-B206-741A8B3EF71A}
// *********************************************************************//
  EndnoteOptions = interface(IDispatch)
    ['{BF043168-F4DE-4E7C-B206-741A8B3EF71A}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Location: WdEndnoteLocation; safecall;
    procedure Set_Location(prop: WdEndnoteLocation); safecall;
    function Get_NumberStyle: WdNoteNumberStyle; safecall;
    procedure Set_NumberStyle(prop: WdNoteNumberStyle); safecall;
    function Get_StartingNumber: Integer; safecall;
    procedure Set_StartingNumber(prop: Integer); safecall;
    function Get_NumberingRule: WdNumberingRule; safecall;
    procedure Set_NumberingRule(prop: WdNumberingRule); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Location: WdEndnoteLocation read Get_Location write Set_Location;
    property NumberStyle: WdNoteNumberStyle read Get_NumberStyle write Set_NumberStyle;
    property StartingNumber: Integer read Get_StartingNumber write Set_StartingNumber;
    property NumberingRule: WdNumberingRule read Get_NumberingRule write Set_NumberingRule;
  end;

// *********************************************************************//
// DispIntf:  EndnoteOptionsDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {BF043168-F4DE-4E7C-B206-741A8B3EF71A}
// *********************************************************************//
  EndnoteOptionsDisp = dispinterface
    ['{BF043168-F4DE-4E7C-B206-741A8B3EF71A}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Location: WdEndnoteLocation dispid 100;
    property NumberStyle: WdNoteNumberStyle dispid 101;
    property StartingNumber: Integer dispid 102;
    property NumberingRule: WdNumberingRule dispid 103;
  end;

// *********************************************************************//
// Interface: Reviewers
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {12DCDC9A-5418-48A3-BBE6-EB57BAE275E8}
// *********************************************************************//
  Reviewers = interface(IDispatch)
    ['{12DCDC9A-5418-48A3-BBE6-EB57BAE275E8}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Count: Integer; safecall;
    function Item(var Index: OleVariant): Reviewer; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Count: Integer read Get_Count;
  end;

// *********************************************************************//
// DispIntf:  ReviewersDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {12DCDC9A-5418-48A3-BBE6-EB57BAE275E8}
// *********************************************************************//
  ReviewersDisp = dispinterface
    ['{12DCDC9A-5418-48A3-BBE6-EB57BAE275E8}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Count: Integer readonly dispid 2;
    function Item(var Index: OleVariant): Reviewer; dispid 0;
  end;

// *********************************************************************//
// Interface: Reviewer
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {47CEF4AE-DC32-4220-8AA5-19CCC0E6633A}
// *********************************************************************//
  Reviewer = interface(IDispatch)
    ['{47CEF4AE-DC32-4220-8AA5-19CCC0E6633A}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Visible(prop: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Visible: WordBool read Get_Visible write Set_Visible;
  end;

// *********************************************************************//
// DispIntf:  ReviewerDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {47CEF4AE-DC32-4220-8AA5-19CCC0E6633A}
// *********************************************************************//
  ReviewerDisp = dispinterface
    ['{47CEF4AE-DC32-4220-8AA5-19CCC0E6633A}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Visible: WordBool dispid 0;
  end;

// *********************************************************************//
// Interface: TaskPane
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B9F1A4E2-0D0A-43B7-8495-139E7ACBD840}
// *********************************************************************//
  TaskPane = interface(IDispatch)
    ['{B9F1A4E2-0D0A-43B7-8495-139E7ACBD840}']
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Get_Visible: WordBool; safecall;
    procedure Set_Visible(prop: WordBool); safecall;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Visible: WordBool read Get_Visible write Set_Visible;
  end;

// *********************************************************************//
// DispIntf:  TaskPaneDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {B9F1A4E2-0D0A-43B7-8495-139E7ACBD840}
// *********************************************************************//
  TaskPaneDisp = dispinterface
    ['{B9F1A4E2-0D0A-43B7-8495-139E7ACBD840}']
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    property Visible: WordBool dispid 1003;
  end;

// *********************************************************************//
// Interface: TaskPanes
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {E6AAEC05-E543-4085-BA92-9BF7D2474F5C}
// *********************************************************************//
  TaskPanes = interface(IDispatch)
    ['{E6AAEC05-E543-4085-BA92-9BF7D2474F5C}']
    function Get__NewEnum: IUnknown; safecall;
    function Get_Count: Integer; safecall;
    function Get_Application: WordApplication; safecall;
    function Get_Creator: Integer; safecall;
    function Get_Parent: IDispatch; safecall;
    function Item(Index: WdTaskPanes): TaskPane; safecall;
    property _NewEnum: IUnknown read Get__NewEnum;
    property Count: Integer read Get_Count;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
  end;

// *********************************************************************//
// DispIntf:  TaskPanesDisp
// Flags:     (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID:      {E6AAEC05-E543-4085-BA92-9BF7D2474F5C}
// *********************************************************************//
  TaskPanesDisp = dispinterface
    ['{E6AAEC05-E543-4085-BA92-9BF7D2474F5C}']
    property _NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 2;
    property Application: WordApplication readonly dispid 1000;
    property Creator: Integer readonly dispid 1001;
    property Parent: IDispatch readonly dispid 1002;
    function Item(Index: WdTaskPanes): TaskPane; dispid 0;
  end;

// *********************************************************************//
// Interface: IApplicationEvents3
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020A00-0001-0000-C000-000000000046}
// *********************************************************************//
  IApplicationEvents3 = interface(IDispatch)
    ['{00020A00-0001-0000-C000-000000000046}']
    procedure Startup; safecall;
    procedure Quit; safecall;
    procedure DocumentChange; safecall;
    procedure DocumentOpen(const Doc: WordDocument); safecall;
    procedure DocumentBeforeClose(const Doc: WordDocument; var Cancel: WordBool); safecall;
    procedure DocumentBeforePrint(const Doc: WordDocument; var Cancel: WordBool); safecall;
    procedure DocumentBeforeSave(const Doc: WordDocument; var SaveAsUI: WordBool; 
                                 var Cancel: WordBool); safecall;
    procedure NewDocument(const Doc: WordDocument); safecall;
    procedure WindowActivate(const Doc: WordDocument; const Wn: Window); safecall;
    procedure WindowDeactivate(const Doc: WordDocument; const Wn: Window); safecall;
    procedure WindowSelectionChange(const Sel: WordSelection); safecall;
    procedure WindowBeforeRightClick(const Sel: WordSelection; var Cancel: WordBool); safecall;
    procedure WindowBeforeDoubleClick(const Sel: WordSelection; var Cancel: WordBool); safecall;
    procedure EPostagePropertyDialog(const Doc: WordDocument); safecall;
    procedure EPostageInsert(const Doc: WordDocument); safecall;
    procedure MailMergeAfterMerge(const Doc: WordDocument; const DocResult: WordDocument); safecall;
    procedure MailMergeAfterRecordMerge(const Doc: WordDocument); safecall;
    procedure MailMergeBeforeMerge(const Doc: WordDocument; StartRecord: Integer; 
                                   EndRecord: Integer; var Cancel: WordBool); safecall;
    procedure MailMergeBeforeRecordMerge(const Doc: WordDocument; var Cancel: WordBool); safecall;
    procedure MailMergeDataSourceLoad(const Doc: WordDocument); safecall;
    procedure MailMergeDataSourceValidate(const Doc: WordDocument; var Handled: WordBool); safecall;
    procedure MailMergeWizardSendToCustom(const Doc: WordDocument); safecall;
    procedure MailMergeWizardStateChange(const Doc: WordDocument; var FromState: SYSINT; 
                                         var ToState: SYSINT; var Handled: WordBool); safecall;
    procedure WindowSize(const Doc: WordDocument; const Wn: Window); safecall;
  end;

// *********************************************************************//
// DispIntf:  IApplicationEvents3Disp
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {00020A00-0001-0000-C000-000000000046}
// *********************************************************************//
  IApplicationEvents3Disp = dispinterface
    ['{00020A00-0001-0000-C000-000000000046}']
    procedure Startup; dispid 1;
    procedure Quit; dispid 2;
    procedure DocumentChange; dispid 3;
    procedure DocumentOpen(const Doc: WordDocument); dispid 4;
    procedure DocumentBeforeClose(const Doc: WordDocument; var Cancel: WordBool); dispid 6;
    procedure DocumentBeforePrint(const Doc: WordDocument; var Cancel: WordBool); dispid 7;
    procedure DocumentBeforeSave(const Doc: WordDocument; var SaveAsUI: WordBool; 
                                 var Cancel: WordBool); dispid 8;
    procedure NewDocument(const Doc: WordDocument); dispid 9;
    procedure WindowActivate(const Doc: WordDocument; const Wn: Window); dispid 10;
    procedure WindowDeactivate(const Doc: WordDocument; const Wn: Window); dispid 11;
    procedure WindowSelectionChange(const Sel: WordSelection); dispid 12;
    procedure WindowBeforeRightClick(const Sel: WordSelection; var Cancel: WordBool); dispid 13;
    procedure WindowBeforeDoubleClick(const Sel: WordSelection; var Cancel: WordBool); dispid 14;
    procedure EPostagePropertyDialog(const Doc: WordDocument); dispid 15;
    procedure EPostageInsert(const Doc: WordDocument); dispid 16;
    procedure MailMergeAfterMerge(const Doc: WordDocument; const DocResult: WordDocument); dispid 17;
    procedure MailMergeAfterRecordMerge(const Doc: WordDocument); dispid 18;
    procedure MailMergeBeforeMerge(const Doc: WordDocument; StartRecord: Integer; 
                                   EndRecord: Integer; var Cancel: WordBool); dispid 19;
    procedure MailMergeBeforeRecordMerge(const Doc: WordDocument; var Cancel: WordBool); dispid 20;
    procedure MailMergeDataSourceLoad(const Doc: WordDocument); dispid 21;
    procedure MailMergeDataSourceValidate(const Doc: WordDocument; var Handled: WordBool); dispid 22;
    procedure MailMergeWizardSendToCustom(const Doc: WordDocument); dispid 23;
    procedure MailMergeWizardStateChange(const Doc: WordDocument; var FromState: SYSINT; 
                                         var ToState: SYSINT; var Handled: WordBool); dispid 24;
    procedure WindowSize(const Doc: WordDocument; const Wn: Window); dispid 25;
  end;

// *********************************************************************//
// The Class CoWordGlobal provides a Create and CreateRemote method to          
// create instances of the default interface _Global exposed by              
// the CoClass WordGlobal. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoWordGlobal = class
    class function Create: _Global;
    class function CreateRemote(const MachineName: string): _Global;
  end;

// *********************************************************************//
// The Class CoWordDocument provides a Create and CreateRemote method to          
// create instances of the default interface _Document exposed by              
// the CoClass WordDocument. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoWordDocument = class
    class function Create: _Document;
    class function CreateRemote(const MachineName: string): _Document;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TWordDocument
// Help String      : 
// Default Interface: _Document
// Def. Intf. DISP? : No
// Event   Interface: DocumentEvents
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TWordDocumentProperties= class;
{$ENDIF}
  TWordDocument = class(TOleServer)
  private
    FOnNew: TNotifyEvent;
    FOnOpen: TNotifyEvent;
    FOnClose: TNotifyEvent;
    FIntf:        _Document;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TWordDocumentProperties;
    function      GetServerProperties: TWordDocumentProperties;
{$ENDIF}
    function      GetDefaultInterface: _Document;
  protected
    procedure InitServerData; override;
    procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
    function Get_Name: WideString;
    function Get_Application: WordApplication;
    function Get_Creator: Integer;
    function Get_Parent: IDispatch;
    function Get_BuiltInDocumentProperties: IDispatch;
    function Get_CustomDocumentProperties: IDispatch;
    function Get_Path: WideString;
    function Get_Bookmarks: Bookmarks;
    function Get_Tables: Tables;
    function Get_Footnotes: Footnotes;
    function Get_Endnotes: Endnotes;
    function Get_Comments: Comments;
    function Get_type_: WdDocumentType;
    function Get_AutoHyphenation: WordBool;
    procedure Set_AutoHyphenation(prop: WordBool);
    function Get_HyphenateCaps: WordBool;
    procedure Set_HyphenateCaps(prop: WordBool);
    function Get_HyphenationZone: Integer;
    procedure Set_HyphenationZone(prop: Integer);
    function Get_ConsecutiveHyphensLimit: Integer;
    procedure Set_ConsecutiveHyphensLimit(prop: Integer);
    function Get_Sections: Sections;
    function Get_Paragraphs: Paragraphs;
    function Get_Words: Words;
    function Get_Sentences: Sentences;
    function Get_Characters: Characters;
    function Get_Fields: Fields;
    function Get_FormFields: FormFields;
    function Get_Styles: Styles;
    function Get_Frames: Frames;
    function Get_TablesOfFigures: TablesOfFigures;
    function Get_Variables: Variables;
    function Get_MailMerge: MailMerge;
    function Get_Envelope: Envelope;
    function Get_FullName: WideString;
    function Get_Revisions: Revisions;
    function Get_TablesOfContents: TablesOfContents;
    function Get_TablesOfAuthorities: TablesOfAuthorities;
    function Get_PageSetup: PageSetup;
    procedure Set_PageSetup(const prop: PageSetup);
    function Get_Windows: Windows;
    function Get_HasRoutingSlip: WordBool;
    procedure Set_HasRoutingSlip(prop: WordBool);
    function Get_RoutingSlip: RoutingSlip;
    function Get_Routed: WordBool;
    function Get_TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories;
    function Get_Indexes: Indexes;
    function Get_Saved: WordBool;
    procedure Set_Saved(prop: WordBool);
    function Get_Content: Range;
    function Get_ActiveWindow: Window;
    function Get_Kind: WdDocumentKind;
    procedure Set_Kind(prop: WdDocumentKind);
    function Get_ReadOnly: WordBool;
    function Get_Subdocuments: Subdocuments;
    function Get_IsMasterDocument: WordBool;
    function Get_DefaultTabStop: Single;
    procedure Set_DefaultTabStop(prop: Single);
    function Get_EmbedTrueTypeFonts: WordBool;
    procedure Set_EmbedTrueTypeFonts(prop: WordBool);
    function Get_SaveFormsData: WordBool;
    procedure Set_SaveFormsData(prop: WordBool);
    function Get_ReadOnlyRecommended: WordBool;
    procedure Set_ReadOnlyRecommended(prop: WordBool);
    function Get_SaveSubsetFonts: WordBool;
    procedure Set_SaveSubsetFonts(prop: WordBool);
    function Get_Compatibility(Type_: WdCompatibility): WordBool;
    procedure Set_Compatibility(Type_: WdCompatibility; prop: WordBool);
    function Get_StoryRanges: StoryRanges;
    function Get_CommandBars: CommandBars;
    function Get_IsSubdocument: WordBool;
    function Get_SaveFormat: Integer;
    function Get_ProtectionType: WdProtectionType;
    function Get_Hyperlinks: Hyperlinks;
    function Get_Shapes: Shapes;
    function Get_ListTemplates: ListTemplates;
    function Get_Lists: Lists;
    function Get_UpdateStylesOnOpen: WordBool;
    procedure Set_UpdateStylesOnOpen(prop: WordBool);
    function Get_AttachedTemplate: OleVariant;
    procedure Set_AttachedTemplate(var prop: OleVariant);
    function Get_InlineShapes: InlineShapes;
    function Get_Background: Shape;
    procedure Set_Background(const prop: Shape);
    function Get_GrammarChecked: WordBool;
    procedure Set_GrammarChecked(prop: WordBool);
    function Get_SpellingChecked: WordBool;
    procedure Set_SpellingChecked(prop: WordBool);
    function Get_ShowGrammaticalErrors: WordBool;
    procedure Set_ShowGrammaticalErrors(prop: WordBool);
    function Get_ShowSpellingErrors: WordBool;
    procedure Set_ShowSpellingErrors(prop: WordBool);
    function Get_Versions: Versions;
    function Get_ShowSummary: WordBool;
    procedure Set_ShowSummary(prop: WordBool);
    function Get_SummaryViewMode: WdSummaryMode;
    procedure Set_SummaryViewMode(prop: WdSummaryMode);
    function Get_SummaryLength: Integer;
    procedure Set_SummaryLength(prop: Integer);
    function Get_PrintFractionalWidths: WordBool;
    procedure Set_PrintFractionalWidths(prop: WordBool);
    function Get_PrintPostScriptOverText: WordBool;
    procedure Set_PrintPostScriptOverText(prop: WordBool);
    function Get_Container: IDispatch;
    function Get_PrintFormsData: WordBool;
    procedure Set_PrintFormsData(prop: WordBool);
    function Get_ListParagraphs: ListParagraphs;
    procedure Set_Password(const Param1: WideString);
    procedure Set_WritePassword(const Param1: WideString);
    function Get_HasPassword: WordBool;
    function Get_WriteReserved: WordBool;
    function Get_ActiveWritingStyle(var LanguageID: OleVariant): WideString;
    procedure Set_ActiveWritingStyle(var LanguageID: OleVariant; const prop: WideString);
    function Get_UserControl: WordBool;
    procedure Set_UserControl(prop: WordBool);
    function Get_HasMailer: WordBool;
    procedure Set_HasMailer(prop: WordBool);
    function Get_Mailer: Mailer;
    function Get_ReadabilityStatistics: ReadabilityStatistics;
    function Get_GrammaticalErrors: ProofreadingErrors;
    function Get_SpellingErrors: ProofreadingErrors;
    function Get_VBProject: VBProject;
    function Get_FormsDesign: WordBool;
    function Get__CodeName: WideString;
    procedure Set__CodeName(const prop: WideString);
    function Get_CodeName: WideString;
    function Get_SnapToGrid: WordBool;
    procedure Set_SnapToGrid(prop: WordBool);
    function Get_SnapToShapes: WordBool;
    procedure Set_SnapToShapes(prop: WordBool);
    function Get_GridDistanceHorizontal: Single;
    procedure Set_GridDistanceHorizontal(prop: Single);
    function Get_GridDistanceVertical: Single;
    procedure Set_GridDistanceVertical(prop: Single);
    function Get_GridOriginHorizontal: Single;
    procedure Set_GridOriginHorizontal(prop: Single);
    function Get_GridOriginVertical: Single;
    procedure Set_GridOriginVertical(prop: Single);
    function Get_GridSpaceBetweenHorizontalLines: Integer;
    procedure Set_GridSpaceBetweenHorizontalLines(prop: Integer);
    function Get_GridSpaceBetweenVerticalLines: Integer;
    procedure Set_GridSpaceBetweenVerticalLines(prop: Integer);
    function Get_GridOriginFromMargin: WordBool;
    procedure Set_GridOriginFromMargin(prop: WordBool);
    function Get_KerningByAlgorithm: WordBool;
    procedure Set_KerningByAlgorithm(prop: WordBool);
    function Get_JustificationMode: WdJustificationMode;
    procedure Set_JustificationMode(prop: WdJustificationMode);
    function Get_FarEastLineBreakLevel: WdFarEastLineBreakLevel;
    procedure Set_FarEastLineBreakLevel(prop: WdFarEastLineBreakLevel);
    function Get_NoLineBreakBefore: WideString;
    procedure Set_NoLineBreakBefore(const prop: WideString);
    function Get_NoLineBreakAfter: WideString;
    procedure Set_NoLineBreakAfter(const prop: WideString);
    function Get_TrackRevisions: WordBool;
    procedure Set_TrackRevisions(prop: WordBool);
    function Get_PrintRevisions: WordBool;
    procedure Set_PrintRevisions(prop: WordBool);
    function Get_ShowRevisions: WordBool;
    procedure Set_ShowRevisions(prop: WordBool);
    function Get_ActiveTheme: WideString;
    function Get_ActiveThemeDisplayName: WideString;
    function Get_Email: Email;
    function Get_Scripts: Scripts;
    function Get_LanguageDetected: WordBool;
    procedure Set_LanguageDetected(prop: WordBool);
    function Get_FarEastLineBreakLanguage: WdFarEastLineBreakLanguageID;
    procedure Set_FarEastLineBreakLanguage(prop: WdFarEastLineBreakLanguageID);
    function Get_Frameset: Frameset;
    function Get_ClickAndTypeParagraphStyle: OleVariant;
    procedure Set_ClickAndTypeParagraphStyle(var prop: OleVariant);
    function Get_HTMLProject: HTMLProject;
    function Get_WebOptions: WebOptions;
    function Get_OpenEncoding: MsoEncoding;
    function Get_SaveEncoding: MsoEncoding;
    procedure Set_SaveEncoding(prop: MsoEncoding);
    function Get_OptimizeForWord97: WordBool;
    procedure Set_OptimizeForWord97(prop: WordBool);
    function Get_VBASigned: WordBool;
    function Get_MailEnvelope: MsoEnvelope;
    function Get_DisableFeatures: WordBool;
    procedure Set_DisableFeatures(prop: WordBool);
    function Get_DoNotEmbedSystemFonts: WordBool;
    procedure Set_DoNotEmbedSystemFonts(prop: WordBool);
    function Get_Signatures: SignatureSet;
    function Get_DefaultTargetFrame: WideString;
    procedure Set_DefaultTargetFrame(const prop: WideString);
    function Get_HTMLDivisions: HTMLDivisions;
    function Get_DisableFeaturesIntroducedAfter: WdDisableFeaturesIntroducedAfter;
    procedure Set_DisableFeaturesIntroducedAfter(prop: WdDisableFeaturesIntroducedAfter);
    function Get_RemovePersonalInformation: WordBool;
    procedure Set_RemovePersonalInformation(prop: WordBool);
    function Get_SmartTags: SmartTags;
    function Get_EmbedSmartTags: WordBool;
    procedure Set_EmbedSmartTags(prop: WordBool);
    function Get_SmartTagsAsXMLProps: WordBool;
    procedure Set_SmartTagsAsXMLProps(prop: WordBool);
    function Get_TextEncoding: MsoEncoding;
    procedure Set_TextEncoding(prop: MsoEncoding);
    function Get_TextLineEnding: WdLineEndingType;
    procedure Set_TextLineEnding(prop: WdLineEndingType);
    function Get_StyleSheets: StyleSheets;
    function Get_DefaultTableStyle: OleVariant;
    function Get_PasswordEncryptionProvider: WideString;
    function Get_PasswordEncryptionAlgorithm: WideString;
    function Get_PasswordEncryptionKeyLength: Integer;
    function Get_PasswordEncryptionFileProperties: WordBool;
    function Get_EmbedLinguisticData: WordBool;
    procedure Set_EmbedLinguisticData(prop: WordBool);
    function Get_FormattingShowFont: WordBool;
    procedure Set_FormattingShowFont(prop: WordBool);
    function Get_FormattingShowClear: WordBool;
    procedure Set_FormattingShowClear(prop: WordBool);
    function Get_FormattingShowParagraph: WordBool;
    procedure Set_FormattingShowParagraph(prop: WordBool);
    function Get_FormattingShowNumbering: WordBool;
    procedure Set_FormattingShowNumbering(prop: WordBool);
    function Get_FormattingShowFilter: WdShowFilter;
    procedure Set_FormattingShowFilter(prop: WdShowFilter);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: _Document);
    procedure Disconnect; override;
    procedure Close; overload;
    procedure Close(var SaveChanges: OleVariant); overload;
    procedure Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant); overload;
    procedure Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
                    var RouteDocument: OleVariant); overload;
    procedure SaveAs2000; overload;
    procedure SaveAs2000(var FileName: OleVariant); overload;
    procedure SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant); overload;
    procedure SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                         var LockComments: OleVariant); overload;
    procedure SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                         var LockComments: OleVariant; var Password: OleVariant); overload;
    procedure SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                         var LockComments: OleVariant; var Password: OleVariant; 
                         var AddToRecentFiles: OleVariant); overload;
    procedure SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                         var LockComments: OleVariant; var Password: OleVariant; 
                         var AddToRecentFiles: OleVariant; var WritePassword: OleVariant); overload;
    procedure SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                         var LockComments: OleVariant; var Password: OleVariant; 
                         var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                         var ReadOnlyRecommended: OleVariant); overload;
    procedure SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                         var LockComments: OleVariant; var Password: OleVariant; 
                         var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                         var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant); overload;
    procedure SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                         var LockComments: OleVariant; var Password: OleVariant; 
                         var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                         var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                         var SaveNativePictureFormat: OleVariant); overload;
    procedure SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                         var LockComments: OleVariant; var Password: OleVariant; 
                         var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                         var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                         var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant); overload;
    procedure SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                         var LockComments: OleVariant; var Password: OleVariant; 
                         var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                         var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                         var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant; 
                         var SaveAsAOCELetter: OleVariant); overload;
    procedure Repaginate;
    procedure FitToPages;
    procedure ManualHyphenation;
    procedure Select;
    procedure DataForm;
    procedure Route;
    procedure Save;
    procedure PrintOutOld; overload;
    procedure PrintOutOld(var Background: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant; var Collate: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant; var Collate: OleVariant; 
                          var ActivePrinterMacGX: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant; var Collate: OleVariant; 
                          var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant); overload;
    procedure SendMail;
    function Range: Range; overload;
    function Range(var Start: OleVariant): Range; overload;
    function Range(var Start: OleVariant; var End_: OleVariant): Range; overload;
    procedure RunAutoMacro(Which: WdAutoMacros);
    procedure Activate;
    procedure PrintPreview;
    function GoTo_: Range; overload;
    function GoTo_(var What: OleVariant): Range; overload;
    function GoTo_(var What: OleVariant; var Which: OleVariant): Range; overload;
    function GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant): Range; overload;
    function GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
                   var Name: OleVariant): Range; overload;
    function Undo: WordBool; overload;
    function Undo(var Times: OleVariant): WordBool; overload;
    function Redo: WordBool; overload;
    function Redo(var Times: OleVariant): WordBool; overload;
    function ComputeStatistics(Statistic: WdStatistic): Integer; overload;
    function ComputeStatistics(Statistic: WdStatistic; var IncludeFootnotesAndEndnotes: OleVariant): Integer; overload;
    procedure MakeCompatibilityDefault;
    procedure Protect(Type_: WdProtectionType); overload;
    procedure Protect(Type_: WdProtectionType; var NoReset: OleVariant); overload;
    procedure Protect(Type_: WdProtectionType; var NoReset: OleVariant; var Password: OleVariant); overload;
    procedure Unprotect; overload;
    procedure Unprotect(var Password: OleVariant); overload;
    procedure EditionOptions(Type_: WdEditionType; Option: WdEditionOption; const Name: WideString); overload;
    procedure EditionOptions(Type_: WdEditionType; Option: WdEditionOption; const Name: WideString; 
                             var Format: OleVariant); overload;
    procedure RunLetterWizard; overload;
    procedure RunLetterWizard(var LetterContent: OleVariant); overload;
    procedure RunLetterWizard(var LetterContent: OleVariant; var WizardMode: OleVariant); overload;
    function GetLetterContent: WordLetterContent;
    procedure SetLetterContent(var LetterContent: OleVariant);
    procedure CopyStylesFromTemplate(const Template: WideString);
    procedure UpdateStyles;
    procedure CheckGrammar;
    procedure CheckSpelling; overload;
    procedure CheckSpelling(var CustomDictionary: OleVariant); overload;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant); overload;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
                            var AlwaysSuggest: OleVariant); overload;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
                            var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant); overload;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
                            var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
                            var CustomDictionary3: OleVariant); overload;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
                            var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
                            var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant); overload;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
                            var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
                            var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
                            var CustomDictionary5: OleVariant); overload;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
                            var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
                            var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
                            var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant); overload;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
                            var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
                            var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
                            var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
                            var CustomDictionary7: OleVariant); overload;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
                            var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
                            var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
                            var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
                            var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant); overload;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
                            var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
                            var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
                            var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
                            var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
                            var CustomDictionary9: OleVariant); overload;
    procedure CheckSpelling(var CustomDictionary: OleVariant; var IgnoreUppercase: OleVariant; 
                            var AlwaysSuggest: OleVariant; var CustomDictionary2: OleVariant; 
                            var CustomDictionary3: OleVariant; var CustomDictionary4: OleVariant; 
                            var CustomDictionary5: OleVariant; var CustomDictionary6: OleVariant; 
                            var CustomDictionary7: OleVariant; var CustomDictionary8: OleVariant; 
                            var CustomDictionary9: OleVariant; var CustomDictionary10: OleVariant); overload;
    procedure FollowHyperlink; overload;
    procedure FollowHyperlink(var Address: OleVariant); overload;
    procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant); overload;
    procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
                              var NewWindow: OleVariant); overload;
    procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
                              var NewWindow: OleVariant; var AddHistory: OleVariant); overload;
    procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
                              var NewWindow: OleVariant; var AddHistory: OleVariant; 
                              var ExtraInfo: OleVariant); overload;
    procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
                              var NewWindow: OleVariant; var AddHistory: OleVariant; 
                              var ExtraInfo: OleVariant; var Method: OleVariant); overload;
    procedure FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
                              var NewWindow: OleVariant; var AddHistory: OleVariant; 
                              var ExtraInfo: OleVariant; var Method: OleVariant; 
                              var HeaderInfo: OleVariant); overload;
    procedure AddToFavorites;
    procedure Reload;
    function AutoSummarize: Range; overload;
    function AutoSummarize(var Length: OleVariant): Range; overload;
    function AutoSummarize(var Length: OleVariant; var Mode: OleVariant): Range; overload;
    function AutoSummarize(var Length: OleVariant; var Mode: OleVariant; 
                           var UpdateProperties: OleVariant): Range; overload;
    procedure RemoveNumbers; overload;
    procedure RemoveNumbers(var NumberType: OleVariant); overload;
    procedure ConvertNumbersToText; overload;
    procedure ConvertNumbersToText(var NumberType: OleVariant); overload;
    function CountNumberedItems: Integer; overload;
    function CountNumberedItems(var NumberType: OleVariant): Integer; overload;
    function CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer; overload;
    procedure Post;
    procedure ToggleFormsDesign;
    procedure Compare2000(const Name: WideString);
    procedure UpdateSummaryProperties;
    function GetCrossReferenceItems(var ReferenceType: OleVariant): OleVariant;
    procedure AutoFormat;
    procedure ViewCode;
    procedure ViewPropertyBrowser;
    procedure ForwardMailer;
    procedure Reply;
    procedure ReplyAll;
    procedure SendMailer; overload;
    procedure SendMailer(var FileFormat: OleVariant); overload;
    procedure SendMailer(var FileFormat: OleVariant; var Priority: OleVariant); overload;
    procedure UndoClear;
    procedure PresentIt;
    procedure SendFax(const Address: WideString); overload;
    procedure SendFax(const Address: WideString; var Subject: OleVariant); overload;
    procedure Merge2000(const FileName: WideString);
    procedure ClosePrintPreview;
    procedure CheckConsistency;
    function CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
                                 const PageDesign: WideString; LetterStyle: WdLetterStyle; 
                                 Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
                                 LetterheadSize: Single; const RecipientName: WideString; 
                                 const RecipientAddress: WideString; const Salutation: WideString; 
                                 SalutationType: WdSalutationType; 
                                 const RecipientReference: WideString; 
                                 const MailingInstructions: WideString; 
                                 const AttentionLine: WideString; const Subject: WideString; 
                                 const CCList: WideString; const ReturnAddress: WideString; 
                                 const SenderName: WideString; const Closing: WideString; 
                                 const SenderCompany: WideString; const SenderJobTitle: WideString; 
                                 const SenderInitials: WideString; EnclosureNumber: Integer): WordLetterContent; overload;
    function CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
                                 const PageDesign: WideString; LetterStyle: WdLetterStyle; 
                                 Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
                                 LetterheadSize: Single; const RecipientName: WideString; 
                                 const RecipientAddress: WideString; const Salutation: WideString; 
                                 SalutationType: WdSalutationType; 
                                 const RecipientReference: WideString; 
                                 const MailingInstructions: WideString; 
                                 const AttentionLine: WideString; const Subject: WideString; 
                                 const CCList: WideString; const ReturnAddress: WideString; 
                                 const SenderName: WideString; const Closing: WideString; 
                                 const SenderCompany: WideString; const SenderJobTitle: WideString; 
                                 const SenderInitials: WideString; EnclosureNumber: Integer; 
                                 var InfoBlock: OleVariant): WordLetterContent; overload;
    function CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
                                 const PageDesign: WideString; LetterStyle: WdLetterStyle; 
                                 Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
                                 LetterheadSize: Single; const RecipientName: WideString; 
                                 const RecipientAddress: WideString; const Salutation: WideString; 
                                 SalutationType: WdSalutationType; 
                                 const RecipientReference: WideString; 
                                 const MailingInstructions: WideString; 
                                 const AttentionLine: WideString; const Subject: WideString; 
                                 const CCList: WideString; const ReturnAddress: WideString; 
                                 const SenderName: WideString; const Closing: WideString; 
                                 const SenderCompany: WideString; const SenderJobTitle: WideString; 
                                 const SenderInitials: WideString; EnclosureNumber: Integer; 
                                 var InfoBlock: OleVariant; var RecipientCode: OleVariant): WordLetterContent; overload;
    function CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
                                 const PageDesign: WideString; LetterStyle: WdLetterStyle; 
                                 Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
                                 LetterheadSize: Single; const RecipientName: WideString; 
                                 const RecipientAddress: WideString; const Salutation: WideString; 
                                 SalutationType: WdSalutationType; 
                                 const RecipientReference: WideString; 
                                 const MailingInstructions: WideString; 
                                 const AttentionLine: WideString; const Subject: WideString; 
                                 const CCList: WideString; const ReturnAddress: WideString; 
                                 const SenderName: WideString; const Closing: WideString; 
                                 const SenderCompany: WideString; const SenderJobTitle: WideString; 
                                 const SenderInitials: WideString; EnclosureNumber: Integer; 
                                 var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
                                 var RecipientGender: OleVariant): WordLetterContent; overload;
    function CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
                                 const PageDesign: WideString; LetterStyle: WdLetterStyle; 
                                 Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
                                 LetterheadSize: Single; const RecipientName: WideString; 
                                 const RecipientAddress: WideString; const Salutation: WideString; 
                                 SalutationType: WdSalutationType; 
                                 const RecipientReference: WideString; 
                                 const MailingInstructions: WideString; 
                                 const AttentionLine: WideString; const Subject: WideString; 
                                 const CCList: WideString; const ReturnAddress: WideString; 
                                 const SenderName: WideString; const Closing: WideString; 
                                 const SenderCompany: WideString; const SenderJobTitle: WideString; 
                                 const SenderInitials: WideString; EnclosureNumber: Integer; 
                                 var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
                                 var RecipientGender: OleVariant; 
                                 var ReturnAddressShortForm: OleVariant): WordLetterContent; overload;
    function CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
                                 const PageDesign: WideString; LetterStyle: WdLetterStyle; 
                                 Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
                                 LetterheadSize: Single; const RecipientName: WideString; 
                                 const RecipientAddress: WideString; const Salutation: WideString; 
                                 SalutationType: WdSalutationType; 
                                 const RecipientReference: WideString; 
                                 const MailingInstructions: WideString; 
                                 const AttentionLine: WideString; const Subject: WideString; 
                                 const CCList: WideString; const ReturnAddress: WideString; 
                                 const SenderName: WideString; const Closing: WideString; 
                                 const SenderCompany: WideString; const SenderJobTitle: WideString; 
                                 const SenderInitials: WideString; EnclosureNumber: Integer; 
                                 var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
                                 var RecipientGender: OleVariant; 
                                 var ReturnAddressShortForm: OleVariant; var SenderCity: OleVariant): WordLetterContent; overload;
    function CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
                                 const PageDesign: WideString; LetterStyle: WdLetterStyle; 
                                 Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
                                 LetterheadSize: Single; const RecipientName: WideString; 
                                 const RecipientAddress: WideString; const Salutation: WideString; 
                                 SalutationType: WdSalutationType; 
                                 const RecipientReference: WideString; 
                                 const MailingInstructions: WideString; 
                                 const AttentionLine: WideString; const Subject: WideString; 
                                 const CCList: WideString; const ReturnAddress: WideString; 
                                 const SenderName: WideString; const Closing: WideString; 
                                 const SenderCompany: WideString; const SenderJobTitle: WideString; 
                                 const SenderInitials: WideString; EnclosureNumber: Integer; 
                                 var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
                                 var RecipientGender: OleVariant; 
                                 var ReturnAddressShortForm: OleVariant; 
                                 var SenderCity: OleVariant; var SenderCode: OleVariant): WordLetterContent; overload;
    function CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
                                 const PageDesign: WideString; LetterStyle: WdLetterStyle; 
                                 Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
                                 LetterheadSize: Single; const RecipientName: WideString; 
                                 const RecipientAddress: WideString; const Salutation: WideString; 
                                 SalutationType: WdSalutationType; 
                                 const RecipientReference: WideString; 
                                 const MailingInstructions: WideString; 
                                 const AttentionLine: WideString; const Subject: WideString; 
                                 const CCList: WideString; const ReturnAddress: WideString; 
                                 const SenderName: WideString; const Closing: WideString; 
                                 const SenderCompany: WideString; const SenderJobTitle: WideString; 
                                 const SenderInitials: WideString; EnclosureNumber: Integer; 
                                 var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
                                 var RecipientGender: OleVariant; 
                                 var ReturnAddressShortForm: OleVariant; 
                                 var SenderCity: OleVariant; var SenderCode: OleVariant; 
                                 var SenderGender: OleVariant): WordLetterContent; overload;
    function CreateLetterContent(const DateFormat: WideString; IncludeHeaderFooter: WordBool; 
                                 const PageDesign: WideString; LetterStyle: WdLetterStyle; 
                                 Letterhead: WordBool; LetterheadLocation: WdLetterheadLocation; 
                                 LetterheadSize: Single; const RecipientName: WideString; 
                                 const RecipientAddress: WideString; const Salutation: WideString; 
                                 SalutationType: WdSalutationType; 
                                 const RecipientReference: WideString; 
                                 const MailingInstructions: WideString; 
                                 const AttentionLine: WideString; const Subject: WideString; 
                                 const CCList: WideString; const ReturnAddress: WideString; 
                                 const SenderName: WideString; const Closing: WideString; 
                                 const SenderCompany: WideString; const SenderJobTitle: WideString; 
                                 const SenderInitials: WideString; EnclosureNumber: Integer; 
                                 var InfoBlock: OleVariant; var RecipientCode: OleVariant; 
                                 var RecipientGender: OleVariant; 
                                 var ReturnAddressShortForm: OleVariant; 
                                 var SenderCity: OleVariant; var SenderCode: OleVariant; 
                                 var SenderGender: OleVariant; var SenderReference: OleVariant): WordLetterContent; overload;
    procedure AcceptAllRevisions;
    procedure RejectAllRevisions;
    procedure DetectLanguage;
    procedure ApplyTheme(const Name: WideString);
    procedure RemoveTheme;
    procedure WebPagePreview;
    procedure ReloadAs(Encoding: MsoEncoding);
    procedure PrintOut2000; overload;
    procedure PrintOut2000(var Background: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var ActivePrinterMacGX: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant; 
                           var PrintZoomColumn: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant; 
                           var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant; 
                           var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                           var PrintZoomPaperWidth: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant; 
                           var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                           var PrintZoomPaperWidth: OleVariant; var PrintZoomPaperHeight: OleVariant); overload;
    procedure sblt(const s: WideString);
    procedure ConvertVietDoc(CodePageOrigin: Integer);
    procedure PrintOut; overload;
    procedure PrintOut(var Background: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var ActivePrinterMacGX: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
                       var ManualDuplexPrint: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
                       var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
                       var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant; 
                       var PrintZoomRow: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
                       var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant; 
                       var PrintZoomRow: OleVariant; var PrintZoomPaperWidth: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
                       var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant; 
                       var PrintZoomRow: OleVariant; var PrintZoomPaperWidth: OleVariant; 
                       var PrintZoomPaperHeight: OleVariant); overload;
    procedure Compare(const Name: WideString); overload;
    procedure Compare(const Name: WideString; var AuthorName: OleVariant); overload;
    procedure Compare(const Name: WideString; var AuthorName: OleVariant; 
                      var CompareTarget: OleVariant); overload;
    procedure Compare(const Name: WideString; var AuthorName: OleVariant; 
                      var CompareTarget: OleVariant; var DetectFormatChanges: OleVariant); overload;
    procedure Compare(const Name: WideString; var AuthorName: OleVariant; 
                      var CompareTarget: OleVariant; var DetectFormatChanges: OleVariant; 
                      var IgnoreAllComparisonWarnings: OleVariant); overload;
    procedure Compare(const Name: WideString; var AuthorName: OleVariant; 
                      var CompareTarget: OleVariant; var DetectFormatChanges: OleVariant; 
                      var IgnoreAllComparisonWarnings: OleVariant; var AddToRecentFiles: OleVariant); overload;
    procedure CheckIn(SaveChanges: WordBool; var Comments: OleVariant; MakePublic: WordBool);
    function CanCheckin: WordBool;
    procedure Merge(const FileName: WideString); overload;
    procedure Merge(const FileName: WideString; var MergeTarget: OleVariant); overload;
    procedure Merge(const FileName: WideString; var MergeTarget: OleVariant; 
                    var DetectFormatChanges: OleVariant); overload;
    procedure Merge(const FileName: WideString; var MergeTarget: OleVariant; 
                    var DetectFormatChanges: OleVariant; var UseFormattingFrom: OleVariant); overload;
    procedure Merge(const FileName: WideString; var MergeTarget: OleVariant; 
                    var DetectFormatChanges: OleVariant; var UseFormattingFrom: OleVariant; 
                    var AddToRecentFiles: OleVariant); overload;
    procedure SendForReview; overload;
    procedure SendForReview(var Recipients: OleVariant); overload;
    procedure SendForReview(var Recipients: OleVariant; var Subject: OleVariant); overload;
    procedure SendForReview(var Recipients: OleVariant; var Subject: OleVariant; 
                            var ShowMessage: OleVariant); overload;
    procedure SendForReview(var Recipients: OleVariant; var Subject: OleVariant; 
                            var ShowMessage: OleVariant; var IncludeAttachment: OleVariant); overload;
    procedure ReplyWithChanges; overload;
    procedure ReplyWithChanges(var ShowMessage: OleVariant); overload;
    procedure EndReview;
    procedure SetPasswordEncryptionOptions(const PasswordEncryptionProvider: WideString; 
                                           const PasswordEncryptionAlgorithm: WideString; 
                                           PasswordEncryptionKeyLength: Integer); overload;
    procedure SetPasswordEncryptionOptions(const PasswordEncryptionProvider: WideString; 
                                           const PasswordEncryptionAlgorithm: WideString; 
                                           PasswordEncryptionKeyLength: Integer; 
                                           var PasswordEncryptionFileProperties: OleVariant); overload;
    procedure RecheckSmartTags;
    procedure RemoveSmartTags;
    procedure SetDefaultTableStyle(var Style: OleVariant; SetInTemplate: WordBool);
    procedure DeleteAllComments;
    procedure AcceptAllRevisionsShown;
    procedure RejectAllRevisionsShown;
    procedure DeleteAllCommentsShown;
    procedure ResetFormFields;
    procedure SaveAs; overload;
    procedure SaveAs(var FileName: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant; 
                     var AddToRecentFiles: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant; 
                     var AddToRecentFiles: OleVariant; var WritePassword: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant; 
                     var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                     var ReadOnlyRecommended: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant; 
                     var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                     var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant; 
                     var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                     var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                     var SaveNativePictureFormat: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant; 
                     var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                     var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                     var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant; 
                     var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                     var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                     var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant; 
                     var SaveAsAOCELetter: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant; 
                     var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                     var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                     var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant; 
                     var SaveAsAOCELetter: OleVariant; var Encoding: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant; 
                     var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                     var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                     var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant; 
                     var SaveAsAOCELetter: OleVariant; var Encoding: OleVariant; 
                     var InsertLineBreaks: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant; 
                     var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                     var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                     var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant; 
                     var SaveAsAOCELetter: OleVariant; var Encoding: OleVariant; 
                     var InsertLineBreaks: OleVariant; var AllowSubstitutions: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant; 
                     var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                     var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                     var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant; 
                     var SaveAsAOCELetter: OleVariant; var Encoding: OleVariant; 
                     var InsertLineBreaks: OleVariant; var AllowSubstitutions: OleVariant; 
                     var LineEnding: OleVariant); overload;
    procedure SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                     var LockComments: OleVariant; var Password: OleVariant; 
                     var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                     var ReadOnlyRecommended: OleVariant; var EmbedTrueTypeFonts: OleVariant; 
                     var SaveNativePictureFormat: OleVariant; var SaveFormsData: OleVariant; 
                     var SaveAsAOCELetter: OleVariant; var Encoding: OleVariant; 
                     var InsertLineBreaks: OleVariant; var AllowSubstitutions: OleVariant; 
                     var LineEnding: OleVariant; var AddBiDiMarks: OleVariant); overload;
    procedure CheckNewSmartTags;
    property DefaultInterface: _Document read GetDefaultInterface;
    property Name: WideString read Get_Name;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property BuiltInDocumentProperties: IDispatch read Get_BuiltInDocumentProperties;
    property CustomDocumentProperties: IDispatch read Get_CustomDocumentProperties;
    property Path: WideString read Get_Path;
    property Bookmarks: Bookmarks read Get_Bookmarks;
    property Tables: Tables read Get_Tables;
    property Footnotes: Footnotes read Get_Footnotes;
    property Endnotes: Endnotes read Get_Endnotes;
    property Comments: Comments read Get_Comments;
    property type_: WdDocumentType read Get_type_;
    property Sections: Sections read Get_Sections;
    property Paragraphs: Paragraphs read Get_Paragraphs;
    property Words: Words read Get_Words;
    property Sentences: Sentences read Get_Sentences;
    property Characters: Characters read Get_Characters;
    property Fields: Fields read Get_Fields;
    property FormFields: FormFields read Get_FormFields;
    property Styles: Styles read Get_Styles;
    property Frames: Frames read Get_Frames;
    property TablesOfFigures: TablesOfFigures read Get_TablesOfFigures;
    property Variables: Variables read Get_Variables;
    property MailMerge: MailMerge read Get_MailMerge;
    property Envelope: Envelope read Get_Envelope;
    property FullName: WideString read Get_FullName;
    property Revisions: Revisions read Get_Revisions;
    property TablesOfContents: TablesOfContents read Get_TablesOfContents;
    property TablesOfAuthorities: TablesOfAuthorities read Get_TablesOfAuthorities;
    property Windows: Windows read Get_Windows;
    property RoutingSlip: RoutingSlip read Get_RoutingSlip;
    property Routed: WordBool read Get_Routed;
    property TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories read Get_TablesOfAuthoritiesCategories;
    property Indexes: Indexes read Get_Indexes;
    property Content: Range read Get_Content;
    property ActiveWindow: Window read Get_ActiveWindow;
    property ReadOnly: WordBool read Get_ReadOnly;
    property Subdocuments: Subdocuments read Get_Subdocuments;
    property IsMasterDocument: WordBool read Get_IsMasterDocument;
    property Compatibility[Type_: WdCompatibility]: WordBool read Get_Compatibility write Set_Compatibility;
    property StoryRanges: StoryRanges read Get_StoryRanges;
    property CommandBars: CommandBars read Get_CommandBars;
    property IsSubdocument: WordBool read Get_IsSubdocument;
    property SaveFormat: Integer read Get_SaveFormat;
    property ProtectionType: WdProtectionType read Get_ProtectionType;
    property Hyperlinks: Hyperlinks read Get_Hyperlinks;
    property Shapes: Shapes read Get_Shapes;
    property ListTemplates: ListTemplates read Get_ListTemplates;
    property Lists: Lists read Get_Lists;
    property InlineShapes: InlineShapes read Get_InlineShapes;
    property Versions: Versions read Get_Versions;
    property Container: IDispatch read Get_Container;
    property ListParagraphs: ListParagraphs read Get_ListParagraphs;
    property Password: WideString write Set_Password;
    property WritePassword: WideString write Set_WritePassword;
    property HasPassword: WordBool read Get_HasPassword;
    property WriteReserved: WordBool read Get_WriteReserved;
    property ActiveWritingStyle[var LanguageID: OleVariant]: WideString read Get_ActiveWritingStyle write Set_ActiveWritingStyle;
    property Mailer: Mailer read Get_Mailer;
    property ReadabilityStatistics: ReadabilityStatistics read Get_ReadabilityStatistics;
    property GrammaticalErrors: ProofreadingErrors read Get_GrammaticalErrors;
    property SpellingErrors: ProofreadingErrors read Get_SpellingErrors;
    property VBProject: VBProject read Get_VBProject;
    property FormsDesign: WordBool read Get_FormsDesign;
    property CodeName: WideString read Get_CodeName;
    property ActiveTheme: WideString read Get_ActiveTheme;
    property ActiveThemeDisplayName: WideString read Get_ActiveThemeDisplayName;
    property Email: Email read Get_Email;
    property Scripts: Scripts read Get_Scripts;
    property Frameset: Frameset read Get_Frameset;
    property HTMLProject: HTMLProject read Get_HTMLProject;
    property WebOptions: WebOptions read Get_WebOptions;
    property OpenEncoding: MsoEncoding read Get_OpenEncoding;
    property VBASigned: WordBool read Get_VBASigned;
    property MailEnvelope: MsoEnvelope read Get_MailEnvelope;
    property Signatures: SignatureSet read Get_Signatures;
    property HTMLDivisions: HTMLDivisions read Get_HTMLDivisions;
    property SmartTags: SmartTags read Get_SmartTags;
    property StyleSheets: StyleSheets read Get_StyleSheets;
    property DefaultTableStyle: OleVariant read Get_DefaultTableStyle;
    property PasswordEncryptionProvider: WideString read Get_PasswordEncryptionProvider;
    property PasswordEncryptionAlgorithm: WideString read Get_PasswordEncryptionAlgorithm;
    property PasswordEncryptionKeyLength: Integer read Get_PasswordEncryptionKeyLength;
    property PasswordEncryptionFileProperties: WordBool read Get_PasswordEncryptionFileProperties;
    property AutoHyphenation: WordBool read Get_AutoHyphenation write Set_AutoHyphenation;
    property HyphenateCaps: WordBool read Get_HyphenateCaps write Set_HyphenateCaps;
    property HyphenationZone: Integer read Get_HyphenationZone write Set_HyphenationZone;
    property ConsecutiveHyphensLimit: Integer read Get_ConsecutiveHyphensLimit write Set_ConsecutiveHyphensLimit;
    property PageSetup: PageSetup read Get_PageSetup write Set_PageSetup;
    property HasRoutingSlip: WordBool read Get_HasRoutingSlip write Set_HasRoutingSlip;
    property Saved: WordBool read Get_Saved write Set_Saved;
    property Kind: WdDocumentKind read Get_Kind write Set_Kind;
    property DefaultTabStop: Single read Get_DefaultTabStop write Set_DefaultTabStop;
    property EmbedTrueTypeFonts: WordBool read Get_EmbedTrueTypeFonts write Set_EmbedTrueTypeFonts;
    property SaveFormsData: WordBool read Get_SaveFormsData write Set_SaveFormsData;
    property ReadOnlyRecommended: WordBool read Get_ReadOnlyRecommended write Set_ReadOnlyRecommended;
    property SaveSubsetFonts: WordBool read Get_SaveSubsetFonts write Set_SaveSubsetFonts;
    property UpdateStylesOnOpen: WordBool read Get_UpdateStylesOnOpen write Set_UpdateStylesOnOpen;
    property Background: Shape read Get_Background write Set_Background;
    property GrammarChecked: WordBool read Get_GrammarChecked write Set_GrammarChecked;
    property SpellingChecked: WordBool read Get_SpellingChecked write Set_SpellingChecked;
    property ShowGrammaticalErrors: WordBool read Get_ShowGrammaticalErrors write Set_ShowGrammaticalErrors;
    property ShowSpellingErrors: WordBool read Get_ShowSpellingErrors write Set_ShowSpellingErrors;
    property ShowSummary: WordBool read Get_ShowSummary write Set_ShowSummary;
    property SummaryViewMode: WdSummaryMode read Get_SummaryViewMode write Set_SummaryViewMode;
    property SummaryLength: Integer read Get_SummaryLength write Set_SummaryLength;
    property PrintFractionalWidths: WordBool read Get_PrintFractionalWidths write Set_PrintFractionalWidths;
    property PrintPostScriptOverText: WordBool read Get_PrintPostScriptOverText write Set_PrintPostScriptOverText;
    property PrintFormsData: WordBool read Get_PrintFormsData write Set_PrintFormsData;
    property UserControl: WordBool read Get_UserControl write Set_UserControl;
    property HasMailer: WordBool read Get_HasMailer write Set_HasMailer;
    property _CodeName: WideString read Get__CodeName write Set__CodeName;
    property SnapToGrid: WordBool read Get_SnapToGrid write Set_SnapToGrid;
    property SnapToShapes: WordBool read Get_SnapToShapes write Set_SnapToShapes;
    property GridDistanceHorizontal: Single read Get_GridDistanceHorizontal write Set_GridDistanceHorizontal;
    property GridDistanceVertical: Single read Get_GridDistanceVertical write Set_GridDistanceVertical;
    property GridOriginHorizontal: Single read Get_GridOriginHorizontal write Set_GridOriginHorizontal;
    property GridOriginVertical: Single read Get_GridOriginVertical write Set_GridOriginVertical;
    property GridSpaceBetweenHorizontalLines: Integer read Get_GridSpaceBetweenHorizontalLines write Set_GridSpaceBetweenHorizontalLines;
    property GridSpaceBetweenVerticalLines: Integer read Get_GridSpaceBetweenVerticalLines write Set_GridSpaceBetweenVerticalLines;
    property GridOriginFromMargin: WordBool read Get_GridOriginFromMargin write Set_GridOriginFromMargin;
    property KerningByAlgorithm: WordBool read Get_KerningByAlgorithm write Set_KerningByAlgorithm;
    property JustificationMode: WdJustificationMode read Get_JustificationMode write Set_JustificationMode;
    property FarEastLineBreakLevel: WdFarEastLineBreakLevel read Get_FarEastLineBreakLevel write Set_FarEastLineBreakLevel;
    property NoLineBreakBefore: WideString read Get_NoLineBreakBefore write Set_NoLineBreakBefore;
    property NoLineBreakAfter: WideString read Get_NoLineBreakAfter write Set_NoLineBreakAfter;
    property TrackRevisions: WordBool read Get_TrackRevisions write Set_TrackRevisions;
    property PrintRevisions: WordBool read Get_PrintRevisions write Set_PrintRevisions;
    property ShowRevisions: WordBool read Get_ShowRevisions write Set_ShowRevisions;
    property LanguageDetected: WordBool read Get_LanguageDetected write Set_LanguageDetected;
    property FarEastLineBreakLanguage: WdFarEastLineBreakLanguageID read Get_FarEastLineBreakLanguage write Set_FarEastLineBreakLanguage;
    property SaveEncoding: MsoEncoding read Get_SaveEncoding write Set_SaveEncoding;
    property OptimizeForWord97: WordBool read Get_OptimizeForWord97 write Set_OptimizeForWord97;
    property DisableFeatures: WordBool read Get_DisableFeatures write Set_DisableFeatures;
    property DoNotEmbedSystemFonts: WordBool read Get_DoNotEmbedSystemFonts write Set_DoNotEmbedSystemFonts;
    property DefaultTargetFrame: WideString read Get_DefaultTargetFrame write Set_DefaultTargetFrame;
    property DisableFeaturesIntroducedAfter: WdDisableFeaturesIntroducedAfter read Get_DisableFeaturesIntroducedAfter write Set_DisableFeaturesIntroducedAfter;
    property RemovePersonalInformation: WordBool read Get_RemovePersonalInformation write Set_RemovePersonalInformation;
    property EmbedSmartTags: WordBool read Get_EmbedSmartTags write Set_EmbedSmartTags;
    property SmartTagsAsXMLProps: WordBool read Get_SmartTagsAsXMLProps write Set_SmartTagsAsXMLProps;
    property TextEncoding: MsoEncoding read Get_TextEncoding write Set_TextEncoding;
    property TextLineEnding: WdLineEndingType read Get_TextLineEnding write Set_TextLineEnding;
    property EmbedLinguisticData: WordBool read Get_EmbedLinguisticData write Set_EmbedLinguisticData;
    property FormattingShowFont: WordBool read Get_FormattingShowFont write Set_FormattingShowFont;
    property FormattingShowClear: WordBool read Get_FormattingShowClear write Set_FormattingShowClear;
    property FormattingShowParagraph: WordBool read Get_FormattingShowParagraph write Set_FormattingShowParagraph;
    property FormattingShowNumbering: WordBool read Get_FormattingShowNumbering write Set_FormattingShowNumbering;
    property FormattingShowFilter: WdShowFilter read Get_FormattingShowFilter write Set_FormattingShowFilter;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TWordDocumentProperties read GetServerProperties;
{$ENDIF}
    property OnNew: TNotifyEvent read FOnNew write FOnNew;
    property OnOpen: TNotifyEvent read FOnOpen write FOnOpen;
    property OnClose: TNotifyEvent read FOnClose write FOnClose;
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TWordDocument
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TWordDocumentProperties = class(TPersistent)
  private
    FServer:    TWordDocument;
    function    GetDefaultInterface: _Document;
    constructor Create(AServer: TWordDocument);
  protected
    function Get_Name: WideString;
    function Get_Application: WordApplication;
    function Get_Creator: Integer;
    function Get_Parent: IDispatch;
    function Get_BuiltInDocumentProperties: IDispatch;
    function Get_CustomDocumentProperties: IDispatch;
    function Get_Path: WideString;
    function Get_Bookmarks: Bookmarks;
    function Get_Tables: Tables;
    function Get_Footnotes: Footnotes;
    function Get_Endnotes: Endnotes;
    function Get_Comments: Comments;
    function Get_type_: WdDocumentType;
    function Get_AutoHyphenation: WordBool;
    procedure Set_AutoHyphenation(prop: WordBool);
    function Get_HyphenateCaps: WordBool;
    procedure Set_HyphenateCaps(prop: WordBool);
    function Get_HyphenationZone: Integer;
    procedure Set_HyphenationZone(prop: Integer);
    function Get_ConsecutiveHyphensLimit: Integer;
    procedure Set_ConsecutiveHyphensLimit(prop: Integer);
    function Get_Sections: Sections;
    function Get_Paragraphs: Paragraphs;
    function Get_Words: Words;
    function Get_Sentences: Sentences;
    function Get_Characters: Characters;
    function Get_Fields: Fields;
    function Get_FormFields: FormFields;
    function Get_Styles: Styles;
    function Get_Frames: Frames;
    function Get_TablesOfFigures: TablesOfFigures;
    function Get_Variables: Variables;
    function Get_MailMerge: MailMerge;
    function Get_Envelope: Envelope;
    function Get_FullName: WideString;
    function Get_Revisions: Revisions;
    function Get_TablesOfContents: TablesOfContents;
    function Get_TablesOfAuthorities: TablesOfAuthorities;
    function Get_PageSetup: PageSetup;
    procedure Set_PageSetup(const prop: PageSetup);
    function Get_Windows: Windows;
    function Get_HasRoutingSlip: WordBool;
    procedure Set_HasRoutingSlip(prop: WordBool);
    function Get_RoutingSlip: RoutingSlip;
    function Get_Routed: WordBool;
    function Get_TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories;
    function Get_Indexes: Indexes;
    function Get_Saved: WordBool;
    procedure Set_Saved(prop: WordBool);
    function Get_Content: Range;
    function Get_ActiveWindow: Window;
    function Get_Kind: WdDocumentKind;
    procedure Set_Kind(prop: WdDocumentKind);
    function Get_ReadOnly: WordBool;
    function Get_Subdocuments: Subdocuments;
    function Get_IsMasterDocument: WordBool;
    function Get_DefaultTabStop: Single;
    procedure Set_DefaultTabStop(prop: Single);
    function Get_EmbedTrueTypeFonts: WordBool;
    procedure Set_EmbedTrueTypeFonts(prop: WordBool);
    function Get_SaveFormsData: WordBool;
    procedure Set_SaveFormsData(prop: WordBool);
    function Get_ReadOnlyRecommended: WordBool;
    procedure Set_ReadOnlyRecommended(prop: WordBool);
    function Get_SaveSubsetFonts: WordBool;
    procedure Set_SaveSubsetFonts(prop: WordBool);
    function Get_Compatibility(Type_: WdCompatibility): WordBool;
    procedure Set_Compatibility(Type_: WdCompatibility; prop: WordBool);
    function Get_StoryRanges: StoryRanges;
    function Get_CommandBars: CommandBars;
    function Get_IsSubdocument: WordBool;
    function Get_SaveFormat: Integer;
    function Get_ProtectionType: WdProtectionType;
    function Get_Hyperlinks: Hyperlinks;
    function Get_Shapes: Shapes;
    function Get_ListTemplates: ListTemplates;
    function Get_Lists: Lists;
    function Get_UpdateStylesOnOpen: WordBool;
    procedure Set_UpdateStylesOnOpen(prop: WordBool);
    function Get_AttachedTemplate: OleVariant;
    procedure Set_AttachedTemplate(var prop: OleVariant);
    function Get_InlineShapes: InlineShapes;
    function Get_Background: Shape;
    procedure Set_Background(const prop: Shape);
    function Get_GrammarChecked: WordBool;
    procedure Set_GrammarChecked(prop: WordBool);
    function Get_SpellingChecked: WordBool;
    procedure Set_SpellingChecked(prop: WordBool);
    function Get_ShowGrammaticalErrors: WordBool;
    procedure Set_ShowGrammaticalErrors(prop: WordBool);
    function Get_ShowSpellingErrors: WordBool;
    procedure Set_ShowSpellingErrors(prop: WordBool);
    function Get_Versions: Versions;
    function Get_ShowSummary: WordBool;
    procedure Set_ShowSummary(prop: WordBool);
    function Get_SummaryViewMode: WdSummaryMode;
    procedure Set_SummaryViewMode(prop: WdSummaryMode);
    function Get_SummaryLength: Integer;
    procedure Set_SummaryLength(prop: Integer);
    function Get_PrintFractionalWidths: WordBool;
    procedure Set_PrintFractionalWidths(prop: WordBool);
    function Get_PrintPostScriptOverText: WordBool;
    procedure Set_PrintPostScriptOverText(prop: WordBool);
    function Get_Container: IDispatch;
    function Get_PrintFormsData: WordBool;
    procedure Set_PrintFormsData(prop: WordBool);
    function Get_ListParagraphs: ListParagraphs;
    procedure Set_Password(const Param1: WideString);
    procedure Set_WritePassword(const Param1: WideString);
    function Get_HasPassword: WordBool;
    function Get_WriteReserved: WordBool;
    function Get_ActiveWritingStyle(var LanguageID: OleVariant): WideString;
    procedure Set_ActiveWritingStyle(var LanguageID: OleVariant; const prop: WideString);
    function Get_UserControl: WordBool;
    procedure Set_UserControl(prop: WordBool);
    function Get_HasMailer: WordBool;
    procedure Set_HasMailer(prop: WordBool);
    function Get_Mailer: Mailer;
    function Get_ReadabilityStatistics: ReadabilityStatistics;
    function Get_GrammaticalErrors: ProofreadingErrors;
    function Get_SpellingErrors: ProofreadingErrors;
    function Get_VBProject: VBProject;
    function Get_FormsDesign: WordBool;
    function Get__CodeName: WideString;
    procedure Set__CodeName(const prop: WideString);
    function Get_CodeName: WideString;
    function Get_SnapToGrid: WordBool;
    procedure Set_SnapToGrid(prop: WordBool);
    function Get_SnapToShapes: WordBool;
    procedure Set_SnapToShapes(prop: WordBool);
    function Get_GridDistanceHorizontal: Single;
    procedure Set_GridDistanceHorizontal(prop: Single);
    function Get_GridDistanceVertical: Single;
    procedure Set_GridDistanceVertical(prop: Single);
    function Get_GridOriginHorizontal: Single;
    procedure Set_GridOriginHorizontal(prop: Single);
    function Get_GridOriginVertical: Single;
    procedure Set_GridOriginVertical(prop: Single);
    function Get_GridSpaceBetweenHorizontalLines: Integer;
    procedure Set_GridSpaceBetweenHorizontalLines(prop: Integer);
    function Get_GridSpaceBetweenVerticalLines: Integer;
    procedure Set_GridSpaceBetweenVerticalLines(prop: Integer);
    function Get_GridOriginFromMargin: WordBool;
    procedure Set_GridOriginFromMargin(prop: WordBool);
    function Get_KerningByAlgorithm: WordBool;
    procedure Set_KerningByAlgorithm(prop: WordBool);
    function Get_JustificationMode: WdJustificationMode;
    procedure Set_JustificationMode(prop: WdJustificationMode);
    function Get_FarEastLineBreakLevel: WdFarEastLineBreakLevel;
    procedure Set_FarEastLineBreakLevel(prop: WdFarEastLineBreakLevel);
    function Get_NoLineBreakBefore: WideString;
    procedure Set_NoLineBreakBefore(const prop: WideString);
    function Get_NoLineBreakAfter: WideString;
    procedure Set_NoLineBreakAfter(const prop: WideString);
    function Get_TrackRevisions: WordBool;
    procedure Set_TrackRevisions(prop: WordBool);
    function Get_PrintRevisions: WordBool;
    procedure Set_PrintRevisions(prop: WordBool);
    function Get_ShowRevisions: WordBool;
    procedure Set_ShowRevisions(prop: WordBool);
    function Get_ActiveTheme: WideString;
    function Get_ActiveThemeDisplayName: WideString;
    function Get_Email: Email;
    function Get_Scripts: Scripts;
    function Get_LanguageDetected: WordBool;
    procedure Set_LanguageDetected(prop: WordBool);
    function Get_FarEastLineBreakLanguage: WdFarEastLineBreakLanguageID;
    procedure Set_FarEastLineBreakLanguage(prop: WdFarEastLineBreakLanguageID);
    function Get_Frameset: Frameset;
    function Get_ClickAndTypeParagraphStyle: OleVariant;
    procedure Set_ClickAndTypeParagraphStyle(var prop: OleVariant);
    function Get_HTMLProject: HTMLProject;
    function Get_WebOptions: WebOptions;
    function Get_OpenEncoding: MsoEncoding;
    function Get_SaveEncoding: MsoEncoding;
    procedure Set_SaveEncoding(prop: MsoEncoding);
    function Get_OptimizeForWord97: WordBool;
    procedure Set_OptimizeForWord97(prop: WordBool);
    function Get_VBASigned: WordBool;
    function Get_MailEnvelope: MsoEnvelope;
    function Get_DisableFeatures: WordBool;
    procedure Set_DisableFeatures(prop: WordBool);
    function Get_DoNotEmbedSystemFonts: WordBool;
    procedure Set_DoNotEmbedSystemFonts(prop: WordBool);
    function Get_Signatures: SignatureSet;
    function Get_DefaultTargetFrame: WideString;
    procedure Set_DefaultTargetFrame(const prop: WideString);
    function Get_HTMLDivisions: HTMLDivisions;
    function Get_DisableFeaturesIntroducedAfter: WdDisableFeaturesIntroducedAfter;
    procedure Set_DisableFeaturesIntroducedAfter(prop: WdDisableFeaturesIntroducedAfter);
    function Get_RemovePersonalInformation: WordBool;
    procedure Set_RemovePersonalInformation(prop: WordBool);
    function Get_SmartTags: SmartTags;
    function Get_EmbedSmartTags: WordBool;
    procedure Set_EmbedSmartTags(prop: WordBool);
    function Get_SmartTagsAsXMLProps: WordBool;
    procedure Set_SmartTagsAsXMLProps(prop: WordBool);
    function Get_TextEncoding: MsoEncoding;
    procedure Set_TextEncoding(prop: MsoEncoding);
    function Get_TextLineEnding: WdLineEndingType;
    procedure Set_TextLineEnding(prop: WdLineEndingType);
    function Get_StyleSheets: StyleSheets;
    function Get_DefaultTableStyle: OleVariant;
    function Get_PasswordEncryptionProvider: WideString;
    function Get_PasswordEncryptionAlgorithm: WideString;
    function Get_PasswordEncryptionKeyLength: Integer;
    function Get_PasswordEncryptionFileProperties: WordBool;
    function Get_EmbedLinguisticData: WordBool;
    procedure Set_EmbedLinguisticData(prop: WordBool);
    function Get_FormattingShowFont: WordBool;
    procedure Set_FormattingShowFont(prop: WordBool);
    function Get_FormattingShowClear: WordBool;
    procedure Set_FormattingShowClear(prop: WordBool);
    function Get_FormattingShowParagraph: WordBool;
    procedure Set_FormattingShowParagraph(prop: WordBool);
    function Get_FormattingShowNumbering: WordBool;
    procedure Set_FormattingShowNumbering(prop: WordBool);
    function Get_FormattingShowFilter: WdShowFilter;
    procedure Set_FormattingShowFilter(prop: WdShowFilter);
  public
    property DefaultInterface: _Document read GetDefaultInterface;
  published
    property AutoHyphenation: WordBool read Get_AutoHyphenation write Set_AutoHyphenation;
    property HyphenateCaps: WordBool read Get_HyphenateCaps write Set_HyphenateCaps;
    property HyphenationZone: Integer read Get_HyphenationZone write Set_HyphenationZone;
    property ConsecutiveHyphensLimit: Integer read Get_ConsecutiveHyphensLimit write Set_ConsecutiveHyphensLimit;
    property PageSetup: PageSetup read Get_PageSetup write Set_PageSetup;
    property HasRoutingSlip: WordBool read Get_HasRoutingSlip write Set_HasRoutingSlip;
    property Saved: WordBool read Get_Saved write Set_Saved;
    property Kind: WdDocumentKind read Get_Kind write Set_Kind;
    property DefaultTabStop: Single read Get_DefaultTabStop write Set_DefaultTabStop;
    property EmbedTrueTypeFonts: WordBool read Get_EmbedTrueTypeFonts write Set_EmbedTrueTypeFonts;
    property SaveFormsData: WordBool read Get_SaveFormsData write Set_SaveFormsData;
    property ReadOnlyRecommended: WordBool read Get_ReadOnlyRecommended write Set_ReadOnlyRecommended;
    property SaveSubsetFonts: WordBool read Get_SaveSubsetFonts write Set_SaveSubsetFonts;
    property UpdateStylesOnOpen: WordBool read Get_UpdateStylesOnOpen write Set_UpdateStylesOnOpen;
    property Background: Shape read Get_Background write Set_Background;
    property GrammarChecked: WordBool read Get_GrammarChecked write Set_GrammarChecked;
    property SpellingChecked: WordBool read Get_SpellingChecked write Set_SpellingChecked;
    property ShowGrammaticalErrors: WordBool read Get_ShowGrammaticalErrors write Set_ShowGrammaticalErrors;
    property ShowSpellingErrors: WordBool read Get_ShowSpellingErrors write Set_ShowSpellingErrors;
    property ShowSummary: WordBool read Get_ShowSummary write Set_ShowSummary;
    property SummaryViewMode: WdSummaryMode read Get_SummaryViewMode write Set_SummaryViewMode;
    property SummaryLength: Integer read Get_SummaryLength write Set_SummaryLength;
    property PrintFractionalWidths: WordBool read Get_PrintFractionalWidths write Set_PrintFractionalWidths;
    property PrintPostScriptOverText: WordBool read Get_PrintPostScriptOverText write Set_PrintPostScriptOverText;
    property PrintFormsData: WordBool read Get_PrintFormsData write Set_PrintFormsData;
    property UserControl: WordBool read Get_UserControl write Set_UserControl;
    property HasMailer: WordBool read Get_HasMailer write Set_HasMailer;
    property _CodeName: WideString read Get__CodeName write Set__CodeName;
    property SnapToGrid: WordBool read Get_SnapToGrid write Set_SnapToGrid;
    property SnapToShapes: WordBool read Get_SnapToShapes write Set_SnapToShapes;
    property GridDistanceHorizontal: Single read Get_GridDistanceHorizontal write Set_GridDistanceHorizontal;
    property GridDistanceVertical: Single read Get_GridDistanceVertical write Set_GridDistanceVertical;
    property GridOriginHorizontal: Single read Get_GridOriginHorizontal write Set_GridOriginHorizontal;
    property GridOriginVertical: Single read Get_GridOriginVertical write Set_GridOriginVertical;
    property GridSpaceBetweenHorizontalLines: Integer read Get_GridSpaceBetweenHorizontalLines write Set_GridSpaceBetweenHorizontalLines;
    property GridSpaceBetweenVerticalLines: Integer read Get_GridSpaceBetweenVerticalLines write Set_GridSpaceBetweenVerticalLines;
    property GridOriginFromMargin: WordBool read Get_GridOriginFromMargin write Set_GridOriginFromMargin;
    property KerningByAlgorithm: WordBool read Get_KerningByAlgorithm write Set_KerningByAlgorithm;
    property JustificationMode: WdJustificationMode read Get_JustificationMode write Set_JustificationMode;
    property FarEastLineBreakLevel: WdFarEastLineBreakLevel read Get_FarEastLineBreakLevel write Set_FarEastLineBreakLevel;
    property NoLineBreakBefore: WideString read Get_NoLineBreakBefore write Set_NoLineBreakBefore;
    property NoLineBreakAfter: WideString read Get_NoLineBreakAfter write Set_NoLineBreakAfter;
    property TrackRevisions: WordBool read Get_TrackRevisions write Set_TrackRevisions;
    property PrintRevisions: WordBool read Get_PrintRevisions write Set_PrintRevisions;
    property ShowRevisions: WordBool read Get_ShowRevisions write Set_ShowRevisions;
    property LanguageDetected: WordBool read Get_LanguageDetected write Set_LanguageDetected;
    property FarEastLineBreakLanguage: WdFarEastLineBreakLanguageID read Get_FarEastLineBreakLanguage write Set_FarEastLineBreakLanguage;
    property SaveEncoding: MsoEncoding read Get_SaveEncoding write Set_SaveEncoding;
    property OptimizeForWord97: WordBool read Get_OptimizeForWord97 write Set_OptimizeForWord97;
    property DisableFeatures: WordBool read Get_DisableFeatures write Set_DisableFeatures;
    property DoNotEmbedSystemFonts: WordBool read Get_DoNotEmbedSystemFonts write Set_DoNotEmbedSystemFonts;
    property DefaultTargetFrame: WideString read Get_DefaultTargetFrame write Set_DefaultTargetFrame;
    property DisableFeaturesIntroducedAfter: WdDisableFeaturesIntroducedAfter read Get_DisableFeaturesIntroducedAfter write Set_DisableFeaturesIntroducedAfter;
    property RemovePersonalInformation: WordBool read Get_RemovePersonalInformation write Set_RemovePersonalInformation;
    property EmbedSmartTags: WordBool read Get_EmbedSmartTags write Set_EmbedSmartTags;
    property SmartTagsAsXMLProps: WordBool read Get_SmartTagsAsXMLProps write Set_SmartTagsAsXMLProps;
    property TextEncoding: MsoEncoding read Get_TextEncoding write Set_TextEncoding;
    property TextLineEnding: WdLineEndingType read Get_TextLineEnding write Set_TextLineEnding;
    property EmbedLinguisticData: WordBool read Get_EmbedLinguisticData write Set_EmbedLinguisticData;
    property FormattingShowFont: WordBool read Get_FormattingShowFont write Set_FormattingShowFont;
    property FormattingShowClear: WordBool read Get_FormattingShowClear write Set_FormattingShowClear;
    property FormattingShowParagraph: WordBool read Get_FormattingShowParagraph write Set_FormattingShowParagraph;
    property FormattingShowNumbering: WordBool read Get_FormattingShowNumbering write Set_FormattingShowNumbering;
    property FormattingShowFilter: WdShowFilter read Get_FormattingShowFilter write Set_FormattingShowFilter;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoWordFont provides a Create and CreateRemote method to          
// create instances of the default interface _Font exposed by              
// the CoClass WordFont. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoWordFont = class
    class function Create: _Font;
    class function CreateRemote(const MachineName: string): _Font;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TWordFont
// Help String      : 
// Default Interface: _Font
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TWordFontProperties= class;
{$ENDIF}
  TWordFont = class(TOleServer)
  private
    FIntf:        _Font;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TWordFontProperties;
    function      GetServerProperties: TWordFontProperties;
{$ENDIF}
    function      GetDefaultInterface: _Font;
  protected
    procedure InitServerData; override;
    function Get_Application: WordApplication;
    function Get_Creator: Integer;
    function Get_Parent: IDispatch;
    function Get_Duplicate: WordFont;
    function Get_Bold: Integer;
    procedure Set_Bold(prop: Integer);
    function Get_Italic: Integer;
    procedure Set_Italic(prop: Integer);
    function Get_Hidden: Integer;
    procedure Set_Hidden(prop: Integer);
    function Get_SmallCaps: Integer;
    procedure Set_SmallCaps(prop: Integer);
    function Get_AllCaps: Integer;
    procedure Set_AllCaps(prop: Integer);
    function Get_StrikeThrough: Integer;
    procedure Set_StrikeThrough(prop: Integer);
    function Get_DoubleStrikeThrough: Integer;
    procedure Set_DoubleStrikeThrough(prop: Integer);
    function Get_ColorIndex: WdColorIndex;
    procedure Set_ColorIndex(prop: WdColorIndex);
    function Get_Subscript: Integer;
    procedure Set_Subscript(prop: Integer);
    function Get_Superscript: Integer;
    procedure Set_Superscript(prop: Integer);
    function Get_Underline: WdUnderline;
    procedure Set_Underline(prop: WdUnderline);
    function Get_Size: Single;
    procedure Set_Size(prop: Single);
    function Get_Name: WideString;
    procedure Set_Name(const prop: WideString);
    function Get_Position: Integer;
    procedure Set_Position(prop: Integer);
    function Get_Spacing: Single;
    procedure Set_Spacing(prop: Single);
    function Get_Scaling: Integer;
    procedure Set_Scaling(prop: Integer);
    function Get_Shadow: Integer;
    procedure Set_Shadow(prop: Integer);
    function Get_Outline: Integer;
    procedure Set_Outline(prop: Integer);
    function Get_Emboss: Integer;
    procedure Set_Emboss(prop: Integer);
    function Get_Kerning: Single;
    procedure Set_Kerning(prop: Single);
    function Get_Engrave: Integer;
    procedure Set_Engrave(prop: Integer);
    function Get_Animation: WdAnimation;
    procedure Set_Animation(prop: WdAnimation);
    function Get_Borders: Borders;
    procedure Set_Borders(const prop: Borders);
    function Get_Shading: Shading;
    function Get_EmphasisMark: WdEmphasisMark;
    procedure Set_EmphasisMark(prop: WdEmphasisMark);
    function Get_DisableCharacterSpaceGrid: WordBool;
    procedure Set_DisableCharacterSpaceGrid(prop: WordBool);
    function Get_NameFarEast: WideString;
    procedure Set_NameFarEast(const prop: WideString);
    function Get_NameAscii: WideString;
    procedure Set_NameAscii(const prop: WideString);
    function Get_NameOther: WideString;
    procedure Set_NameOther(const prop: WideString);
    function Get_Color: WdColor;
    procedure Set_Color(prop: WdColor);
    function Get_BoldBi: Integer;
    procedure Set_BoldBi(prop: Integer);
    function Get_ItalicBi: Integer;
    procedure Set_ItalicBi(prop: Integer);
    function Get_SizeBi: Single;
    procedure Set_SizeBi(prop: Single);
    function Get_NameBi: WideString;
    procedure Set_NameBi(const prop: WideString);
    function Get_ColorIndexBi: WdColorIndex;
    procedure Set_ColorIndexBi(prop: WdColorIndex);
    function Get_DiacriticColor: WdColor;
    procedure Set_DiacriticColor(prop: WdColor);
    function Get_UnderlineColor: WdColor;
    procedure Set_UnderlineColor(prop: WdColor);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: _Font);
    procedure Disconnect; override;
    procedure Grow;
    procedure Shrink;
    procedure Reset;
    procedure SetAsTemplateDefault;
    property DefaultInterface: _Font read GetDefaultInterface;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Duplicate: WordFont read Get_Duplicate;
    property Shading: Shading read Get_Shading;
    property Bold: Integer read Get_Bold write Set_Bold;
    property Italic: Integer read Get_Italic write Set_Italic;
    property Hidden: Integer read Get_Hidden write Set_Hidden;
    property SmallCaps: Integer read Get_SmallCaps write Set_SmallCaps;
    property AllCaps: Integer read Get_AllCaps write Set_AllCaps;
    property StrikeThrough: Integer read Get_StrikeThrough write Set_StrikeThrough;
    property DoubleStrikeThrough: Integer read Get_DoubleStrikeThrough write Set_DoubleStrikeThrough;
    property ColorIndex: WdColorIndex read Get_ColorIndex write Set_ColorIndex;
    property Subscript: Integer read Get_Subscript write Set_Subscript;
    property Superscript: Integer read Get_Superscript write Set_Superscript;
    property Underline: WdUnderline read Get_Underline write Set_Underline;
    property Size: Single read Get_Size write Set_Size;
    property Name: WideString read Get_Name write Set_Name;
    property Position: Integer read Get_Position write Set_Position;
    property Spacing: Single read Get_Spacing write Set_Spacing;
    property Scaling: Integer read Get_Scaling write Set_Scaling;
    property Shadow: Integer read Get_Shadow write Set_Shadow;
    property Outline: Integer read Get_Outline write Set_Outline;
    property Emboss: Integer read Get_Emboss write Set_Emboss;
    property Kerning: Single read Get_Kerning write Set_Kerning;
    property Engrave: Integer read Get_Engrave write Set_Engrave;
    property Animation: WdAnimation read Get_Animation write Set_Animation;
    property Borders: Borders read Get_Borders write Set_Borders;
    property EmphasisMark: WdEmphasisMark read Get_EmphasisMark write Set_EmphasisMark;
    property DisableCharacterSpaceGrid: WordBool read Get_DisableCharacterSpaceGrid write Set_DisableCharacterSpaceGrid;
    property NameFarEast: WideString read Get_NameFarEast write Set_NameFarEast;
    property NameAscii: WideString read Get_NameAscii write Set_NameAscii;
    property NameOther: WideString read Get_NameOther write Set_NameOther;
    property Color: WdColor read Get_Color write Set_Color;
    property BoldBi: Integer read Get_BoldBi write Set_BoldBi;
    property ItalicBi: Integer read Get_ItalicBi write Set_ItalicBi;
    property SizeBi: Single read Get_SizeBi write Set_SizeBi;
    property NameBi: WideString read Get_NameBi write Set_NameBi;
    property ColorIndexBi: WdColorIndex read Get_ColorIndexBi write Set_ColorIndexBi;
    property DiacriticColor: WdColor read Get_DiacriticColor write Set_DiacriticColor;
    property UnderlineColor: WdColor read Get_UnderlineColor write Set_UnderlineColor;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TWordFontProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TWordFont
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TWordFontProperties = class(TPersistent)
  private
    FServer:    TWordFont;
    function    GetDefaultInterface: _Font;
    constructor Create(AServer: TWordFont);
  protected
    function Get_Application: WordApplication;
    function Get_Creator: Integer;
    function Get_Parent: IDispatch;
    function Get_Duplicate: WordFont;
    function Get_Bold: Integer;
    procedure Set_Bold(prop: Integer);
    function Get_Italic: Integer;
    procedure Set_Italic(prop: Integer);
    function Get_Hidden: Integer;
    procedure Set_Hidden(prop: Integer);
    function Get_SmallCaps: Integer;
    procedure Set_SmallCaps(prop: Integer);
    function Get_AllCaps: Integer;
    procedure Set_AllCaps(prop: Integer);
    function Get_StrikeThrough: Integer;
    procedure Set_StrikeThrough(prop: Integer);
    function Get_DoubleStrikeThrough: Integer;
    procedure Set_DoubleStrikeThrough(prop: Integer);
    function Get_ColorIndex: WdColorIndex;
    procedure Set_ColorIndex(prop: WdColorIndex);
    function Get_Subscript: Integer;
    procedure Set_Subscript(prop: Integer);
    function Get_Superscript: Integer;
    procedure Set_Superscript(prop: Integer);
    function Get_Underline: WdUnderline;
    procedure Set_Underline(prop: WdUnderline);
    function Get_Size: Single;
    procedure Set_Size(prop: Single);
    function Get_Name: WideString;
    procedure Set_Name(const prop: WideString);
    function Get_Position: Integer;
    procedure Set_Position(prop: Integer);
    function Get_Spacing: Single;
    procedure Set_Spacing(prop: Single);
    function Get_Scaling: Integer;
    procedure Set_Scaling(prop: Integer);
    function Get_Shadow: Integer;
    procedure Set_Shadow(prop: Integer);
    function Get_Outline: Integer;
    procedure Set_Outline(prop: Integer);
    function Get_Emboss: Integer;
    procedure Set_Emboss(prop: Integer);
    function Get_Kerning: Single;
    procedure Set_Kerning(prop: Single);
    function Get_Engrave: Integer;
    procedure Set_Engrave(prop: Integer);
    function Get_Animation: WdAnimation;
    procedure Set_Animation(prop: WdAnimation);
    function Get_Borders: Borders;
    procedure Set_Borders(const prop: Borders);
    function Get_Shading: Shading;
    function Get_EmphasisMark: WdEmphasisMark;
    procedure Set_EmphasisMark(prop: WdEmphasisMark);
    function Get_DisableCharacterSpaceGrid: WordBool;
    procedure Set_DisableCharacterSpaceGrid(prop: WordBool);
    function Get_NameFarEast: WideString;
    procedure Set_NameFarEast(const prop: WideString);
    function Get_NameAscii: WideString;
    procedure Set_NameAscii(const prop: WideString);
    function Get_NameOther: WideString;
    procedure Set_NameOther(const prop: WideString);
    function Get_Color: WdColor;
    procedure Set_Color(prop: WdColor);
    function Get_BoldBi: Integer;
    procedure Set_BoldBi(prop: Integer);
    function Get_ItalicBi: Integer;
    procedure Set_ItalicBi(prop: Integer);
    function Get_SizeBi: Single;
    procedure Set_SizeBi(prop: Single);
    function Get_NameBi: WideString;
    procedure Set_NameBi(const prop: WideString);
    function Get_ColorIndexBi: WdColorIndex;
    procedure Set_ColorIndexBi(prop: WdColorIndex);
    function Get_DiacriticColor: WdColor;
    procedure Set_DiacriticColor(prop: WdColor);
    function Get_UnderlineColor: WdColor;
    procedure Set_UnderlineColor(prop: WdColor);
  public
    property DefaultInterface: _Font read GetDefaultInterface;
  published
    property Bold: Integer read Get_Bold write Set_Bold;
    property Italic: Integer read Get_Italic write Set_Italic;
    property Hidden: Integer read Get_Hidden write Set_Hidden;
    property SmallCaps: Integer read Get_SmallCaps write Set_SmallCaps;
    property AllCaps: Integer read Get_AllCaps write Set_AllCaps;
    property StrikeThrough: Integer read Get_StrikeThrough write Set_StrikeThrough;
    property DoubleStrikeThrough: Integer read Get_DoubleStrikeThrough write Set_DoubleStrikeThrough;
    property ColorIndex: WdColorIndex read Get_ColorIndex write Set_ColorIndex;
    property Subscript: Integer read Get_Subscript write Set_Subscript;
    property Superscript: Integer read Get_Superscript write Set_Superscript;
    property Underline: WdUnderline read Get_Underline write Set_Underline;
    property Size: Single read Get_Size write Set_Size;
    property Name: WideString read Get_Name write Set_Name;
    property Position: Integer read Get_Position write Set_Position;
    property Spacing: Single read Get_Spacing write Set_Spacing;
    property Scaling: Integer read Get_Scaling write Set_Scaling;
    property Shadow: Integer read Get_Shadow write Set_Shadow;
    property Outline: Integer read Get_Outline write Set_Outline;
    property Emboss: Integer read Get_Emboss write Set_Emboss;
    property Kerning: Single read Get_Kerning write Set_Kerning;
    property Engrave: Integer read Get_Engrave write Set_Engrave;
    property Animation: WdAnimation read Get_Animation write Set_Animation;
    property Borders: Borders read Get_Borders write Set_Borders;
    property EmphasisMark: WdEmphasisMark read Get_EmphasisMark write Set_EmphasisMark;
    property DisableCharacterSpaceGrid: WordBool read Get_DisableCharacterSpaceGrid write Set_DisableCharacterSpaceGrid;
    property NameFarEast: WideString read Get_NameFarEast write Set_NameFarEast;
    property NameAscii: WideString read Get_NameAscii write Set_NameAscii;
    property NameOther: WideString read Get_NameOther write Set_NameOther;
    property Color: WdColor read Get_Color write Set_Color;
    property BoldBi: Integer read Get_BoldBi write Set_BoldBi;
    property ItalicBi: Integer read Get_ItalicBi write Set_ItalicBi;
    property SizeBi: Single read Get_SizeBi write Set_SizeBi;
    property NameBi: WideString read Get_NameBi write Set_NameBi;
    property ColorIndexBi: WdColorIndex read Get_ColorIndexBi write Set_ColorIndexBi;
    property DiacriticColor: WdColor read Get_DiacriticColor write Set_DiacriticColor;
    property UnderlineColor: WdColor read Get_UnderlineColor write Set_UnderlineColor;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoWordParagraphFormat provides a Create and CreateRemote method to          
// create instances of the default interface _ParagraphFormat exposed by              
// the CoClass WordParagraphFormat. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoWordParagraphFormat = class
    class function Create: _ParagraphFormat;
    class function CreateRemote(const MachineName: string): _ParagraphFormat;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TWordParagraphFormat
// Help String      : 
// Default Interface: _ParagraphFormat
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TWordParagraphFormatProperties= class;
{$ENDIF}
  TWordParagraphFormat = class(TOleServer)
  private
    FIntf:        _ParagraphFormat;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TWordParagraphFormatProperties;
    function      GetServerProperties: TWordParagraphFormatProperties;
{$ENDIF}
    function      GetDefaultInterface: _ParagraphFormat;
  protected
    procedure InitServerData; override;
    function Get_Application: WordApplication;
    function Get_Creator: Integer;
    function Get_Parent: IDispatch;
    function Get_Duplicate: WordParagraphFormat;
    function Get_Style: OleVariant;
    procedure Set_Style(var prop: OleVariant);
    function Get_Alignment: WdParagraphAlignment;
    procedure Set_Alignment(prop: WdParagraphAlignment);
    function Get_KeepTogether: Integer;
    procedure Set_KeepTogether(prop: Integer);
    function Get_KeepWithNext: Integer;
    procedure Set_KeepWithNext(prop: Integer);
    function Get_PageBreakBefore: Integer;
    procedure Set_PageBreakBefore(prop: Integer);
    function Get_NoLineNumber: Integer;
    procedure Set_NoLineNumber(prop: Integer);
    function Get_RightIndent: Single;
    procedure Set_RightIndent(prop: Single);
    function Get_LeftIndent: Single;
    procedure Set_LeftIndent(prop: Single);
    function Get_FirstLineIndent: Single;
    procedure Set_FirstLineIndent(prop: Single);
    function Get_LineSpacing: Single;
    procedure Set_LineSpacing(prop: Single);
    function Get_LineSpacingRule: WdLineSpacing;
    procedure Set_LineSpacingRule(prop: WdLineSpacing);
    function Get_SpaceBefore: Single;
    procedure Set_SpaceBefore(prop: Single);
    function Get_SpaceAfter: Single;
    procedure Set_SpaceAfter(prop: Single);
    function Get_Hyphenation: Integer;
    procedure Set_Hyphenation(prop: Integer);
    function Get_WidowControl: Integer;
    procedure Set_WidowControl(prop: Integer);
    function Get_FarEastLineBreakControl: Integer;
    procedure Set_FarEastLineBreakControl(prop: Integer);
    function Get_WordWrap: Integer;
    procedure Set_WordWrap(prop: Integer);
    function Get_HangingPunctuation: Integer;
    procedure Set_HangingPunctuation(prop: Integer);
    function Get_HalfWidthPunctuationOnTopOfLine: Integer;
    procedure Set_HalfWidthPunctuationOnTopOfLine(prop: Integer);
    function Get_AddSpaceBetweenFarEastAndAlpha: Integer;
    procedure Set_AddSpaceBetweenFarEastAndAlpha(prop: Integer);
    function Get_AddSpaceBetweenFarEastAndDigit: Integer;
    procedure Set_AddSpaceBetweenFarEastAndDigit(prop: Integer);
    function Get_BaseLineAlignment: WdBaselineAlignment;
    procedure Set_BaseLineAlignment(prop: WdBaselineAlignment);
    function Get_AutoAdjustRightIndent: Integer;
    procedure Set_AutoAdjustRightIndent(prop: Integer);
    function Get_DisableLineHeightGrid: Integer;
    procedure Set_DisableLineHeightGrid(prop: Integer);
    function Get_TabStops: TabStops;
    procedure Set_TabStops(const prop: TabStops);
    function Get_Borders: Borders;
    procedure Set_Borders(const prop: Borders);
    function Get_Shading: Shading;
    function Get_OutlineLevel: WdOutlineLevel;
    procedure Set_OutlineLevel(prop: WdOutlineLevel);
    function Get_CharacterUnitRightIndent: Single;
    procedure Set_CharacterUnitRightIndent(prop: Single);
    function Get_CharacterUnitLeftIndent: Single;
    procedure Set_CharacterUnitLeftIndent(prop: Single);
    function Get_CharacterUnitFirstLineIndent: Single;
    procedure Set_CharacterUnitFirstLineIndent(prop: Single);
    function Get_LineUnitBefore: Single;
    procedure Set_LineUnitBefore(prop: Single);
    function Get_LineUnitAfter: Single;
    procedure Set_LineUnitAfter(prop: Single);
    function Get_ReadingOrder: WdReadingOrder;
    procedure Set_ReadingOrder(prop: WdReadingOrder);
    function Get_SpaceBeforeAuto: Integer;
    procedure Set_SpaceBeforeAuto(prop: Integer);
    function Get_SpaceAfterAuto: Integer;
    procedure Set_SpaceAfterAuto(prop: Integer);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: _ParagraphFormat);
    procedure Disconnect; override;
    procedure CloseUp;
    procedure OpenUp;
    procedure OpenOrCloseUp;
    procedure TabHangingIndent(Count: Smallint);
    procedure TabIndent(Count: Smallint);
    procedure Reset;
    procedure Space1;
    procedure Space15;
    procedure Space2;
    procedure IndentCharWidth(Count: Smallint);
    procedure IndentFirstLineCharWidth(Count: Smallint);
    property DefaultInterface: _ParagraphFormat read GetDefaultInterface;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Duplicate: WordParagraphFormat read Get_Duplicate;
    property Shading: Shading read Get_Shading;
    property Alignment: WdParagraphAlignment read Get_Alignment write Set_Alignment;
    property KeepTogether: Integer read Get_KeepTogether write Set_KeepTogether;
    property KeepWithNext: Integer read Get_KeepWithNext write Set_KeepWithNext;
    property PageBreakBefore: Integer read Get_PageBreakBefore write Set_PageBreakBefore;
    property NoLineNumber: Integer read Get_NoLineNumber write Set_NoLineNumber;
    property RightIndent: Single read Get_RightIndent write Set_RightIndent;
    property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
    property FirstLineIndent: Single read Get_FirstLineIndent write Set_FirstLineIndent;
    property LineSpacing: Single read Get_LineSpacing write Set_LineSpacing;
    property LineSpacingRule: WdLineSpacing read Get_LineSpacingRule write Set_LineSpacingRule;
    property SpaceBefore: Single read Get_SpaceBefore write Set_SpaceBefore;
    property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
    property Hyphenation: Integer read Get_Hyphenation write Set_Hyphenation;
    property WidowControl: Integer read Get_WidowControl write Set_WidowControl;
    property FarEastLineBreakControl: Integer read Get_FarEastLineBreakControl write Set_FarEastLineBreakControl;
    property WordWrap: Integer read Get_WordWrap write Set_WordWrap;
    property HangingPunctuation: Integer read Get_HangingPunctuation write Set_HangingPunctuation;
    property HalfWidthPunctuationOnTopOfLine: Integer read Get_HalfWidthPunctuationOnTopOfLine write Set_HalfWidthPunctuationOnTopOfLine;
    property AddSpaceBetweenFarEastAndAlpha: Integer read Get_AddSpaceBetweenFarEastAndAlpha write Set_AddSpaceBetweenFarEastAndAlpha;
    property AddSpaceBetweenFarEastAndDigit: Integer read Get_AddSpaceBetweenFarEastAndDigit write Set_AddSpaceBetweenFarEastAndDigit;
    property BaseLineAlignment: WdBaselineAlignment read Get_BaseLineAlignment write Set_BaseLineAlignment;
    property AutoAdjustRightIndent: Integer read Get_AutoAdjustRightIndent write Set_AutoAdjustRightIndent;
    property DisableLineHeightGrid: Integer read Get_DisableLineHeightGrid write Set_DisableLineHeightGrid;
    property TabStops: TabStops read Get_TabStops write Set_TabStops;
    property Borders: Borders read Get_Borders write Set_Borders;
    property OutlineLevel: WdOutlineLevel read Get_OutlineLevel write Set_OutlineLevel;
    property CharacterUnitRightIndent: Single read Get_CharacterUnitRightIndent write Set_CharacterUnitRightIndent;
    property CharacterUnitLeftIndent: Single read Get_CharacterUnitLeftIndent write Set_CharacterUnitLeftIndent;
    property CharacterUnitFirstLineIndent: Single read Get_CharacterUnitFirstLineIndent write Set_CharacterUnitFirstLineIndent;
    property LineUnitBefore: Single read Get_LineUnitBefore write Set_LineUnitBefore;
    property LineUnitAfter: Single read Get_LineUnitAfter write Set_LineUnitAfter;
    property ReadingOrder: WdReadingOrder read Get_ReadingOrder write Set_ReadingOrder;
    property SpaceBeforeAuto: Integer read Get_SpaceBeforeAuto write Set_SpaceBeforeAuto;
    property SpaceAfterAuto: Integer read Get_SpaceAfterAuto write Set_SpaceAfterAuto;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TWordParagraphFormatProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TWordParagraphFormat
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TWordParagraphFormatProperties = class(TPersistent)
  private
    FServer:    TWordParagraphFormat;
    function    GetDefaultInterface: _ParagraphFormat;
    constructor Create(AServer: TWordParagraphFormat);
  protected
    function Get_Application: WordApplication;
    function Get_Creator: Integer;
    function Get_Parent: IDispatch;
    function Get_Duplicate: WordParagraphFormat;
    function Get_Style: OleVariant;
    procedure Set_Style(var prop: OleVariant);
    function Get_Alignment: WdParagraphAlignment;
    procedure Set_Alignment(prop: WdParagraphAlignment);
    function Get_KeepTogether: Integer;
    procedure Set_KeepTogether(prop: Integer);
    function Get_KeepWithNext: Integer;
    procedure Set_KeepWithNext(prop: Integer);
    function Get_PageBreakBefore: Integer;
    procedure Set_PageBreakBefore(prop: Integer);
    function Get_NoLineNumber: Integer;
    procedure Set_NoLineNumber(prop: Integer);
    function Get_RightIndent: Single;
    procedure Set_RightIndent(prop: Single);
    function Get_LeftIndent: Single;
    procedure Set_LeftIndent(prop: Single);
    function Get_FirstLineIndent: Single;
    procedure Set_FirstLineIndent(prop: Single);
    function Get_LineSpacing: Single;
    procedure Set_LineSpacing(prop: Single);
    function Get_LineSpacingRule: WdLineSpacing;
    procedure Set_LineSpacingRule(prop: WdLineSpacing);
    function Get_SpaceBefore: Single;
    procedure Set_SpaceBefore(prop: Single);
    function Get_SpaceAfter: Single;
    procedure Set_SpaceAfter(prop: Single);
    function Get_Hyphenation: Integer;
    procedure Set_Hyphenation(prop: Integer);
    function Get_WidowControl: Integer;
    procedure Set_WidowControl(prop: Integer);
    function Get_FarEastLineBreakControl: Integer;
    procedure Set_FarEastLineBreakControl(prop: Integer);
    function Get_WordWrap: Integer;
    procedure Set_WordWrap(prop: Integer);
    function Get_HangingPunctuation: Integer;
    procedure Set_HangingPunctuation(prop: Integer);
    function Get_HalfWidthPunctuationOnTopOfLine: Integer;
    procedure Set_HalfWidthPunctuationOnTopOfLine(prop: Integer);
    function Get_AddSpaceBetweenFarEastAndAlpha: Integer;
    procedure Set_AddSpaceBetweenFarEastAndAlpha(prop: Integer);
    function Get_AddSpaceBetweenFarEastAndDigit: Integer;
    procedure Set_AddSpaceBetweenFarEastAndDigit(prop: Integer);
    function Get_BaseLineAlignment: WdBaselineAlignment;
    procedure Set_BaseLineAlignment(prop: WdBaselineAlignment);
    function Get_AutoAdjustRightIndent: Integer;
    procedure Set_AutoAdjustRightIndent(prop: Integer);
    function Get_DisableLineHeightGrid: Integer;
    procedure Set_DisableLineHeightGrid(prop: Integer);
    function Get_TabStops: TabStops;
    procedure Set_TabStops(const prop: TabStops);
    function Get_Borders: Borders;
    procedure Set_Borders(const prop: Borders);
    function Get_Shading: Shading;
    function Get_OutlineLevel: WdOutlineLevel;
    procedure Set_OutlineLevel(prop: WdOutlineLevel);
    function Get_CharacterUnitRightIndent: Single;
    procedure Set_CharacterUnitRightIndent(prop: Single);
    function Get_CharacterUnitLeftIndent: Single;
    procedure Set_CharacterUnitLeftIndent(prop: Single);
    function Get_CharacterUnitFirstLineIndent: Single;
    procedure Set_CharacterUnitFirstLineIndent(prop: Single);
    function Get_LineUnitBefore: Single;
    procedure Set_LineUnitBefore(prop: Single);
    function Get_LineUnitAfter: Single;
    procedure Set_LineUnitAfter(prop: Single);
    function Get_ReadingOrder: WdReadingOrder;
    procedure Set_ReadingOrder(prop: WdReadingOrder);
    function Get_SpaceBeforeAuto: Integer;
    procedure Set_SpaceBeforeAuto(prop: Integer);
    function Get_SpaceAfterAuto: Integer;
    procedure Set_SpaceAfterAuto(prop: Integer);
  public
    property DefaultInterface: _ParagraphFormat read GetDefaultInterface;
  published
    property Alignment: WdParagraphAlignment read Get_Alignment write Set_Alignment;
    property KeepTogether: Integer read Get_KeepTogether write Set_KeepTogether;
    property KeepWithNext: Integer read Get_KeepWithNext write Set_KeepWithNext;
    property PageBreakBefore: Integer read Get_PageBreakBefore write Set_PageBreakBefore;
    property NoLineNumber: Integer read Get_NoLineNumber write Set_NoLineNumber;
    property RightIndent: Single read Get_RightIndent write Set_RightIndent;
    property LeftIndent: Single read Get_LeftIndent write Set_LeftIndent;
    property FirstLineIndent: Single read Get_FirstLineIndent write Set_FirstLineIndent;
    property LineSpacing: Single read Get_LineSpacing write Set_LineSpacing;
    property LineSpacingRule: WdLineSpacing read Get_LineSpacingRule write Set_LineSpacingRule;
    property SpaceBefore: Single read Get_SpaceBefore write Set_SpaceBefore;
    property SpaceAfter: Single read Get_SpaceAfter write Set_SpaceAfter;
    property Hyphenation: Integer read Get_Hyphenation write Set_Hyphenation;
    property WidowControl: Integer read Get_WidowControl write Set_WidowControl;
    property FarEastLineBreakControl: Integer read Get_FarEastLineBreakControl write Set_FarEastLineBreakControl;
    property WordWrap: Integer read Get_WordWrap write Set_WordWrap;
    property HangingPunctuation: Integer read Get_HangingPunctuation write Set_HangingPunctuation;
    property HalfWidthPunctuationOnTopOfLine: Integer read Get_HalfWidthPunctuationOnTopOfLine write Set_HalfWidthPunctuationOnTopOfLine;
    property AddSpaceBetweenFarEastAndAlpha: Integer read Get_AddSpaceBetweenFarEastAndAlpha write Set_AddSpaceBetweenFarEastAndAlpha;
    property AddSpaceBetweenFarEastAndDigit: Integer read Get_AddSpaceBetweenFarEastAndDigit write Set_AddSpaceBetweenFarEastAndDigit;
    property BaseLineAlignment: WdBaselineAlignment read Get_BaseLineAlignment write Set_BaseLineAlignment;
    property AutoAdjustRightIndent: Integer read Get_AutoAdjustRightIndent write Set_AutoAdjustRightIndent;
    property DisableLineHeightGrid: Integer read Get_DisableLineHeightGrid write Set_DisableLineHeightGrid;
    property TabStops: TabStops read Get_TabStops write Set_TabStops;
    property Borders: Borders read Get_Borders write Set_Borders;
    property OutlineLevel: WdOutlineLevel read Get_OutlineLevel write Set_OutlineLevel;
    property CharacterUnitRightIndent: Single read Get_CharacterUnitRightIndent write Set_CharacterUnitRightIndent;
    property CharacterUnitLeftIndent: Single read Get_CharacterUnitLeftIndent write Set_CharacterUnitLeftIndent;
    property CharacterUnitFirstLineIndent: Single read Get_CharacterUnitFirstLineIndent write Set_CharacterUnitFirstLineIndent;
    property LineUnitBefore: Single read Get_LineUnitBefore write Set_LineUnitBefore;
    property LineUnitAfter: Single read Get_LineUnitAfter write Set_LineUnitAfter;
    property ReadingOrder: WdReadingOrder read Get_ReadingOrder write Set_ReadingOrder;
    property SpaceBeforeAuto: Integer read Get_SpaceBeforeAuto write Set_SpaceBeforeAuto;
    property SpaceAfterAuto: Integer read Get_SpaceAfterAuto write Set_SpaceAfterAuto;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoWordOLEControl provides a Create and CreateRemote method to          
// create instances of the default interface _OLEControl exposed by              
// the CoClass WordOLEControl. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoWordOLEControl = class
    class function Create: _OLEControl;
    class function CreateRemote(const MachineName: string): _OLEControl;
  end;

// *********************************************************************//
// The Class CoWordLetterContent provides a Create and CreateRemote method to          
// create instances of the default interface _LetterContent exposed by              
// the CoClass WordLetterContent. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoWordLetterContent = class
    class function Create: _LetterContent;
    class function CreateRemote(const MachineName: string): _LetterContent;
  end;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TWordLetterContent
// Help String      : 
// Default Interface: _LetterContent
// Def. Intf. DISP? : No
// Event   Interface: 
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TWordLetterContentProperties= class;
{$ENDIF}
  TWordLetterContent = class(TOleServer)
  private
    FIntf:        _LetterContent;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TWordLetterContentProperties;
    function      GetServerProperties: TWordLetterContentProperties;
{$ENDIF}
    function      GetDefaultInterface: _LetterContent;
  protected
    procedure InitServerData; override;
    function Get_Application: WordApplication;
    function Get_Creator: Integer;
    function Get_Parent: IDispatch;
    function Get_Duplicate: WordLetterContent;
    function Get_DateFormat: WideString;
    procedure Set_DateFormat(const prop: WideString);
    function Get_IncludeHeaderFooter: WordBool;
    procedure Set_IncludeHeaderFooter(prop: WordBool);
    function Get_PageDesign: WideString;
    procedure Set_PageDesign(const prop: WideString);
    function Get_LetterStyle: WdLetterStyle;
    procedure Set_LetterStyle(prop: WdLetterStyle);
    function Get_Letterhead: WordBool;
    procedure Set_Letterhead(prop: WordBool);
    function Get_LetterheadLocation: WdLetterheadLocation;
    procedure Set_LetterheadLocation(prop: WdLetterheadLocation);
    function Get_LetterheadSize: Single;
    procedure Set_LetterheadSize(prop: Single);
    function Get_RecipientName: WideString;
    procedure Set_RecipientName(const prop: WideString);
    function Get_RecipientAddress: WideString;
    procedure Set_RecipientAddress(const prop: WideString);
    function Get_Salutation: WideString;
    procedure Set_Salutation(const prop: WideString);
    function Get_SalutationType: WdSalutationType;
    procedure Set_SalutationType(prop: WdSalutationType);
    function Get_RecipientReference: WideString;
    procedure Set_RecipientReference(const prop: WideString);
    function Get_MailingInstructions: WideString;
    procedure Set_MailingInstructions(const prop: WideString);
    function Get_AttentionLine: WideString;
    procedure Set_AttentionLine(const prop: WideString);
    function Get_Subject: WideString;
    procedure Set_Subject(const prop: WideString);
    function Get_EnclosureNumber: Integer;
    procedure Set_EnclosureNumber(prop: Integer);
    function Get_CCList: WideString;
    procedure Set_CCList(const prop: WideString);
    function Get_ReturnAddress: WideString;
    procedure Set_ReturnAddress(const prop: WideString);
    function Get_SenderName: WideString;
    procedure Set_SenderName(const prop: WideString);
    function Get_Closing: WideString;
    procedure Set_Closing(const prop: WideString);
    function Get_SenderCompany: WideString;
    procedure Set_SenderCompany(const prop: WideString);
    function Get_SenderJobTitle: WideString;
    procedure Set_SenderJobTitle(const prop: WideString);
    function Get_SenderInitials: WideString;
    procedure Set_SenderInitials(const prop: WideString);
    function Get_InfoBlock: WordBool;
    procedure Set_InfoBlock(prop: WordBool);
    function Get_RecipientCode: WideString;
    procedure Set_RecipientCode(const prop: WideString);
    function Get_RecipientGender: WdSalutationGender;
    procedure Set_RecipientGender(prop: WdSalutationGender);
    function Get_ReturnAddressShortForm: WideString;
    procedure Set_ReturnAddressShortForm(const prop: WideString);
    function Get_SenderCity: WideString;
    procedure Set_SenderCity(const prop: WideString);
    function Get_SenderCode: WideString;
    procedure Set_SenderCode(const prop: WideString);
    function Get_SenderGender: WdSalutationGender;
    procedure Set_SenderGender(prop: WdSalutationGender);
    function Get_SenderReference: WideString;
    procedure Set_SenderReference(const prop: WideString);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: _LetterContent);
    procedure Disconnect; override;
    property DefaultInterface: _LetterContent read GetDefaultInterface;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Duplicate: WordLetterContent read Get_Duplicate;
    property DateFormat: WideString read Get_DateFormat write Set_DateFormat;
    property IncludeHeaderFooter: WordBool read Get_IncludeHeaderFooter write Set_IncludeHeaderFooter;
    property PageDesign: WideString read Get_PageDesign write Set_PageDesign;
    property LetterStyle: WdLetterStyle read Get_LetterStyle write Set_LetterStyle;
    property Letterhead: WordBool read Get_Letterhead write Set_Letterhead;
    property LetterheadLocation: WdLetterheadLocation read Get_LetterheadLocation write Set_LetterheadLocation;
    property LetterheadSize: Single read Get_LetterheadSize write Set_LetterheadSize;
    property RecipientName: WideString read Get_RecipientName write Set_RecipientName;
    property RecipientAddress: WideString read Get_RecipientAddress write Set_RecipientAddress;
    property Salutation: WideString read Get_Salutation write Set_Salutation;
    property SalutationType: WdSalutationType read Get_SalutationType write Set_SalutationType;
    property RecipientReference: WideString read Get_RecipientReference write Set_RecipientReference;
    property MailingInstructions: WideString read Get_MailingInstructions write Set_MailingInstructions;
    property AttentionLine: WideString read Get_AttentionLine write Set_AttentionLine;
    property Subject: WideString read Get_Subject write Set_Subject;
    property EnclosureNumber: Integer read Get_EnclosureNumber write Set_EnclosureNumber;
    property CCList: WideString read Get_CCList write Set_CCList;
    property ReturnAddress: WideString read Get_ReturnAddress write Set_ReturnAddress;
    property SenderName: WideString read Get_SenderName write Set_SenderName;
    property Closing: WideString read Get_Closing write Set_Closing;
    property SenderCompany: WideString read Get_SenderCompany write Set_SenderCompany;
    property SenderJobTitle: WideString read Get_SenderJobTitle write Set_SenderJobTitle;
    property SenderInitials: WideString read Get_SenderInitials write Set_SenderInitials;
    property InfoBlock: WordBool read Get_InfoBlock write Set_InfoBlock;
    property RecipientCode: WideString read Get_RecipientCode write Set_RecipientCode;
    property RecipientGender: WdSalutationGender read Get_RecipientGender write Set_RecipientGender;
    property ReturnAddressShortForm: WideString read Get_ReturnAddressShortForm write Set_ReturnAddressShortForm;
    property SenderCity: WideString read Get_SenderCity write Set_SenderCity;
    property SenderCode: WideString read Get_SenderCode write Set_SenderCode;
    property SenderGender: WdSalutationGender read Get_SenderGender write Set_SenderGender;
    property SenderReference: WideString read Get_SenderReference write Set_SenderReference;
  published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TWordLetterContentProperties read GetServerProperties;
{$ENDIF}
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TWordLetterContent
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TWordLetterContentProperties = class(TPersistent)
  private
    FServer:    TWordLetterContent;
    function    GetDefaultInterface: _LetterContent;
    constructor Create(AServer: TWordLetterContent);
  protected
    function Get_Application: WordApplication;
    function Get_Creator: Integer;
    function Get_Parent: IDispatch;
    function Get_Duplicate: WordLetterContent;
    function Get_DateFormat: WideString;
    procedure Set_DateFormat(const prop: WideString);
    function Get_IncludeHeaderFooter: WordBool;
    procedure Set_IncludeHeaderFooter(prop: WordBool);
    function Get_PageDesign: WideString;
    procedure Set_PageDesign(const prop: WideString);
    function Get_LetterStyle: WdLetterStyle;
    procedure Set_LetterStyle(prop: WdLetterStyle);
    function Get_Letterhead: WordBool;
    procedure Set_Letterhead(prop: WordBool);
    function Get_LetterheadLocation: WdLetterheadLocation;
    procedure Set_LetterheadLocation(prop: WdLetterheadLocation);
    function Get_LetterheadSize: Single;
    procedure Set_LetterheadSize(prop: Single);
    function Get_RecipientName: WideString;
    procedure Set_RecipientName(const prop: WideString);
    function Get_RecipientAddress: WideString;
    procedure Set_RecipientAddress(const prop: WideString);
    function Get_Salutation: WideString;
    procedure Set_Salutation(const prop: WideString);
    function Get_SalutationType: WdSalutationType;
    procedure Set_SalutationType(prop: WdSalutationType);
    function Get_RecipientReference: WideString;
    procedure Set_RecipientReference(const prop: WideString);
    function Get_MailingInstructions: WideString;
    procedure Set_MailingInstructions(const prop: WideString);
    function Get_AttentionLine: WideString;
    procedure Set_AttentionLine(const prop: WideString);
    function Get_Subject: WideString;
    procedure Set_Subject(const prop: WideString);
    function Get_EnclosureNumber: Integer;
    procedure Set_EnclosureNumber(prop: Integer);
    function Get_CCList: WideString;
    procedure Set_CCList(const prop: WideString);
    function Get_ReturnAddress: WideString;
    procedure Set_ReturnAddress(const prop: WideString);
    function Get_SenderName: WideString;
    procedure Set_SenderName(const prop: WideString);
    function Get_Closing: WideString;
    procedure Set_Closing(const prop: WideString);
    function Get_SenderCompany: WideString;
    procedure Set_SenderCompany(const prop: WideString);
    function Get_SenderJobTitle: WideString;
    procedure Set_SenderJobTitle(const prop: WideString);
    function Get_SenderInitials: WideString;
    procedure Set_SenderInitials(const prop: WideString);
    function Get_InfoBlock: WordBool;
    procedure Set_InfoBlock(prop: WordBool);
    function Get_RecipientCode: WideString;
    procedure Set_RecipientCode(const prop: WideString);
    function Get_RecipientGender: WdSalutationGender;
    procedure Set_RecipientGender(prop: WdSalutationGender);
    function Get_ReturnAddressShortForm: WideString;
    procedure Set_ReturnAddressShortForm(const prop: WideString);
    function Get_SenderCity: WideString;
    procedure Set_SenderCity(const prop: WideString);
    function Get_SenderCode: WideString;
    procedure Set_SenderCode(const prop: WideString);
    function Get_SenderGender: WdSalutationGender;
    procedure Set_SenderGender(prop: WdSalutationGender);
    function Get_SenderReference: WideString;
    procedure Set_SenderReference(const prop: WideString);
  public
    property DefaultInterface: _LetterContent read GetDefaultInterface;
  published
    property DateFormat: WideString read Get_DateFormat write Set_DateFormat;
    property IncludeHeaderFooter: WordBool read Get_IncludeHeaderFooter write Set_IncludeHeaderFooter;
    property PageDesign: WideString read Get_PageDesign write Set_PageDesign;
    property LetterStyle: WdLetterStyle read Get_LetterStyle write Set_LetterStyle;
    property Letterhead: WordBool read Get_Letterhead write Set_Letterhead;
    property LetterheadLocation: WdLetterheadLocation read Get_LetterheadLocation write Set_LetterheadLocation;
    property LetterheadSize: Single read Get_LetterheadSize write Set_LetterheadSize;
    property RecipientName: WideString read Get_RecipientName write Set_RecipientName;
    property RecipientAddress: WideString read Get_RecipientAddress write Set_RecipientAddress;
    property Salutation: WideString read Get_Salutation write Set_Salutation;
    property SalutationType: WdSalutationType read Get_SalutationType write Set_SalutationType;
    property RecipientReference: WideString read Get_RecipientReference write Set_RecipientReference;
    property MailingInstructions: WideString read Get_MailingInstructions write Set_MailingInstructions;
    property AttentionLine: WideString read Get_AttentionLine write Set_AttentionLine;
    property Subject: WideString read Get_Subject write Set_Subject;
    property EnclosureNumber: Integer read Get_EnclosureNumber write Set_EnclosureNumber;
    property CCList: WideString read Get_CCList write Set_CCList;
    property ReturnAddress: WideString read Get_ReturnAddress write Set_ReturnAddress;
    property SenderName: WideString read Get_SenderName write Set_SenderName;
    property Closing: WideString read Get_Closing write Set_Closing;
    property SenderCompany: WideString read Get_SenderCompany write Set_SenderCompany;
    property SenderJobTitle: WideString read Get_SenderJobTitle write Set_SenderJobTitle;
    property SenderInitials: WideString read Get_SenderInitials write Set_SenderInitials;
    property InfoBlock: WordBool read Get_InfoBlock write Set_InfoBlock;
    property RecipientCode: WideString read Get_RecipientCode write Set_RecipientCode;
    property RecipientGender: WdSalutationGender read Get_RecipientGender write Set_RecipientGender;
    property ReturnAddressShortForm: WideString read Get_ReturnAddressShortForm write Set_ReturnAddressShortForm;
    property SenderCity: WideString read Get_SenderCity write Set_SenderCity;
    property SenderCode: WideString read Get_SenderCode write Set_SenderCode;
    property SenderGender: WdSalutationGender read Get_SenderGender write Set_SenderGender;
    property SenderReference: WideString read Get_SenderReference write Set_SenderReference;
  end;
{$ENDIF}


// *********************************************************************//
// The Class CoWordApplication provides a Create and CreateRemote method to          
// create instances of the default interface _Application exposed by              
// the CoClass WordApplication. The functions are intended to be used by             
// clients wishing to automate the CoClass objects exposed by the         
// server of this typelibrary.                                            
// *********************************************************************//
  CoWordApplication = class
    class function Create: _Application;
    class function CreateRemote(const MachineName: string): _Application;
  end;

  TWordApplicationDocumentOpen = procedure(ASender: TObject; const Doc: WordDocument) of object;
  TWordApplicationDocumentBeforeClose = procedure(ASender: TObject; const Doc: WordDocument; 
                                                                    var Cancel: WordBool) of object;
  TWordApplicationDocumentBeforePrint = procedure(ASender: TObject; const Doc: WordDocument; 
                                                                    var Cancel: WordBool) of object;
  TWordApplicationDocumentBeforeSave = procedure(ASender: TObject; const Doc: WordDocument; 
                                                                   var SaveAsUI: WordBool; 
                                                                   var Cancel: WordBool) of object;
  TWordApplicationNewDocument = procedure(ASender: TObject; const Doc: WordDocument) of object;
  TWordApplicationWindowActivate = procedure(ASender: TObject; const Doc: WordDocument; 
                                                               const Wn: Window) of object;
  TWordApplicationWindowDeactivate = procedure(ASender: TObject; const Doc: WordDocument; 
                                                                 const Wn: Window) of object;
  TWordApplicationWindowSelectionChange = procedure(ASender: TObject; const Sel: WordSelection) of object;
  TWordApplicationWindowBeforeRightClick = procedure(ASender: TObject; const Sel: WordSelection; 
                                                                       var Cancel: WordBool) of object;
  TWordApplicationWindowBeforeDoubleClick = procedure(ASender: TObject; const Sel: WordSelection; 
                                                                        var Cancel: WordBool) of object;
  TWordApplicationEPostagePropertyDialog = procedure(ASender: TObject; const Doc: WordDocument) of object;
  TWordApplicationEPostageInsert = procedure(ASender: TObject; const Doc: WordDocument) of object;
  TWordApplicationMailMergeAfterMerge = procedure(ASender: TObject; const Doc: WordDocument; 
                                                                    const DocResult: WordDocument) of object;
  TWordApplicationMailMergeAfterRecordMerge = procedure(ASender: TObject; const Doc: WordDocument) of object;
  TWordApplicationMailMergeBeforeMerge = procedure(ASender: TObject; const Doc: WordDocument; 
                                                                     StartRecord: Integer; 
                                                                     EndRecord: Integer; 
                                                                     var Cancel: WordBool) of object;
  TWordApplicationMailMergeBeforeRecordMerge = procedure(ASender: TObject; const Doc: WordDocument; 
                                                                           var Cancel: WordBool) of object;
  TWordApplicationMailMergeDataSourceLoad = procedure(ASender: TObject; const Doc: WordDocument) of object;
  TWordApplicationMailMergeDataSourceValidate = procedure(ASender: TObject; const Doc: WordDocument; 
                                                                            var Handled: WordBool) of object;
  TWordApplicationMailMergeWizardSendToCustom = procedure(ASender: TObject; const Doc: WordDocument) of object;
  TWordApplicationMailMergeWizardStateChange = procedure(ASender: TObject; const Doc: WordDocument; 
                                                                           var FromState: SYSINT; 
                                                                           var ToState: SYSINT; 
                                                                           var Handled: WordBool) of object;
  TWordApplicationWindowSize = procedure(ASender: TObject; const Doc: WordDocument; const Wn: Window) of object;


// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object    : TWordApplication
// Help String      : 
// Default Interface: _Application
// Def. Intf. DISP? : No
// Event   Interface: ApplicationEvents3
// TypeFlags        : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  TWordApplicationProperties= class;
{$ENDIF}
  TWordApplication = class(TOleServer)
  private
    FOnStartup: TNotifyEvent;
    FOnQuit: TNotifyEvent;
    FOnDocumentChange: TNotifyEvent;
    FOnDocumentOpen: TWordApplicationDocumentOpen;
    FOnDocumentBeforeClose: TWordApplicationDocumentBeforeClose;
    FOnDocumentBeforePrint: TWordApplicationDocumentBeforePrint;
    FOnDocumentBeforeSave: TWordApplicationDocumentBeforeSave;
    FOnNewDocument: TWordApplicationNewDocument;
    FOnWindowActivate: TWordApplicationWindowActivate;
    FOnWindowDeactivate: TWordApplicationWindowDeactivate;
    FOnWindowSelectionChange: TWordApplicationWindowSelectionChange;
    FOnWindowBeforeRightClick: TWordApplicationWindowBeforeRightClick;
    FOnWindowBeforeDoubleClick: TWordApplicationWindowBeforeDoubleClick;
    FOnEPostagePropertyDialog: TWordApplicationEPostagePropertyDialog;
    FOnEPostageInsert: TWordApplicationEPostageInsert;
    FOnMailMergeAfterMerge: TWordApplicationMailMergeAfterMerge;
    FOnMailMergeAfterRecordMerge: TWordApplicationMailMergeAfterRecordMerge;
    FOnMailMergeBeforeMerge: TWordApplicationMailMergeBeforeMerge;
    FOnMailMergeBeforeRecordMerge: TWordApplicationMailMergeBeforeRecordMerge;
    FOnMailMergeDataSourceLoad: TWordApplicationMailMergeDataSourceLoad;
    FOnMailMergeDataSourceValidate: TWordApplicationMailMergeDataSourceValidate;
    FOnMailMergeWizardSendToCustom: TWordApplicationMailMergeWizardSendToCustom;
    FOnMailMergeWizardStateChange: TWordApplicationMailMergeWizardStateChange;
    FOnWindowSize: TWordApplicationWindowSize;
    FAutoQuit:    Boolean;
    FIntf:        _Application;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    FProps:       TWordApplicationProperties;
    function      GetServerProperties: TWordApplicationProperties;
{$ENDIF}
    function      GetDefaultInterface: _Application;
  protected
    procedure InitServerData; override;
    procedure InvokeEvent(DispID: TDispID; var Params: TVariantArray); override;
    function Get_Application: WordApplication;
    function Get_Creator: Integer;
    function Get_Parent: IDispatch;
    function Get_Name: WideString;
    function Get_Documents: Documents;
    function Get_Windows: Windows;
    function Get_ActiveDocument: WordDocument;
    function Get_ActiveWindow: Window;
    function Get_Selection: WordSelection;
    function Get_WordBasic: IDispatch;
    function Get_RecentFiles: RecentFiles;
    function Get_NormalTemplate: Template;
    function Get_System_: System;
    function Get_AutoCorrect: AutoCorrect;
    function Get_FontNames: FontNames;
    function Get_LandscapeFontNames: FontNames;
    function Get_PortraitFontNames: FontNames;
    function Get_Languages: Languages;
    function Get_Assistant: Assistant;
    function Get_Browser: Browser;
    function Get_FileConverters: FileConverters;
    function Get_MailingLabel: MailingLabel;
    function Get_Dialogs: Dialogs;
    function Get_CaptionLabels: CaptionLabels;
    function Get_AutoCaptions: AutoCaptions;
    function Get_AddIns: AddIns;
    function Get_Visible: WordBool;
    procedure Set_Visible(prop: WordBool);
    function Get_Version: WideString;
    function Get_ScreenUpdating: WordBool;
    procedure Set_ScreenUpdating(prop: WordBool);
    function Get_PrintPreview: WordBool;
    procedure Set_PrintPreview(prop: WordBool);
    function Get_Tasks: Tasks;
    function Get_DisplayStatusBar: WordBool;
    procedure Set_DisplayStatusBar(prop: WordBool);
    function Get_SpecialMode: WordBool;
    function Get_UsableWidth: Integer;
    function Get_UsableHeight: Integer;
    function Get_MathCoprocessorAvailable: WordBool;
    function Get_MouseAvailable: WordBool;
    function Get_International(Index: WdInternationalIndex): OleVariant;
    function Get_Build: WideString;
    function Get_CapsLock: WordBool;
    function Get_NumLock: WordBool;
    function Get_UserName: WideString;
    procedure Set_UserName(const prop: WideString);
    function Get_UserInitials: WideString;
    procedure Set_UserInitials(const prop: WideString);
    function Get_UserAddress: WideString;
    procedure Set_UserAddress(const prop: WideString);
    function Get_MacroContainer: IDispatch;
    function Get_DisplayRecentFiles: WordBool;
    procedure Set_DisplayRecentFiles(prop: WordBool);
    function Get_CommandBars: CommandBars;
    function Get_SynonymInfo(const Word: WideString; var LanguageID: OleVariant): SynonymInfo;
    function Get_VBE: VBE;
    function Get_DefaultSaveFormat: WideString;
    procedure Set_DefaultSaveFormat(const prop: WideString);
    function Get_ListGalleries: ListGalleries;
    function Get_ActivePrinter: WideString;
    procedure Set_ActivePrinter(const prop: WideString);
    function Get_Templates: Templates;
    function Get_CustomizationContext: IDispatch;
    procedure Set_CustomizationContext(const prop: IDispatch);
    function Get_KeyBindings: KeyBindings;
    function Get_KeysBoundTo(KeyCategory: WdKeyCategory; const Command: WideString; 
                             var CommandParameter: OleVariant): KeysBoundTo;
    function Get_FindKey(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding;
    function Get_Caption: WideString;
    procedure Set_Caption(const prop: WideString);
    function Get_Path: WideString;
    function Get_DisplayScrollBars: WordBool;
    procedure Set_DisplayScrollBars(prop: WordBool);
    function Get_StartupPath: WideString;
    procedure Set_StartupPath(const prop: WideString);
    function Get_BackgroundSavingStatus: Integer;
    function Get_BackgroundPrintingStatus: Integer;
    function Get_Left: Integer;
    procedure Set_Left(prop: Integer);
    function Get_Top: Integer;
    procedure Set_Top(prop: Integer);
    function Get_Width: Integer;
    procedure Set_Width(prop: Integer);
    function Get_Height: Integer;
    procedure Set_Height(prop: Integer);
    function Get_WindowState: WdWindowState;
    procedure Set_WindowState(prop: WdWindowState);
    function Get_DisplayAutoCompleteTips: WordBool;
    procedure Set_DisplayAutoCompleteTips(prop: WordBool);
    function Get_Options: Options;
    function Get_DisplayAlerts: WdAlertLevel;
    procedure Set_DisplayAlerts(prop: WdAlertLevel);
    function Get_CustomDictionaries: Dictionaries;
    function Get_PathSeparator: WideString;
    procedure Set_StatusBar(const Param1: WideString);
    function Get_MAPIAvailable: WordBool;
    function Get_DisplayScreenTips: WordBool;
    procedure Set_DisplayScreenTips(prop: WordBool);
    function Get_EnableCancelKey: WdEnableCancelKey;
    procedure Set_EnableCancelKey(prop: WdEnableCancelKey);
    function Get_UserControl: WordBool;
    function Get_FileSearch: FileSearch;
    function Get_MailSystem: WdMailSystem;
    function Get_DefaultTableSeparator: WideString;
    procedure Set_DefaultTableSeparator(const prop: WideString);
    function Get_ShowVisualBasicEditor: WordBool;
    procedure Set_ShowVisualBasicEditor(prop: WordBool);
    function Get_BrowseExtraFileTypes: WideString;
    procedure Set_BrowseExtraFileTypes(const prop: WideString);
    function Get_IsObjectValid(const Object_: IDispatch): WordBool;
    function Get_HangulHanjaDictionaries: HangulHanjaConversionDictionaries;
    function Get_MailMessage: MailMessage;
    function Get_FocusInMailHeader: WordBool;
    function Get_EmailOptions: EmailOptions;
    function Get_Language: MsoLanguageID;
    function Get_COMAddIns: COMAddIns;
    function Get_CheckLanguage: WordBool;
    procedure Set_CheckLanguage(prop: WordBool);
    function Get_LanguageSettings: LanguageSettings;
    function Get_Dummy1: WordBool;
    function Get_AnswerWizard: AnswerWizard;
    function Get_FeatureInstall: MsoFeatureInstall;
    procedure Set_FeatureInstall(prop: MsoFeatureInstall);
    function Get_AutomationSecurity: MsoAutomationSecurity;
    procedure Set_AutomationSecurity(prop: MsoAutomationSecurity);
    function Get_FileDialog(FileDialogType: MsoFileDialogType): FileDialog;
    function Get_EmailTemplate: WideString;
    procedure Set_EmailTemplate(const prop: WideString);
    function Get_ShowWindowsInTaskbar: WordBool;
    procedure Set_ShowWindowsInTaskbar(prop: WordBool);
    function Get_NewDocument: NewFile;
    function Get_ShowStartupDialog: WordBool;
    procedure Set_ShowStartupDialog(prop: WordBool);
    function Get_AutoCorrectEmail: AutoCorrect;
    function Get_TaskPanes: TaskPanes;
    function Get_DefaultLegalBlackline: WordBool;
    procedure Set_DefaultLegalBlackline(prop: WordBool);
  public
    constructor Create(AOwner: TComponent); override;
    destructor  Destroy; override;
    procedure Connect; override;
    procedure ConnectTo(svrIntf: _Application);
    procedure Disconnect; override;
    procedure Quit; overload;
    procedure Quit(var SaveChanges: OleVariant); overload;
    procedure Quit(var SaveChanges: OleVariant; var OriginalFormat: OleVariant); overload;
    procedure Quit(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
                   var RouteDocument: OleVariant); overload;
    procedure ScreenRefresh;
    procedure PrintOutOld; overload;
    procedure PrintOutOld(var Background: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant; var Collate: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant; var Collate: OleVariant; 
                          var FileName: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant; var Collate: OleVariant; 
                          var FileName: OleVariant; var ActivePrinterMacGX: OleVariant); overload;
    procedure PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                          var Range: OleVariant; var OutputFileName: OleVariant; 
                          var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                          var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                          var PrintToFile: OleVariant; var Collate: OleVariant; 
                          var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                          var ManualDuplexPrint: OleVariant); overload;
    procedure LookupNameProperties(const Name: WideString);
    procedure SubstituteFont(const UnavailableFont: WideString; const SubstituteFont: WideString);
    function Repeat_: WordBool; overload;
    function Repeat_(var Times: OleVariant): WordBool; overload;
    procedure DDEExecute(Channel: Integer; const Command: WideString);
    function DDEInitiate(const App: WideString; const Topic: WideString): Integer;
    procedure DDEPoke(Channel: Integer; const Item: WideString; const Data: WideString);
    function DDERequest(Channel: Integer; const Item: WideString): WideString;
    procedure DDETerminate(Channel: Integer);
    procedure DDETerminateAll;
    function BuildKeyCode(Arg1: WdKey): Integer; overload;
    function BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant): Integer; overload;
    function BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant): Integer; overload;
    function BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant; 
                          var Arg4: OleVariant): Integer; overload;
    function KeyString(KeyCode: Integer): WideString; overload;
    function KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString; overload;
    procedure OrganizerCopy(const Source: WideString; const Destination: WideString; 
                            const Name: WideString; Object_: WdOrganizerObject);
    procedure OrganizerDelete(const Source: WideString; const Name: WideString; 
                              Object_: WdOrganizerObject);
    procedure OrganizerRename(const Source: WideString; const Name: WideString; 
                              const NewName: WideString; Object_: WdOrganizerObject);
    procedure AddAddress(var TagID: PSafeArray; var Value: PSafeArray);
    function GetAddress: WideString; overload;
    function GetAddress(var Name: OleVariant): WideString; overload;
    function GetAddress(var Name: OleVariant; var AddressProperties: OleVariant): WideString; overload;
    function GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
                        var UseAutoText: OleVariant): WideString; overload;
    function GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
                        var UseAutoText: OleVariant; var DisplaySelectDialog: OleVariant): WideString; overload;
    function GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
                        var UseAutoText: OleVariant; var DisplaySelectDialog: OleVariant; 
                        var SelectDialog: OleVariant): WideString; overload;
    function GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
                        var UseAutoText: OleVariant; var DisplaySelectDialog: OleVariant; 
                        var SelectDialog: OleVariant; var CheckNamesDialog: OleVariant): WideString; overload;
    function GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
                        var UseAutoText: OleVariant; var DisplaySelectDialog: OleVariant; 
                        var SelectDialog: OleVariant; var CheckNamesDialog: OleVariant; 
                        var RecentAddressesChoice: OleVariant): WideString; overload;
    function GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
                        var UseAutoText: OleVariant; var DisplaySelectDialog: OleVariant; 
                        var SelectDialog: OleVariant; var CheckNamesDialog: OleVariant; 
                        var RecentAddressesChoice: OleVariant; var UpdateRecentAddresses: OleVariant): WideString; overload;
    function CheckGrammar(const String_: WideString): WordBool;
    function CheckSpelling(const Word: WideString): WordBool; overload;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant): WordBool; overload;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant): WordBool; overload;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant): WordBool; overload;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
                           var CustomDictionary2: OleVariant): WordBool; overload;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
                           var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant): WordBool; overload;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
                           var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
                           var CustomDictionary4: OleVariant): WordBool; overload;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
                           var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
                           var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant): WordBool; overload;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
                           var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
                           var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
                           var CustomDictionary6: OleVariant): WordBool; overload;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
                           var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
                           var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
                           var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant): WordBool; overload;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
                           var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
                           var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
                           var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
                           var CustomDictionary8: OleVariant): WordBool; overload;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
                           var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
                           var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
                           var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
                           var CustomDictionary8: OleVariant; var CustomDictionary9: OleVariant): WordBool; overload;
    function CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                           var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant; 
                           var CustomDictionary2: OleVariant; var CustomDictionary3: OleVariant; 
                           var CustomDictionary4: OleVariant; var CustomDictionary5: OleVariant; 
                           var CustomDictionary6: OleVariant; var CustomDictionary7: OleVariant; 
                           var CustomDictionary8: OleVariant; var CustomDictionary9: OleVariant; 
                           var CustomDictionary10: OleVariant): WordBool; overload;
    procedure ResetIgnoreAll;
    function GetSpellingSuggestions(const Word: WideString): SpellingSuggestions; overload;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant): SpellingSuggestions; overload;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant): SpellingSuggestions; overload;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; var MainDictionary: OleVariant): SpellingSuggestions; overload;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant): SpellingSuggestions; overload;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant): SpellingSuggestions; overload;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant; 
                                    var CustomDictionary3: OleVariant): SpellingSuggestions; overload;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant; 
                                    var CustomDictionary3: OleVariant; 
                                    var CustomDictionary4: OleVariant): SpellingSuggestions; overload;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant; 
                                    var CustomDictionary3: OleVariant; 
                                    var CustomDictionary4: OleVariant; 
                                    var CustomDictionary5: OleVariant): SpellingSuggestions; overload;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant; 
                                    var CustomDictionary3: OleVariant; 
                                    var CustomDictionary4: OleVariant; 
                                    var CustomDictionary5: OleVariant; 
                                    var CustomDictionary6: OleVariant): SpellingSuggestions; overload;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant; 
                                    var CustomDictionary3: OleVariant; 
                                    var CustomDictionary4: OleVariant; 
                                    var CustomDictionary5: OleVariant; 
                                    var CustomDictionary6: OleVariant; 
                                    var CustomDictionary7: OleVariant): SpellingSuggestions; overload;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant; 
                                    var CustomDictionary3: OleVariant; 
                                    var CustomDictionary4: OleVariant; 
                                    var CustomDictionary5: OleVariant; 
                                    var CustomDictionary6: OleVariant; 
                                    var CustomDictionary7: OleVariant; 
                                    var CustomDictionary8: OleVariant): SpellingSuggestions; overload;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant; 
                                    var CustomDictionary3: OleVariant; 
                                    var CustomDictionary4: OleVariant; 
                                    var CustomDictionary5: OleVariant; 
                                    var CustomDictionary6: OleVariant; 
                                    var CustomDictionary7: OleVariant; 
                                    var CustomDictionary8: OleVariant; 
                                    var CustomDictionary9: OleVariant): SpellingSuggestions; overload;
    function GetSpellingSuggestions(const Word: WideString; var CustomDictionary: OleVariant; 
                                    var IgnoreUppercase: OleVariant; 
                                    var MainDictionary: OleVariant; var SuggestionMode: OleVariant; 
                                    var CustomDictionary2: OleVariant; 
                                    var CustomDictionary3: OleVariant; 
                                    var CustomDictionary4: OleVariant; 
                                    var CustomDictionary5: OleVariant; 
                                    var CustomDictionary6: OleVariant; 
                                    var CustomDictionary7: OleVariant; 
                                    var CustomDictionary8: OleVariant; 
                                    var CustomDictionary9: OleVariant; 
                                    var CustomDictionary10: OleVariant): SpellingSuggestions; overload;
    procedure GoBack;
    procedure Help(var HelpType: OleVariant);
    procedure AutomaticChange;
    procedure ShowMe;
    procedure HelpTool;
    function NewWindow: Window;
    procedure ListCommands(ListAllCommands: WordBool);
    procedure ShowClipboard;
    procedure OnTime(var When: OleVariant; const Name: WideString); overload;
    procedure OnTime(var When: OleVariant; const Name: WideString; var Tolerance: OleVariant); overload;
    procedure NextLetter;
    function MountVolume(const Zone: WideString; const Server: WideString; const Volume: WideString): Smallint; overload;
    function MountVolume(const Zone: WideString; const Server: WideString; 
                         const Volume: WideString; var User: OleVariant): Smallint; overload;
    function MountVolume(const Zone: WideString; const Server: WideString; 
                         const Volume: WideString; var User: OleVariant; 
                         var UserPassword: OleVariant): Smallint; overload;
    function MountVolume(const Zone: WideString; const Server: WideString; 
                         const Volume: WideString; var User: OleVariant; 
                         var UserPassword: OleVariant; var VolumePassword: OleVariant): Smallint; overload;
    function CleanString(const String_: WideString): WideString;
    procedure SendFax;
    procedure ChangeFileOpenDirectory(const Path: WideString);
    procedure RunOld(const MacroName: WideString);
    procedure GoForward;
    procedure Move(Left: Integer; Top: Integer);
    procedure Resize(Width: Integer; Height: Integer);
    function InchesToPoints(Inches: Single): Single;
    function CentimetersToPoints(Centimeters: Single): Single;
    function MillimetersToPoints(Millimeters: Single): Single;
    function PicasToPoints(Picas: Single): Single;
    function LinesToPoints(Lines: Single): Single;
    function PointsToInches(Points: Single): Single;
    function PointsToCentimeters(Points: Single): Single;
    function PointsToMillimeters(Points: Single): Single;
    function PointsToPicas(Points: Single): Single;
    function PointsToLines(Points: Single): Single;
    procedure Activate;
    function PointsToPixels(Points: Single): Single; overload;
    function PointsToPixels(Points: Single; var fVertical: OleVariant): Single; overload;
    function PixelsToPoints(Pixels: Single): Single; overload;
    function PixelsToPoints(Pixels: Single; var fVertical: OleVariant): Single; overload;
    procedure KeyboardLatin;
    procedure KeyboardBidi;
    procedure ToggleKeyboard;
    function Keyboard(LangId: Integer): Integer;
    function ProductCode: WideString;
    function DefaultWebOptions: DefaultWebOptions;
    procedure DiscussionSupport(var Range: OleVariant; var cid: OleVariant; var piCSE: OleVariant);
    procedure SetDefaultTheme(const Name: WideString; DocumentType: WdDocumentMedium);
    function GetDefaultTheme(DocumentType: WdDocumentMedium): WideString;
    procedure PrintOut2000; overload;
    procedure PrintOut2000(var Background: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var FileName: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var FileName: OleVariant; var ActivePrinterMacGX: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                           var ManualDuplexPrint: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                           var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                           var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant; 
                           var PrintZoomRow: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                           var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant; 
                           var PrintZoomRow: OleVariant; var PrintZoomPaperWidth: OleVariant); overload;
    procedure PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                           var Range: OleVariant; var OutputFileName: OleVariant; 
                           var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                           var Copies: OleVariant; var Pages: OleVariant; var PageType: OleVariant; 
                           var PrintToFile: OleVariant; var Collate: OleVariant; 
                           var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                           var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant; 
                           var PrintZoomRow: OleVariant; var PrintZoomPaperWidth: OleVariant; 
                           var PrintZoomPaperHeight: OleVariant); overload;
    function Run(const MacroName: WideString): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant; var varg19: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant; var varg19: OleVariant; var varg20: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant; var varg19: OleVariant; var varg20: OleVariant; 
                 var varg21: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant; var varg19: OleVariant; var varg20: OleVariant; 
                 var varg21: OleVariant; var varg22: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant; var varg19: OleVariant; var varg20: OleVariant; 
                 var varg21: OleVariant; var varg22: OleVariant; var varg23: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant; var varg19: OleVariant; var varg20: OleVariant; 
                 var varg21: OleVariant; var varg22: OleVariant; var varg23: OleVariant; 
                 var varg24: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant; var varg19: OleVariant; var varg20: OleVariant; 
                 var varg21: OleVariant; var varg22: OleVariant; var varg23: OleVariant; 
                 var varg24: OleVariant; var varg25: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant; var varg19: OleVariant; var varg20: OleVariant; 
                 var varg21: OleVariant; var varg22: OleVariant; var varg23: OleVariant; 
                 var varg24: OleVariant; var varg25: OleVariant; var varg26: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant; var varg19: OleVariant; var varg20: OleVariant; 
                 var varg21: OleVariant; var varg22: OleVariant; var varg23: OleVariant; 
                 var varg24: OleVariant; var varg25: OleVariant; var varg26: OleVariant; 
                 var varg27: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant; var varg19: OleVariant; var varg20: OleVariant; 
                 var varg21: OleVariant; var varg22: OleVariant; var varg23: OleVariant; 
                 var varg24: OleVariant; var varg25: OleVariant; var varg26: OleVariant; 
                 var varg27: OleVariant; var varg28: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant; var varg19: OleVariant; var varg20: OleVariant; 
                 var varg21: OleVariant; var varg22: OleVariant; var varg23: OleVariant; 
                 var varg24: OleVariant; var varg25: OleVariant; var varg26: OleVariant; 
                 var varg27: OleVariant; var varg28: OleVariant; var varg29: OleVariant): OleVariant; overload;
    function Run(const MacroName: WideString; var varg1: OleVariant; var varg2: OleVariant; 
                 var varg3: OleVariant; var varg4: OleVariant; var varg5: OleVariant; 
                 var varg6: OleVariant; var varg7: OleVariant; var varg8: OleVariant; 
                 var varg9: OleVariant; var varg10: OleVariant; var varg11: OleVariant; 
                 var varg12: OleVariant; var varg13: OleVariant; var varg14: OleVariant; 
                 var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant; 
                 var varg18: OleVariant; var varg19: OleVariant; var varg20: OleVariant; 
                 var varg21: OleVariant; var varg22: OleVariant; var varg23: OleVariant; 
                 var varg24: OleVariant; var varg25: OleVariant; var varg26: OleVariant; 
                 var varg27: OleVariant; var varg28: OleVariant; var varg29: OleVariant; 
                 var varg30: OleVariant): OleVariant; overload;
    procedure PrintOut; overload;
    procedure PrintOut(var Background: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var FileName: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var FileName: OleVariant; 
                       var ActivePrinterMacGX: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var FileName: OleVariant; 
                       var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var FileName: OleVariant; 
                       var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant; 
                       var PrintZoomColumn: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var FileName: OleVariant; 
                       var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant; 
                       var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var FileName: OleVariant; 
                       var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant; 
                       var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                       var PrintZoomPaperWidth: OleVariant); overload;
    procedure PrintOut(var Background: OleVariant; var Append: OleVariant; var Range: OleVariant; 
                       var OutputFileName: OleVariant; var From: OleVariant; var To_: OleVariant; 
                       var Item: OleVariant; var Copies: OleVariant; var Pages: OleVariant; 
                       var PageType: OleVariant; var PrintToFile: OleVariant; 
                       var Collate: OleVariant; var FileName: OleVariant; 
                       var ActivePrinterMacGX: OleVariant; var ManualDuplexPrint: OleVariant; 
                       var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                       var PrintZoomPaperWidth: OleVariant; var PrintZoomPaperHeight: OleVariant); overload;
    function Dummy2: WordBool;
    property DefaultInterface: _Application read GetDefaultInterface;
    property Application: WordApplication read Get_Application;
    property Creator: Integer read Get_Creator;
    property Parent: IDispatch read Get_Parent;
    property Name: WideString read Get_Name;
    property Documents: Documents read Get_Documents;
    property Windows: Windows read Get_Windows;
    property ActiveDocument: WordDocument read Get_ActiveDocument;
    property ActiveWindow: Window read Get_ActiveWindow;
    property Selection: WordSelection read Get_Selection;
    property WordBasic: IDispatch read Get_WordBasic;
    property RecentFiles: RecentFiles read Get_RecentFiles;
    property NormalTemplate: Template read Get_NormalTemplate;
    property System_: System read Get_System_;
    property AutoCorrect: AutoCorrect read Get_AutoCorrect;
    property FontNames: FontNames read Get_FontNames;
    property LandscapeFontNames: FontNames read Get_LandscapeFontNames;
    property PortraitFontNames: FontNames read Get_PortraitFontNames;
    property Languages: Languages read Get_Languages;
    property Assistant: Assistant read Get_Assistant;
    property Browser: Browser read Get_Browser;
    property FileConverters: FileConverters read Get_FileConverters;
    property MailingLabel: MailingLabel read Get_MailingLabel;
    property Dialogs: Dialogs read Get_Dialogs;
    property CaptionLabels: CaptionLabels read Get_CaptionLabels;
    property AutoCaptions: AutoCaptions read Get_AutoCaptions;
    property AddIns: AddIns read Get_AddIns;
    property Version: WideString read Get_Version;
    property Tasks: Tasks read Get_Tasks;
    property SpecialMode: WordBool read Get_SpecialMode;
    property UsableWidth: Integer read Get_UsableWidth;
    property UsableHeight: Integer read Get_UsableHeight;
    property MathCoprocessorAvailable: WordBool read Get_MathCoprocessorAvailable;
    property MouseAvailable: WordBool read Get_MouseAvailable;
    property International[Index: WdInternationalIndex]: OleVariant read Get_International;
    property Build: WideString read Get_Build;
    property CapsLock: WordBool read Get_CapsLock;
    property NumLock: WordBool read Get_NumLock;
    property MacroContainer: IDispatch read Get_MacroContainer;
    property CommandBars: CommandBars read Get_CommandBars;
    property SynonymInfo[const Word: WideString; var LanguageID: OleVariant]: SynonymInfo read Get_SynonymInfo;
    property VBE: VBE read Get_VBE;
    property ListGalleries: ListGalleries read Get_ListGalleries;
    property Templates: Templates read Get_Templates;
    property CustomizationContext: IDispatch read Get_CustomizationContext write Set_CustomizationContext;
    property KeyBindings: KeyBindings read Get_KeyBindings;
    property KeysBoundTo[KeyCategory: WdKeyCategory; const Command: WideString; 
                         var CommandParameter: OleVariant]: KeysBoundTo read Get_KeysBoundTo;
    property FindKey[KeyCode: Integer; var KeyCode2: OleVariant]: KeyBinding read Get_FindKey;
    property Path: WideString read Get_Path;
    property BackgroundSavingStatus: Integer read Get_BackgroundSavingStatus;
    property BackgroundPrintingStatus: Integer read Get_BackgroundPrintingStatus;
    property Options: Options read Get_Options;
    property CustomDictionaries: Dictionaries read Get_CustomDictionaries;
    property PathSeparator: WideString read Get_PathSeparator;
    property StatusBar: WideString write Set_StatusBar;
    property MAPIAvailable: WordBool read Get_MAPIAvailable;
    property UserControl: WordBool read Get_UserControl;
    property FileSearch: FileSearch read Get_FileSearch;
    property MailSystem: WdMailSystem read Get_MailSystem;
    property IsObjectValid[const Object_: IDispatch]: WordBool read Get_IsObjectValid;
    property HangulHanjaDictionaries: HangulHanjaConversionDictionaries read Get_HangulHanjaDictionaries;
    property MailMessage: MailMessage read Get_MailMessage;
    property FocusInMailHeader: WordBool read Get_FocusInMailHeader;
    property EmailOptions: EmailOptions read Get_EmailOptions;
    property Language: MsoLanguageID read Get_Language;
    property COMAddIns: COMAddIns read Get_COMAddIns;
    property LanguageSettings: LanguageSettings read Get_LanguageSettings;
    property Dummy1: WordBool read Get_Dummy1;
    property AnswerWizard: AnswerWizard read Get_AnswerWizard;
    property FileDialog[FileDialogType: MsoFileDialogType]: FileDialog read Get_FileDialog;
    property NewDocument: NewFile read Get_NewDocument;
    property AutoCorrectEmail: AutoCorrect read Get_AutoCorrectEmail;
    property TaskPanes: TaskPanes read Get_TaskPanes;
    property Visible: WordBool read Get_Visible write Set_Visible;
    property ScreenUpdating: WordBool read Get_ScreenUpdating write Set_ScreenUpdating;
    property PrintPreview: WordBool read Get_PrintPreview write Set_PrintPreview;
    property DisplayStatusBar: WordBool read Get_DisplayStatusBar write Set_DisplayStatusBar;
    property UserName: WideString read Get_UserName write Set_UserName;
    property UserInitials: WideString read Get_UserInitials write Set_UserInitials;
    property UserAddress: WideString read Get_UserAddress write Set_UserAddress;
    property DisplayRecentFiles: WordBool read Get_DisplayRecentFiles write Set_DisplayRecentFiles;
    property DefaultSaveFormat: WideString read Get_DefaultSaveFormat write Set_DefaultSaveFormat;
    property ActivePrinter: WideString read Get_ActivePrinter write Set_ActivePrinter;
    property Caption: WideString read Get_Caption write Set_Caption;
    property DisplayScrollBars: WordBool read Get_DisplayScrollBars write Set_DisplayScrollBars;
    property StartupPath: WideString read Get_StartupPath write Set_StartupPath;
    property Left: Integer read Get_Left write Set_Left;
    property Top: Integer read Get_Top write Set_Top;
    property Width: Integer read Get_Width write Set_Width;
    property Height: Integer read Get_Height write Set_Height;
    property WindowState: WdWindowState read Get_WindowState write Set_WindowState;
    property DisplayAutoCompleteTips: WordBool read Get_DisplayAutoCompleteTips write Set_DisplayAutoCompleteTips;
    property DisplayAlerts: WdAlertLevel read Get_DisplayAlerts write Set_DisplayAlerts;
    property DisplayScreenTips: WordBool read Get_DisplayScreenTips write Set_DisplayScreenTips;
    property EnableCancelKey: WdEnableCancelKey read Get_EnableCancelKey write Set_EnableCancelKey;
    property DefaultTableSeparator: WideString read Get_DefaultTableSeparator write Set_DefaultTableSeparator;
    property ShowVisualBasicEditor: WordBool read Get_ShowVisualBasicEditor write Set_ShowVisualBasicEditor;
    property BrowseExtraFileTypes: WideString read Get_BrowseExtraFileTypes write Set_BrowseExtraFileTypes;
    property CheckLanguage: WordBool read Get_CheckLanguage write Set_CheckLanguage;
    property FeatureInstall: MsoFeatureInstall read Get_FeatureInstall write Set_FeatureInstall;
    property AutomationSecurity: MsoAutomationSecurity read Get_AutomationSecurity write Set_AutomationSecurity;
    property EmailTemplate: WideString read Get_EmailTemplate write Set_EmailTemplate;
    property ShowWindowsInTaskbar: WordBool read Get_ShowWindowsInTaskbar write Set_ShowWindowsInTaskbar;
    property ShowStartupDialog: WordBool read Get_ShowStartupDialog write Set_ShowStartupDialog;
    property DefaultLegalBlackline: WordBool read Get_DefaultLegalBlackline write Set_DefaultLegalBlackline;
  published
    property AutoQuit: Boolean read FAutoQuit write FAutoQuit; 
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
    property Server: TWordApplicationProperties read GetServerProperties;
{$ENDIF}
    property OnStartup: TNotifyEvent read FOnStartup write FOnStartup;
    property OnQuit: TNotifyEvent read FOnQuit write FOnQuit;
    property OnDocumentChange: TNotifyEvent read FOnDocumentChange write FOnDocumentChange;
    property OnDocumentOpen: TWordApplicationDocumentOpen read FOnDocumentOpen write FOnDocumentOpen;
    property OnDocumentBeforeClose: TWordApplicationDocumentBeforeClose read FOnDocumentBeforeClose write FOnDocumentBeforeClose;
    property OnDocumentBeforePrint: TWordApplicationDocumentBeforePrint read FOnDocumentBeforePrint write FOnDocumentBeforePrint;
    property OnDocumentBeforeSave: TWordApplicationDocumentBeforeSave read FOnDocumentBeforeSave write FOnDocumentBeforeSave;
    property OnNewDocument: TWordApplicationNewDocument read FOnNewDocument write FOnNewDocument;
    property OnWindowActivate: TWordApplicationWindowActivate read FOnWindowActivate write FOnWindowActivate;
    property OnWindowDeactivate: TWordApplicationWindowDeactivate read FOnWindowDeactivate write FOnWindowDeactivate;
    property OnWindowSelectionChange: TWordApplicationWindowSelectionChange read FOnWindowSelectionChange write FOnWindowSelectionChange;
    property OnWindowBeforeRightClick: TWordApplicationWindowBeforeRightClick read FOnWindowBeforeRightClick write FOnWindowBeforeRightClick;
    property OnWindowBeforeDoubleClick: TWordApplicationWindowBeforeDoubleClick read FOnWindowBeforeDoubleClick write FOnWindowBeforeDoubleClick;
    property OnEPostagePropertyDialog: TWordApplicationEPostagePropertyDialog read FOnEPostagePropertyDialog write FOnEPostagePropertyDialog;
    property OnEPostageInsert: TWordApplicationEPostageInsert read FOnEPostageInsert write FOnEPostageInsert;
    property OnMailMergeAfterMerge: TWordApplicationMailMergeAfterMerge read FOnMailMergeAfterMerge write FOnMailMergeAfterMerge;
    property OnMailMergeAfterRecordMerge: TWordApplicationMailMergeAfterRecordMerge read FOnMailMergeAfterRecordMerge write FOnMailMergeAfterRecordMerge;
    property OnMailMergeBeforeMerge: TWordApplicationMailMergeBeforeMerge read FOnMailMergeBeforeMerge write FOnMailMergeBeforeMerge;
    property OnMailMergeBeforeRecordMerge: TWordApplicationMailMergeBeforeRecordMerge read FOnMailMergeBeforeRecordMerge write FOnMailMergeBeforeRecordMerge;
    property OnMailMergeDataSourceLoad: TWordApplicationMailMergeDataSourceLoad read FOnMailMergeDataSourceLoad write FOnMailMergeDataSourceLoad;
    property OnMailMergeDataSourceValidate: TWordApplicationMailMergeDataSourceValidate read FOnMailMergeDataSourceValidate write FOnMailMergeDataSourceValidate;
    property OnMailMergeWizardSendToCustom: TWordApplicationMailMergeWizardSendToCustom read FOnMailMergeWizardSendToCustom write FOnMailMergeWizardSendToCustom;
    property OnMailMergeWizardStateChange: TWordApplicationMailMergeWizardStateChange read FOnMailMergeWizardStateChange write FOnMailMergeWizardStateChange;
    property OnWindowSize: TWordApplicationWindowSize read FOnWindowSize write FOnWindowSize;
  end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object    : TWordApplication
// (This object is used by the IDE's Property Inspector to allow editing
//  of the properties of this server)
// *********************************************************************//
 TWordApplicationProperties = class(TPersistent)
  private
    FServer:    TWordApplication;
    function    GetDefaultInterface: _Application;
    constructor Create(AServer: TWordApplication);
  protected
    function Get_Application: WordApplication;
    function Get_Creator: Integer;
    function Get_Parent: IDispatch;
    function Get_Name: WideString;
    function Get_Documents: Documents;
    function Get_Windows: Windows;
    function Get_ActiveDocument: WordDocument;
    function Get_ActiveWindow: Window;
    function Get_Selection: WordSelection;
    function Get_WordBasic: IDispatch;
    function Get_RecentFiles: RecentFiles;
    function Get_NormalTemplate: Template;
    function Get_System_: System;
    function Get_AutoCorrect: AutoCorrect;
    function Get_FontNames: FontNames;
    function Get_LandscapeFontNames: FontNames;
    function Get_PortraitFontNames: FontNames;
    function Get_Languages: Languages;
    function Get_Assistant: Assistant;
    function Get_Browser: Browser;
    function Get_FileConverters: FileConverters;
    function Get_MailingLabel: MailingLabel;
    function Get_Dialogs: Dialogs;
    function Get_CaptionLabels: CaptionLabels;
    function Get_AutoCaptions: AutoCaptions;
    function Get_AddIns: AddIns;
    function Get_Visible: WordBool;
    procedure Set_Visible(prop: WordBool);
    function Get_Version: WideString;
    function Get_ScreenUpdating: WordBool;
    procedure Set_ScreenUpdating(prop: WordBool);
    function Get_PrintPreview: WordBool;
    procedure Set_PrintPreview(prop: WordBool);
    function Get_Tasks: Tasks;
    function Get_DisplayStatusBar: WordBool;
    procedure Set_DisplayStatusBar(prop: WordBool);
    function Get_SpecialMode: WordBool;
    function Get_UsableWidth: Integer;
    function Get_UsableHeight: Integer;
    function Get_MathCoprocessorAvailable: WordBool;
    function Get_MouseAvailable: WordBool;
    function Get_International(Index: WdInternationalIndex): OleVariant;
    function Get_Build: WideString;
    function Get_CapsLock: WordBool;
    function Get_NumLock: WordBool;
    function Get_UserName: WideString;
    procedure Set_UserName(const prop: WideString);
    function Get_UserInitials: WideString;
    procedure Set_UserInitials(const prop: WideString);
    function Get_UserAddress: WideString;
    procedure Set_UserAddress(const prop: WideString);
    function Get_MacroContainer: IDispatch;
    function Get_DisplayRecentFiles: WordBool;
    procedure Set_DisplayRecentFiles(prop: WordBool);
    function Get_CommandBars: CommandBars;
    function Get_SynonymInfo(const Word: WideString; var LanguageID: OleVariant): SynonymInfo;
    function Get_VBE: VBE;
    function Get_DefaultSaveFormat: WideString;
    procedure Set_DefaultSaveFormat(const prop: WideString);
    function Get_ListGalleries: ListGalleries;
    function Get_ActivePrinter: WideString;
    procedure Set_ActivePrinter(const prop: WideString);
    function Get_Templates: Templates;
    function Get_CustomizationContext: IDispatch;
    procedure Set_CustomizationContext(const prop: IDispatch);
    function Get_KeyBindings: KeyBindings;
    function Get_KeysBoundTo(KeyCategory: WdKeyCategory; const Command: WideString; 
                             var CommandParameter: OleVariant): KeysBoundTo;
    function Get_FindKey(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding;
    function Get_Caption: WideString;
    procedure Set_Caption(const prop: WideString);
    function Get_Path: WideString;
    function Get_DisplayScrollBars: WordBool;
    procedure Set_DisplayScrollBars(prop: WordBool);
    function Get_StartupPath: WideString;
    procedure Set_StartupPath(const prop: WideString);
    function Get_BackgroundSavingStatus: Integer;
    function Get_BackgroundPrintingStatus: Integer;
    function Get_Left: Integer;
    procedure Set_Left(prop: Integer);
    function Get_Top: Integer;
    procedure Set_Top(prop: Integer);
    function Get_Width: Integer;
    procedure Set_Width(prop: Integer);
    function Get_Height: Integer;
    procedure Set_Height(prop: Integer);
    function Get_WindowState: WdWindowState;
    procedure Set_WindowState(prop: WdWindowState);
    function Get_DisplayAutoCompleteTips: WordBool;
    procedure Set_DisplayAutoCompleteTips(prop: WordBool);
    function Get_Options: Options;
    function Get_DisplayAlerts: WdAlertLevel;
    procedure Set_DisplayAlerts(prop: WdAlertLevel);
    function Get_CustomDictionaries: Dictionaries;
    function Get_PathSeparator: WideString;
    procedure Set_StatusBar(const Param1: WideString);
    function Get_MAPIAvailable: WordBool;
    function Get_DisplayScreenTips: WordBool;
    procedure Set_DisplayScreenTips(prop: WordBool);
    function Get_EnableCancelKey: WdEnableCancelKey;
    procedure Set_EnableCancelKey(prop: WdEnableCancelKey);
    function Get_UserControl: WordBool;
    function Get_FileSearch: FileSearch;
    function Get_MailSystem: WdMailSystem;
    function Get_DefaultTableSeparator: WideString;
    procedure Set_DefaultTableSeparator(const prop: WideString);
    function Get_ShowVisualBasicEditor: WordBool;
    procedure Set_ShowVisualBasicEditor(prop: WordBool);
    function Get_BrowseExtraFileTypes: WideString;
    procedure Set_BrowseExtraFileTypes(const prop: WideString);
    function Get_IsObjectValid(const Object_: IDispatch): WordBool;
    function Get_HangulHanjaDictionaries: HangulHanjaConversionDictionaries;
    function Get_MailMessage: MailMessage;
    function Get_FocusInMailHeader: WordBool;
    function Get_EmailOptions: EmailOptions;
    function Get_Language: MsoLanguageID;
    function Get_COMAddIns: COMAddIns;
    function Get_CheckLanguage: WordBool;
    procedure Set_CheckLanguage(prop: WordBool);
    function Get_LanguageSettings: LanguageSettings;
    function Get_Dummy1: WordBool;
    function Get_AnswerWizard: AnswerWizard;
    function Get_FeatureInstall: MsoFeatureInstall;
    procedure Set_FeatureInstall(prop: MsoFeatureInstall);
    function Get_AutomationSecurity: MsoAutomationSecurity;
    procedure Set_AutomationSecurity(prop: MsoAutomationSecurity);
    function Get_FileDialog(FileDialogType: MsoFileDialogType): FileDialog;
    function Get_EmailTemplate: WideString;
    procedure Set_EmailTemplate(const prop: WideString);
    function Get_ShowWindowsInTaskbar: WordBool;
    procedure Set_ShowWindowsInTaskbar(prop: WordBool);
    function Get_NewDocument: NewFile;
    function Get_ShowStartupDialog: WordBool;
    procedure Set_ShowStartupDialog(prop: WordBool);
    function Get_AutoCorrectEmail: AutoCorrect;
    function Get_TaskPanes: TaskPanes;
    function Get_DefaultLegalBlackline: WordBool;
    procedure Set_DefaultLegalBlackline(prop: WordBool);
  public
    property DefaultInterface: _Application read GetDefaultInterface;
  published
    property Visible: WordBool read Get_Visible write Set_Visible;
    property ScreenUpdating: WordBool read Get_ScreenUpdating write Set_ScreenUpdating;
    property PrintPreview: WordBool read Get_PrintPreview write Set_PrintPreview;
    property DisplayStatusBar: WordBool read Get_DisplayStatusBar write Set_DisplayStatusBar;
    property UserName: WideString read Get_UserName write Set_UserName;
    property UserInitials: WideString read Get_UserInitials write Set_UserInitials;
    property UserAddress: WideString read Get_UserAddress write Set_UserAddress;
    property DisplayRecentFiles: WordBool read Get_DisplayRecentFiles write Set_DisplayRecentFiles;
    property DefaultSaveFormat: WideString read Get_DefaultSaveFormat write Set_DefaultSaveFormat;
    property ActivePrinter: WideString read Get_ActivePrinter write Set_ActivePrinter;
    property Caption: WideString read Get_Caption write Set_Caption;
    property DisplayScrollBars: WordBool read Get_DisplayScrollBars write Set_DisplayScrollBars;
    property StartupPath: WideString read Get_StartupPath write Set_StartupPath;
    property Left: Integer read Get_Left write Set_Left;
    property Top: Integer read Get_Top write Set_Top;
    property Width: Integer read Get_Width write Set_Width;
    property Height: Integer read Get_Height write Set_Height;
    property WindowState: WdWindowState read Get_WindowState write Set_WindowState;
    property DisplayAutoCompleteTips: WordBool read Get_DisplayAutoCompleteTips write Set_DisplayAutoCompleteTips;
    property DisplayAlerts: WdAlertLevel read Get_DisplayAlerts write Set_DisplayAlerts;
    property DisplayScreenTips: WordBool read Get_DisplayScreenTips write Set_DisplayScreenTips;
    property EnableCancelKey: WdEnableCancelKey read Get_EnableCancelKey write Set_EnableCancelKey;
    property DefaultTableSeparator: WideString read Get_DefaultTableSeparator write Set_DefaultTableSeparator;
    property ShowVisualBasicEditor: WordBool read Get_ShowVisualBasicEditor write Set_ShowVisualBasicEditor;
    property BrowseExtraFileTypes: WideString read Get_BrowseExtraFileTypes write Set_BrowseExtraFileTypes;
    property CheckLanguage: WordBool read Get_CheckLanguage write Set_CheckLanguage;
    property FeatureInstall: MsoFeatureInstall read Get_FeatureInstall write Set_FeatureInstall;
    property AutomationSecurity: MsoAutomationSecurity read Get_AutomationSecurity write Set_AutomationSecurity;
    property EmailTemplate: WideString read Get_EmailTemplate write Set_EmailTemplate;
    property ShowWindowsInTaskbar: WordBool read Get_ShowWindowsInTaskbar write Set_ShowWindowsInTaskbar;
    property ShowStartupDialog: WordBool read Get_ShowStartupDialog write Set_ShowStartupDialog;
    property DefaultLegalBlackline: WordBool read Get_DefaultLegalBlackline write Set_DefaultLegalBlackline;
  end;
{$ENDIF}


procedure Register;

resourcestring
  dtlServerPage = 'ActiveX';

  dtlOcxPage = 'ActiveX';

implementation

uses ComObj;

class function CoWordGlobal.Create: _Global;
begin
  Result := CreateComObject(CLASS_WordGlobal) as _Global;
end;

class function CoWordGlobal.CreateRemote(const MachineName: string): _Global;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_WordGlobal) as _Global;
end;

class function CoWordDocument.Create: _Document;
begin
  Result := CreateComObject(CLASS_WordDocument) as _Document;
end;

class function CoWordDocument.CreateRemote(const MachineName: string): _Document;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_WordDocument) as _Document;
end;

procedure TWordDocument.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{00020906-0000-0000-C000-000000000046}';
    IntfIID:   '{0002096B-0000-0000-C000-000000000046}';
    EventIID:  '{000209F6-0000-0000-C000-000000000046}';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TWordDocument.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    ConnectEvents(punk);
    Fintf:= punk as _Document;
  end;
end;

procedure TWordDocument.ConnectTo(svrIntf: _Document);
begin
  Disconnect;
  FIntf := svrIntf;
  ConnectEvents(FIntf);
end;

procedure TWordDocument.DisConnect;
begin
  if Fintf <> nil then
  begin
    DisconnectEvents(FIntf);
    FIntf := nil;
  end;
end;

function TWordDocument.GetDefaultInterface: _Document;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TWordDocument.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TWordDocumentProperties.Create(Self);
{$ENDIF}
end;

destructor TWordDocument.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TWordDocument.GetServerProperties: TWordDocumentProperties;
begin
  Result := FProps;
end;
{$ENDIF}

procedure TWordDocument.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
  case DispID of
    -1: Exit;  // DISPID_UNKNOWN
    4: if Assigned(FOnNew) then
         FOnNew(Self);
    5: if Assigned(FOnOpen) then
         FOnOpen(Self);
    6: if Assigned(FOnClose) then
         FOnClose(Self);
  end; {case DispID}
end;

function TWordDocument.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

function TWordDocument.Get_Application: WordApplication;
begin
    Result := DefaultInterface.Application;
end;

function TWordDocument.Get_Creator: Integer;
begin
    Result := DefaultInterface.Creator;
end;

function TWordDocument.Get_Parent: IDispatch;
begin
    Result := DefaultInterface.Parent;
end;

function TWordDocument.Get_BuiltInDocumentProperties: IDispatch;
begin
    Result := DefaultInterface.BuiltInDocumentProperties;
end;

function TWordDocument.Get_CustomDocumentProperties: IDispatch;
begin
    Result := DefaultInterface.CustomDocumentProperties;
end;

function TWordDocument.Get_Path: WideString;
begin
    Result := DefaultInterface.Path;
end;

function TWordDocument.Get_Bookmarks: Bookmarks;
begin
    Result := DefaultInterface.Bookmarks;
end;

function TWordDocument.Get_Tables: Tables;
begin
    Result := DefaultInterface.Tables;
end;

function TWordDocument.Get_Footnotes: Footnotes;
begin
    Result := DefaultInterface.Footnotes;
end;

function TWordDocument.Get_Endnotes: Endnotes;
begin
    Result := DefaultInterface.Endnotes;
end;

function TWordDocument.Get_Comments: Comments;
begin
    Result := DefaultInterface.Comments;
end;

function TWordDocument.Get_type_: WdDocumentType;
begin
    Result := DefaultInterface.type_;
end;

function TWordDocument.Get_AutoHyphenation: WordBool;
begin
    Result := DefaultInterface.AutoHyphenation;
end;

procedure TWordDocument.Set_AutoHyphenation(prop: WordBool);
begin
  DefaultInterface.Set_AutoHyphenation(prop);
end;

function TWordDocument.Get_HyphenateCaps: WordBool;
begin
    Result := DefaultInterface.HyphenateCaps;
end;

procedure TWordDocument.Set_HyphenateCaps(prop: WordBool);
begin
  DefaultInterface.Set_HyphenateCaps(prop);
end;

function TWordDocument.Get_HyphenationZone: Integer;
begin
    Result := DefaultInterface.HyphenationZone;
end;

procedure TWordDocument.Set_HyphenationZone(prop: Integer);
begin
  DefaultInterface.Set_HyphenationZone(prop);
end;

function TWordDocument.Get_ConsecutiveHyphensLimit: Integer;
begin
    Result := DefaultInterface.ConsecutiveHyphensLimit;
end;

procedure TWordDocument.Set_ConsecutiveHyphensLimit(prop: Integer);
begin
  DefaultInterface.Set_ConsecutiveHyphensLimit(prop);
end;

function TWordDocument.Get_Sections: Sections;
begin
    Result := DefaultInterface.Sections;
end;

function TWordDocument.Get_Paragraphs: Paragraphs;
begin
    Result := DefaultInterface.Paragraphs;
end;

function TWordDocument.Get_Words: Words;
begin
    Result := DefaultInterface.Words;
end;

function TWordDocument.Get_Sentences: Sentences;
begin
    Result := DefaultInterface.Sentences;
end;

function TWordDocument.Get_Characters: Characters;
begin
    Result := DefaultInterface.Characters;
end;

function TWordDocument.Get_Fields: Fields;
begin
    Result := DefaultInterface.Fields;
end;

function TWordDocument.Get_FormFields: FormFields;
begin
    Result := DefaultInterface.FormFields;
end;

function TWordDocument.Get_Styles: Styles;
begin
    Result := DefaultInterface.Styles;
end;

function TWordDocument.Get_Frames: Frames;
begin
    Result := DefaultInterface.Frames;
end;

function TWordDocument.Get_TablesOfFigures: TablesOfFigures;
begin
    Result := DefaultInterface.TablesOfFigures;
end;

function TWordDocument.Get_Variables: Variables;
begin
    Result := DefaultInterface.Variables;
end;

function TWordDocument.Get_MailMerge: MailMerge;
begin
    Result := DefaultInterface.MailMerge;
end;

function TWordDocument.Get_Envelope: Envelope;
begin
    Result := DefaultInterface.Envelope;
end;

function TWordDocument.Get_FullName: WideString;
begin
    Result := DefaultInterface.FullName;
end;

function TWordDocument.Get_Revisions: Revisions;
begin
    Result := DefaultInterface.Revisions;
end;

function TWordDocument.Get_TablesOfContents: TablesOfContents;
begin
    Result := DefaultInterface.TablesOfContents;
end;

function TWordDocument.Get_TablesOfAuthorities: TablesOfAuthorities;
begin
    Result := DefaultInterface.TablesOfAuthorities;
end;

function TWordDocument.Get_PageSetup: PageSetup;
begin
    Result := DefaultInterface.PageSetup;
end;

procedure TWordDocument.Set_PageSetup(const prop: PageSetup);
begin
  DefaultInterface.Set_PageSetup(prop);
end;

function TWordDocument.Get_Windows: Windows;
begin
    Result := DefaultInterface.Windows;
end;

function TWordDocument.Get_HasRoutingSlip: WordBool;
begin
    Result := DefaultInterface.HasRoutingSlip;
end;

procedure TWordDocument.Set_HasRoutingSlip(prop: WordBool);
begin
  DefaultInterface.Set_HasRoutingSlip(prop);
end;

function TWordDocument.Get_RoutingSlip: RoutingSlip;
begin
    Result := DefaultInterface.RoutingSlip;
end;

function TWordDocument.Get_Routed: WordBool;
begin
    Result := DefaultInterface.Routed;
end;

function TWordDocument.Get_TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories;
begin
    Result := DefaultInterface.TablesOfAuthoritiesCategories;
end;

function TWordDocument.Get_Indexes: Indexes;
begin
    Result := DefaultInterface.Indexes;
end;

function TWordDocument.Get_Saved: WordBool;
begin
    Result := DefaultInterface.Saved;
end;

procedure TWordDocument.Set_Saved(prop: WordBool);
begin
  DefaultInterface.Set_Saved(prop);
end;

function TWordDocument.Get_Content: Range;
begin
    Result := DefaultInterface.Content;
end;

function TWordDocument.Get_ActiveWindow: Window;
begin
    Result := DefaultInterface.ActiveWindow;
end;

function TWordDocument.Get_Kind: WdDocumentKind;
begin
    Result := DefaultInterface.Kind;
end;

procedure TWordDocument.Set_Kind(prop: WdDocumentKind);
begin
  DefaultInterface.Set_Kind(prop);
end;

function TWordDocument.Get_ReadOnly: WordBool;
begin
    Result := DefaultInterface.ReadOnly;
end;

function TWordDocument.Get_Subdocuments: Subdocuments;
begin
    Result := DefaultInterface.Subdocuments;
end;

function TWordDocument.Get_IsMasterDocument: WordBool;
begin
    Result := DefaultInterface.IsMasterDocument;
end;

function TWordDocument.Get_DefaultTabStop: Single;
begin
    Result := DefaultInterface.DefaultTabStop;
end;

procedure TWordDocument.Set_DefaultTabStop(prop: Single);
begin
  DefaultInterface.Set_DefaultTabStop(prop);
end;

function TWordDocument.Get_EmbedTrueTypeFonts: WordBool;
begin
    Result := DefaultInterface.EmbedTrueTypeFonts;
end;

procedure TWordDocument.Set_EmbedTrueTypeFonts(prop: WordBool);
begin
  DefaultInterface.Set_EmbedTrueTypeFonts(prop);
end;

function TWordDocument.Get_SaveFormsData: WordBool;
begin
    Result := DefaultInterface.SaveFormsData;
end;

procedure TWordDocument.Set_SaveFormsData(prop: WordBool);
begin
  DefaultInterface.Set_SaveFormsData(prop);
end;

function TWordDocument.Get_ReadOnlyRecommended: WordBool;
begin
    Result := DefaultInterface.ReadOnlyRecommended;
end;

procedure TWordDocument.Set_ReadOnlyRecommended(prop: WordBool);
begin
  DefaultInterface.Set_ReadOnlyRecommended(prop);
end;

function TWordDocument.Get_SaveSubsetFonts: WordBool;
begin
    Result := DefaultInterface.SaveSubsetFonts;
end;

procedure TWordDocument.Set_SaveSubsetFonts(prop: WordBool);
begin
  DefaultInterface.Set_SaveSubsetFonts(prop);
end;

function TWordDocument.Get_Compatibility(Type_: WdCompatibility): WordBool;
begin
    Result := DefaultInterface.Compatibility[Type_];
end;

procedure TWordDocument.Set_Compatibility(Type_: WdCompatibility; prop: WordBool);
begin
  DefaultInterface.Compatibility[Type_] := prop;
end;

function TWordDocument.Get_StoryRanges: StoryRanges;
begin
    Result := DefaultInterface.StoryRanges;
end;

function TWordDocument.Get_CommandBars: CommandBars;
begin
    Result := DefaultInterface.CommandBars;
end;

function TWordDocument.Get_IsSubdocument: WordBool;
begin
    Result := DefaultInterface.IsSubdocument;
end;

function TWordDocument.Get_SaveFormat: Integer;
begin
    Result := DefaultInterface.SaveFormat;
end;

function TWordDocument.Get_ProtectionType: WdProtectionType;
begin
    Result := DefaultInterface.ProtectionType;
end;

function TWordDocument.Get_Hyperlinks: Hyperlinks;
begin
    Result := DefaultInterface.Hyperlinks;
end;

function TWordDocument.Get_Shapes: Shapes;
begin
    Result := DefaultInterface.Shapes;
end;

function TWordDocument.Get_ListTemplates: ListTemplates;
begin
    Result := DefaultInterface.ListTemplates;
end;

function TWordDocument.Get_Lists: Lists;
begin
    Result := DefaultInterface.Lists;
end;

function TWordDocument.Get_UpdateStylesOnOpen: WordBool;
begin
    Result := DefaultInterface.UpdateStylesOnOpen;
end;

procedure TWordDocument.Set_UpdateStylesOnOpen(prop: WordBool);
begin
  DefaultInterface.Set_UpdateStylesOnOpen(prop);
end;

function TWordDocument.Get_AttachedTemplate: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.AttachedTemplate;
end;

procedure TWordDocument.Set_AttachedTemplate(var prop: OleVariant);
  { Warning: The property AttachedTemplate has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.AttachedTemplate := prop;
end;

function TWordDocument.Get_InlineShapes: InlineShapes;
begin
    Result := DefaultInterface.InlineShapes;
end;

function TWordDocument.Get_Background: Shape;
begin
    Result := DefaultInterface.Background;
end;

procedure TWordDocument.Set_Background(const prop: Shape);
begin
  DefaultInterface.Set_Background(prop);
end;

function TWordDocument.Get_GrammarChecked: WordBool;
begin
    Result := DefaultInterface.GrammarChecked;
end;

procedure TWordDocument.Set_GrammarChecked(prop: WordBool);
begin
  DefaultInterface.Set_GrammarChecked(prop);
end;

function TWordDocument.Get_SpellingChecked: WordBool;
begin
    Result := DefaultInterface.SpellingChecked;
end;

procedure TWordDocument.Set_SpellingChecked(prop: WordBool);
begin
  DefaultInterface.Set_SpellingChecked(prop);
end;

function TWordDocument.Get_ShowGrammaticalErrors: WordBool;
begin
    Result := DefaultInterface.ShowGrammaticalErrors;
end;

procedure TWordDocument.Set_ShowGrammaticalErrors(prop: WordBool);
begin
  DefaultInterface.Set_ShowGrammaticalErrors(prop);
end;

function TWordDocument.Get_ShowSpellingErrors: WordBool;
begin
    Result := DefaultInterface.ShowSpellingErrors;
end;

procedure TWordDocument.Set_ShowSpellingErrors(prop: WordBool);
begin
  DefaultInterface.Set_ShowSpellingErrors(prop);
end;

function TWordDocument.Get_Versions: Versions;
begin
    Result := DefaultInterface.Versions;
end;

function TWordDocument.Get_ShowSummary: WordBool;
begin
    Result := DefaultInterface.ShowSummary;
end;

procedure TWordDocument.Set_ShowSummary(prop: WordBool);
begin
  DefaultInterface.Set_ShowSummary(prop);
end;

function TWordDocument.Get_SummaryViewMode: WdSummaryMode;
begin
    Result := DefaultInterface.SummaryViewMode;
end;

procedure TWordDocument.Set_SummaryViewMode(prop: WdSummaryMode);
begin
  DefaultInterface.Set_SummaryViewMode(prop);
end;

function TWordDocument.Get_SummaryLength: Integer;
begin
    Result := DefaultInterface.SummaryLength;
end;

procedure TWordDocument.Set_SummaryLength(prop: Integer);
begin
  DefaultInterface.Set_SummaryLength(prop);
end;

function TWordDocument.Get_PrintFractionalWidths: WordBool;
begin
    Result := DefaultInterface.PrintFractionalWidths;
end;

procedure TWordDocument.Set_PrintFractionalWidths(prop: WordBool);
begin
  DefaultInterface.Set_PrintFractionalWidths(prop);
end;

function TWordDocument.Get_PrintPostScriptOverText: WordBool;
begin
    Result := DefaultInterface.PrintPostScriptOverText;
end;

procedure TWordDocument.Set_PrintPostScriptOverText(prop: WordBool);
begin
  DefaultInterface.Set_PrintPostScriptOverText(prop);
end;

function TWordDocument.Get_Container: IDispatch;
begin
    Result := DefaultInterface.Container;
end;

function TWordDocument.Get_PrintFormsData: WordBool;
begin
    Result := DefaultInterface.PrintFormsData;
end;

procedure TWordDocument.Set_PrintFormsData(prop: WordBool);
begin
  DefaultInterface.Set_PrintFormsData(prop);
end;

function TWordDocument.Get_ListParagraphs: ListParagraphs;
begin
    Result := DefaultInterface.ListParagraphs;
end;

procedure TWordDocument.Set_Password(const Param1: WideString);
  { Warning: The property Password has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Password := Param1;
end;

procedure TWordDocument.Set_WritePassword(const Param1: WideString);
  { Warning: The property WritePassword has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.WritePassword := Param1;
end;

function TWordDocument.Get_HasPassword: WordBool;
begin
    Result := DefaultInterface.HasPassword;
end;

function TWordDocument.Get_WriteReserved: WordBool;
begin
    Result := DefaultInterface.WriteReserved;
end;

function TWordDocument.Get_ActiveWritingStyle(var LanguageID: OleVariant): WideString;
begin
    Result := DefaultInterface.ActiveWritingStyle[LanguageID];
end;

procedure TWordDocument.Set_ActiveWritingStyle(var LanguageID: OleVariant; const prop: WideString);
  { Warning: The property ActiveWritingStyle has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ActiveWritingStyle := prop;
end;

function TWordDocument.Get_UserControl: WordBool;
begin
    Result := DefaultInterface.UserControl;
end;

procedure TWordDocument.Set_UserControl(prop: WordBool);
begin
  DefaultInterface.Set_UserControl(prop);
end;

function TWordDocument.Get_HasMailer: WordBool;
begin
    Result := DefaultInterface.HasMailer;
end;

procedure TWordDocument.Set_HasMailer(prop: WordBool);
begin
  DefaultInterface.Set_HasMailer(prop);
end;

function TWordDocument.Get_Mailer: Mailer;
begin
    Result := DefaultInterface.Mailer;
end;

function TWordDocument.Get_ReadabilityStatistics: ReadabilityStatistics;
begin
    Result := DefaultInterface.ReadabilityStatistics;
end;

function TWordDocument.Get_GrammaticalErrors: ProofreadingErrors;
begin
    Result := DefaultInterface.GrammaticalErrors;
end;

function TWordDocument.Get_SpellingErrors: ProofreadingErrors;
begin
    Result := DefaultInterface.SpellingErrors;
end;

function TWordDocument.Get_VBProject: VBProject;
begin
    Result := DefaultInterface.VBProject;
end;

function TWordDocument.Get_FormsDesign: WordBool;
begin
    Result := DefaultInterface.FormsDesign;
end;

function TWordDocument.Get__CodeName: WideString;
begin
    Result := DefaultInterface._CodeName;
end;

procedure TWordDocument.Set__CodeName(const prop: WideString);
  { Warning: The property _CodeName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant._CodeName := prop;
end;

function TWordDocument.Get_CodeName: WideString;
begin
    Result := DefaultInterface.CodeName;
end;

function TWordDocument.Get_SnapToGrid: WordBool;
begin
    Result := DefaultInterface.SnapToGrid;
end;

procedure TWordDocument.Set_SnapToGrid(prop: WordBool);
begin
  DefaultInterface.Set_SnapToGrid(prop);
end;

function TWordDocument.Get_SnapToShapes: WordBool;
begin
    Result := DefaultInterface.SnapToShapes;
end;

procedure TWordDocument.Set_SnapToShapes(prop: WordBool);
begin
  DefaultInterface.Set_SnapToShapes(prop);
end;

function TWordDocument.Get_GridDistanceHorizontal: Single;
begin
    Result := DefaultInterface.GridDistanceHorizontal;
end;

procedure TWordDocument.Set_GridDistanceHorizontal(prop: Single);
begin
  DefaultInterface.Set_GridDistanceHorizontal(prop);
end;

function TWordDocument.Get_GridDistanceVertical: Single;
begin
    Result := DefaultInterface.GridDistanceVertical;
end;

procedure TWordDocument.Set_GridDistanceVertical(prop: Single);
begin
  DefaultInterface.Set_GridDistanceVertical(prop);
end;

function TWordDocument.Get_GridOriginHorizontal: Single;
begin
    Result := DefaultInterface.GridOriginHorizontal;
end;

procedure TWordDocument.Set_GridOriginHorizontal(prop: Single);
begin
  DefaultInterface.Set_GridOriginHorizontal(prop);
end;

function TWordDocument.Get_GridOriginVertical: Single;
begin
    Result := DefaultInterface.GridOriginVertical;
end;

procedure TWordDocument.Set_GridOriginVertical(prop: Single);
begin
  DefaultInterface.Set_GridOriginVertical(prop);
end;

function TWordDocument.Get_GridSpaceBetweenHorizontalLines: Integer;
begin
    Result := DefaultInterface.GridSpaceBetweenHorizontalLines;
end;

procedure TWordDocument.Set_GridSpaceBetweenHorizontalLines(prop: Integer);
begin
  DefaultInterface.Set_GridSpaceBetweenHorizontalLines(prop);
end;

function TWordDocument.Get_GridSpaceBetweenVerticalLines: Integer;
begin
    Result := DefaultInterface.GridSpaceBetweenVerticalLines;
end;

procedure TWordDocument.Set_GridSpaceBetweenVerticalLines(prop: Integer);
begin
  DefaultInterface.Set_GridSpaceBetweenVerticalLines(prop);
end;

function TWordDocument.Get_GridOriginFromMargin: WordBool;
begin
    Result := DefaultInterface.GridOriginFromMargin;
end;

procedure TWordDocument.Set_GridOriginFromMargin(prop: WordBool);
begin
  DefaultInterface.Set_GridOriginFromMargin(prop);
end;

function TWordDocument.Get_KerningByAlgorithm: WordBool;
begin
    Result := DefaultInterface.KerningByAlgorithm;
end;

procedure TWordDocument.Set_KerningByAlgorithm(prop: WordBool);
begin
  DefaultInterface.Set_KerningByAlgorithm(prop);
end;

function TWordDocument.Get_JustificationMode: WdJustificationMode;
begin
    Result := DefaultInterface.JustificationMode;
end;

procedure TWordDocument.Set_JustificationMode(prop: WdJustificationMode);
begin
  DefaultInterface.Set_JustificationMode(prop);
end;

function TWordDocument.Get_FarEastLineBreakLevel: WdFarEastLineBreakLevel;
begin
    Result := DefaultInterface.FarEastLineBreakLevel;
end;

procedure TWordDocument.Set_FarEastLineBreakLevel(prop: WdFarEastLineBreakLevel);
begin
  DefaultInterface.Set_FarEastLineBreakLevel(prop);
end;

function TWordDocument.Get_NoLineBreakBefore: WideString;
begin
    Result := DefaultInterface.NoLineBreakBefore;
end;

procedure TWordDocument.Set_NoLineBreakBefore(const prop: WideString);
  { Warning: The property NoLineBreakBefore has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.NoLineBreakBefore := prop;
end;

function TWordDocument.Get_NoLineBreakAfter: WideString;
begin
    Result := DefaultInterface.NoLineBreakAfter;
end;

procedure TWordDocument.Set_NoLineBreakAfter(const prop: WideString);
  { Warning: The property NoLineBreakAfter has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.NoLineBreakAfter := prop;
end;

function TWordDocument.Get_TrackRevisions: WordBool;
begin
    Result := DefaultInterface.TrackRevisions;
end;

procedure TWordDocument.Set_TrackRevisions(prop: WordBool);
begin
  DefaultInterface.Set_TrackRevisions(prop);
end;

function TWordDocument.Get_PrintRevisions: WordBool;
begin
    Result := DefaultInterface.PrintRevisions;
end;

procedure TWordDocument.Set_PrintRevisions(prop: WordBool);
begin
  DefaultInterface.Set_PrintRevisions(prop);
end;

function TWordDocument.Get_ShowRevisions: WordBool;
begin
    Result := DefaultInterface.ShowRevisions;
end;

procedure TWordDocument.Set_ShowRevisions(prop: WordBool);
begin
  DefaultInterface.Set_ShowRevisions(prop);
end;

function TWordDocument.Get_ActiveTheme: WideString;
begin
    Result := DefaultInterface.ActiveTheme;
end;

function TWordDocument.Get_ActiveThemeDisplayName: WideString;
begin
    Result := DefaultInterface.ActiveThemeDisplayName;
end;

function TWordDocument.Get_Email: Email;
begin
    Result := DefaultInterface.Email;
end;

function TWordDocument.Get_Scripts: Scripts;
begin
    Result := DefaultInterface.Scripts;
end;

function TWordDocument.Get_LanguageDetected: WordBool;
begin
    Result := DefaultInterface.LanguageDetected;
end;

procedure TWordDocument.Set_LanguageDetected(prop: WordBool);
begin
  DefaultInterface.Set_LanguageDetected(prop);
end;

function TWordDocument.Get_FarEastLineBreakLanguage: WdFarEastLineBreakLanguageID;
begin
    Result := DefaultInterface.FarEastLineBreakLanguage;
end;

procedure TWordDocument.Set_FarEastLineBreakLanguage(prop: WdFarEastLineBreakLanguageID);
begin
  DefaultInterface.Set_FarEastLineBreakLanguage(prop);
end;

function TWordDocument.Get_Frameset: Frameset;
begin
    Result := DefaultInterface.Frameset;
end;

function TWordDocument.Get_ClickAndTypeParagraphStyle: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.ClickAndTypeParagraphStyle;
end;

procedure TWordDocument.Set_ClickAndTypeParagraphStyle(var prop: OleVariant);
  { Warning: The property ClickAndTypeParagraphStyle has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ClickAndTypeParagraphStyle := prop;
end;

function TWordDocument.Get_HTMLProject: HTMLProject;
begin
    Result := DefaultInterface.HTMLProject;
end;

function TWordDocument.Get_WebOptions: WebOptions;
begin
    Result := DefaultInterface.WebOptions;
end;

function TWordDocument.Get_OpenEncoding: MsoEncoding;
begin
    Result := DefaultInterface.OpenEncoding;
end;

function TWordDocument.Get_SaveEncoding: MsoEncoding;
begin
    Result := DefaultInterface.SaveEncoding;
end;

procedure TWordDocument.Set_SaveEncoding(prop: MsoEncoding);
begin
  DefaultInterface.Set_SaveEncoding(prop);
end;

function TWordDocument.Get_OptimizeForWord97: WordBool;
begin
    Result := DefaultInterface.OptimizeForWord97;
end;

procedure TWordDocument.Set_OptimizeForWord97(prop: WordBool);
begin
  DefaultInterface.Set_OptimizeForWord97(prop);
end;

function TWordDocument.Get_VBASigned: WordBool;
begin
    Result := DefaultInterface.VBASigned;
end;

function TWordDocument.Get_MailEnvelope: MsoEnvelope;
begin
    Result := DefaultInterface.MailEnvelope;
end;

function TWordDocument.Get_DisableFeatures: WordBool;
begin
    Result := DefaultInterface.DisableFeatures;
end;

procedure TWordDocument.Set_DisableFeatures(prop: WordBool);
begin
  DefaultInterface.Set_DisableFeatures(prop);
end;

function TWordDocument.Get_DoNotEmbedSystemFonts: WordBool;
begin
    Result := DefaultInterface.DoNotEmbedSystemFonts;
end;

procedure TWordDocument.Set_DoNotEmbedSystemFonts(prop: WordBool);
begin
  DefaultInterface.Set_DoNotEmbedSystemFonts(prop);
end;

function TWordDocument.Get_Signatures: SignatureSet;
begin
    Result := DefaultInterface.Signatures;
end;

function TWordDocument.Get_DefaultTargetFrame: WideString;
begin
    Result := DefaultInterface.DefaultTargetFrame;
end;

procedure TWordDocument.Set_DefaultTargetFrame(const prop: WideString);
  { Warning: The property DefaultTargetFrame has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.DefaultTargetFrame := prop;
end;

function TWordDocument.Get_HTMLDivisions: HTMLDivisions;
begin
    Result := DefaultInterface.HTMLDivisions;
end;

function TWordDocument.Get_DisableFeaturesIntroducedAfter: WdDisableFeaturesIntroducedAfter;
begin
    Result := DefaultInterface.DisableFeaturesIntroducedAfter;
end;

procedure TWordDocument.Set_DisableFeaturesIntroducedAfter(prop: WdDisableFeaturesIntroducedAfter);
begin
  DefaultInterface.Set_DisableFeaturesIntroducedAfter(prop);
end;

function TWordDocument.Get_RemovePersonalInformation: WordBool;
begin
    Result := DefaultInterface.RemovePersonalInformation;
end;

procedure TWordDocument.Set_RemovePersonalInformation(prop: WordBool);
begin
  DefaultInterface.Set_RemovePersonalInformation(prop);
end;

function TWordDocument.Get_SmartTags: SmartTags;
begin
    Result := DefaultInterface.SmartTags;
end;

function TWordDocument.Get_EmbedSmartTags: WordBool;
begin
    Result := DefaultInterface.EmbedSmartTags;
end;

procedure TWordDocument.Set_EmbedSmartTags(prop: WordBool);
begin
  DefaultInterface.Set_EmbedSmartTags(prop);
end;

function TWordDocument.Get_SmartTagsAsXMLProps: WordBool;
begin
    Result := DefaultInterface.SmartTagsAsXMLProps;
end;

procedure TWordDocument.Set_SmartTagsAsXMLProps(prop: WordBool);
begin
  DefaultInterface.Set_SmartTagsAsXMLProps(prop);
end;

function TWordDocument.Get_TextEncoding: MsoEncoding;
begin
    Result := DefaultInterface.TextEncoding;
end;

procedure TWordDocument.Set_TextEncoding(prop: MsoEncoding);
begin
  DefaultInterface.Set_TextEncoding(prop);
end;

function TWordDocument.Get_TextLineEnding: WdLineEndingType;
begin
    Result := DefaultInterface.TextLineEnding;
end;

procedure TWordDocument.Set_TextLineEnding(prop: WdLineEndingType);
begin
  DefaultInterface.Set_TextLineEnding(prop);
end;

function TWordDocument.Get_StyleSheets: StyleSheets;
begin
    Result := DefaultInterface.StyleSheets;
end;

function TWordDocument.Get_DefaultTableStyle: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.DefaultTableStyle;
end;

function TWordDocument.Get_PasswordEncryptionProvider: WideString;
begin
    Result := DefaultInterface.PasswordEncryptionProvider;
end;

function TWordDocument.Get_PasswordEncryptionAlgorithm: WideString;
begin
    Result := DefaultInterface.PasswordEncryptionAlgorithm;
end;

function TWordDocument.Get_PasswordEncryptionKeyLength: Integer;
begin
    Result := DefaultInterface.PasswordEncryptionKeyLength;
end;

function TWordDocument.Get_PasswordEncryptionFileProperties: WordBool;
begin
    Result := DefaultInterface.PasswordEncryptionFileProperties;
end;

function TWordDocument.Get_EmbedLinguisticData: WordBool;
begin
    Result := DefaultInterface.EmbedLinguisticData;
end;

procedure TWordDocument.Set_EmbedLinguisticData(prop: WordBool);
begin
  DefaultInterface.Set_EmbedLinguisticData(prop);
end;

function TWordDocument.Get_FormattingShowFont: WordBool;
begin
    Result := DefaultInterface.FormattingShowFont;
end;

procedure TWordDocument.Set_FormattingShowFont(prop: WordBool);
begin
  DefaultInterface.Set_FormattingShowFont(prop);
end;

function TWordDocument.Get_FormattingShowClear: WordBool;
begin
    Result := DefaultInterface.FormattingShowClear;
end;

procedure TWordDocument.Set_FormattingShowClear(prop: WordBool);
begin
  DefaultInterface.Set_FormattingShowClear(prop);
end;

function TWordDocument.Get_FormattingShowParagraph: WordBool;
begin
    Result := DefaultInterface.FormattingShowParagraph;
end;

procedure TWordDocument.Set_FormattingShowParagraph(prop: WordBool);
begin
  DefaultInterface.Set_FormattingShowParagraph(prop);
end;

function TWordDocument.Get_FormattingShowNumbering: WordBool;
begin
    Result := DefaultInterface.FormattingShowNumbering;
end;

procedure TWordDocument.Set_FormattingShowNumbering(prop: WordBool);
begin
  DefaultInterface.Set_FormattingShowNumbering(prop);
end;

function TWordDocument.Get_FormattingShowFilter: WdShowFilter;
begin
    Result := DefaultInterface.FormattingShowFilter;
end;

procedure TWordDocument.Set_FormattingShowFilter(prop: WdShowFilter);
begin
  DefaultInterface.Set_FormattingShowFilter(prop);
end;

procedure TWordDocument.Close;
begin
  DefaultInterface.Close(EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.Close(var SaveChanges: OleVariant);
begin
  DefaultInterface.Close(SaveChanges, EmptyParam, EmptyParam);
end;

procedure TWordDocument.Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant);
begin
  DefaultInterface.Close(SaveChanges, OriginalFormat, EmptyParam);
end;

procedure TWordDocument.Close(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
                              var RouteDocument: OleVariant);
begin
  DefaultInterface.Close(SaveChanges, OriginalFormat, RouteDocument);
end;

procedure TWordDocument.SaveAs2000;
begin
  DefaultInterface.SaveAs2000(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                              EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs2000(var FileName: OleVariant);
begin
  DefaultInterface.SaveAs2000(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                              EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant);
begin
  DefaultInterface.SaveAs2000(FileName, FileFormat, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                              EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                                   var LockComments: OleVariant);
begin
  DefaultInterface.SaveAs2000(FileName, FileFormat, LockComments, EmptyParam, EmptyParam, 
                              EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                                   var LockComments: OleVariant; var Password: OleVariant);
begin
  DefaultInterface.SaveAs2000(FileName, FileFormat, LockComments, Password, EmptyParam, EmptyParam, 
                              EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                                   var LockComments: OleVariant; var Password: OleVariant; 
                                   var AddToRecentFiles: OleVariant);
begin
  DefaultInterface.SaveAs2000(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                              EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                                   var LockComments: OleVariant; var Password: OleVariant; 
                                   var AddToRecentFiles: OleVariant; var WritePassword: OleVariant);
begin
  DefaultInterface.SaveAs2000(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                              WritePassword, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                              EmptyParam);
end;

procedure TWordDocument.SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                                   var LockComments: OleVariant; var Password: OleVariant; 
                                   var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                                   var ReadOnlyRecommended: OleVariant);
begin
  DefaultInterface.SaveAs2000(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                              WritePassword, ReadOnlyRecommended, EmptyParam, EmptyParam, 
                              EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                                   var LockComments: OleVariant; var Password: OleVariant; 
                                   var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                                   var ReadOnlyRecommended: OleVariant; 
                                   var EmbedTrueTypeFonts: OleVariant);
begin
  DefaultInterface.SaveAs2000(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                              WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, EmptyParam, 
                              EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                                   var LockComments: OleVariant; var Password: OleVariant; 
                                   var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                                   var ReadOnlyRecommended: OleVariant; 
                                   var EmbedTrueTypeFonts: OleVariant; 
                                   var SaveNativePictureFormat: OleVariant);
begin
  DefaultInterface.SaveAs2000(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                              WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 
                              SaveNativePictureFormat, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                                   var LockComments: OleVariant; var Password: OleVariant; 
                                   var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                                   var ReadOnlyRecommended: OleVariant; 
                                   var EmbedTrueTypeFonts: OleVariant; 
                                   var SaveNativePictureFormat: OleVariant; 
                                   var SaveFormsData: OleVariant);
begin
  DefaultInterface.SaveAs2000(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                              WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 
                              SaveNativePictureFormat, SaveFormsData, EmptyParam);
end;

procedure TWordDocument.SaveAs2000(var FileName: OleVariant; var FileFormat: OleVariant; 
                                   var LockComments: OleVariant; var Password: OleVariant; 
                                   var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                                   var ReadOnlyRecommended: OleVariant; 
                                   var EmbedTrueTypeFonts: OleVariant; 
                                   var SaveNativePictureFormat: OleVariant; 
                                   var SaveFormsData: OleVariant; var SaveAsAOCELetter: OleVariant);
begin
  DefaultInterface.SaveAs2000(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                              WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 
                              SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter);
end;

procedure TWordDocument.Repaginate;
begin
  DefaultInterface.Repaginate;
end;

procedure TWordDocument.FitToPages;
begin
  DefaultInterface.FitToPages;
end;

procedure TWordDocument.ManualHyphenation;
begin
  DefaultInterface.ManualHyphenation;
end;

procedure TWordDocument.Select;
begin
  DefaultInterface.Select;
end;

procedure TWordDocument.DataForm;
begin
  DefaultInterface.DataForm;
end;

procedure TWordDocument.Route;
begin
  DefaultInterface.Route;
end;

procedure TWordDocument.Save;
begin
  DefaultInterface.Save;
end;

procedure TWordDocument.PrintOutOld;
begin
  DefaultInterface.PrintOutOld(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOutOld(var Background: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOutOld(var Background: OleVariant; var Append: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; var Item: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam);
end;

procedure TWordDocument.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               Pages, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               Pages, PageType, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant; 
                                    var PrintToFile: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               Pages, PageType, PrintToFile, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant; 
                                    var PrintToFile: OleVariant; var Collate: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               Pages, PageType, PrintToFile, Collate, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant; 
                                    var PrintToFile: OleVariant; var Collate: OleVariant; 
                                    var ActivePrinterMacGX: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, EmptyParam);
end;

procedure TWordDocument.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant; 
                                    var PrintToFile: OleVariant; var Collate: OleVariant; 
                                    var ActivePrinterMacGX: OleVariant; 
                                    var ManualDuplexPrint: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, 
                               ManualDuplexPrint);
end;

procedure TWordDocument.SendMail;
begin
  DefaultInterface.SendMail;
end;

function TWordDocument.Range: Range;
begin
  Result := DefaultInterface.Range(EmptyParam, EmptyParam);
end;

function TWordDocument.Range(var Start: OleVariant): Range;
begin
  Result := DefaultInterface.Range(Start, EmptyParam);
end;

function TWordDocument.Range(var Start: OleVariant; var End_: OleVariant): Range;
begin
  Result := DefaultInterface.Range(Start, End_);
end;

procedure TWordDocument.RunAutoMacro(Which: WdAutoMacros);
begin
  DefaultInterface.RunAutoMacro(Which);
end;

procedure TWordDocument.Activate;
begin
  DefaultInterface.Activate;
end;

procedure TWordDocument.PrintPreview;
begin
  DefaultInterface.PrintPreview;
end;

function TWordDocument.GoTo_: Range;
begin
  Result := DefaultInterface.GoTo_(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordDocument.GoTo_(var What: OleVariant): Range;
begin
  Result := DefaultInterface.GoTo_(What, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordDocument.GoTo_(var What: OleVariant; var Which: OleVariant): Range;
begin
  Result := DefaultInterface.GoTo_(What, Which, EmptyParam, EmptyParam);
end;

function TWordDocument.GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant): Range;
begin
  Result := DefaultInterface.GoTo_(What, Which, Count, EmptyParam);
end;

function TWordDocument.GoTo_(var What: OleVariant; var Which: OleVariant; var Count: OleVariant; 
                             var Name: OleVariant): Range;
begin
  Result := DefaultInterface.GoTo_(What, Which, Count, Name);
end;

function TWordDocument.Undo: WordBool;
begin
  Result := DefaultInterface.Undo(EmptyParam);
end;

function TWordDocument.Undo(var Times: OleVariant): WordBool;
begin
  Result := DefaultInterface.Undo(Times);
end;

function TWordDocument.Redo: WordBool;
begin
  Result := DefaultInterface.Redo(EmptyParam);
end;

function TWordDocument.Redo(var Times: OleVariant): WordBool;
begin
  Result := DefaultInterface.Redo(Times);
end;

function TWordDocument.ComputeStatistics(Statistic: WdStatistic): Integer;
begin
  Result := DefaultInterface.ComputeStatistics(Statistic, EmptyParam);
end;

function TWordDocument.ComputeStatistics(Statistic: WdStatistic; 
                                         var IncludeFootnotesAndEndnotes: OleVariant): Integer;
begin
  Result := DefaultInterface.ComputeStatistics(Statistic, IncludeFootnotesAndEndnotes);
end;

procedure TWordDocument.MakeCompatibilityDefault;
begin
  DefaultInterface.MakeCompatibilityDefault;
end;

procedure TWordDocument.Protect(Type_: WdProtectionType);
begin
  DefaultInterface.Protect(Type_, EmptyParam, EmptyParam);
end;

procedure TWordDocument.Protect(Type_: WdProtectionType; var NoReset: OleVariant);
begin
  DefaultInterface.Protect(Type_, NoReset, EmptyParam);
end;

procedure TWordDocument.Protect(Type_: WdProtectionType; var NoReset: OleVariant; 
                                var Password: OleVariant);
begin
  DefaultInterface.Protect(Type_, NoReset, Password);
end;

procedure TWordDocument.Unprotect;
begin
  DefaultInterface.Unprotect(EmptyParam);
end;

procedure TWordDocument.Unprotect(var Password: OleVariant);
begin
  DefaultInterface.Unprotect(Password);
end;

procedure TWordDocument.EditionOptions(Type_: WdEditionType; Option: WdEditionOption; 
                                       const Name: WideString);
begin
  DefaultInterface.EditionOptions(Type_, Option, Name, EmptyParam);
end;

procedure TWordDocument.EditionOptions(Type_: WdEditionType; Option: WdEditionOption; 
                                       const Name: WideString; var Format: OleVariant);
begin
  DefaultInterface.EditionOptions(Type_, Option, Name, Format);
end;

procedure TWordDocument.RunLetterWizard;
begin
  DefaultInterface.RunLetterWizard(EmptyParam, EmptyParam);
end;

procedure TWordDocument.RunLetterWizard(var LetterContent: OleVariant);
begin
  DefaultInterface.RunLetterWizard(LetterContent, EmptyParam);
end;

procedure TWordDocument.RunLetterWizard(var LetterContent: OleVariant; var WizardMode: OleVariant);
begin
  DefaultInterface.RunLetterWizard(LetterContent, WizardMode);
end;

function TWordDocument.GetLetterContent: WordLetterContent;
begin
  Result := DefaultInterface.GetLetterContent;
end;

procedure TWordDocument.SetLetterContent(var LetterContent: OleVariant);
begin
  DefaultInterface.SetLetterContent(LetterContent);
end;

procedure TWordDocument.CopyStylesFromTemplate(const Template: WideString);
begin
  DefaultInterface.CopyStylesFromTemplate(Template);
end;

procedure TWordDocument.UpdateStyles;
begin
  DefaultInterface.UpdateStyles;
end;

procedure TWordDocument.CheckGrammar;
begin
  DefaultInterface.CheckGrammar;
end;

procedure TWordDocument.CheckSpelling;
begin
  DefaultInterface.CheckSpelling(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam);
end;

procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant);
begin
  DefaultInterface.CheckSpelling(CustomDictionary, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam);
end;

procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
                                      var IgnoreUppercase: OleVariant);
begin
  DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
                                      var IgnoreUppercase: OleVariant; var AlwaysSuggest: OleVariant);
begin
  DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
                                      var IgnoreUppercase: OleVariant; 
                                      var AlwaysSuggest: OleVariant; 
                                      var CustomDictionary2: OleVariant);
begin
  DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
                                 CustomDictionary2, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
                                      var IgnoreUppercase: OleVariant; 
                                      var AlwaysSuggest: OleVariant; 
                                      var CustomDictionary2: OleVariant; 
                                      var CustomDictionary3: OleVariant);
begin
  DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
                                 CustomDictionary2, CustomDictionary3, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
                                      var IgnoreUppercase: OleVariant; 
                                      var AlwaysSuggest: OleVariant; 
                                      var CustomDictionary2: OleVariant; 
                                      var CustomDictionary3: OleVariant; 
                                      var CustomDictionary4: OleVariant);
begin
  DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
                                 CustomDictionary2, CustomDictionary3, CustomDictionary4, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam);
end;

procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
                                      var IgnoreUppercase: OleVariant; 
                                      var AlwaysSuggest: OleVariant; 
                                      var CustomDictionary2: OleVariant; 
                                      var CustomDictionary3: OleVariant; 
                                      var CustomDictionary4: OleVariant; 
                                      var CustomDictionary5: OleVariant);
begin
  DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
                                 CustomDictionary2, CustomDictionary3, CustomDictionary4, 
                                 CustomDictionary5, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam);
end;

procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
                                      var IgnoreUppercase: OleVariant; 
                                      var AlwaysSuggest: OleVariant; 
                                      var CustomDictionary2: OleVariant; 
                                      var CustomDictionary3: OleVariant; 
                                      var CustomDictionary4: OleVariant; 
                                      var CustomDictionary5: OleVariant; 
                                      var CustomDictionary6: OleVariant);
begin
  DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
                                 CustomDictionary2, CustomDictionary3, CustomDictionary4, 
                                 CustomDictionary5, CustomDictionary6, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam);
end;

procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
                                      var IgnoreUppercase: OleVariant; 
                                      var AlwaysSuggest: OleVariant; 
                                      var CustomDictionary2: OleVariant; 
                                      var CustomDictionary3: OleVariant; 
                                      var CustomDictionary4: OleVariant; 
                                      var CustomDictionary5: OleVariant; 
                                      var CustomDictionary6: OleVariant; 
                                      var CustomDictionary7: OleVariant);
begin
  DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
                                 CustomDictionary2, CustomDictionary3, CustomDictionary4, 
                                 CustomDictionary5, CustomDictionary6, CustomDictionary7, 
                                 EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
                                      var IgnoreUppercase: OleVariant; 
                                      var AlwaysSuggest: OleVariant; 
                                      var CustomDictionary2: OleVariant; 
                                      var CustomDictionary3: OleVariant; 
                                      var CustomDictionary4: OleVariant; 
                                      var CustomDictionary5: OleVariant; 
                                      var CustomDictionary6: OleVariant; 
                                      var CustomDictionary7: OleVariant; 
                                      var CustomDictionary8: OleVariant);
begin
  DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
                                 CustomDictionary2, CustomDictionary3, CustomDictionary4, 
                                 CustomDictionary5, CustomDictionary6, CustomDictionary7, 
                                 CustomDictionary8, EmptyParam, EmptyParam);
end;

procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
                                      var IgnoreUppercase: OleVariant; 
                                      var AlwaysSuggest: OleVariant; 
                                      var CustomDictionary2: OleVariant; 
                                      var CustomDictionary3: OleVariant; 
                                      var CustomDictionary4: OleVariant; 
                                      var CustomDictionary5: OleVariant; 
                                      var CustomDictionary6: OleVariant; 
                                      var CustomDictionary7: OleVariant; 
                                      var CustomDictionary8: OleVariant; 
                                      var CustomDictionary9: OleVariant);
begin
  DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
                                 CustomDictionary2, CustomDictionary3, CustomDictionary4, 
                                 CustomDictionary5, CustomDictionary6, CustomDictionary7, 
                                 CustomDictionary8, CustomDictionary9, EmptyParam);
end;

procedure TWordDocument.CheckSpelling(var CustomDictionary: OleVariant; 
                                      var IgnoreUppercase: OleVariant; 
                                      var AlwaysSuggest: OleVariant; 
                                      var CustomDictionary2: OleVariant; 
                                      var CustomDictionary3: OleVariant; 
                                      var CustomDictionary4: OleVariant; 
                                      var CustomDictionary5: OleVariant; 
                                      var CustomDictionary6: OleVariant; 
                                      var CustomDictionary7: OleVariant; 
                                      var CustomDictionary8: OleVariant; 
                                      var CustomDictionary9: OleVariant; 
                                      var CustomDictionary10: OleVariant);
begin
  DefaultInterface.CheckSpelling(CustomDictionary, IgnoreUppercase, AlwaysSuggest, 
                                 CustomDictionary2, CustomDictionary3, CustomDictionary4, 
                                 CustomDictionary5, CustomDictionary6, CustomDictionary7, 
                                 CustomDictionary8, CustomDictionary9, CustomDictionary10);
end;

procedure TWordDocument.FollowHyperlink;
begin
  DefaultInterface.FollowHyperlink(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                   EmptyParam, EmptyParam);
end;

procedure TWordDocument.FollowHyperlink(var Address: OleVariant);
begin
  DefaultInterface.FollowHyperlink(Address, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                   EmptyParam, EmptyParam);
end;

procedure TWordDocument.FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant);
begin
  DefaultInterface.FollowHyperlink(Address, SubAddress, EmptyParam, EmptyParam, EmptyParam, 
                                   EmptyParam, EmptyParam);
end;

procedure TWordDocument.FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
                                        var NewWindow: OleVariant);
begin
  DefaultInterface.FollowHyperlink(Address, SubAddress, NewWindow, EmptyParam, EmptyParam, 
                                   EmptyParam, EmptyParam);
end;

procedure TWordDocument.FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
                                        var NewWindow: OleVariant; var AddHistory: OleVariant);
begin
  DefaultInterface.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, EmptyParam, 
                                   EmptyParam, EmptyParam);
end;

procedure TWordDocument.FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
                                        var NewWindow: OleVariant; var AddHistory: OleVariant; 
                                        var ExtraInfo: OleVariant);
begin
  DefaultInterface.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, 
                                   EmptyParam, EmptyParam);
end;

procedure TWordDocument.FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
                                        var NewWindow: OleVariant; var AddHistory: OleVariant; 
                                        var ExtraInfo: OleVariant; var Method: OleVariant);
begin
  DefaultInterface.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, 
                                   EmptyParam);
end;

procedure TWordDocument.FollowHyperlink(var Address: OleVariant; var SubAddress: OleVariant; 
                                        var NewWindow: OleVariant; var AddHistory: OleVariant; 
                                        var ExtraInfo: OleVariant; var Method: OleVariant; 
                                        var HeaderInfo: OleVariant);
begin
  DefaultInterface.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method, 
                                   HeaderInfo);
end;

procedure TWordDocument.AddToFavorites;
begin
  DefaultInterface.AddToFavorites;
end;

procedure TWordDocument.Reload;
begin
  DefaultInterface.Reload;
end;

function TWordDocument.AutoSummarize: Range;
begin
  Result := DefaultInterface.AutoSummarize(EmptyParam, EmptyParam, EmptyParam);
end;

function TWordDocument.AutoSummarize(var Length: OleVariant): Range;
begin
  Result := DefaultInterface.AutoSummarize(Length, EmptyParam, EmptyParam);
end;

function TWordDocument.AutoSummarize(var Length: OleVariant; var Mode: OleVariant): Range;
begin
  Result := DefaultInterface.AutoSummarize(Length, Mode, EmptyParam);
end;

function TWordDocument.AutoSummarize(var Length: OleVariant; var Mode: OleVariant; 
                                     var UpdateProperties: OleVariant): Range;
begin
  Result := DefaultInterface.AutoSummarize(Length, Mode, UpdateProperties);
end;

procedure TWordDocument.RemoveNumbers;
begin
  DefaultInterface.RemoveNumbers(EmptyParam);
end;

procedure TWordDocument.RemoveNumbers(var NumberType: OleVariant);
begin
  DefaultInterface.RemoveNumbers(NumberType);
end;

procedure TWordDocument.ConvertNumbersToText;
begin
  DefaultInterface.ConvertNumbersToText(EmptyParam);
end;

procedure TWordDocument.ConvertNumbersToText(var NumberType: OleVariant);
begin
  DefaultInterface.ConvertNumbersToText(NumberType);
end;

function TWordDocument.CountNumberedItems: Integer;
begin
  Result := DefaultInterface.CountNumberedItems(EmptyParam, EmptyParam);
end;

function TWordDocument.CountNumberedItems(var NumberType: OleVariant): Integer;
begin
  Result := DefaultInterface.CountNumberedItems(NumberType, EmptyParam);
end;

function TWordDocument.CountNumberedItems(var NumberType: OleVariant; var Level: OleVariant): Integer;
begin
  Result := DefaultInterface.CountNumberedItems(NumberType, Level);
end;

procedure TWordDocument.Post;
begin
  DefaultInterface.Post;
end;

procedure TWordDocument.ToggleFormsDesign;
begin
  DefaultInterface.ToggleFormsDesign;
end;

procedure TWordDocument.Compare2000(const Name: WideString);
begin
  DefaultInterface.Compare2000(Name);
end;

procedure TWordDocument.UpdateSummaryProperties;
begin
  DefaultInterface.UpdateSummaryProperties;
end;

function TWordDocument.GetCrossReferenceItems(var ReferenceType: OleVariant): OleVariant;
begin
  Result := DefaultInterface.GetCrossReferenceItems(ReferenceType);
end;

procedure TWordDocument.AutoFormat;
begin
  DefaultInterface.AutoFormat;
end;

procedure TWordDocument.ViewCode;
begin
  DefaultInterface.ViewCode;
end;

procedure TWordDocument.ViewPropertyBrowser;
begin
  DefaultInterface.ViewPropertyBrowser;
end;

procedure TWordDocument.ForwardMailer;
begin
  DefaultInterface.ForwardMailer;
end;

procedure TWordDocument.Reply;
begin
  DefaultInterface.Reply;
end;

procedure TWordDocument.ReplyAll;
begin
  DefaultInterface.ReplyAll;
end;

procedure TWordDocument.SendMailer;
begin
  DefaultInterface.SendMailer(EmptyParam, EmptyParam);
end;

procedure TWordDocument.SendMailer(var FileFormat: OleVariant);
begin
  DefaultInterface.SendMailer(FileFormat, EmptyParam);
end;

procedure TWordDocument.SendMailer(var FileFormat: OleVariant; var Priority: OleVariant);
begin
  DefaultInterface.SendMailer(FileFormat, Priority);
end;

procedure TWordDocument.UndoClear;
begin
  DefaultInterface.UndoClear;
end;

procedure TWordDocument.PresentIt;
begin
  DefaultInterface.PresentIt;
end;

procedure TWordDocument.SendFax(const Address: WideString);
begin
  DefaultInterface.SendFax(Address, EmptyParam);
end;

procedure TWordDocument.SendFax(const Address: WideString; var Subject: OleVariant);
begin
  DefaultInterface.SendFax(Address, Subject);
end;

procedure TWordDocument.Merge2000(const FileName: WideString);
begin
  DefaultInterface.Merge2000(FileName);
end;

procedure TWordDocument.ClosePrintPreview;
begin
  DefaultInterface.ClosePrintPreview;
end;

procedure TWordDocument.CheckConsistency;
begin
  DefaultInterface.CheckConsistency;
end;

function TWordDocument.CreateLetterContent(const DateFormat: WideString; 
                                           IncludeHeaderFooter: WordBool; 
                                           const PageDesign: WideString; 
                                           LetterStyle: WdLetterStyle; Letterhead: WordBool; 
                                           LetterheadLocation: WdLetterheadLocation; 
                                           LetterheadSize: Single; const RecipientName: WideString; 
                                           const RecipientAddress: WideString; 
                                           const Salutation: WideString; 
                                           SalutationType: WdSalutationType; 
                                           const RecipientReference: WideString; 
                                           const MailingInstructions: WideString; 
                                           const AttentionLine: WideString; 
                                           const Subject: WideString; const CCList: WideString; 
                                           const ReturnAddress: WideString; 
                                           const SenderName: WideString; const Closing: WideString; 
                                           const SenderCompany: WideString; 
                                           const SenderJobTitle: WideString; 
                                           const SenderInitials: WideString; 
                                           EnclosureNumber: Integer): WordLetterContent;
begin
  Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
                                                 LetterStyle, Letterhead, LetterheadLocation, 
                                                 LetterheadSize, RecipientName, RecipientAddress, 
                                                 Salutation, SalutationType, RecipientReference, 
                                                 MailingInstructions, AttentionLine, Subject, 
                                                 CCList, ReturnAddress, SenderName, Closing, 
                                                 SenderCompany, SenderJobTitle, SenderInitials, 
                                                 EnclosureNumber, EmptyParam, EmptyParam, 
                                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                                 EmptyParam, EmptyParam);
end;

function TWordDocument.CreateLetterContent(const DateFormat: WideString; 
                                           IncludeHeaderFooter: WordBool; 
                                           const PageDesign: WideString; 
                                           LetterStyle: WdLetterStyle; Letterhead: WordBool; 
                                           LetterheadLocation: WdLetterheadLocation; 
                                           LetterheadSize: Single; const RecipientName: WideString; 
                                           const RecipientAddress: WideString; 
                                           const Salutation: WideString; 
                                           SalutationType: WdSalutationType; 
                                           const RecipientReference: WideString; 
                                           const MailingInstructions: WideString; 
                                           const AttentionLine: WideString; 
                                           const Subject: WideString; const CCList: WideString; 
                                           const ReturnAddress: WideString; 
                                           const SenderName: WideString; const Closing: WideString; 
                                           const SenderCompany: WideString; 
                                           const SenderJobTitle: WideString; 
                                           const SenderInitials: WideString; 
                                           EnclosureNumber: Integer; var InfoBlock: OleVariant): WordLetterContent;
begin
  Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
                                                 LetterStyle, Letterhead, LetterheadLocation, 
                                                 LetterheadSize, RecipientName, RecipientAddress, 
                                                 Salutation, SalutationType, RecipientReference, 
                                                 MailingInstructions, AttentionLine, Subject, 
                                                 CCList, ReturnAddress, SenderName, Closing, 
                                                 SenderCompany, SenderJobTitle, SenderInitials, 
                                                 EnclosureNumber, InfoBlock, EmptyParam, 
                                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                                 EmptyParam, EmptyParam);
end;

function TWordDocument.CreateLetterContent(const DateFormat: WideString; 
                                           IncludeHeaderFooter: WordBool; 
                                           const PageDesign: WideString; 
                                           LetterStyle: WdLetterStyle; Letterhead: WordBool; 
                                           LetterheadLocation: WdLetterheadLocation; 
                                           LetterheadSize: Single; const RecipientName: WideString; 
                                           const RecipientAddress: WideString; 
                                           const Salutation: WideString; 
                                           SalutationType: WdSalutationType; 
                                           const RecipientReference: WideString; 
                                           const MailingInstructions: WideString; 
                                           const AttentionLine: WideString; 
                                           const Subject: WideString; const CCList: WideString; 
                                           const ReturnAddress: WideString; 
                                           const SenderName: WideString; const Closing: WideString; 
                                           const SenderCompany: WideString; 
                                           const SenderJobTitle: WideString; 
                                           const SenderInitials: WideString; 
                                           EnclosureNumber: Integer; var InfoBlock: OleVariant; 
                                           var RecipientCode: OleVariant): WordLetterContent;
begin
  Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
                                                 LetterStyle, Letterhead, LetterheadLocation, 
                                                 LetterheadSize, RecipientName, RecipientAddress, 
                                                 Salutation, SalutationType, RecipientReference, 
                                                 MailingInstructions, AttentionLine, Subject, 
                                                 CCList, ReturnAddress, SenderName, Closing, 
                                                 SenderCompany, SenderJobTitle, SenderInitials, 
                                                 EnclosureNumber, InfoBlock, RecipientCode, 
                                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                                 EmptyParam, EmptyParam);
end;

function TWordDocument.CreateLetterContent(const DateFormat: WideString; 
                                           IncludeHeaderFooter: WordBool; 
                                           const PageDesign: WideString; 
                                           LetterStyle: WdLetterStyle; Letterhead: WordBool; 
                                           LetterheadLocation: WdLetterheadLocation; 
                                           LetterheadSize: Single; const RecipientName: WideString; 
                                           const RecipientAddress: WideString; 
                                           const Salutation: WideString; 
                                           SalutationType: WdSalutationType; 
                                           const RecipientReference: WideString; 
                                           const MailingInstructions: WideString; 
                                           const AttentionLine: WideString; 
                                           const Subject: WideString; const CCList: WideString; 
                                           const ReturnAddress: WideString; 
                                           const SenderName: WideString; const Closing: WideString; 
                                           const SenderCompany: WideString; 
                                           const SenderJobTitle: WideString; 
                                           const SenderInitials: WideString; 
                                           EnclosureNumber: Integer; var InfoBlock: OleVariant; 
                                           var RecipientCode: OleVariant; 
                                           var RecipientGender: OleVariant): WordLetterContent;
begin
  Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
                                                 LetterStyle, Letterhead, LetterheadLocation, 
                                                 LetterheadSize, RecipientName, RecipientAddress, 
                                                 Salutation, SalutationType, RecipientReference, 
                                                 MailingInstructions, AttentionLine, Subject, 
                                                 CCList, ReturnAddress, SenderName, Closing, 
                                                 SenderCompany, SenderJobTitle, SenderInitials, 
                                                 EnclosureNumber, InfoBlock, RecipientCode, 
                                                 RecipientGender, EmptyParam, EmptyParam, 
                                                 EmptyParam, EmptyParam, EmptyParam);
end;

function TWordDocument.CreateLetterContent(const DateFormat: WideString; 
                                           IncludeHeaderFooter: WordBool; 
                                           const PageDesign: WideString; 
                                           LetterStyle: WdLetterStyle; Letterhead: WordBool; 
                                           LetterheadLocation: WdLetterheadLocation; 
                                           LetterheadSize: Single; const RecipientName: WideString; 
                                           const RecipientAddress: WideString; 
                                           const Salutation: WideString; 
                                           SalutationType: WdSalutationType; 
                                           const RecipientReference: WideString; 
                                           const MailingInstructions: WideString; 
                                           const AttentionLine: WideString; 
                                           const Subject: WideString; const CCList: WideString; 
                                           const ReturnAddress: WideString; 
                                           const SenderName: WideString; const Closing: WideString; 
                                           const SenderCompany: WideString; 
                                           const SenderJobTitle: WideString; 
                                           const SenderInitials: WideString; 
                                           EnclosureNumber: Integer; var InfoBlock: OleVariant; 
                                           var RecipientCode: OleVariant; 
                                           var RecipientGender: OleVariant; 
                                           var ReturnAddressShortForm: OleVariant): WordLetterContent;
begin
  Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
                                                 LetterStyle, Letterhead, LetterheadLocation, 
                                                 LetterheadSize, RecipientName, RecipientAddress, 
                                                 Salutation, SalutationType, RecipientReference, 
                                                 MailingInstructions, AttentionLine, Subject, 
                                                 CCList, ReturnAddress, SenderName, Closing, 
                                                 SenderCompany, SenderJobTitle, SenderInitials, 
                                                 EnclosureNumber, InfoBlock, RecipientCode, 
                                                 RecipientGender, ReturnAddressShortForm, 
                                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordDocument.CreateLetterContent(const DateFormat: WideString; 
                                           IncludeHeaderFooter: WordBool; 
                                           const PageDesign: WideString; 
                                           LetterStyle: WdLetterStyle; Letterhead: WordBool; 
                                           LetterheadLocation: WdLetterheadLocation; 
                                           LetterheadSize: Single; const RecipientName: WideString; 
                                           const RecipientAddress: WideString; 
                                           const Salutation: WideString; 
                                           SalutationType: WdSalutationType; 
                                           const RecipientReference: WideString; 
                                           const MailingInstructions: WideString; 
                                           const AttentionLine: WideString; 
                                           const Subject: WideString; const CCList: WideString; 
                                           const ReturnAddress: WideString; 
                                           const SenderName: WideString; const Closing: WideString; 
                                           const SenderCompany: WideString; 
                                           const SenderJobTitle: WideString; 
                                           const SenderInitials: WideString; 
                                           EnclosureNumber: Integer; var InfoBlock: OleVariant; 
                                           var RecipientCode: OleVariant; 
                                           var RecipientGender: OleVariant; 
                                           var ReturnAddressShortForm: OleVariant; 
                                           var SenderCity: OleVariant): WordLetterContent;
begin
  Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
                                                 LetterStyle, Letterhead, LetterheadLocation, 
                                                 LetterheadSize, RecipientName, RecipientAddress, 
                                                 Salutation, SalutationType, RecipientReference, 
                                                 MailingInstructions, AttentionLine, Subject, 
                                                 CCList, ReturnAddress, SenderName, Closing, 
                                                 SenderCompany, SenderJobTitle, SenderInitials, 
                                                 EnclosureNumber, InfoBlock, RecipientCode, 
                                                 RecipientGender, ReturnAddressShortForm, 
                                                 SenderCity, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordDocument.CreateLetterContent(const DateFormat: WideString; 
                                           IncludeHeaderFooter: WordBool; 
                                           const PageDesign: WideString; 
                                           LetterStyle: WdLetterStyle; Letterhead: WordBool; 
                                           LetterheadLocation: WdLetterheadLocation; 
                                           LetterheadSize: Single; const RecipientName: WideString; 
                                           const RecipientAddress: WideString; 
                                           const Salutation: WideString; 
                                           SalutationType: WdSalutationType; 
                                           const RecipientReference: WideString; 
                                           const MailingInstructions: WideString; 
                                           const AttentionLine: WideString; 
                                           const Subject: WideString; const CCList: WideString; 
                                           const ReturnAddress: WideString; 
                                           const SenderName: WideString; const Closing: WideString; 
                                           const SenderCompany: WideString; 
                                           const SenderJobTitle: WideString; 
                                           const SenderInitials: WideString; 
                                           EnclosureNumber: Integer; var InfoBlock: OleVariant; 
                                           var RecipientCode: OleVariant; 
                                           var RecipientGender: OleVariant; 
                                           var ReturnAddressShortForm: OleVariant; 
                                           var SenderCity: OleVariant; var SenderCode: OleVariant): WordLetterContent;
begin
  Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
                                                 LetterStyle, Letterhead, LetterheadLocation, 
                                                 LetterheadSize, RecipientName, RecipientAddress, 
                                                 Salutation, SalutationType, RecipientReference, 
                                                 MailingInstructions, AttentionLine, Subject, 
                                                 CCList, ReturnAddress, SenderName, Closing, 
                                                 SenderCompany, SenderJobTitle, SenderInitials, 
                                                 EnclosureNumber, InfoBlock, RecipientCode, 
                                                 RecipientGender, ReturnAddressShortForm, 
                                                 SenderCity, SenderCode, EmptyParam, EmptyParam);
end;

function TWordDocument.CreateLetterContent(const DateFormat: WideString; 
                                           IncludeHeaderFooter: WordBool; 
                                           const PageDesign: WideString; 
                                           LetterStyle: WdLetterStyle; Letterhead: WordBool; 
                                           LetterheadLocation: WdLetterheadLocation; 
                                           LetterheadSize: Single; const RecipientName: WideString; 
                                           const RecipientAddress: WideString; 
                                           const Salutation: WideString; 
                                           SalutationType: WdSalutationType; 
                                           const RecipientReference: WideString; 
                                           const MailingInstructions: WideString; 
                                           const AttentionLine: WideString; 
                                           const Subject: WideString; const CCList: WideString; 
                                           const ReturnAddress: WideString; 
                                           const SenderName: WideString; const Closing: WideString; 
                                           const SenderCompany: WideString; 
                                           const SenderJobTitle: WideString; 
                                           const SenderInitials: WideString; 
                                           EnclosureNumber: Integer; var InfoBlock: OleVariant; 
                                           var RecipientCode: OleVariant; 
                                           var RecipientGender: OleVariant; 
                                           var ReturnAddressShortForm: OleVariant; 
                                           var SenderCity: OleVariant; var SenderCode: OleVariant; 
                                           var SenderGender: OleVariant): WordLetterContent;
begin
  Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
                                                 LetterStyle, Letterhead, LetterheadLocation, 
                                                 LetterheadSize, RecipientName, RecipientAddress, 
                                                 Salutation, SalutationType, RecipientReference, 
                                                 MailingInstructions, AttentionLine, Subject, 
                                                 CCList, ReturnAddress, SenderName, Closing, 
                                                 SenderCompany, SenderJobTitle, SenderInitials, 
                                                 EnclosureNumber, InfoBlock, RecipientCode, 
                                                 RecipientGender, ReturnAddressShortForm, 
                                                 SenderCity, SenderCode, SenderGender, EmptyParam);
end;

function TWordDocument.CreateLetterContent(const DateFormat: WideString; 
                                           IncludeHeaderFooter: WordBool; 
                                           const PageDesign: WideString; 
                                           LetterStyle: WdLetterStyle; Letterhead: WordBool; 
                                           LetterheadLocation: WdLetterheadLocation; 
                                           LetterheadSize: Single; const RecipientName: WideString; 
                                           const RecipientAddress: WideString; 
                                           const Salutation: WideString; 
                                           SalutationType: WdSalutationType; 
                                           const RecipientReference: WideString; 
                                           const MailingInstructions: WideString; 
                                           const AttentionLine: WideString; 
                                           const Subject: WideString; const CCList: WideString; 
                                           const ReturnAddress: WideString; 
                                           const SenderName: WideString; const Closing: WideString; 
                                           const SenderCompany: WideString; 
                                           const SenderJobTitle: WideString; 
                                           const SenderInitials: WideString; 
                                           EnclosureNumber: Integer; var InfoBlock: OleVariant; 
                                           var RecipientCode: OleVariant; 
                                           var RecipientGender: OleVariant; 
                                           var ReturnAddressShortForm: OleVariant; 
                                           var SenderCity: OleVariant; var SenderCode: OleVariant; 
                                           var SenderGender: OleVariant; 
                                           var SenderReference: OleVariant): WordLetterContent;
begin
  Result := DefaultInterface.CreateLetterContent(DateFormat, IncludeHeaderFooter, PageDesign, 
                                                 LetterStyle, Letterhead, LetterheadLocation, 
                                                 LetterheadSize, RecipientName, RecipientAddress, 
                                                 Salutation, SalutationType, RecipientReference, 
                                                 MailingInstructions, AttentionLine, Subject, 
                                                 CCList, ReturnAddress, SenderName, Closing, 
                                                 SenderCompany, SenderJobTitle, SenderInitials, 
                                                 EnclosureNumber, InfoBlock, RecipientCode, 
                                                 RecipientGender, ReturnAddressShortForm, 
                                                 SenderCity, SenderCode, SenderGender, 
                                                 SenderReference);
end;

procedure TWordDocument.AcceptAllRevisions;
begin
  DefaultInterface.AcceptAllRevisions;
end;

procedure TWordDocument.RejectAllRevisions;
begin
  DefaultInterface.RejectAllRevisions;
end;

procedure TWordDocument.DetectLanguage;
begin
  DefaultInterface.DetectLanguage;
end;

procedure TWordDocument.ApplyTheme(const Name: WideString);
begin
  DefaultInterface.ApplyTheme(Name);
end;

procedure TWordDocument.RemoveTheme;
begin
  DefaultInterface.RemoveTheme;
end;

procedure TWordDocument.WebPagePreview;
begin
  DefaultInterface.WebPagePreview;
end;

procedure TWordDocument.ReloadAs(Encoding: MsoEncoding);
begin
  DefaultInterface.ReloadAs(Encoding);
end;

procedure TWordDocument.PrintOut2000;
begin
  DefaultInterface.PrintOut2000(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant; 
                                     var From: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant; 
                                     var From: OleVariant; var To_: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant; 
                                     var From: OleVariant; var To_: OleVariant; var Item: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant; 
                                     var From: OleVariant; var To_: OleVariant; 
                                     var Item: OleVariant; var Copies: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant; 
                                     var From: OleVariant; var To_: OleVariant; 
                                     var Item: OleVariant; var Copies: OleVariant; 
                                     var Pages: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant; 
                                     var From: OleVariant; var To_: OleVariant; 
                                     var Item: OleVariant; var Copies: OleVariant; 
                                     var Pages: OleVariant; var PageType: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant; 
                                     var From: OleVariant; var To_: OleVariant; 
                                     var Item: OleVariant; var Copies: OleVariant; 
                                     var Pages: OleVariant; var PageType: OleVariant; 
                                     var PrintToFile: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant; 
                                     var From: OleVariant; var To_: OleVariant; 
                                     var Item: OleVariant; var Copies: OleVariant; 
                                     var Pages: OleVariant; var PageType: OleVariant; 
                                     var PrintToFile: OleVariant; var Collate: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant; 
                                     var From: OleVariant; var To_: OleVariant; 
                                     var Item: OleVariant; var Copies: OleVariant; 
                                     var Pages: OleVariant; var PageType: OleVariant; 
                                     var PrintToFile: OleVariant; var Collate: OleVariant; 
                                     var ActivePrinterMacGX: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant; 
                                     var From: OleVariant; var To_: OleVariant; 
                                     var Item: OleVariant; var Copies: OleVariant; 
                                     var Pages: OleVariant; var PageType: OleVariant; 
                                     var PrintToFile: OleVariant; var Collate: OleVariant; 
                                     var ActivePrinterMacGX: OleVariant; 
                                     var ManualDuplexPrint: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, 
                                ManualDuplexPrint, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant; 
                                     var From: OleVariant; var To_: OleVariant; 
                                     var Item: OleVariant; var Copies: OleVariant; 
                                     var Pages: OleVariant; var PageType: OleVariant; 
                                     var PrintToFile: OleVariant; var Collate: OleVariant; 
                                     var ActivePrinterMacGX: OleVariant; 
                                     var ManualDuplexPrint: OleVariant; 
                                     var PrintZoomColumn: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, 
                                ManualDuplexPrint, PrintZoomColumn, EmptyParam, EmptyParam, 
                                EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant; 
                                     var From: OleVariant; var To_: OleVariant; 
                                     var Item: OleVariant; var Copies: OleVariant; 
                                     var Pages: OleVariant; var PageType: OleVariant; 
                                     var PrintToFile: OleVariant; var Collate: OleVariant; 
                                     var ActivePrinterMacGX: OleVariant; 
                                     var ManualDuplexPrint: OleVariant; 
                                     var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, 
                                ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, EmptyParam, 
                                EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant; 
                                     var From: OleVariant; var To_: OleVariant; 
                                     var Item: OleVariant; var Copies: OleVariant; 
                                     var Pages: OleVariant; var PageType: OleVariant; 
                                     var PrintToFile: OleVariant; var Collate: OleVariant; 
                                     var ActivePrinterMacGX: OleVariant; 
                                     var ManualDuplexPrint: OleVariant; 
                                     var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                                     var PrintZoomPaperWidth: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, 
                                ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, 
                                PrintZoomPaperWidth, EmptyParam);
end;

procedure TWordDocument.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                     var Range: OleVariant; var OutputFileName: OleVariant; 
                                     var From: OleVariant; var To_: OleVariant; 
                                     var Item: OleVariant; var Copies: OleVariant; 
                                     var Pages: OleVariant; var PageType: OleVariant; 
                                     var PrintToFile: OleVariant; var Collate: OleVariant; 
                                     var ActivePrinterMacGX: OleVariant; 
                                     var ManualDuplexPrint: OleVariant; 
                                     var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                                     var PrintZoomPaperWidth: OleVariant; 
                                     var PrintZoomPaperHeight: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, 
                                ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, 
                                PrintZoomPaperWidth, PrintZoomPaperHeight);
end;

procedure TWordDocument.sblt(const s: WideString);
begin
  DefaultInterface.sblt(s);
end;

procedure TWordDocument.ConvertVietDoc(CodePageOrigin: Integer);
begin
  DefaultInterface.ConvertVietDoc(CodePageOrigin);
end;

procedure TWordDocument.PrintOut;
begin
  DefaultInterface.PrintOut(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant);
begin
  DefaultInterface.PrintOut(Background, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant; 
                                 var From: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant; 
                                 var From: OleVariant; var To_: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant; 
                                 var From: OleVariant; var To_: OleVariant; var Item: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant; 
                                 var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                                 var Copies: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant; 
                                 var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                                 var Copies: OleVariant; var Pages: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant; 
                                 var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                                 var Copies: OleVariant; var Pages: OleVariant; 
                                 var PageType: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant; 
                                 var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                                 var Copies: OleVariant; var Pages: OleVariant; 
                                 var PageType: OleVariant; var PrintToFile: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant; 
                                 var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                                 var Copies: OleVariant; var Pages: OleVariant; 
                                 var PageType: OleVariant; var PrintToFile: OleVariant; 
                                 var Collate: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant; 
                                 var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                                 var Copies: OleVariant; var Pages: OleVariant; 
                                 var PageType: OleVariant; var PrintToFile: OleVariant; 
                                 var Collate: OleVariant; var ActivePrinterMacGX: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant; 
                                 var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                                 var Copies: OleVariant; var Pages: OleVariant; 
                                 var PageType: OleVariant; var PrintToFile: OleVariant; 
                                 var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
                                 var ManualDuplexPrint: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, 
                            ManualDuplexPrint, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant; 
                                 var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                                 var Copies: OleVariant; var Pages: OleVariant; 
                                 var PageType: OleVariant; var PrintToFile: OleVariant; 
                                 var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
                                 var ManualDuplexPrint: OleVariant; var PrintZoomColumn: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, 
                            ManualDuplexPrint, PrintZoomColumn, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant; 
                                 var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                                 var Copies: OleVariant; var Pages: OleVariant; 
                                 var PageType: OleVariant; var PrintToFile: OleVariant; 
                                 var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
                                 var ManualDuplexPrint: OleVariant; 
                                 var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, 
                            ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, EmptyParam, EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant; 
                                 var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                                 var Copies: OleVariant; var Pages: OleVariant; 
                                 var PageType: OleVariant; var PrintToFile: OleVariant; 
                                 var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
                                 var ManualDuplexPrint: OleVariant; 
                                 var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                                 var PrintZoomPaperWidth: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, 
                            ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, 
                            EmptyParam);
end;

procedure TWordDocument.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                 var Range: OleVariant; var OutputFileName: OleVariant; 
                                 var From: OleVariant; var To_: OleVariant; var Item: OleVariant; 
                                 var Copies: OleVariant; var Pages: OleVariant; 
                                 var PageType: OleVariant; var PrintToFile: OleVariant; 
                                 var Collate: OleVariant; var ActivePrinterMacGX: OleVariant; 
                                 var ManualDuplexPrint: OleVariant; 
                                 var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                                 var PrintZoomPaperWidth: OleVariant; 
                                 var PrintZoomPaperHeight: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, ActivePrinterMacGX, 
                            ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, 
                            PrintZoomPaperHeight);
end;

procedure TWordDocument.Compare(const Name: WideString);
begin
  DefaultInterface.Compare(Name, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.Compare(const Name: WideString; var AuthorName: OleVariant);
begin
  DefaultInterface.Compare(Name, AuthorName, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.Compare(const Name: WideString; var AuthorName: OleVariant; 
                                var CompareTarget: OleVariant);
begin
  DefaultInterface.Compare(Name, AuthorName, CompareTarget, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.Compare(const Name: WideString; var AuthorName: OleVariant; 
                                var CompareTarget: OleVariant; var DetectFormatChanges: OleVariant);
begin
  DefaultInterface.Compare(Name, AuthorName, CompareTarget, DetectFormatChanges, EmptyParam, 
                           EmptyParam);
end;

procedure TWordDocument.Compare(const Name: WideString; var AuthorName: OleVariant; 
                                var CompareTarget: OleVariant; var DetectFormatChanges: OleVariant; 
                                var IgnoreAllComparisonWarnings: OleVariant);
begin
  DefaultInterface.Compare(Name, AuthorName, CompareTarget, DetectFormatChanges, 
                           IgnoreAllComparisonWarnings, EmptyParam);
end;

procedure TWordDocument.Compare(const Name: WideString; var AuthorName: OleVariant; 
                                var CompareTarget: OleVariant; var DetectFormatChanges: OleVariant; 
                                var IgnoreAllComparisonWarnings: OleVariant; 
                                var AddToRecentFiles: OleVariant);
begin
  DefaultInterface.Compare(Name, AuthorName, CompareTarget, DetectFormatChanges, 
                           IgnoreAllComparisonWarnings, AddToRecentFiles);
end;

procedure TWordDocument.CheckIn(SaveChanges: WordBool; var Comments: OleVariant; 
                                MakePublic: WordBool);
begin
  DefaultInterface.CheckIn(SaveChanges, Comments, MakePublic);
end;

function TWordDocument.CanCheckin: WordBool;
begin
  Result := DefaultInterface.CanCheckin;
end;

procedure TWordDocument.Merge(const FileName: WideString);
begin
  DefaultInterface.Merge(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.Merge(const FileName: WideString; var MergeTarget: OleVariant);
begin
  DefaultInterface.Merge(FileName, MergeTarget, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.Merge(const FileName: WideString; var MergeTarget: OleVariant; 
                              var DetectFormatChanges: OleVariant);
begin
  DefaultInterface.Merge(FileName, MergeTarget, DetectFormatChanges, EmptyParam, EmptyParam);
end;

procedure TWordDocument.Merge(const FileName: WideString; var MergeTarget: OleVariant; 
                              var DetectFormatChanges: OleVariant; var UseFormattingFrom: OleVariant);
begin
  DefaultInterface.Merge(FileName, MergeTarget, DetectFormatChanges, UseFormattingFrom, EmptyParam);
end;

procedure TWordDocument.Merge(const FileName: WideString; var MergeTarget: OleVariant; 
                              var DetectFormatChanges: OleVariant; 
                              var UseFormattingFrom: OleVariant; var AddToRecentFiles: OleVariant);
begin
  DefaultInterface.Merge(FileName, MergeTarget, DetectFormatChanges, UseFormattingFrom, 
                         AddToRecentFiles);
end;

procedure TWordDocument.SendForReview;
begin
  DefaultInterface.SendForReview(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SendForReview(var Recipients: OleVariant);
begin
  DefaultInterface.SendForReview(Recipients, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SendForReview(var Recipients: OleVariant; var Subject: OleVariant);
begin
  DefaultInterface.SendForReview(Recipients, Subject, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SendForReview(var Recipients: OleVariant; var Subject: OleVariant; 
                                      var ShowMessage: OleVariant);
begin
  DefaultInterface.SendForReview(Recipients, Subject, ShowMessage, EmptyParam);
end;

procedure TWordDocument.SendForReview(var Recipients: OleVariant; var Subject: OleVariant; 
                                      var ShowMessage: OleVariant; var IncludeAttachment: OleVariant);
begin
  DefaultInterface.SendForReview(Recipients, Subject, ShowMessage, IncludeAttachment);
end;

procedure TWordDocument.ReplyWithChanges;
begin
  DefaultInterface.ReplyWithChanges(EmptyParam);
end;

procedure TWordDocument.ReplyWithChanges(var ShowMessage: OleVariant);
begin
  DefaultInterface.ReplyWithChanges(ShowMessage);
end;

procedure TWordDocument.EndReview;
begin
  DefaultInterface.EndReview;
end;

procedure TWordDocument.SetPasswordEncryptionOptions(const PasswordEncryptionProvider: WideString; 
                                                     const PasswordEncryptionAlgorithm: WideString; 
                                                     PasswordEncryptionKeyLength: Integer);
begin
  DefaultInterface.SetPasswordEncryptionOptions(PasswordEncryptionProvider, 
                                                PasswordEncryptionAlgorithm, 
                                                PasswordEncryptionKeyLength, EmptyParam);
end;

procedure TWordDocument.SetPasswordEncryptionOptions(const PasswordEncryptionProvider: WideString; 
                                                     const PasswordEncryptionAlgorithm: WideString; 
                                                     PasswordEncryptionKeyLength: Integer; 
                                                     var PasswordEncryptionFileProperties: OleVariant);
begin
  DefaultInterface.SetPasswordEncryptionOptions(PasswordEncryptionProvider, 
                                                PasswordEncryptionAlgorithm, 
                                                PasswordEncryptionKeyLength, 
                                                PasswordEncryptionFileProperties);
end;

procedure TWordDocument.RecheckSmartTags;
begin
  DefaultInterface.RecheckSmartTags;
end;

procedure TWordDocument.RemoveSmartTags;
begin
  DefaultInterface.RemoveSmartTags;
end;

procedure TWordDocument.SetDefaultTableStyle(var Style: OleVariant; SetInTemplate: WordBool);
begin
  DefaultInterface.SetDefaultTableStyle(Style, SetInTemplate);
end;

procedure TWordDocument.DeleteAllComments;
begin
  DefaultInterface.DeleteAllComments;
end;

procedure TWordDocument.AcceptAllRevisionsShown;
begin
  DefaultInterface.AcceptAllRevisionsShown;
end;

procedure TWordDocument.RejectAllRevisionsShown;
begin
  DefaultInterface.RejectAllRevisionsShown;
end;

procedure TWordDocument.DeleteAllCommentsShown;
begin
  DefaultInterface.DeleteAllCommentsShown;
end;

procedure TWordDocument.ResetFormFields;
begin
  DefaultInterface.ResetFormFields;
end;

procedure TWordDocument.SaveAs;
begin
  DefaultInterface.SaveAs(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                               var LockComments: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, LockComments, EmptyParam, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                               var LockComments: OleVariant; var Password: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                               var LockComments: OleVariant; var Password: OleVariant; 
                               var AddToRecentFiles: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                               var LockComments: OleVariant; var Password: OleVariant; 
                               var AddToRecentFiles: OleVariant; var WritePassword: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                          WritePassword, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                               var LockComments: OleVariant; var Password: OleVariant; 
                               var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                               var ReadOnlyRecommended: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                          WritePassword, ReadOnlyRecommended, EmptyParam, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                               var LockComments: OleVariant; var Password: OleVariant; 
                               var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                               var ReadOnlyRecommended: OleVariant; 
                               var EmbedTrueTypeFonts: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                          WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                          EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                               var LockComments: OleVariant; var Password: OleVariant; 
                               var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                               var ReadOnlyRecommended: OleVariant; 
                               var EmbedTrueTypeFonts: OleVariant; 
                               var SaveNativePictureFormat: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                          WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 
                          SaveNativePictureFormat, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                               var LockComments: OleVariant; var Password: OleVariant; 
                               var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                               var ReadOnlyRecommended: OleVariant; 
                               var EmbedTrueTypeFonts: OleVariant; 
                               var SaveNativePictureFormat: OleVariant; 
                               var SaveFormsData: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                          WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 
                          SaveNativePictureFormat, SaveFormsData, EmptyParam, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                               var LockComments: OleVariant; var Password: OleVariant; 
                               var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                               var ReadOnlyRecommended: OleVariant; 
                               var EmbedTrueTypeFonts: OleVariant; 
                               var SaveNativePictureFormat: OleVariant; 
                               var SaveFormsData: OleVariant; var SaveAsAOCELetter: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                          WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 
                          SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter, EmptyParam, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                               var LockComments: OleVariant; var Password: OleVariant; 
                               var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                               var ReadOnlyRecommended: OleVariant; 
                               var EmbedTrueTypeFonts: OleVariant; 
                               var SaveNativePictureFormat: OleVariant; 
                               var SaveFormsData: OleVariant; var SaveAsAOCELetter: OleVariant; 
                               var Encoding: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                          WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 
                          SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter, Encoding, 
                          EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                               var LockComments: OleVariant; var Password: OleVariant; 
                               var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                               var ReadOnlyRecommended: OleVariant; 
                               var EmbedTrueTypeFonts: OleVariant; 
                               var SaveNativePictureFormat: OleVariant; 
                               var SaveFormsData: OleVariant; var SaveAsAOCELetter: OleVariant; 
                               var Encoding: OleVariant; var InsertLineBreaks: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                          WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 
                          SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter, Encoding, 
                          InsertLineBreaks, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                               var LockComments: OleVariant; var Password: OleVariant; 
                               var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                               var ReadOnlyRecommended: OleVariant; 
                               var EmbedTrueTypeFonts: OleVariant; 
                               var SaveNativePictureFormat: OleVariant; 
                               var SaveFormsData: OleVariant; var SaveAsAOCELetter: OleVariant; 
                               var Encoding: OleVariant; var InsertLineBreaks: OleVariant; 
                               var AllowSubstitutions: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                          WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 
                          SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter, Encoding, 
                          InsertLineBreaks, AllowSubstitutions, EmptyParam, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                               var LockComments: OleVariant; var Password: OleVariant; 
                               var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                               var ReadOnlyRecommended: OleVariant; 
                               var EmbedTrueTypeFonts: OleVariant; 
                               var SaveNativePictureFormat: OleVariant; 
                               var SaveFormsData: OleVariant; var SaveAsAOCELetter: OleVariant; 
                               var Encoding: OleVariant; var InsertLineBreaks: OleVariant; 
                               var AllowSubstitutions: OleVariant; var LineEnding: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                          WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 
                          SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter, Encoding, 
                          InsertLineBreaks, AllowSubstitutions, LineEnding, EmptyParam);
end;

procedure TWordDocument.SaveAs(var FileName: OleVariant; var FileFormat: OleVariant; 
                               var LockComments: OleVariant; var Password: OleVariant; 
                               var AddToRecentFiles: OleVariant; var WritePassword: OleVariant; 
                               var ReadOnlyRecommended: OleVariant; 
                               var EmbedTrueTypeFonts: OleVariant; 
                               var SaveNativePictureFormat: OleVariant; 
                               var SaveFormsData: OleVariant; var SaveAsAOCELetter: OleVariant; 
                               var Encoding: OleVariant; var InsertLineBreaks: OleVariant; 
                               var AllowSubstitutions: OleVariant; var LineEnding: OleVariant; 
                               var AddBiDiMarks: OleVariant);
begin
  DefaultInterface.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, 
                          WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, 
                          SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter, Encoding, 
                          InsertLineBreaks, AllowSubstitutions, LineEnding, AddBiDiMarks);
end;

procedure TWordDocument.CheckNewSmartTags;
begin
  DefaultInterface.CheckNewSmartTags;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TWordDocumentProperties.Create(AServer: TWordDocument);
begin
  inherited Create;
  FServer := AServer;
end;

function TWordDocumentProperties.GetDefaultInterface: _Document;
begin
  Result := FServer.DefaultInterface;
end;

function TWordDocumentProperties.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

function TWordDocumentProperties.Get_Application: WordApplication;
begin
    Result := DefaultInterface.Application;
end;

function TWordDocumentProperties.Get_Creator: Integer;
begin
    Result := DefaultInterface.Creator;
end;

function TWordDocumentProperties.Get_Parent: IDispatch;
begin
    Result := DefaultInterface.Parent;
end;

function TWordDocumentProperties.Get_BuiltInDocumentProperties: IDispatch;
begin
    Result := DefaultInterface.BuiltInDocumentProperties;
end;

function TWordDocumentProperties.Get_CustomDocumentProperties: IDispatch;
begin
    Result := DefaultInterface.CustomDocumentProperties;
end;

function TWordDocumentProperties.Get_Path: WideString;
begin
    Result := DefaultInterface.Path;
end;

function TWordDocumentProperties.Get_Bookmarks: Bookmarks;
begin
    Result := DefaultInterface.Bookmarks;
end;

function TWordDocumentProperties.Get_Tables: Tables;
begin
    Result := DefaultInterface.Tables;
end;

function TWordDocumentProperties.Get_Footnotes: Footnotes;
begin
    Result := DefaultInterface.Footnotes;
end;

function TWordDocumentProperties.Get_Endnotes: Endnotes;
begin
    Result := DefaultInterface.Endnotes;
end;

function TWordDocumentProperties.Get_Comments: Comments;
begin
    Result := DefaultInterface.Comments;
end;

function TWordDocumentProperties.Get_type_: WdDocumentType;
begin
    Result := DefaultInterface.type_;
end;

function TWordDocumentProperties.Get_AutoHyphenation: WordBool;
begin
    Result := DefaultInterface.AutoHyphenation;
end;

procedure TWordDocumentProperties.Set_AutoHyphenation(prop: WordBool);
begin
  DefaultInterface.Set_AutoHyphenation(prop);
end;

function TWordDocumentProperties.Get_HyphenateCaps: WordBool;
begin
    Result := DefaultInterface.HyphenateCaps;
end;

procedure TWordDocumentProperties.Set_HyphenateCaps(prop: WordBool);
begin
  DefaultInterface.Set_HyphenateCaps(prop);
end;

function TWordDocumentProperties.Get_HyphenationZone: Integer;
begin
    Result := DefaultInterface.HyphenationZone;
end;

procedure TWordDocumentProperties.Set_HyphenationZone(prop: Integer);
begin
  DefaultInterface.Set_HyphenationZone(prop);
end;

function TWordDocumentProperties.Get_ConsecutiveHyphensLimit: Integer;
begin
    Result := DefaultInterface.ConsecutiveHyphensLimit;
end;

procedure TWordDocumentProperties.Set_ConsecutiveHyphensLimit(prop: Integer);
begin
  DefaultInterface.Set_ConsecutiveHyphensLimit(prop);
end;

function TWordDocumentProperties.Get_Sections: Sections;
begin
    Result := DefaultInterface.Sections;
end;

function TWordDocumentProperties.Get_Paragraphs: Paragraphs;
begin
    Result := DefaultInterface.Paragraphs;
end;

function TWordDocumentProperties.Get_Words: Words;
begin
    Result := DefaultInterface.Words;
end;

function TWordDocumentProperties.Get_Sentences: Sentences;
begin
    Result := DefaultInterface.Sentences;
end;

function TWordDocumentProperties.Get_Characters: Characters;
begin
    Result := DefaultInterface.Characters;
end;

function TWordDocumentProperties.Get_Fields: Fields;
begin
    Result := DefaultInterface.Fields;
end;

function TWordDocumentProperties.Get_FormFields: FormFields;
begin
    Result := DefaultInterface.FormFields;
end;

function TWordDocumentProperties.Get_Styles: Styles;
begin
    Result := DefaultInterface.Styles;
end;

function TWordDocumentProperties.Get_Frames: Frames;
begin
    Result := DefaultInterface.Frames;
end;

function TWordDocumentProperties.Get_TablesOfFigures: TablesOfFigures;
begin
    Result := DefaultInterface.TablesOfFigures;
end;

function TWordDocumentProperties.Get_Variables: Variables;
begin
    Result := DefaultInterface.Variables;
end;

function TWordDocumentProperties.Get_MailMerge: MailMerge;
begin
    Result := DefaultInterface.MailMerge;
end;

function TWordDocumentProperties.Get_Envelope: Envelope;
begin
    Result := DefaultInterface.Envelope;
end;

function TWordDocumentProperties.Get_FullName: WideString;
begin
    Result := DefaultInterface.FullName;
end;

function TWordDocumentProperties.Get_Revisions: Revisions;
begin
    Result := DefaultInterface.Revisions;
end;

function TWordDocumentProperties.Get_TablesOfContents: TablesOfContents;
begin
    Result := DefaultInterface.TablesOfContents;
end;

function TWordDocumentProperties.Get_TablesOfAuthorities: TablesOfAuthorities;
begin
    Result := DefaultInterface.TablesOfAuthorities;
end;

function TWordDocumentProperties.Get_PageSetup: PageSetup;
begin
    Result := DefaultInterface.PageSetup;
end;

procedure TWordDocumentProperties.Set_PageSetup(const prop: PageSetup);
begin
  DefaultInterface.Set_PageSetup(prop);
end;

function TWordDocumentProperties.Get_Windows: Windows;
begin
    Result := DefaultInterface.Windows;
end;

function TWordDocumentProperties.Get_HasRoutingSlip: WordBool;
begin
    Result := DefaultInterface.HasRoutingSlip;
end;

procedure TWordDocumentProperties.Set_HasRoutingSlip(prop: WordBool);
begin
  DefaultInterface.Set_HasRoutingSlip(prop);
end;

function TWordDocumentProperties.Get_RoutingSlip: RoutingSlip;
begin
    Result := DefaultInterface.RoutingSlip;
end;

function TWordDocumentProperties.Get_Routed: WordBool;
begin
    Result := DefaultInterface.Routed;
end;

function TWordDocumentProperties.Get_TablesOfAuthoritiesCategories: TablesOfAuthoritiesCategories;
begin
    Result := DefaultInterface.TablesOfAuthoritiesCategories;
end;

function TWordDocumentProperties.Get_Indexes: Indexes;
begin
    Result := DefaultInterface.Indexes;
end;

function TWordDocumentProperties.Get_Saved: WordBool;
begin
    Result := DefaultInterface.Saved;
end;

procedure TWordDocumentProperties.Set_Saved(prop: WordBool);
begin
  DefaultInterface.Set_Saved(prop);
end;

function TWordDocumentProperties.Get_Content: Range;
begin
    Result := DefaultInterface.Content;
end;

function TWordDocumentProperties.Get_ActiveWindow: Window;
begin
    Result := DefaultInterface.ActiveWindow;
end;

function TWordDocumentProperties.Get_Kind: WdDocumentKind;
begin
    Result := DefaultInterface.Kind;
end;

procedure TWordDocumentProperties.Set_Kind(prop: WdDocumentKind);
begin
  DefaultInterface.Set_Kind(prop);
end;

function TWordDocumentProperties.Get_ReadOnly: WordBool;
begin
    Result := DefaultInterface.ReadOnly;
end;

function TWordDocumentProperties.Get_Subdocuments: Subdocuments;
begin
    Result := DefaultInterface.Subdocuments;
end;

function TWordDocumentProperties.Get_IsMasterDocument: WordBool;
begin
    Result := DefaultInterface.IsMasterDocument;
end;

function TWordDocumentProperties.Get_DefaultTabStop: Single;
begin
    Result := DefaultInterface.DefaultTabStop;
end;

procedure TWordDocumentProperties.Set_DefaultTabStop(prop: Single);
begin
  DefaultInterface.Set_DefaultTabStop(prop);
end;

function TWordDocumentProperties.Get_EmbedTrueTypeFonts: WordBool;
begin
    Result := DefaultInterface.EmbedTrueTypeFonts;
end;

procedure TWordDocumentProperties.Set_EmbedTrueTypeFonts(prop: WordBool);
begin
  DefaultInterface.Set_EmbedTrueTypeFonts(prop);
end;

function TWordDocumentProperties.Get_SaveFormsData: WordBool;
begin
    Result := DefaultInterface.SaveFormsData;
end;

procedure TWordDocumentProperties.Set_SaveFormsData(prop: WordBool);
begin
  DefaultInterface.Set_SaveFormsData(prop);
end;

function TWordDocumentProperties.Get_ReadOnlyRecommended: WordBool;
begin
    Result := DefaultInterface.ReadOnlyRecommended;
end;

procedure TWordDocumentProperties.Set_ReadOnlyRecommended(prop: WordBool);
begin
  DefaultInterface.Set_ReadOnlyRecommended(prop);
end;

function TWordDocumentProperties.Get_SaveSubsetFonts: WordBool;
begin
    Result := DefaultInterface.SaveSubsetFonts;
end;

procedure TWordDocumentProperties.Set_SaveSubsetFonts(prop: WordBool);
begin
  DefaultInterface.Set_SaveSubsetFonts(prop);
end;

function TWordDocumentProperties.Get_Compatibility(Type_: WdCompatibility): WordBool;
begin
    Result := DefaultInterface.Compatibility[Type_];
end;

procedure TWordDocumentProperties.Set_Compatibility(Type_: WdCompatibility; prop: WordBool);
begin
  DefaultInterface.Compatibility[Type_] := prop;
end;

function TWordDocumentProperties.Get_StoryRanges: StoryRanges;
begin
    Result := DefaultInterface.StoryRanges;
end;

function TWordDocumentProperties.Get_CommandBars: CommandBars;
begin
    Result := DefaultInterface.CommandBars;
end;

function TWordDocumentProperties.Get_IsSubdocument: WordBool;
begin
    Result := DefaultInterface.IsSubdocument;
end;

function TWordDocumentProperties.Get_SaveFormat: Integer;
begin
    Result := DefaultInterface.SaveFormat;
end;

function TWordDocumentProperties.Get_ProtectionType: WdProtectionType;
begin
    Result := DefaultInterface.ProtectionType;
end;

function TWordDocumentProperties.Get_Hyperlinks: Hyperlinks;
begin
    Result := DefaultInterface.Hyperlinks;
end;

function TWordDocumentProperties.Get_Shapes: Shapes;
begin
    Result := DefaultInterface.Shapes;
end;

function TWordDocumentProperties.Get_ListTemplates: ListTemplates;
begin
    Result := DefaultInterface.ListTemplates;
end;

function TWordDocumentProperties.Get_Lists: Lists;
begin
    Result := DefaultInterface.Lists;
end;

function TWordDocumentProperties.Get_UpdateStylesOnOpen: WordBool;
begin
    Result := DefaultInterface.UpdateStylesOnOpen;
end;

procedure TWordDocumentProperties.Set_UpdateStylesOnOpen(prop: WordBool);
begin
  DefaultInterface.Set_UpdateStylesOnOpen(prop);
end;

function TWordDocumentProperties.Get_AttachedTemplate: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.AttachedTemplate;
end;

procedure TWordDocumentProperties.Set_AttachedTemplate(var prop: OleVariant);
  { Warning: The property AttachedTemplate has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.AttachedTemplate := prop;
end;

function TWordDocumentProperties.Get_InlineShapes: InlineShapes;
begin
    Result := DefaultInterface.InlineShapes;
end;

function TWordDocumentProperties.Get_Background: Shape;
begin
    Result := DefaultInterface.Background;
end;

procedure TWordDocumentProperties.Set_Background(const prop: Shape);
begin
  DefaultInterface.Set_Background(prop);
end;

function TWordDocumentProperties.Get_GrammarChecked: WordBool;
begin
    Result := DefaultInterface.GrammarChecked;
end;

procedure TWordDocumentProperties.Set_GrammarChecked(prop: WordBool);
begin
  DefaultInterface.Set_GrammarChecked(prop);
end;

function TWordDocumentProperties.Get_SpellingChecked: WordBool;
begin
    Result := DefaultInterface.SpellingChecked;
end;

procedure TWordDocumentProperties.Set_SpellingChecked(prop: WordBool);
begin
  DefaultInterface.Set_SpellingChecked(prop);
end;

function TWordDocumentProperties.Get_ShowGrammaticalErrors: WordBool;
begin
    Result := DefaultInterface.ShowGrammaticalErrors;
end;

procedure TWordDocumentProperties.Set_ShowGrammaticalErrors(prop: WordBool);
begin
  DefaultInterface.Set_ShowGrammaticalErrors(prop);
end;

function TWordDocumentProperties.Get_ShowSpellingErrors: WordBool;
begin
    Result := DefaultInterface.ShowSpellingErrors;
end;

procedure TWordDocumentProperties.Set_ShowSpellingErrors(prop: WordBool);
begin
  DefaultInterface.Set_ShowSpellingErrors(prop);
end;

function TWordDocumentProperties.Get_Versions: Versions;
begin
    Result := DefaultInterface.Versions;
end;

function TWordDocumentProperties.Get_ShowSummary: WordBool;
begin
    Result := DefaultInterface.ShowSummary;
end;

procedure TWordDocumentProperties.Set_ShowSummary(prop: WordBool);
begin
  DefaultInterface.Set_ShowSummary(prop);
end;

function TWordDocumentProperties.Get_SummaryViewMode: WdSummaryMode;
begin
    Result := DefaultInterface.SummaryViewMode;
end;

procedure TWordDocumentProperties.Set_SummaryViewMode(prop: WdSummaryMode);
begin
  DefaultInterface.Set_SummaryViewMode(prop);
end;

function TWordDocumentProperties.Get_SummaryLength: Integer;
begin
    Result := DefaultInterface.SummaryLength;
end;

procedure TWordDocumentProperties.Set_SummaryLength(prop: Integer);
begin
  DefaultInterface.Set_SummaryLength(prop);
end;

function TWordDocumentProperties.Get_PrintFractionalWidths: WordBool;
begin
    Result := DefaultInterface.PrintFractionalWidths;
end;

procedure TWordDocumentProperties.Set_PrintFractionalWidths(prop: WordBool);
begin
  DefaultInterface.Set_PrintFractionalWidths(prop);
end;

function TWordDocumentProperties.Get_PrintPostScriptOverText: WordBool;
begin
    Result := DefaultInterface.PrintPostScriptOverText;
end;

procedure TWordDocumentProperties.Set_PrintPostScriptOverText(prop: WordBool);
begin
  DefaultInterface.Set_PrintPostScriptOverText(prop);
end;

function TWordDocumentProperties.Get_Container: IDispatch;
begin
    Result := DefaultInterface.Container;
end;

function TWordDocumentProperties.Get_PrintFormsData: WordBool;
begin
    Result := DefaultInterface.PrintFormsData;
end;

procedure TWordDocumentProperties.Set_PrintFormsData(prop: WordBool);
begin
  DefaultInterface.Set_PrintFormsData(prop);
end;

function TWordDocumentProperties.Get_ListParagraphs: ListParagraphs;
begin
    Result := DefaultInterface.ListParagraphs;
end;

procedure TWordDocumentProperties.Set_Password(const Param1: WideString);
  { Warning: The property Password has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Password := Param1;
end;

procedure TWordDocumentProperties.Set_WritePassword(const Param1: WideString);
  { Warning: The property WritePassword has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.WritePassword := Param1;
end;

function TWordDocumentProperties.Get_HasPassword: WordBool;
begin
    Result := DefaultInterface.HasPassword;
end;

function TWordDocumentProperties.Get_WriteReserved: WordBool;
begin
    Result := DefaultInterface.WriteReserved;
end;

function TWordDocumentProperties.Get_ActiveWritingStyle(var LanguageID: OleVariant): WideString;
begin
    Result := DefaultInterface.ActiveWritingStyle[LanguageID];
end;

procedure TWordDocumentProperties.Set_ActiveWritingStyle(var LanguageID: OleVariant; 
                                                         const prop: WideString);
  { Warning: The property ActiveWritingStyle has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ActiveWritingStyle := prop;
end;

function TWordDocumentProperties.Get_UserControl: WordBool;
begin
    Result := DefaultInterface.UserControl;
end;

procedure TWordDocumentProperties.Set_UserControl(prop: WordBool);
begin
  DefaultInterface.Set_UserControl(prop);
end;

function TWordDocumentProperties.Get_HasMailer: WordBool;
begin
    Result := DefaultInterface.HasMailer;
end;

procedure TWordDocumentProperties.Set_HasMailer(prop: WordBool);
begin
  DefaultInterface.Set_HasMailer(prop);
end;

function TWordDocumentProperties.Get_Mailer: Mailer;
begin
    Result := DefaultInterface.Mailer;
end;

function TWordDocumentProperties.Get_ReadabilityStatistics: ReadabilityStatistics;
begin
    Result := DefaultInterface.ReadabilityStatistics;
end;

function TWordDocumentProperties.Get_GrammaticalErrors: ProofreadingErrors;
begin
    Result := DefaultInterface.GrammaticalErrors;
end;

function TWordDocumentProperties.Get_SpellingErrors: ProofreadingErrors;
begin
    Result := DefaultInterface.SpellingErrors;
end;

function TWordDocumentProperties.Get_VBProject: VBProject;
begin
    Result := DefaultInterface.VBProject;
end;

function TWordDocumentProperties.Get_FormsDesign: WordBool;
begin
    Result := DefaultInterface.FormsDesign;
end;

function TWordDocumentProperties.Get__CodeName: WideString;
begin
    Result := DefaultInterface._CodeName;
end;

procedure TWordDocumentProperties.Set__CodeName(const prop: WideString);
  { Warning: The property _CodeName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant._CodeName := prop;
end;

function TWordDocumentProperties.Get_CodeName: WideString;
begin
    Result := DefaultInterface.CodeName;
end;

function TWordDocumentProperties.Get_SnapToGrid: WordBool;
begin
    Result := DefaultInterface.SnapToGrid;
end;

procedure TWordDocumentProperties.Set_SnapToGrid(prop: WordBool);
begin
  DefaultInterface.Set_SnapToGrid(prop);
end;

function TWordDocumentProperties.Get_SnapToShapes: WordBool;
begin
    Result := DefaultInterface.SnapToShapes;
end;

procedure TWordDocumentProperties.Set_SnapToShapes(prop: WordBool);
begin
  DefaultInterface.Set_SnapToShapes(prop);
end;

function TWordDocumentProperties.Get_GridDistanceHorizontal: Single;
begin
    Result := DefaultInterface.GridDistanceHorizontal;
end;

procedure TWordDocumentProperties.Set_GridDistanceHorizontal(prop: Single);
begin
  DefaultInterface.Set_GridDistanceHorizontal(prop);
end;

function TWordDocumentProperties.Get_GridDistanceVertical: Single;
begin
    Result := DefaultInterface.GridDistanceVertical;
end;

procedure TWordDocumentProperties.Set_GridDistanceVertical(prop: Single);
begin
  DefaultInterface.Set_GridDistanceVertical(prop);
end;

function TWordDocumentProperties.Get_GridOriginHorizontal: Single;
begin
    Result := DefaultInterface.GridOriginHorizontal;
end;

procedure TWordDocumentProperties.Set_GridOriginHorizontal(prop: Single);
begin
  DefaultInterface.Set_GridOriginHorizontal(prop);
end;

function TWordDocumentProperties.Get_GridOriginVertical: Single;
begin
    Result := DefaultInterface.GridOriginVertical;
end;

procedure TWordDocumentProperties.Set_GridOriginVertical(prop: Single);
begin
  DefaultInterface.Set_GridOriginVertical(prop);
end;

function TWordDocumentProperties.Get_GridSpaceBetweenHorizontalLines: Integer;
begin
    Result := DefaultInterface.GridSpaceBetweenHorizontalLines;
end;

procedure TWordDocumentProperties.Set_GridSpaceBetweenHorizontalLines(prop: Integer);
begin
  DefaultInterface.Set_GridSpaceBetweenHorizontalLines(prop);
end;

function TWordDocumentProperties.Get_GridSpaceBetweenVerticalLines: Integer;
begin
    Result := DefaultInterface.GridSpaceBetweenVerticalLines;
end;

procedure TWordDocumentProperties.Set_GridSpaceBetweenVerticalLines(prop: Integer);
begin
  DefaultInterface.Set_GridSpaceBetweenVerticalLines(prop);
end;

function TWordDocumentProperties.Get_GridOriginFromMargin: WordBool;
begin
    Result := DefaultInterface.GridOriginFromMargin;
end;

procedure TWordDocumentProperties.Set_GridOriginFromMargin(prop: WordBool);
begin
  DefaultInterface.Set_GridOriginFromMargin(prop);
end;

function TWordDocumentProperties.Get_KerningByAlgorithm: WordBool;
begin
    Result := DefaultInterface.KerningByAlgorithm;
end;

procedure TWordDocumentProperties.Set_KerningByAlgorithm(prop: WordBool);
begin
  DefaultInterface.Set_KerningByAlgorithm(prop);
end;

function TWordDocumentProperties.Get_JustificationMode: WdJustificationMode;
begin
    Result := DefaultInterface.JustificationMode;
end;

procedure TWordDocumentProperties.Set_JustificationMode(prop: WdJustificationMode);
begin
  DefaultInterface.Set_JustificationMode(prop);
end;

function TWordDocumentProperties.Get_FarEastLineBreakLevel: WdFarEastLineBreakLevel;
begin
    Result := DefaultInterface.FarEastLineBreakLevel;
end;

procedure TWordDocumentProperties.Set_FarEastLineBreakLevel(prop: WdFarEastLineBreakLevel);
begin
  DefaultInterface.Set_FarEastLineBreakLevel(prop);
end;

function TWordDocumentProperties.Get_NoLineBreakBefore: WideString;
begin
    Result := DefaultInterface.NoLineBreakBefore;
end;

procedure TWordDocumentProperties.Set_NoLineBreakBefore(const prop: WideString);
  { Warning: The property NoLineBreakBefore has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.NoLineBreakBefore := prop;
end;

function TWordDocumentProperties.Get_NoLineBreakAfter: WideString;
begin
    Result := DefaultInterface.NoLineBreakAfter;
end;

procedure TWordDocumentProperties.Set_NoLineBreakAfter(const prop: WideString);
  { Warning: The property NoLineBreakAfter has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.NoLineBreakAfter := prop;
end;

function TWordDocumentProperties.Get_TrackRevisions: WordBool;
begin
    Result := DefaultInterface.TrackRevisions;
end;

procedure TWordDocumentProperties.Set_TrackRevisions(prop: WordBool);
begin
  DefaultInterface.Set_TrackRevisions(prop);
end;

function TWordDocumentProperties.Get_PrintRevisions: WordBool;
begin
    Result := DefaultInterface.PrintRevisions;
end;

procedure TWordDocumentProperties.Set_PrintRevisions(prop: WordBool);
begin
  DefaultInterface.Set_PrintRevisions(prop);
end;

function TWordDocumentProperties.Get_ShowRevisions: WordBool;
begin
    Result := DefaultInterface.ShowRevisions;
end;

procedure TWordDocumentProperties.Set_ShowRevisions(prop: WordBool);
begin
  DefaultInterface.Set_ShowRevisions(prop);
end;

function TWordDocumentProperties.Get_ActiveTheme: WideString;
begin
    Result := DefaultInterface.ActiveTheme;
end;

function TWordDocumentProperties.Get_ActiveThemeDisplayName: WideString;
begin
    Result := DefaultInterface.ActiveThemeDisplayName;
end;

function TWordDocumentProperties.Get_Email: Email;
begin
    Result := DefaultInterface.Email;
end;

function TWordDocumentProperties.Get_Scripts: Scripts;
begin
    Result := DefaultInterface.Scripts;
end;

function TWordDocumentProperties.Get_LanguageDetected: WordBool;
begin
    Result := DefaultInterface.LanguageDetected;
end;

procedure TWordDocumentProperties.Set_LanguageDetected(prop: WordBool);
begin
  DefaultInterface.Set_LanguageDetected(prop);
end;

function TWordDocumentProperties.Get_FarEastLineBreakLanguage: WdFarEastLineBreakLanguageID;
begin
    Result := DefaultInterface.FarEastLineBreakLanguage;
end;

procedure TWordDocumentProperties.Set_FarEastLineBreakLanguage(prop: WdFarEastLineBreakLanguageID);
begin
  DefaultInterface.Set_FarEastLineBreakLanguage(prop);
end;

function TWordDocumentProperties.Get_Frameset: Frameset;
begin
    Result := DefaultInterface.Frameset;
end;

function TWordDocumentProperties.Get_ClickAndTypeParagraphStyle: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.ClickAndTypeParagraphStyle;
end;

procedure TWordDocumentProperties.Set_ClickAndTypeParagraphStyle(var prop: OleVariant);
  { Warning: The property ClickAndTypeParagraphStyle has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ClickAndTypeParagraphStyle := prop;
end;

function TWordDocumentProperties.Get_HTMLProject: HTMLProject;
begin
    Result := DefaultInterface.HTMLProject;
end;

function TWordDocumentProperties.Get_WebOptions: WebOptions;
begin
    Result := DefaultInterface.WebOptions;
end;

function TWordDocumentProperties.Get_OpenEncoding: MsoEncoding;
begin
    Result := DefaultInterface.OpenEncoding;
end;

function TWordDocumentProperties.Get_SaveEncoding: MsoEncoding;
begin
    Result := DefaultInterface.SaveEncoding;
end;

procedure TWordDocumentProperties.Set_SaveEncoding(prop: MsoEncoding);
begin
  DefaultInterface.Set_SaveEncoding(prop);
end;

function TWordDocumentProperties.Get_OptimizeForWord97: WordBool;
begin
    Result := DefaultInterface.OptimizeForWord97;
end;

procedure TWordDocumentProperties.Set_OptimizeForWord97(prop: WordBool);
begin
  DefaultInterface.Set_OptimizeForWord97(prop);
end;

function TWordDocumentProperties.Get_VBASigned: WordBool;
begin
    Result := DefaultInterface.VBASigned;
end;

function TWordDocumentProperties.Get_MailEnvelope: MsoEnvelope;
begin
    Result := DefaultInterface.MailEnvelope;
end;

function TWordDocumentProperties.Get_DisableFeatures: WordBool;
begin
    Result := DefaultInterface.DisableFeatures;
end;

procedure TWordDocumentProperties.Set_DisableFeatures(prop: WordBool);
begin
  DefaultInterface.Set_DisableFeatures(prop);
end;

function TWordDocumentProperties.Get_DoNotEmbedSystemFonts: WordBool;
begin
    Result := DefaultInterface.DoNotEmbedSystemFonts;
end;

procedure TWordDocumentProperties.Set_DoNotEmbedSystemFonts(prop: WordBool);
begin
  DefaultInterface.Set_DoNotEmbedSystemFonts(prop);
end;

function TWordDocumentProperties.Get_Signatures: SignatureSet;
begin
    Result := DefaultInterface.Signatures;
end;

function TWordDocumentProperties.Get_DefaultTargetFrame: WideString;
begin
    Result := DefaultInterface.DefaultTargetFrame;
end;

procedure TWordDocumentProperties.Set_DefaultTargetFrame(const prop: WideString);
  { Warning: The property DefaultTargetFrame has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.DefaultTargetFrame := prop;
end;

function TWordDocumentProperties.Get_HTMLDivisions: HTMLDivisions;
begin
    Result := DefaultInterface.HTMLDivisions;
end;

function TWordDocumentProperties.Get_DisableFeaturesIntroducedAfter: WdDisableFeaturesIntroducedAfter;
begin
    Result := DefaultInterface.DisableFeaturesIntroducedAfter;
end;

procedure TWordDocumentProperties.Set_DisableFeaturesIntroducedAfter(prop: WdDisableFeaturesIntroducedAfter);
begin
  DefaultInterface.Set_DisableFeaturesIntroducedAfter(prop);
end;

function TWordDocumentProperties.Get_RemovePersonalInformation: WordBool;
begin
    Result := DefaultInterface.RemovePersonalInformation;
end;

procedure TWordDocumentProperties.Set_RemovePersonalInformation(prop: WordBool);
begin
  DefaultInterface.Set_RemovePersonalInformation(prop);
end;

function TWordDocumentProperties.Get_SmartTags: SmartTags;
begin
    Result := DefaultInterface.SmartTags;
end;

function TWordDocumentProperties.Get_EmbedSmartTags: WordBool;
begin
    Result := DefaultInterface.EmbedSmartTags;
end;

procedure TWordDocumentProperties.Set_EmbedSmartTags(prop: WordBool);
begin
  DefaultInterface.Set_EmbedSmartTags(prop);
end;

function TWordDocumentProperties.Get_SmartTagsAsXMLProps: WordBool;
begin
    Result := DefaultInterface.SmartTagsAsXMLProps;
end;

procedure TWordDocumentProperties.Set_SmartTagsAsXMLProps(prop: WordBool);
begin
  DefaultInterface.Set_SmartTagsAsXMLProps(prop);
end;

function TWordDocumentProperties.Get_TextEncoding: MsoEncoding;
begin
    Result := DefaultInterface.TextEncoding;
end;

procedure TWordDocumentProperties.Set_TextEncoding(prop: MsoEncoding);
begin
  DefaultInterface.Set_TextEncoding(prop);
end;

function TWordDocumentProperties.Get_TextLineEnding: WdLineEndingType;
begin
    Result := DefaultInterface.TextLineEnding;
end;

procedure TWordDocumentProperties.Set_TextLineEnding(prop: WdLineEndingType);
begin
  DefaultInterface.Set_TextLineEnding(prop);
end;

function TWordDocumentProperties.Get_StyleSheets: StyleSheets;
begin
    Result := DefaultInterface.StyleSheets;
end;

function TWordDocumentProperties.Get_DefaultTableStyle: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.DefaultTableStyle;
end;

function TWordDocumentProperties.Get_PasswordEncryptionProvider: WideString;
begin
    Result := DefaultInterface.PasswordEncryptionProvider;
end;

function TWordDocumentProperties.Get_PasswordEncryptionAlgorithm: WideString;
begin
    Result := DefaultInterface.PasswordEncryptionAlgorithm;
end;

function TWordDocumentProperties.Get_PasswordEncryptionKeyLength: Integer;
begin
    Result := DefaultInterface.PasswordEncryptionKeyLength;
end;

function TWordDocumentProperties.Get_PasswordEncryptionFileProperties: WordBool;
begin
    Result := DefaultInterface.PasswordEncryptionFileProperties;
end;

function TWordDocumentProperties.Get_EmbedLinguisticData: WordBool;
begin
    Result := DefaultInterface.EmbedLinguisticData;
end;

procedure TWordDocumentProperties.Set_EmbedLinguisticData(prop: WordBool);
begin
  DefaultInterface.Set_EmbedLinguisticData(prop);
end;

function TWordDocumentProperties.Get_FormattingShowFont: WordBool;
begin
    Result := DefaultInterface.FormattingShowFont;
end;

procedure TWordDocumentProperties.Set_FormattingShowFont(prop: WordBool);
begin
  DefaultInterface.Set_FormattingShowFont(prop);
end;

function TWordDocumentProperties.Get_FormattingShowClear: WordBool;
begin
    Result := DefaultInterface.FormattingShowClear;
end;

procedure TWordDocumentProperties.Set_FormattingShowClear(prop: WordBool);
begin
  DefaultInterface.Set_FormattingShowClear(prop);
end;

function TWordDocumentProperties.Get_FormattingShowParagraph: WordBool;
begin
    Result := DefaultInterface.FormattingShowParagraph;
end;

procedure TWordDocumentProperties.Set_FormattingShowParagraph(prop: WordBool);
begin
  DefaultInterface.Set_FormattingShowParagraph(prop);
end;

function TWordDocumentProperties.Get_FormattingShowNumbering: WordBool;
begin
    Result := DefaultInterface.FormattingShowNumbering;
end;

procedure TWordDocumentProperties.Set_FormattingShowNumbering(prop: WordBool);
begin
  DefaultInterface.Set_FormattingShowNumbering(prop);
end;

function TWordDocumentProperties.Get_FormattingShowFilter: WdShowFilter;
begin
    Result := DefaultInterface.FormattingShowFilter;
end;

procedure TWordDocumentProperties.Set_FormattingShowFilter(prop: WdShowFilter);
begin
  DefaultInterface.Set_FormattingShowFilter(prop);
end;

{$ENDIF}

class function CoWordFont.Create: _Font;
begin
  Result := CreateComObject(CLASS_WordFont) as _Font;
end;

class function CoWordFont.CreateRemote(const MachineName: string): _Font;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_WordFont) as _Font;
end;

procedure TWordFont.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{000209F5-0000-0000-C000-000000000046}';
    IntfIID:   '{00020952-0000-0000-C000-000000000046}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TWordFont.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as _Font;
  end;
end;

procedure TWordFont.ConnectTo(svrIntf: _Font);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TWordFont.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TWordFont.GetDefaultInterface: _Font;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TWordFont.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TWordFontProperties.Create(Self);
{$ENDIF}
end;

destructor TWordFont.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TWordFont.GetServerProperties: TWordFontProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TWordFont.Get_Application: WordApplication;
begin
    Result := DefaultInterface.Application;
end;

function TWordFont.Get_Creator: Integer;
begin
    Result := DefaultInterface.Creator;
end;

function TWordFont.Get_Parent: IDispatch;
begin
    Result := DefaultInterface.Parent;
end;

function TWordFont.Get_Duplicate: WordFont;
begin
    Result := DefaultInterface.Duplicate;
end;

function TWordFont.Get_Bold: Integer;
begin
    Result := DefaultInterface.Bold;
end;

procedure TWordFont.Set_Bold(prop: Integer);
begin
  DefaultInterface.Set_Bold(prop);
end;

function TWordFont.Get_Italic: Integer;
begin
    Result := DefaultInterface.Italic;
end;

procedure TWordFont.Set_Italic(prop: Integer);
begin
  DefaultInterface.Set_Italic(prop);
end;

function TWordFont.Get_Hidden: Integer;
begin
    Result := DefaultInterface.Hidden;
end;

procedure TWordFont.Set_Hidden(prop: Integer);
begin
  DefaultInterface.Set_Hidden(prop);
end;

function TWordFont.Get_SmallCaps: Integer;
begin
    Result := DefaultInterface.SmallCaps;
end;

procedure TWordFont.Set_SmallCaps(prop: Integer);
begin
  DefaultInterface.Set_SmallCaps(prop);
end;

function TWordFont.Get_AllCaps: Integer;
begin
    Result := DefaultInterface.AllCaps;
end;

procedure TWordFont.Set_AllCaps(prop: Integer);
begin
  DefaultInterface.Set_AllCaps(prop);
end;

function TWordFont.Get_StrikeThrough: Integer;
begin
    Result := DefaultInterface.StrikeThrough;
end;

procedure TWordFont.Set_StrikeThrough(prop: Integer);
begin
  DefaultInterface.Set_StrikeThrough(prop);
end;

function TWordFont.Get_DoubleStrikeThrough: Integer;
begin
    Result := DefaultInterface.DoubleStrikeThrough;
end;

procedure TWordFont.Set_DoubleStrikeThrough(prop: Integer);
begin
  DefaultInterface.Set_DoubleStrikeThrough(prop);
end;

function TWordFont.Get_ColorIndex: WdColorIndex;
begin
    Result := DefaultInterface.ColorIndex;
end;

procedure TWordFont.Set_ColorIndex(prop: WdColorIndex);
begin
  DefaultInterface.Set_ColorIndex(prop);
end;

function TWordFont.Get_Subscript: Integer;
begin
    Result := DefaultInterface.Subscript;
end;

procedure TWordFont.Set_Subscript(prop: Integer);
begin
  DefaultInterface.Set_Subscript(prop);
end;

function TWordFont.Get_Superscript: Integer;
begin
    Result := DefaultInterface.Superscript;
end;

procedure TWordFont.Set_Superscript(prop: Integer);
begin
  DefaultInterface.Set_Superscript(prop);
end;

function TWordFont.Get_Underline: WdUnderline;
begin
    Result := DefaultInterface.Underline;
end;

procedure TWordFont.Set_Underline(prop: WdUnderline);
begin
  DefaultInterface.Set_Underline(prop);
end;

function TWordFont.Get_Size: Single;
begin
    Result := DefaultInterface.Size;
end;

procedure TWordFont.Set_Size(prop: Single);
begin
  DefaultInterface.Set_Size(prop);
end;

function TWordFont.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

procedure TWordFont.Set_Name(const prop: WideString);
  { Warning: The property Name has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Name := prop;
end;

function TWordFont.Get_Position: Integer;
begin
    Result := DefaultInterface.Position;
end;

procedure TWordFont.Set_Position(prop: Integer);
begin
  DefaultInterface.Set_Position(prop);
end;

function TWordFont.Get_Spacing: Single;
begin
    Result := DefaultInterface.Spacing;
end;

procedure TWordFont.Set_Spacing(prop: Single);
begin
  DefaultInterface.Set_Spacing(prop);
end;

function TWordFont.Get_Scaling: Integer;
begin
    Result := DefaultInterface.Scaling;
end;

procedure TWordFont.Set_Scaling(prop: Integer);
begin
  DefaultInterface.Set_Scaling(prop);
end;

function TWordFont.Get_Shadow: Integer;
begin
    Result := DefaultInterface.Shadow;
end;

procedure TWordFont.Set_Shadow(prop: Integer);
begin
  DefaultInterface.Set_Shadow(prop);
end;

function TWordFont.Get_Outline: Integer;
begin
    Result := DefaultInterface.Outline;
end;

procedure TWordFont.Set_Outline(prop: Integer);
begin
  DefaultInterface.Set_Outline(prop);
end;

function TWordFont.Get_Emboss: Integer;
begin
    Result := DefaultInterface.Emboss;
end;

procedure TWordFont.Set_Emboss(prop: Integer);
begin
  DefaultInterface.Set_Emboss(prop);
end;

function TWordFont.Get_Kerning: Single;
begin
    Result := DefaultInterface.Kerning;
end;

procedure TWordFont.Set_Kerning(prop: Single);
begin
  DefaultInterface.Set_Kerning(prop);
end;

function TWordFont.Get_Engrave: Integer;
begin
    Result := DefaultInterface.Engrave;
end;

procedure TWordFont.Set_Engrave(prop: Integer);
begin
  DefaultInterface.Set_Engrave(prop);
end;

function TWordFont.Get_Animation: WdAnimation;
begin
    Result := DefaultInterface.Animation;
end;

procedure TWordFont.Set_Animation(prop: WdAnimation);
begin
  DefaultInterface.Set_Animation(prop);
end;

function TWordFont.Get_Borders: Borders;
begin
    Result := DefaultInterface.Borders;
end;

procedure TWordFont.Set_Borders(const prop: Borders);
begin
  DefaultInterface.Set_Borders(prop);
end;

function TWordFont.Get_Shading: Shading;
begin
    Result := DefaultInterface.Shading;
end;

function TWordFont.Get_EmphasisMark: WdEmphasisMark;
begin
    Result := DefaultInterface.EmphasisMark;
end;

procedure TWordFont.Set_EmphasisMark(prop: WdEmphasisMark);
begin
  DefaultInterface.Set_EmphasisMark(prop);
end;

function TWordFont.Get_DisableCharacterSpaceGrid: WordBool;
begin
    Result := DefaultInterface.DisableCharacterSpaceGrid;
end;

procedure TWordFont.Set_DisableCharacterSpaceGrid(prop: WordBool);
begin
  DefaultInterface.Set_DisableCharacterSpaceGrid(prop);
end;

function TWordFont.Get_NameFarEast: WideString;
begin
    Result := DefaultInterface.NameFarEast;
end;

procedure TWordFont.Set_NameFarEast(const prop: WideString);
  { Warning: The property NameFarEast has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.NameFarEast := prop;
end;

function TWordFont.Get_NameAscii: WideString;
begin
    Result := DefaultInterface.NameAscii;
end;

procedure TWordFont.Set_NameAscii(const prop: WideString);
  { Warning: The property NameAscii has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.NameAscii := prop;
end;

function TWordFont.Get_NameOther: WideString;
begin
    Result := DefaultInterface.NameOther;
end;

procedure TWordFont.Set_NameOther(const prop: WideString);
  { Warning: The property NameOther has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.NameOther := prop;
end;

function TWordFont.Get_Color: WdColor;
begin
    Result := DefaultInterface.Color;
end;

procedure TWordFont.Set_Color(prop: WdColor);
begin
  DefaultInterface.Set_Color(prop);
end;

function TWordFont.Get_BoldBi: Integer;
begin
    Result := DefaultInterface.BoldBi;
end;

procedure TWordFont.Set_BoldBi(prop: Integer);
begin
  DefaultInterface.Set_BoldBi(prop);
end;

function TWordFont.Get_ItalicBi: Integer;
begin
    Result := DefaultInterface.ItalicBi;
end;

procedure TWordFont.Set_ItalicBi(prop: Integer);
begin
  DefaultInterface.Set_ItalicBi(prop);
end;

function TWordFont.Get_SizeBi: Single;
begin
    Result := DefaultInterface.SizeBi;
end;

procedure TWordFont.Set_SizeBi(prop: Single);
begin
  DefaultInterface.Set_SizeBi(prop);
end;

function TWordFont.Get_NameBi: WideString;
begin
    Result := DefaultInterface.NameBi;
end;

procedure TWordFont.Set_NameBi(const prop: WideString);
  { Warning: The property NameBi has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.NameBi := prop;
end;

function TWordFont.Get_ColorIndexBi: WdColorIndex;
begin
    Result := DefaultInterface.ColorIndexBi;
end;

procedure TWordFont.Set_ColorIndexBi(prop: WdColorIndex);
begin
  DefaultInterface.Set_ColorIndexBi(prop);
end;

function TWordFont.Get_DiacriticColor: WdColor;
begin
    Result := DefaultInterface.DiacriticColor;
end;

procedure TWordFont.Set_DiacriticColor(prop: WdColor);
begin
  DefaultInterface.Set_DiacriticColor(prop);
end;

function TWordFont.Get_UnderlineColor: WdColor;
begin
    Result := DefaultInterface.UnderlineColor;
end;

procedure TWordFont.Set_UnderlineColor(prop: WdColor);
begin
  DefaultInterface.Set_UnderlineColor(prop);
end;

procedure TWordFont.Grow;
begin
  DefaultInterface.Grow;
end;

procedure TWordFont.Shrink;
begin
  DefaultInterface.Shrink;
end;

procedure TWordFont.Reset;
begin
  DefaultInterface.Reset;
end;

procedure TWordFont.SetAsTemplateDefault;
begin
  DefaultInterface.SetAsTemplateDefault;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TWordFontProperties.Create(AServer: TWordFont);
begin
  inherited Create;
  FServer := AServer;
end;

function TWordFontProperties.GetDefaultInterface: _Font;
begin
  Result := FServer.DefaultInterface;
end;

function TWordFontProperties.Get_Application: WordApplication;
begin
    Result := DefaultInterface.Application;
end;

function TWordFontProperties.Get_Creator: Integer;
begin
    Result := DefaultInterface.Creator;
end;

function TWordFontProperties.Get_Parent: IDispatch;
begin
    Result := DefaultInterface.Parent;
end;

function TWordFontProperties.Get_Duplicate: WordFont;
begin
    Result := DefaultInterface.Duplicate;
end;

function TWordFontProperties.Get_Bold: Integer;
begin
    Result := DefaultInterface.Bold;
end;

procedure TWordFontProperties.Set_Bold(prop: Integer);
begin
  DefaultInterface.Set_Bold(prop);
end;

function TWordFontProperties.Get_Italic: Integer;
begin
    Result := DefaultInterface.Italic;
end;

procedure TWordFontProperties.Set_Italic(prop: Integer);
begin
  DefaultInterface.Set_Italic(prop);
end;

function TWordFontProperties.Get_Hidden: Integer;
begin
    Result := DefaultInterface.Hidden;
end;

procedure TWordFontProperties.Set_Hidden(prop: Integer);
begin
  DefaultInterface.Set_Hidden(prop);
end;

function TWordFontProperties.Get_SmallCaps: Integer;
begin
    Result := DefaultInterface.SmallCaps;
end;

procedure TWordFontProperties.Set_SmallCaps(prop: Integer);
begin
  DefaultInterface.Set_SmallCaps(prop);
end;

function TWordFontProperties.Get_AllCaps: Integer;
begin
    Result := DefaultInterface.AllCaps;
end;

procedure TWordFontProperties.Set_AllCaps(prop: Integer);
begin
  DefaultInterface.Set_AllCaps(prop);
end;

function TWordFontProperties.Get_StrikeThrough: Integer;
begin
    Result := DefaultInterface.StrikeThrough;
end;

procedure TWordFontProperties.Set_StrikeThrough(prop: Integer);
begin
  DefaultInterface.Set_StrikeThrough(prop);
end;

function TWordFontProperties.Get_DoubleStrikeThrough: Integer;
begin
    Result := DefaultInterface.DoubleStrikeThrough;
end;

procedure TWordFontProperties.Set_DoubleStrikeThrough(prop: Integer);
begin
  DefaultInterface.Set_DoubleStrikeThrough(prop);
end;

function TWordFontProperties.Get_ColorIndex: WdColorIndex;
begin
    Result := DefaultInterface.ColorIndex;
end;

procedure TWordFontProperties.Set_ColorIndex(prop: WdColorIndex);
begin
  DefaultInterface.Set_ColorIndex(prop);
end;

function TWordFontProperties.Get_Subscript: Integer;
begin
    Result := DefaultInterface.Subscript;
end;

procedure TWordFontProperties.Set_Subscript(prop: Integer);
begin
  DefaultInterface.Set_Subscript(prop);
end;

function TWordFontProperties.Get_Superscript: Integer;
begin
    Result := DefaultInterface.Superscript;
end;

procedure TWordFontProperties.Set_Superscript(prop: Integer);
begin
  DefaultInterface.Set_Superscript(prop);
end;

function TWordFontProperties.Get_Underline: WdUnderline;
begin
    Result := DefaultInterface.Underline;
end;

procedure TWordFontProperties.Set_Underline(prop: WdUnderline);
begin
  DefaultInterface.Set_Underline(prop);
end;

function TWordFontProperties.Get_Size: Single;
begin
    Result := DefaultInterface.Size;
end;

procedure TWordFontProperties.Set_Size(prop: Single);
begin
  DefaultInterface.Set_Size(prop);
end;

function TWordFontProperties.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

procedure TWordFontProperties.Set_Name(const prop: WideString);
  { Warning: The property Name has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Name := prop;
end;

function TWordFontProperties.Get_Position: Integer;
begin
    Result := DefaultInterface.Position;
end;

procedure TWordFontProperties.Set_Position(prop: Integer);
begin
  DefaultInterface.Set_Position(prop);
end;

function TWordFontProperties.Get_Spacing: Single;
begin
    Result := DefaultInterface.Spacing;
end;

procedure TWordFontProperties.Set_Spacing(prop: Single);
begin
  DefaultInterface.Set_Spacing(prop);
end;

function TWordFontProperties.Get_Scaling: Integer;
begin
    Result := DefaultInterface.Scaling;
end;

procedure TWordFontProperties.Set_Scaling(prop: Integer);
begin
  DefaultInterface.Set_Scaling(prop);
end;

function TWordFontProperties.Get_Shadow: Integer;
begin
    Result := DefaultInterface.Shadow;
end;

procedure TWordFontProperties.Set_Shadow(prop: Integer);
begin
  DefaultInterface.Set_Shadow(prop);
end;

function TWordFontProperties.Get_Outline: Integer;
begin
    Result := DefaultInterface.Outline;
end;

procedure TWordFontProperties.Set_Outline(prop: Integer);
begin
  DefaultInterface.Set_Outline(prop);
end;

function TWordFontProperties.Get_Emboss: Integer;
begin
    Result := DefaultInterface.Emboss;
end;

procedure TWordFontProperties.Set_Emboss(prop: Integer);
begin
  DefaultInterface.Set_Emboss(prop);
end;

function TWordFontProperties.Get_Kerning: Single;
begin
    Result := DefaultInterface.Kerning;
end;

procedure TWordFontProperties.Set_Kerning(prop: Single);
begin
  DefaultInterface.Set_Kerning(prop);
end;

function TWordFontProperties.Get_Engrave: Integer;
begin
    Result := DefaultInterface.Engrave;
end;

procedure TWordFontProperties.Set_Engrave(prop: Integer);
begin
  DefaultInterface.Set_Engrave(prop);
end;

function TWordFontProperties.Get_Animation: WdAnimation;
begin
    Result := DefaultInterface.Animation;
end;

procedure TWordFontProperties.Set_Animation(prop: WdAnimation);
begin
  DefaultInterface.Set_Animation(prop);
end;

function TWordFontProperties.Get_Borders: Borders;
begin
    Result := DefaultInterface.Borders;
end;

procedure TWordFontProperties.Set_Borders(const prop: Borders);
begin
  DefaultInterface.Set_Borders(prop);
end;

function TWordFontProperties.Get_Shading: Shading;
begin
    Result := DefaultInterface.Shading;
end;

function TWordFontProperties.Get_EmphasisMark: WdEmphasisMark;
begin
    Result := DefaultInterface.EmphasisMark;
end;

procedure TWordFontProperties.Set_EmphasisMark(prop: WdEmphasisMark);
begin
  DefaultInterface.Set_EmphasisMark(prop);
end;

function TWordFontProperties.Get_DisableCharacterSpaceGrid: WordBool;
begin
    Result := DefaultInterface.DisableCharacterSpaceGrid;
end;

procedure TWordFontProperties.Set_DisableCharacterSpaceGrid(prop: WordBool);
begin
  DefaultInterface.Set_DisableCharacterSpaceGrid(prop);
end;

function TWordFontProperties.Get_NameFarEast: WideString;
begin
    Result := DefaultInterface.NameFarEast;
end;

procedure TWordFontProperties.Set_NameFarEast(const prop: WideString);
  { Warning: The property NameFarEast has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.NameFarEast := prop;
end;

function TWordFontProperties.Get_NameAscii: WideString;
begin
    Result := DefaultInterface.NameAscii;
end;

procedure TWordFontProperties.Set_NameAscii(const prop: WideString);
  { Warning: The property NameAscii has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.NameAscii := prop;
end;

function TWordFontProperties.Get_NameOther: WideString;
begin
    Result := DefaultInterface.NameOther;
end;

procedure TWordFontProperties.Set_NameOther(const prop: WideString);
  { Warning: The property NameOther has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.NameOther := prop;
end;

function TWordFontProperties.Get_Color: WdColor;
begin
    Result := DefaultInterface.Color;
end;

procedure TWordFontProperties.Set_Color(prop: WdColor);
begin
  DefaultInterface.Set_Color(prop);
end;

function TWordFontProperties.Get_BoldBi: Integer;
begin
    Result := DefaultInterface.BoldBi;
end;

procedure TWordFontProperties.Set_BoldBi(prop: Integer);
begin
  DefaultInterface.Set_BoldBi(prop);
end;

function TWordFontProperties.Get_ItalicBi: Integer;
begin
    Result := DefaultInterface.ItalicBi;
end;

procedure TWordFontProperties.Set_ItalicBi(prop: Integer);
begin
  DefaultInterface.Set_ItalicBi(prop);
end;

function TWordFontProperties.Get_SizeBi: Single;
begin
    Result := DefaultInterface.SizeBi;
end;

procedure TWordFontProperties.Set_SizeBi(prop: Single);
begin
  DefaultInterface.Set_SizeBi(prop);
end;

function TWordFontProperties.Get_NameBi: WideString;
begin
    Result := DefaultInterface.NameBi;
end;

procedure TWordFontProperties.Set_NameBi(const prop: WideString);
  { Warning: The property NameBi has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.NameBi := prop;
end;

function TWordFontProperties.Get_ColorIndexBi: WdColorIndex;
begin
    Result := DefaultInterface.ColorIndexBi;
end;

procedure TWordFontProperties.Set_ColorIndexBi(prop: WdColorIndex);
begin
  DefaultInterface.Set_ColorIndexBi(prop);
end;

function TWordFontProperties.Get_DiacriticColor: WdColor;
begin
    Result := DefaultInterface.DiacriticColor;
end;

procedure TWordFontProperties.Set_DiacriticColor(prop: WdColor);
begin
  DefaultInterface.Set_DiacriticColor(prop);
end;

function TWordFontProperties.Get_UnderlineColor: WdColor;
begin
    Result := DefaultInterface.UnderlineColor;
end;

procedure TWordFontProperties.Set_UnderlineColor(prop: WdColor);
begin
  DefaultInterface.Set_UnderlineColor(prop);
end;

{$ENDIF}

class function CoWordParagraphFormat.Create: _ParagraphFormat;
begin
  Result := CreateComObject(CLASS_WordParagraphFormat) as _ParagraphFormat;
end;

class function CoWordParagraphFormat.CreateRemote(const MachineName: string): _ParagraphFormat;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_WordParagraphFormat) as _ParagraphFormat;
end;

procedure TWordParagraphFormat.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{000209F4-0000-0000-C000-000000000046}';
    IntfIID:   '{00020953-0000-0000-C000-000000000046}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TWordParagraphFormat.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as _ParagraphFormat;
  end;
end;

procedure TWordParagraphFormat.ConnectTo(svrIntf: _ParagraphFormat);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TWordParagraphFormat.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TWordParagraphFormat.GetDefaultInterface: _ParagraphFormat;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TWordParagraphFormat.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TWordParagraphFormatProperties.Create(Self);
{$ENDIF}
end;

destructor TWordParagraphFormat.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TWordParagraphFormat.GetServerProperties: TWordParagraphFormatProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TWordParagraphFormat.Get_Application: WordApplication;
begin
    Result := DefaultInterface.Application;
end;

function TWordParagraphFormat.Get_Creator: Integer;
begin
    Result := DefaultInterface.Creator;
end;

function TWordParagraphFormat.Get_Parent: IDispatch;
begin
    Result := DefaultInterface.Parent;
end;

function TWordParagraphFormat.Get_Duplicate: WordParagraphFormat;
begin
    Result := DefaultInterface.Duplicate;
end;

function TWordParagraphFormat.Get_Style: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.Style;
end;

procedure TWordParagraphFormat.Set_Style(var prop: OleVariant);
  { Warning: The property Style has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Style := prop;
end;

function TWordParagraphFormat.Get_Alignment: WdParagraphAlignment;
begin
    Result := DefaultInterface.Alignment;
end;

procedure TWordParagraphFormat.Set_Alignment(prop: WdParagraphAlignment);
begin
  DefaultInterface.Set_Alignment(prop);
end;

function TWordParagraphFormat.Get_KeepTogether: Integer;
begin
    Result := DefaultInterface.KeepTogether;
end;

procedure TWordParagraphFormat.Set_KeepTogether(prop: Integer);
begin
  DefaultInterface.Set_KeepTogether(prop);
end;

function TWordParagraphFormat.Get_KeepWithNext: Integer;
begin
    Result := DefaultInterface.KeepWithNext;
end;

procedure TWordParagraphFormat.Set_KeepWithNext(prop: Integer);
begin
  DefaultInterface.Set_KeepWithNext(prop);
end;

function TWordParagraphFormat.Get_PageBreakBefore: Integer;
begin
    Result := DefaultInterface.PageBreakBefore;
end;

procedure TWordParagraphFormat.Set_PageBreakBefore(prop: Integer);
begin
  DefaultInterface.Set_PageBreakBefore(prop);
end;

function TWordParagraphFormat.Get_NoLineNumber: Integer;
begin
    Result := DefaultInterface.NoLineNumber;
end;

procedure TWordParagraphFormat.Set_NoLineNumber(prop: Integer);
begin
  DefaultInterface.Set_NoLineNumber(prop);
end;

function TWordParagraphFormat.Get_RightIndent: Single;
begin
    Result := DefaultInterface.RightIndent;
end;

procedure TWordParagraphFormat.Set_RightIndent(prop: Single);
begin
  DefaultInterface.Set_RightIndent(prop);
end;

function TWordParagraphFormat.Get_LeftIndent: Single;
begin
    Result := DefaultInterface.LeftIndent;
end;

procedure TWordParagraphFormat.Set_LeftIndent(prop: Single);
begin
  DefaultInterface.Set_LeftIndent(prop);
end;

function TWordParagraphFormat.Get_FirstLineIndent: Single;
begin
    Result := DefaultInterface.FirstLineIndent;
end;

procedure TWordParagraphFormat.Set_FirstLineIndent(prop: Single);
begin
  DefaultInterface.Set_FirstLineIndent(prop);
end;

function TWordParagraphFormat.Get_LineSpacing: Single;
begin
    Result := DefaultInterface.LineSpacing;
end;

procedure TWordParagraphFormat.Set_LineSpacing(prop: Single);
begin
  DefaultInterface.Set_LineSpacing(prop);
end;

function TWordParagraphFormat.Get_LineSpacingRule: WdLineSpacing;
begin
    Result := DefaultInterface.LineSpacingRule;
end;

procedure TWordParagraphFormat.Set_LineSpacingRule(prop: WdLineSpacing);
begin
  DefaultInterface.Set_LineSpacingRule(prop);
end;

function TWordParagraphFormat.Get_SpaceBefore: Single;
begin
    Result := DefaultInterface.SpaceBefore;
end;

procedure TWordParagraphFormat.Set_SpaceBefore(prop: Single);
begin
  DefaultInterface.Set_SpaceBefore(prop);
end;

function TWordParagraphFormat.Get_SpaceAfter: Single;
begin
    Result := DefaultInterface.SpaceAfter;
end;

procedure TWordParagraphFormat.Set_SpaceAfter(prop: Single);
begin
  DefaultInterface.Set_SpaceAfter(prop);
end;

function TWordParagraphFormat.Get_Hyphenation: Integer;
begin
    Result := DefaultInterface.Hyphenation;
end;

procedure TWordParagraphFormat.Set_Hyphenation(prop: Integer);
begin
  DefaultInterface.Set_Hyphenation(prop);
end;

function TWordParagraphFormat.Get_WidowControl: Integer;
begin
    Result := DefaultInterface.WidowControl;
end;

procedure TWordParagraphFormat.Set_WidowControl(prop: Integer);
begin
  DefaultInterface.Set_WidowControl(prop);
end;

function TWordParagraphFormat.Get_FarEastLineBreakControl: Integer;
begin
    Result := DefaultInterface.FarEastLineBreakControl;
end;

procedure TWordParagraphFormat.Set_FarEastLineBreakControl(prop: Integer);
begin
  DefaultInterface.Set_FarEastLineBreakControl(prop);
end;

function TWordParagraphFormat.Get_WordWrap: Integer;
begin
    Result := DefaultInterface.WordWrap;
end;

procedure TWordParagraphFormat.Set_WordWrap(prop: Integer);
begin
  DefaultInterface.Set_WordWrap(prop);
end;

function TWordParagraphFormat.Get_HangingPunctuation: Integer;
begin
    Result := DefaultInterface.HangingPunctuation;
end;

procedure TWordParagraphFormat.Set_HangingPunctuation(prop: Integer);
begin
  DefaultInterface.Set_HangingPunctuation(prop);
end;

function TWordParagraphFormat.Get_HalfWidthPunctuationOnTopOfLine: Integer;
begin
    Result := DefaultInterface.HalfWidthPunctuationOnTopOfLine;
end;

procedure TWordParagraphFormat.Set_HalfWidthPunctuationOnTopOfLine(prop: Integer);
begin
  DefaultInterface.Set_HalfWidthPunctuationOnTopOfLine(prop);
end;

function TWordParagraphFormat.Get_AddSpaceBetweenFarEastAndAlpha: Integer;
begin
    Result := DefaultInterface.AddSpaceBetweenFarEastAndAlpha;
end;

procedure TWordParagraphFormat.Set_AddSpaceBetweenFarEastAndAlpha(prop: Integer);
begin
  DefaultInterface.Set_AddSpaceBetweenFarEastAndAlpha(prop);
end;

function TWordParagraphFormat.Get_AddSpaceBetweenFarEastAndDigit: Integer;
begin
    Result := DefaultInterface.AddSpaceBetweenFarEastAndDigit;
end;

procedure TWordParagraphFormat.Set_AddSpaceBetweenFarEastAndDigit(prop: Integer);
begin
  DefaultInterface.Set_AddSpaceBetweenFarEastAndDigit(prop);
end;

function TWordParagraphFormat.Get_BaseLineAlignment: WdBaselineAlignment;
begin
    Result := DefaultInterface.BaseLineAlignment;
end;

procedure TWordParagraphFormat.Set_BaseLineAlignment(prop: WdBaselineAlignment);
begin
  DefaultInterface.Set_BaseLineAlignment(prop);
end;

function TWordParagraphFormat.Get_AutoAdjustRightIndent: Integer;
begin
    Result := DefaultInterface.AutoAdjustRightIndent;
end;

procedure TWordParagraphFormat.Set_AutoAdjustRightIndent(prop: Integer);
begin
  DefaultInterface.Set_AutoAdjustRightIndent(prop);
end;

function TWordParagraphFormat.Get_DisableLineHeightGrid: Integer;
begin
    Result := DefaultInterface.DisableLineHeightGrid;
end;

procedure TWordParagraphFormat.Set_DisableLineHeightGrid(prop: Integer);
begin
  DefaultInterface.Set_DisableLineHeightGrid(prop);
end;

function TWordParagraphFormat.Get_TabStops: TabStops;
begin
    Result := DefaultInterface.TabStops;
end;

procedure TWordParagraphFormat.Set_TabStops(const prop: TabStops);
begin
  DefaultInterface.Set_TabStops(prop);
end;

function TWordParagraphFormat.Get_Borders: Borders;
begin
    Result := DefaultInterface.Borders;
end;

procedure TWordParagraphFormat.Set_Borders(const prop: Borders);
begin
  DefaultInterface.Set_Borders(prop);
end;

function TWordParagraphFormat.Get_Shading: Shading;
begin
    Result := DefaultInterface.Shading;
end;

function TWordParagraphFormat.Get_OutlineLevel: WdOutlineLevel;
begin
    Result := DefaultInterface.OutlineLevel;
end;

procedure TWordParagraphFormat.Set_OutlineLevel(prop: WdOutlineLevel);
begin
  DefaultInterface.Set_OutlineLevel(prop);
end;

function TWordParagraphFormat.Get_CharacterUnitRightIndent: Single;
begin
    Result := DefaultInterface.CharacterUnitRightIndent;
end;

procedure TWordParagraphFormat.Set_CharacterUnitRightIndent(prop: Single);
begin
  DefaultInterface.Set_CharacterUnitRightIndent(prop);
end;

function TWordParagraphFormat.Get_CharacterUnitLeftIndent: Single;
begin
    Result := DefaultInterface.CharacterUnitLeftIndent;
end;

procedure TWordParagraphFormat.Set_CharacterUnitLeftIndent(prop: Single);
begin
  DefaultInterface.Set_CharacterUnitLeftIndent(prop);
end;

function TWordParagraphFormat.Get_CharacterUnitFirstLineIndent: Single;
begin
    Result := DefaultInterface.CharacterUnitFirstLineIndent;
end;

procedure TWordParagraphFormat.Set_CharacterUnitFirstLineIndent(prop: Single);
begin
  DefaultInterface.Set_CharacterUnitFirstLineIndent(prop);
end;

function TWordParagraphFormat.Get_LineUnitBefore: Single;
begin
    Result := DefaultInterface.LineUnitBefore;
end;

procedure TWordParagraphFormat.Set_LineUnitBefore(prop: Single);
begin
  DefaultInterface.Set_LineUnitBefore(prop);
end;

function TWordParagraphFormat.Get_LineUnitAfter: Single;
begin
    Result := DefaultInterface.LineUnitAfter;
end;

procedure TWordParagraphFormat.Set_LineUnitAfter(prop: Single);
begin
  DefaultInterface.Set_LineUnitAfter(prop);
end;

function TWordParagraphFormat.Get_ReadingOrder: WdReadingOrder;
begin
    Result := DefaultInterface.ReadingOrder;
end;

procedure TWordParagraphFormat.Set_ReadingOrder(prop: WdReadingOrder);
begin
  DefaultInterface.Set_ReadingOrder(prop);
end;

function TWordParagraphFormat.Get_SpaceBeforeAuto: Integer;
begin
    Result := DefaultInterface.SpaceBeforeAuto;
end;

procedure TWordParagraphFormat.Set_SpaceBeforeAuto(prop: Integer);
begin
  DefaultInterface.Set_SpaceBeforeAuto(prop);
end;

function TWordParagraphFormat.Get_SpaceAfterAuto: Integer;
begin
    Result := DefaultInterface.SpaceAfterAuto;
end;

procedure TWordParagraphFormat.Set_SpaceAfterAuto(prop: Integer);
begin
  DefaultInterface.Set_SpaceAfterAuto(prop);
end;

procedure TWordParagraphFormat.CloseUp;
begin
  DefaultInterface.CloseUp;
end;

procedure TWordParagraphFormat.OpenUp;
begin
  DefaultInterface.OpenUp;
end;

procedure TWordParagraphFormat.OpenOrCloseUp;
begin
  DefaultInterface.OpenOrCloseUp;
end;

procedure TWordParagraphFormat.TabHangingIndent(Count: Smallint);
begin
  DefaultInterface.TabHangingIndent(Count);
end;

procedure TWordParagraphFormat.TabIndent(Count: Smallint);
begin
  DefaultInterface.TabIndent(Count);
end;

procedure TWordParagraphFormat.Reset;
begin
  DefaultInterface.Reset;
end;

procedure TWordParagraphFormat.Space1;
begin
  DefaultInterface.Space1;
end;

procedure TWordParagraphFormat.Space15;
begin
  DefaultInterface.Space15;
end;

procedure TWordParagraphFormat.Space2;
begin
  DefaultInterface.Space2;
end;

procedure TWordParagraphFormat.IndentCharWidth(Count: Smallint);
begin
  DefaultInterface.IndentCharWidth(Count);
end;

procedure TWordParagraphFormat.IndentFirstLineCharWidth(Count: Smallint);
begin
  DefaultInterface.IndentFirstLineCharWidth(Count);
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TWordParagraphFormatProperties.Create(AServer: TWordParagraphFormat);
begin
  inherited Create;
  FServer := AServer;
end;

function TWordParagraphFormatProperties.GetDefaultInterface: _ParagraphFormat;
begin
  Result := FServer.DefaultInterface;
end;

function TWordParagraphFormatProperties.Get_Application: WordApplication;
begin
    Result := DefaultInterface.Application;
end;

function TWordParagraphFormatProperties.Get_Creator: Integer;
begin
    Result := DefaultInterface.Creator;
end;

function TWordParagraphFormatProperties.Get_Parent: IDispatch;
begin
    Result := DefaultInterface.Parent;
end;

function TWordParagraphFormatProperties.Get_Duplicate: WordParagraphFormat;
begin
    Result := DefaultInterface.Duplicate;
end;

function TWordParagraphFormatProperties.Get_Style: OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.Style;
end;

procedure TWordParagraphFormatProperties.Set_Style(var prop: OleVariant);
  { Warning: The property Style has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Style := prop;
end;

function TWordParagraphFormatProperties.Get_Alignment: WdParagraphAlignment;
begin
    Result := DefaultInterface.Alignment;
end;

procedure TWordParagraphFormatProperties.Set_Alignment(prop: WdParagraphAlignment);
begin
  DefaultInterface.Set_Alignment(prop);
end;

function TWordParagraphFormatProperties.Get_KeepTogether: Integer;
begin
    Result := DefaultInterface.KeepTogether;
end;

procedure TWordParagraphFormatProperties.Set_KeepTogether(prop: Integer);
begin
  DefaultInterface.Set_KeepTogether(prop);
end;

function TWordParagraphFormatProperties.Get_KeepWithNext: Integer;
begin
    Result := DefaultInterface.KeepWithNext;
end;

procedure TWordParagraphFormatProperties.Set_KeepWithNext(prop: Integer);
begin
  DefaultInterface.Set_KeepWithNext(prop);
end;

function TWordParagraphFormatProperties.Get_PageBreakBefore: Integer;
begin
    Result := DefaultInterface.PageBreakBefore;
end;

procedure TWordParagraphFormatProperties.Set_PageBreakBefore(prop: Integer);
begin
  DefaultInterface.Set_PageBreakBefore(prop);
end;

function TWordParagraphFormatProperties.Get_NoLineNumber: Integer;
begin
    Result := DefaultInterface.NoLineNumber;
end;

procedure TWordParagraphFormatProperties.Set_NoLineNumber(prop: Integer);
begin
  DefaultInterface.Set_NoLineNumber(prop);
end;

function TWordParagraphFormatProperties.Get_RightIndent: Single;
begin
    Result := DefaultInterface.RightIndent;
end;

procedure TWordParagraphFormatProperties.Set_RightIndent(prop: Single);
begin
  DefaultInterface.Set_RightIndent(prop);
end;

function TWordParagraphFormatProperties.Get_LeftIndent: Single;
begin
    Result := DefaultInterface.LeftIndent;
end;

procedure TWordParagraphFormatProperties.Set_LeftIndent(prop: Single);
begin
  DefaultInterface.Set_LeftIndent(prop);
end;

function TWordParagraphFormatProperties.Get_FirstLineIndent: Single;
begin
    Result := DefaultInterface.FirstLineIndent;
end;

procedure TWordParagraphFormatProperties.Set_FirstLineIndent(prop: Single);
begin
  DefaultInterface.Set_FirstLineIndent(prop);
end;

function TWordParagraphFormatProperties.Get_LineSpacing: Single;
begin
    Result := DefaultInterface.LineSpacing;
end;

procedure TWordParagraphFormatProperties.Set_LineSpacing(prop: Single);
begin
  DefaultInterface.Set_LineSpacing(prop);
end;

function TWordParagraphFormatProperties.Get_LineSpacingRule: WdLineSpacing;
begin
    Result := DefaultInterface.LineSpacingRule;
end;

procedure TWordParagraphFormatProperties.Set_LineSpacingRule(prop: WdLineSpacing);
begin
  DefaultInterface.Set_LineSpacingRule(prop);
end;

function TWordParagraphFormatProperties.Get_SpaceBefore: Single;
begin
    Result := DefaultInterface.SpaceBefore;
end;

procedure TWordParagraphFormatProperties.Set_SpaceBefore(prop: Single);
begin
  DefaultInterface.Set_SpaceBefore(prop);
end;

function TWordParagraphFormatProperties.Get_SpaceAfter: Single;
begin
    Result := DefaultInterface.SpaceAfter;
end;

procedure TWordParagraphFormatProperties.Set_SpaceAfter(prop: Single);
begin
  DefaultInterface.Set_SpaceAfter(prop);
end;

function TWordParagraphFormatProperties.Get_Hyphenation: Integer;
begin
    Result := DefaultInterface.Hyphenation;
end;

procedure TWordParagraphFormatProperties.Set_Hyphenation(prop: Integer);
begin
  DefaultInterface.Set_Hyphenation(prop);
end;

function TWordParagraphFormatProperties.Get_WidowControl: Integer;
begin
    Result := DefaultInterface.WidowControl;
end;

procedure TWordParagraphFormatProperties.Set_WidowControl(prop: Integer);
begin
  DefaultInterface.Set_WidowControl(prop);
end;

function TWordParagraphFormatProperties.Get_FarEastLineBreakControl: Integer;
begin
    Result := DefaultInterface.FarEastLineBreakControl;
end;

procedure TWordParagraphFormatProperties.Set_FarEastLineBreakControl(prop: Integer);
begin
  DefaultInterface.Set_FarEastLineBreakControl(prop);
end;

function TWordParagraphFormatProperties.Get_WordWrap: Integer;
begin
    Result := DefaultInterface.WordWrap;
end;

procedure TWordParagraphFormatProperties.Set_WordWrap(prop: Integer);
begin
  DefaultInterface.Set_WordWrap(prop);
end;

function TWordParagraphFormatProperties.Get_HangingPunctuation: Integer;
begin
    Result := DefaultInterface.HangingPunctuation;
end;

procedure TWordParagraphFormatProperties.Set_HangingPunctuation(prop: Integer);
begin
  DefaultInterface.Set_HangingPunctuation(prop);
end;

function TWordParagraphFormatProperties.Get_HalfWidthPunctuationOnTopOfLine: Integer;
begin
    Result := DefaultInterface.HalfWidthPunctuationOnTopOfLine;
end;

procedure TWordParagraphFormatProperties.Set_HalfWidthPunctuationOnTopOfLine(prop: Integer);
begin
  DefaultInterface.Set_HalfWidthPunctuationOnTopOfLine(prop);
end;

function TWordParagraphFormatProperties.Get_AddSpaceBetweenFarEastAndAlpha: Integer;
begin
    Result := DefaultInterface.AddSpaceBetweenFarEastAndAlpha;
end;

procedure TWordParagraphFormatProperties.Set_AddSpaceBetweenFarEastAndAlpha(prop: Integer);
begin
  DefaultInterface.Set_AddSpaceBetweenFarEastAndAlpha(prop);
end;

function TWordParagraphFormatProperties.Get_AddSpaceBetweenFarEastAndDigit: Integer;
begin
    Result := DefaultInterface.AddSpaceBetweenFarEastAndDigit;
end;

procedure TWordParagraphFormatProperties.Set_AddSpaceBetweenFarEastAndDigit(prop: Integer);
begin
  DefaultInterface.Set_AddSpaceBetweenFarEastAndDigit(prop);
end;

function TWordParagraphFormatProperties.Get_BaseLineAlignment: WdBaselineAlignment;
begin
    Result := DefaultInterface.BaseLineAlignment;
end;

procedure TWordParagraphFormatProperties.Set_BaseLineAlignment(prop: WdBaselineAlignment);
begin
  DefaultInterface.Set_BaseLineAlignment(prop);
end;

function TWordParagraphFormatProperties.Get_AutoAdjustRightIndent: Integer;
begin
    Result := DefaultInterface.AutoAdjustRightIndent;
end;

procedure TWordParagraphFormatProperties.Set_AutoAdjustRightIndent(prop: Integer);
begin
  DefaultInterface.Set_AutoAdjustRightIndent(prop);
end;

function TWordParagraphFormatProperties.Get_DisableLineHeightGrid: Integer;
begin
    Result := DefaultInterface.DisableLineHeightGrid;
end;

procedure TWordParagraphFormatProperties.Set_DisableLineHeightGrid(prop: Integer);
begin
  DefaultInterface.Set_DisableLineHeightGrid(prop);
end;

function TWordParagraphFormatProperties.Get_TabStops: TabStops;
begin
    Result := DefaultInterface.TabStops;
end;

procedure TWordParagraphFormatProperties.Set_TabStops(const prop: TabStops);
begin
  DefaultInterface.Set_TabStops(prop);
end;

function TWordParagraphFormatProperties.Get_Borders: Borders;
begin
    Result := DefaultInterface.Borders;
end;

procedure TWordParagraphFormatProperties.Set_Borders(const prop: Borders);
begin
  DefaultInterface.Set_Borders(prop);
end;

function TWordParagraphFormatProperties.Get_Shading: Shading;
begin
    Result := DefaultInterface.Shading;
end;

function TWordParagraphFormatProperties.Get_OutlineLevel: WdOutlineLevel;
begin
    Result := DefaultInterface.OutlineLevel;
end;

procedure TWordParagraphFormatProperties.Set_OutlineLevel(prop: WdOutlineLevel);
begin
  DefaultInterface.Set_OutlineLevel(prop);
end;

function TWordParagraphFormatProperties.Get_CharacterUnitRightIndent: Single;
begin
    Result := DefaultInterface.CharacterUnitRightIndent;
end;

procedure TWordParagraphFormatProperties.Set_CharacterUnitRightIndent(prop: Single);
begin
  DefaultInterface.Set_CharacterUnitRightIndent(prop);
end;

function TWordParagraphFormatProperties.Get_CharacterUnitLeftIndent: Single;
begin
    Result := DefaultInterface.CharacterUnitLeftIndent;
end;

procedure TWordParagraphFormatProperties.Set_CharacterUnitLeftIndent(prop: Single);
begin
  DefaultInterface.Set_CharacterUnitLeftIndent(prop);
end;

function TWordParagraphFormatProperties.Get_CharacterUnitFirstLineIndent: Single;
begin
    Result := DefaultInterface.CharacterUnitFirstLineIndent;
end;

procedure TWordParagraphFormatProperties.Set_CharacterUnitFirstLineIndent(prop: Single);
begin
  DefaultInterface.Set_CharacterUnitFirstLineIndent(prop);
end;

function TWordParagraphFormatProperties.Get_LineUnitBefore: Single;
begin
    Result := DefaultInterface.LineUnitBefore;
end;

procedure TWordParagraphFormatProperties.Set_LineUnitBefore(prop: Single);
begin
  DefaultInterface.Set_LineUnitBefore(prop);
end;

function TWordParagraphFormatProperties.Get_LineUnitAfter: Single;
begin
    Result := DefaultInterface.LineUnitAfter;
end;

procedure TWordParagraphFormatProperties.Set_LineUnitAfter(prop: Single);
begin
  DefaultInterface.Set_LineUnitAfter(prop);
end;

function TWordParagraphFormatProperties.Get_ReadingOrder: WdReadingOrder;
begin
    Result := DefaultInterface.ReadingOrder;
end;

procedure TWordParagraphFormatProperties.Set_ReadingOrder(prop: WdReadingOrder);
begin
  DefaultInterface.Set_ReadingOrder(prop);
end;

function TWordParagraphFormatProperties.Get_SpaceBeforeAuto: Integer;
begin
    Result := DefaultInterface.SpaceBeforeAuto;
end;

procedure TWordParagraphFormatProperties.Set_SpaceBeforeAuto(prop: Integer);
begin
  DefaultInterface.Set_SpaceBeforeAuto(prop);
end;

function TWordParagraphFormatProperties.Get_SpaceAfterAuto: Integer;
begin
    Result := DefaultInterface.SpaceAfterAuto;
end;

procedure TWordParagraphFormatProperties.Set_SpaceAfterAuto(prop: Integer);
begin
  DefaultInterface.Set_SpaceAfterAuto(prop);
end;

{$ENDIF}

class function CoWordOLEControl.Create: _OLEControl;
begin
  Result := CreateComObject(CLASS_WordOLEControl) as _OLEControl;
end;

class function CoWordOLEControl.CreateRemote(const MachineName: string): _OLEControl;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_WordOLEControl) as _OLEControl;
end;

class function CoWordLetterContent.Create: _LetterContent;
begin
  Result := CreateComObject(CLASS_WordLetterContent) as _LetterContent;
end;

class function CoWordLetterContent.CreateRemote(const MachineName: string): _LetterContent;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_WordLetterContent) as _LetterContent;
end;

procedure TWordLetterContent.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{000209F1-0000-0000-C000-000000000046}';
    IntfIID:   '{000209A1-0000-0000-C000-000000000046}';
    EventIID:  '';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TWordLetterContent.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    Fintf:= punk as _LetterContent;
  end;
end;

procedure TWordLetterContent.ConnectTo(svrIntf: _LetterContent);
begin
  Disconnect;
  FIntf := svrIntf;
end;

procedure TWordLetterContent.DisConnect;
begin
  if Fintf <> nil then
  begin
    FIntf := nil;
  end;
end;

function TWordLetterContent.GetDefaultInterface: _LetterContent;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TWordLetterContent.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TWordLetterContentProperties.Create(Self);
{$ENDIF}
end;

destructor TWordLetterContent.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TWordLetterContent.GetServerProperties: TWordLetterContentProperties;
begin
  Result := FProps;
end;
{$ENDIF}

function TWordLetterContent.Get_Application: WordApplication;
begin
    Result := DefaultInterface.Application;
end;

function TWordLetterContent.Get_Creator: Integer;
begin
    Result := DefaultInterface.Creator;
end;

function TWordLetterContent.Get_Parent: IDispatch;
begin
    Result := DefaultInterface.Parent;
end;

function TWordLetterContent.Get_Duplicate: WordLetterContent;
begin
    Result := DefaultInterface.Duplicate;
end;

function TWordLetterContent.Get_DateFormat: WideString;
begin
    Result := DefaultInterface.DateFormat;
end;

procedure TWordLetterContent.Set_DateFormat(const prop: WideString);
  { Warning: The property DateFormat has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.DateFormat := prop;
end;

function TWordLetterContent.Get_IncludeHeaderFooter: WordBool;
begin
    Result := DefaultInterface.IncludeHeaderFooter;
end;

procedure TWordLetterContent.Set_IncludeHeaderFooter(prop: WordBool);
begin
  DefaultInterface.Set_IncludeHeaderFooter(prop);
end;

function TWordLetterContent.Get_PageDesign: WideString;
begin
    Result := DefaultInterface.PageDesign;
end;

procedure TWordLetterContent.Set_PageDesign(const prop: WideString);
  { Warning: The property PageDesign has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.PageDesign := prop;
end;

function TWordLetterContent.Get_LetterStyle: WdLetterStyle;
begin
    Result := DefaultInterface.LetterStyle;
end;

procedure TWordLetterContent.Set_LetterStyle(prop: WdLetterStyle);
begin
  DefaultInterface.Set_LetterStyle(prop);
end;

function TWordLetterContent.Get_Letterhead: WordBool;
begin
    Result := DefaultInterface.Letterhead;
end;

procedure TWordLetterContent.Set_Letterhead(prop: WordBool);
begin
  DefaultInterface.Set_Letterhead(prop);
end;

function TWordLetterContent.Get_LetterheadLocation: WdLetterheadLocation;
begin
    Result := DefaultInterface.LetterheadLocation;
end;

procedure TWordLetterContent.Set_LetterheadLocation(prop: WdLetterheadLocation);
begin
  DefaultInterface.Set_LetterheadLocation(prop);
end;

function TWordLetterContent.Get_LetterheadSize: Single;
begin
    Result := DefaultInterface.LetterheadSize;
end;

procedure TWordLetterContent.Set_LetterheadSize(prop: Single);
begin
  DefaultInterface.Set_LetterheadSize(prop);
end;

function TWordLetterContent.Get_RecipientName: WideString;
begin
    Result := DefaultInterface.RecipientName;
end;

procedure TWordLetterContent.Set_RecipientName(const prop: WideString);
  { Warning: The property RecipientName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.RecipientName := prop;
end;

function TWordLetterContent.Get_RecipientAddress: WideString;
begin
    Result := DefaultInterface.RecipientAddress;
end;

procedure TWordLetterContent.Set_RecipientAddress(const prop: WideString);
  { Warning: The property RecipientAddress has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.RecipientAddress := prop;
end;

function TWordLetterContent.Get_Salutation: WideString;
begin
    Result := DefaultInterface.Salutation;
end;

procedure TWordLetterContent.Set_Salutation(const prop: WideString);
  { Warning: The property Salutation has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Salutation := prop;
end;

function TWordLetterContent.Get_SalutationType: WdSalutationType;
begin
    Result := DefaultInterface.SalutationType;
end;

procedure TWordLetterContent.Set_SalutationType(prop: WdSalutationType);
begin
  DefaultInterface.Set_SalutationType(prop);
end;

function TWordLetterContent.Get_RecipientReference: WideString;
begin
    Result := DefaultInterface.RecipientReference;
end;

procedure TWordLetterContent.Set_RecipientReference(const prop: WideString);
  { Warning: The property RecipientReference has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.RecipientReference := prop;
end;

function TWordLetterContent.Get_MailingInstructions: WideString;
begin
    Result := DefaultInterface.MailingInstructions;
end;

procedure TWordLetterContent.Set_MailingInstructions(const prop: WideString);
  { Warning: The property MailingInstructions has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.MailingInstructions := prop;
end;

function TWordLetterContent.Get_AttentionLine: WideString;
begin
    Result := DefaultInterface.AttentionLine;
end;

procedure TWordLetterContent.Set_AttentionLine(const prop: WideString);
  { Warning: The property AttentionLine has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.AttentionLine := prop;
end;

function TWordLetterContent.Get_Subject: WideString;
begin
    Result := DefaultInterface.Subject;
end;

procedure TWordLetterContent.Set_Subject(const prop: WideString);
  { Warning: The property Subject has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Subject := prop;
end;

function TWordLetterContent.Get_EnclosureNumber: Integer;
begin
    Result := DefaultInterface.EnclosureNumber;
end;

procedure TWordLetterContent.Set_EnclosureNumber(prop: Integer);
begin
  DefaultInterface.Set_EnclosureNumber(prop);
end;

function TWordLetterContent.Get_CCList: WideString;
begin
    Result := DefaultInterface.CCList;
end;

procedure TWordLetterContent.Set_CCList(const prop: WideString);
  { Warning: The property CCList has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.CCList := prop;
end;

function TWordLetterContent.Get_ReturnAddress: WideString;
begin
    Result := DefaultInterface.ReturnAddress;
end;

procedure TWordLetterContent.Set_ReturnAddress(const prop: WideString);
  { Warning: The property ReturnAddress has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ReturnAddress := prop;
end;

function TWordLetterContent.Get_SenderName: WideString;
begin
    Result := DefaultInterface.SenderName;
end;

procedure TWordLetterContent.Set_SenderName(const prop: WideString);
  { Warning: The property SenderName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SenderName := prop;
end;

function TWordLetterContent.Get_Closing: WideString;
begin
    Result := DefaultInterface.Closing;
end;

procedure TWordLetterContent.Set_Closing(const prop: WideString);
  { Warning: The property Closing has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Closing := prop;
end;

function TWordLetterContent.Get_SenderCompany: WideString;
begin
    Result := DefaultInterface.SenderCompany;
end;

procedure TWordLetterContent.Set_SenderCompany(const prop: WideString);
  { Warning: The property SenderCompany has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SenderCompany := prop;
end;

function TWordLetterContent.Get_SenderJobTitle: WideString;
begin
    Result := DefaultInterface.SenderJobTitle;
end;

procedure TWordLetterContent.Set_SenderJobTitle(const prop: WideString);
  { Warning: The property SenderJobTitle has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SenderJobTitle := prop;
end;

function TWordLetterContent.Get_SenderInitials: WideString;
begin
    Result := DefaultInterface.SenderInitials;
end;

procedure TWordLetterContent.Set_SenderInitials(const prop: WideString);
  { Warning: The property SenderInitials has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SenderInitials := prop;
end;

function TWordLetterContent.Get_InfoBlock: WordBool;
begin
    Result := DefaultInterface.InfoBlock;
end;

procedure TWordLetterContent.Set_InfoBlock(prop: WordBool);
begin
  DefaultInterface.Set_InfoBlock(prop);
end;

function TWordLetterContent.Get_RecipientCode: WideString;
begin
    Result := DefaultInterface.RecipientCode;
end;

procedure TWordLetterContent.Set_RecipientCode(const prop: WideString);
  { Warning: The property RecipientCode has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.RecipientCode := prop;
end;

function TWordLetterContent.Get_RecipientGender: WdSalutationGender;
begin
    Result := DefaultInterface.RecipientGender;
end;

procedure TWordLetterContent.Set_RecipientGender(prop: WdSalutationGender);
begin
  DefaultInterface.Set_RecipientGender(prop);
end;

function TWordLetterContent.Get_ReturnAddressShortForm: WideString;
begin
    Result := DefaultInterface.ReturnAddressShortForm;
end;

procedure TWordLetterContent.Set_ReturnAddressShortForm(const prop: WideString);
  { Warning: The property ReturnAddressShortForm has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ReturnAddressShortForm := prop;
end;

function TWordLetterContent.Get_SenderCity: WideString;
begin
    Result := DefaultInterface.SenderCity;
end;

procedure TWordLetterContent.Set_SenderCity(const prop: WideString);
  { Warning: The property SenderCity has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SenderCity := prop;
end;

function TWordLetterContent.Get_SenderCode: WideString;
begin
    Result := DefaultInterface.SenderCode;
end;

procedure TWordLetterContent.Set_SenderCode(const prop: WideString);
  { Warning: The property SenderCode has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SenderCode := prop;
end;

function TWordLetterContent.Get_SenderGender: WdSalutationGender;
begin
    Result := DefaultInterface.SenderGender;
end;

procedure TWordLetterContent.Set_SenderGender(prop: WdSalutationGender);
begin
  DefaultInterface.Set_SenderGender(prop);
end;

function TWordLetterContent.Get_SenderReference: WideString;
begin
    Result := DefaultInterface.SenderReference;
end;

procedure TWordLetterContent.Set_SenderReference(const prop: WideString);
  { Warning: The property SenderReference has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SenderReference := prop;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TWordLetterContentProperties.Create(AServer: TWordLetterContent);
begin
  inherited Create;
  FServer := AServer;
end;

function TWordLetterContentProperties.GetDefaultInterface: _LetterContent;
begin
  Result := FServer.DefaultInterface;
end;

function TWordLetterContentProperties.Get_Application: WordApplication;
begin
    Result := DefaultInterface.Application;
end;

function TWordLetterContentProperties.Get_Creator: Integer;
begin
    Result := DefaultInterface.Creator;
end;

function TWordLetterContentProperties.Get_Parent: IDispatch;
begin
    Result := DefaultInterface.Parent;
end;

function TWordLetterContentProperties.Get_Duplicate: WordLetterContent;
begin
    Result := DefaultInterface.Duplicate;
end;

function TWordLetterContentProperties.Get_DateFormat: WideString;
begin
    Result := DefaultInterface.DateFormat;
end;

procedure TWordLetterContentProperties.Set_DateFormat(const prop: WideString);
  { Warning: The property DateFormat has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.DateFormat := prop;
end;

function TWordLetterContentProperties.Get_IncludeHeaderFooter: WordBool;
begin
    Result := DefaultInterface.IncludeHeaderFooter;
end;

procedure TWordLetterContentProperties.Set_IncludeHeaderFooter(prop: WordBool);
begin
  DefaultInterface.Set_IncludeHeaderFooter(prop);
end;

function TWordLetterContentProperties.Get_PageDesign: WideString;
begin
    Result := DefaultInterface.PageDesign;
end;

procedure TWordLetterContentProperties.Set_PageDesign(const prop: WideString);
  { Warning: The property PageDesign has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.PageDesign := prop;
end;

function TWordLetterContentProperties.Get_LetterStyle: WdLetterStyle;
begin
    Result := DefaultInterface.LetterStyle;
end;

procedure TWordLetterContentProperties.Set_LetterStyle(prop: WdLetterStyle);
begin
  DefaultInterface.Set_LetterStyle(prop);
end;

function TWordLetterContentProperties.Get_Letterhead: WordBool;
begin
    Result := DefaultInterface.Letterhead;
end;

procedure TWordLetterContentProperties.Set_Letterhead(prop: WordBool);
begin
  DefaultInterface.Set_Letterhead(prop);
end;

function TWordLetterContentProperties.Get_LetterheadLocation: WdLetterheadLocation;
begin
    Result := DefaultInterface.LetterheadLocation;
end;

procedure TWordLetterContentProperties.Set_LetterheadLocation(prop: WdLetterheadLocation);
begin
  DefaultInterface.Set_LetterheadLocation(prop);
end;

function TWordLetterContentProperties.Get_LetterheadSize: Single;
begin
    Result := DefaultInterface.LetterheadSize;
end;

procedure TWordLetterContentProperties.Set_LetterheadSize(prop: Single);
begin
  DefaultInterface.Set_LetterheadSize(prop);
end;

function TWordLetterContentProperties.Get_RecipientName: WideString;
begin
    Result := DefaultInterface.RecipientName;
end;

procedure TWordLetterContentProperties.Set_RecipientName(const prop: WideString);
  { Warning: The property RecipientName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.RecipientName := prop;
end;

function TWordLetterContentProperties.Get_RecipientAddress: WideString;
begin
    Result := DefaultInterface.RecipientAddress;
end;

procedure TWordLetterContentProperties.Set_RecipientAddress(const prop: WideString);
  { Warning: The property RecipientAddress has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.RecipientAddress := prop;
end;

function TWordLetterContentProperties.Get_Salutation: WideString;
begin
    Result := DefaultInterface.Salutation;
end;

procedure TWordLetterContentProperties.Set_Salutation(const prop: WideString);
  { Warning: The property Salutation has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Salutation := prop;
end;

function TWordLetterContentProperties.Get_SalutationType: WdSalutationType;
begin
    Result := DefaultInterface.SalutationType;
end;

procedure TWordLetterContentProperties.Set_SalutationType(prop: WdSalutationType);
begin
  DefaultInterface.Set_SalutationType(prop);
end;

function TWordLetterContentProperties.Get_RecipientReference: WideString;
begin
    Result := DefaultInterface.RecipientReference;
end;

procedure TWordLetterContentProperties.Set_RecipientReference(const prop: WideString);
  { Warning: The property RecipientReference has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.RecipientReference := prop;
end;

function TWordLetterContentProperties.Get_MailingInstructions: WideString;
begin
    Result := DefaultInterface.MailingInstructions;
end;

procedure TWordLetterContentProperties.Set_MailingInstructions(const prop: WideString);
  { Warning: The property MailingInstructions has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.MailingInstructions := prop;
end;

function TWordLetterContentProperties.Get_AttentionLine: WideString;
begin
    Result := DefaultInterface.AttentionLine;
end;

procedure TWordLetterContentProperties.Set_AttentionLine(const prop: WideString);
  { Warning: The property AttentionLine has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.AttentionLine := prop;
end;

function TWordLetterContentProperties.Get_Subject: WideString;
begin
    Result := DefaultInterface.Subject;
end;

procedure TWordLetterContentProperties.Set_Subject(const prop: WideString);
  { Warning: The property Subject has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Subject := prop;
end;

function TWordLetterContentProperties.Get_EnclosureNumber: Integer;
begin
    Result := DefaultInterface.EnclosureNumber;
end;

procedure TWordLetterContentProperties.Set_EnclosureNumber(prop: Integer);
begin
  DefaultInterface.Set_EnclosureNumber(prop);
end;

function TWordLetterContentProperties.Get_CCList: WideString;
begin
    Result := DefaultInterface.CCList;
end;

procedure TWordLetterContentProperties.Set_CCList(const prop: WideString);
  { Warning: The property CCList has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.CCList := prop;
end;

function TWordLetterContentProperties.Get_ReturnAddress: WideString;
begin
    Result := DefaultInterface.ReturnAddress;
end;

procedure TWordLetterContentProperties.Set_ReturnAddress(const prop: WideString);
  { Warning: The property ReturnAddress has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ReturnAddress := prop;
end;

function TWordLetterContentProperties.Get_SenderName: WideString;
begin
    Result := DefaultInterface.SenderName;
end;

procedure TWordLetterContentProperties.Set_SenderName(const prop: WideString);
  { Warning: The property SenderName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SenderName := prop;
end;

function TWordLetterContentProperties.Get_Closing: WideString;
begin
    Result := DefaultInterface.Closing;
end;

procedure TWordLetterContentProperties.Set_Closing(const prop: WideString);
  { Warning: The property Closing has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Closing := prop;
end;

function TWordLetterContentProperties.Get_SenderCompany: WideString;
begin
    Result := DefaultInterface.SenderCompany;
end;

procedure TWordLetterContentProperties.Set_SenderCompany(const prop: WideString);
  { Warning: The property SenderCompany has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SenderCompany := prop;
end;

function TWordLetterContentProperties.Get_SenderJobTitle: WideString;
begin
    Result := DefaultInterface.SenderJobTitle;
end;

procedure TWordLetterContentProperties.Set_SenderJobTitle(const prop: WideString);
  { Warning: The property SenderJobTitle has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SenderJobTitle := prop;
end;

function TWordLetterContentProperties.Get_SenderInitials: WideString;
begin
    Result := DefaultInterface.SenderInitials;
end;

procedure TWordLetterContentProperties.Set_SenderInitials(const prop: WideString);
  { Warning: The property SenderInitials has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SenderInitials := prop;
end;

function TWordLetterContentProperties.Get_InfoBlock: WordBool;
begin
    Result := DefaultInterface.InfoBlock;
end;

procedure TWordLetterContentProperties.Set_InfoBlock(prop: WordBool);
begin
  DefaultInterface.Set_InfoBlock(prop);
end;

function TWordLetterContentProperties.Get_RecipientCode: WideString;
begin
    Result := DefaultInterface.RecipientCode;
end;

procedure TWordLetterContentProperties.Set_RecipientCode(const prop: WideString);
  { Warning: The property RecipientCode has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.RecipientCode := prop;
end;

function TWordLetterContentProperties.Get_RecipientGender: WdSalutationGender;
begin
    Result := DefaultInterface.RecipientGender;
end;

procedure TWordLetterContentProperties.Set_RecipientGender(prop: WdSalutationGender);
begin
  DefaultInterface.Set_RecipientGender(prop);
end;

function TWordLetterContentProperties.Get_ReturnAddressShortForm: WideString;
begin
    Result := DefaultInterface.ReturnAddressShortForm;
end;

procedure TWordLetterContentProperties.Set_ReturnAddressShortForm(const prop: WideString);
  { Warning: The property ReturnAddressShortForm has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ReturnAddressShortForm := prop;
end;

function TWordLetterContentProperties.Get_SenderCity: WideString;
begin
    Result := DefaultInterface.SenderCity;
end;

procedure TWordLetterContentProperties.Set_SenderCity(const prop: WideString);
  { Warning: The property SenderCity has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SenderCity := prop;
end;

function TWordLetterContentProperties.Get_SenderCode: WideString;
begin
    Result := DefaultInterface.SenderCode;
end;

procedure TWordLetterContentProperties.Set_SenderCode(const prop: WideString);
  { Warning: The property SenderCode has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SenderCode := prop;
end;

function TWordLetterContentProperties.Get_SenderGender: WdSalutationGender;
begin
    Result := DefaultInterface.SenderGender;
end;

procedure TWordLetterContentProperties.Set_SenderGender(prop: WdSalutationGender);
begin
  DefaultInterface.Set_SenderGender(prop);
end;

function TWordLetterContentProperties.Get_SenderReference: WideString;
begin
    Result := DefaultInterface.SenderReference;
end;

procedure TWordLetterContentProperties.Set_SenderReference(const prop: WideString);
  { Warning: The property SenderReference has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.SenderReference := prop;
end;

{$ENDIF}

class function CoWordApplication.Create: _Application;
begin
  Result := CreateComObject(CLASS_WordApplication) as _Application;
end;

class function CoWordApplication.CreateRemote(const MachineName: string): _Application;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_WordApplication) as _Application;
end;

procedure TWordApplication.InitServerData;
const
  CServerData: TServerData = (
    ClassID:   '{000209FF-0000-0000-C000-000000000046}';
    IntfIID:   '{00020970-0000-0000-C000-000000000046}';
    EventIID:  '{00020A00-0000-0000-C000-000000000046}';
    LicenseKey: nil;
    Version: 500);
begin
  ServerData := @CServerData;
end;

procedure TWordApplication.Connect;
var
  punk: IUnknown;
begin
  if FIntf = nil then
  begin
    punk := GetServer;
    ConnectEvents(punk);
    Fintf:= punk as _Application;
  end;
end;

procedure TWordApplication.ConnectTo(svrIntf: _Application);
begin
  Disconnect;
  FIntf := svrIntf;
  ConnectEvents(FIntf);
end;

procedure TWordApplication.DisConnect;
begin
  if Fintf <> nil then
  begin
    DisconnectEvents(FIntf);
    if FAutoQuit then
      Quit();
    FIntf := nil;
  end;
end;

function TWordApplication.GetDefaultInterface: _Application;
begin
  if FIntf = nil then
    Connect;
  Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call ''Connect'' or ''ConnectTo'' before this operation');
  Result := FIntf;
end;

constructor TWordApplication.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps := TWordApplicationProperties.Create(Self);
{$ENDIF}
end;

destructor TWordApplication.Destroy;
begin
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  FProps.Free;
{$ENDIF}
  inherited Destroy;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
function TWordApplication.GetServerProperties: TWordApplicationProperties;
begin
  Result := FProps;
end;
{$ENDIF}

procedure TWordApplication.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
  case DispID of
    -1: Exit;  // DISPID_UNKNOWN
    1: if Assigned(FOnStartup) then
         FOnStartup(Self);
    2: if Assigned(FOnQuit) then
         FOnQuit(Self);
    3: if Assigned(FOnDocumentChange) then
         FOnDocumentChange(Self);
    4: if Assigned(FOnDocumentOpen) then
         FOnDocumentOpen(Self, IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument});
    6: if Assigned(FOnDocumentBeforeClose) then
         FOnDocumentBeforeClose(Self,
                                IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument},
                                WordBool((TVarData(Params[1]).VPointer)^) {var WordBool});
    7: if Assigned(FOnDocumentBeforePrint) then
         FOnDocumentBeforePrint(Self,
                                IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument},
                                WordBool((TVarData(Params[1]).VPointer)^) {var WordBool});
    8: if Assigned(FOnDocumentBeforeSave) then
         FOnDocumentBeforeSave(Self,
                               IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument},
                               WordBool((TVarData(Params[1]).VPointer)^) {var WordBool},
                               WordBool((TVarData(Params[2]).VPointer)^) {var WordBool});
    9: if Assigned(FOnNewDocument) then
         FOnNewDocument(Self, IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument});
    10: if Assigned(FOnWindowActivate) then
         FOnWindowActivate(Self,
                           IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument},
                           IUnknown(TVarData(Params[1]).VPointer) as Window {const Window});
    11: if Assigned(FOnWindowDeactivate) then
         FOnWindowDeactivate(Self,
                             IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument},
                             IUnknown(TVarData(Params[1]).VPointer) as Window {const Window});
    12: if Assigned(FOnWindowSelectionChange) then
         FOnWindowSelectionChange(Self, IUnknown(TVarData(Params[0]).VPointer) as WordSelection {const WordSelection});
    13: if Assigned(FOnWindowBeforeRightClick) then
         FOnWindowBeforeRightClick(Self,
                                   IUnknown(TVarData(Params[0]).VPointer) as WordSelection {const WordSelection},
                                   WordBool((TVarData(Params[1]).VPointer)^) {var WordBool});
    14: if Assigned(FOnWindowBeforeDoubleClick) then
         FOnWindowBeforeDoubleClick(Self,
                                    IUnknown(TVarData(Params[0]).VPointer) as WordSelection {const WordSelection},
                                    WordBool((TVarData(Params[1]).VPointer)^) {var WordBool});
    15: if Assigned(FOnEPostagePropertyDialog) then
         FOnEPostagePropertyDialog(Self, IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument});
    16: if Assigned(FOnEPostageInsert) then
         FOnEPostageInsert(Self, IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument});
    17: if Assigned(FOnMailMergeAfterMerge) then
         FOnMailMergeAfterMerge(Self,
                                IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument},
                                IUnknown(TVarData(Params[1]).VPointer) as WordDocument {const WordDocument});
    18: if Assigned(FOnMailMergeAfterRecordMerge) then
         FOnMailMergeAfterRecordMerge(Self, IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument});
    19: if Assigned(FOnMailMergeBeforeMerge) then
         FOnMailMergeBeforeMerge(Self,
                                 IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument},
                                 Params[1] {Integer},
                                 Params[2] {Integer},
                                 WordBool((TVarData(Params[3]).VPointer)^) {var WordBool});
    20: if Assigned(FOnMailMergeBeforeRecordMerge) then
         FOnMailMergeBeforeRecordMerge(Self,
                                       IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument},
                                       WordBool((TVarData(Params[1]).VPointer)^) {var WordBool});
    21: if Assigned(FOnMailMergeDataSourceLoad) then
         FOnMailMergeDataSourceLoad(Self, IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument});
    22: if Assigned(FOnMailMergeDataSourceValidate) then
         FOnMailMergeDataSourceValidate(Self,
                                        IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument},
                                        WordBool((TVarData(Params[1]).VPointer)^) {var WordBool});
    23: if Assigned(FOnMailMergeWizardSendToCustom) then
         FOnMailMergeWizardSendToCustom(Self, IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument});
    24: if Assigned(FOnMailMergeWizardStateChange) then
         FOnMailMergeWizardStateChange(Self,
                                       IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument},
                                       SYSINT((TVarData(Params[1]).VPointer)^) {var SYSINT},
                                       SYSINT((TVarData(Params[2]).VPointer)^) {var SYSINT},
                                       WordBool((TVarData(Params[3]).VPointer)^) {var WordBool});
    25: if Assigned(FOnWindowSize) then
         FOnWindowSize(Self,
                       IUnknown(TVarData(Params[0]).VPointer) as WordDocument {const WordDocument},
                       IUnknown(TVarData(Params[1]).VPointer) as Window {const Window});
  end; {case DispID}
end;

function TWordApplication.Get_Application: WordApplication;
begin
    Result := DefaultInterface.Application;
end;

function TWordApplication.Get_Creator: Integer;
begin
    Result := DefaultInterface.Creator;
end;

function TWordApplication.Get_Parent: IDispatch;
begin
    Result := DefaultInterface.Parent;
end;

function TWordApplication.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

function TWordApplication.Get_Documents: Documents;
begin
    Result := DefaultInterface.Documents;
end;

function TWordApplication.Get_Windows: Windows;
begin
    Result := DefaultInterface.Windows;
end;

function TWordApplication.Get_ActiveDocument: WordDocument;
begin
    Result := DefaultInterface.ActiveDocument;
end;

function TWordApplication.Get_ActiveWindow: Window;
begin
    Result := DefaultInterface.ActiveWindow;
end;

function TWordApplication.Get_Selection: WordSelection;
begin
    Result := DefaultInterface.Selection;
end;

function TWordApplication.Get_WordBasic: IDispatch;
begin
    Result := DefaultInterface.WordBasic;
end;

function TWordApplication.Get_RecentFiles: RecentFiles;
begin
    Result := DefaultInterface.RecentFiles;
end;

function TWordApplication.Get_NormalTemplate: Template;
begin
    Result := DefaultInterface.NormalTemplate;
end;

function TWordApplication.Get_System_: System;
begin
    Result := DefaultInterface.System_;
end;

function TWordApplication.Get_AutoCorrect: AutoCorrect;
begin
    Result := DefaultInterface.AutoCorrect;
end;

function TWordApplication.Get_FontNames: FontNames;
begin
    Result := DefaultInterface.FontNames;
end;

function TWordApplication.Get_LandscapeFontNames: FontNames;
begin
    Result := DefaultInterface.LandscapeFontNames;
end;

function TWordApplication.Get_PortraitFontNames: FontNames;
begin
    Result := DefaultInterface.PortraitFontNames;
end;

function TWordApplication.Get_Languages: Languages;
begin
    Result := DefaultInterface.Languages;
end;

function TWordApplication.Get_Assistant: Assistant;
begin
    Result := DefaultInterface.Assistant;
end;

function TWordApplication.Get_Browser: Browser;
begin
    Result := DefaultInterface.Browser;
end;

function TWordApplication.Get_FileConverters: FileConverters;
begin
    Result := DefaultInterface.FileConverters;
end;

function TWordApplication.Get_MailingLabel: MailingLabel;
begin
    Result := DefaultInterface.MailingLabel;
end;

function TWordApplication.Get_Dialogs: Dialogs;
begin
    Result := DefaultInterface.Dialogs;
end;

function TWordApplication.Get_CaptionLabels: CaptionLabels;
begin
    Result := DefaultInterface.CaptionLabels;
end;

function TWordApplication.Get_AutoCaptions: AutoCaptions;
begin
    Result := DefaultInterface.AutoCaptions;
end;

function TWordApplication.Get_AddIns: AddIns;
begin
    Result := DefaultInterface.AddIns;
end;

function TWordApplication.Get_Visible: WordBool;
begin
    Result := DefaultInterface.Visible;
end;

procedure TWordApplication.Set_Visible(prop: WordBool);
begin
  DefaultInterface.Set_Visible(prop);
end;

function TWordApplication.Get_Version: WideString;
begin
    Result := DefaultInterface.Version;
end;

function TWordApplication.Get_ScreenUpdating: WordBool;
begin
    Result := DefaultInterface.ScreenUpdating;
end;

procedure TWordApplication.Set_ScreenUpdating(prop: WordBool);
begin
  DefaultInterface.Set_ScreenUpdating(prop);
end;

function TWordApplication.Get_PrintPreview: WordBool;
begin
    Result := DefaultInterface.PrintPreview;
end;

procedure TWordApplication.Set_PrintPreview(prop: WordBool);
begin
  DefaultInterface.Set_PrintPreview(prop);
end;

function TWordApplication.Get_Tasks: Tasks;
begin
    Result := DefaultInterface.Tasks;
end;

function TWordApplication.Get_DisplayStatusBar: WordBool;
begin
    Result := DefaultInterface.DisplayStatusBar;
end;

procedure TWordApplication.Set_DisplayStatusBar(prop: WordBool);
begin
  DefaultInterface.Set_DisplayStatusBar(prop);
end;

function TWordApplication.Get_SpecialMode: WordBool;
begin
    Result := DefaultInterface.SpecialMode;
end;

function TWordApplication.Get_UsableWidth: Integer;
begin
    Result := DefaultInterface.UsableWidth;
end;

function TWordApplication.Get_UsableHeight: Integer;
begin
    Result := DefaultInterface.UsableHeight;
end;

function TWordApplication.Get_MathCoprocessorAvailable: WordBool;
begin
    Result := DefaultInterface.MathCoprocessorAvailable;
end;

function TWordApplication.Get_MouseAvailable: WordBool;
begin
    Result := DefaultInterface.MouseAvailable;
end;

function TWordApplication.Get_International(Index: WdInternationalIndex): OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.International[Index];
end;

function TWordApplication.Get_Build: WideString;
begin
    Result := DefaultInterface.Build;
end;

function TWordApplication.Get_CapsLock: WordBool;
begin
    Result := DefaultInterface.CapsLock;
end;

function TWordApplication.Get_NumLock: WordBool;
begin
    Result := DefaultInterface.NumLock;
end;

function TWordApplication.Get_UserName: WideString;
begin
    Result := DefaultInterface.UserName;
end;

procedure TWordApplication.Set_UserName(const prop: WideString);
  { Warning: The property UserName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.UserName := prop;
end;

function TWordApplication.Get_UserInitials: WideString;
begin
    Result := DefaultInterface.UserInitials;
end;

procedure TWordApplication.Set_UserInitials(const prop: WideString);
  { Warning: The property UserInitials has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.UserInitials := prop;
end;

function TWordApplication.Get_UserAddress: WideString;
begin
    Result := DefaultInterface.UserAddress;
end;

procedure TWordApplication.Set_UserAddress(const prop: WideString);
  { Warning: The property UserAddress has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.UserAddress := prop;
end;

function TWordApplication.Get_MacroContainer: IDispatch;
begin
    Result := DefaultInterface.MacroContainer;
end;

function TWordApplication.Get_DisplayRecentFiles: WordBool;
begin
    Result := DefaultInterface.DisplayRecentFiles;
end;

procedure TWordApplication.Set_DisplayRecentFiles(prop: WordBool);
begin
  DefaultInterface.Set_DisplayRecentFiles(prop);
end;

function TWordApplication.Get_CommandBars: CommandBars;
begin
    Result := DefaultInterface.CommandBars;
end;

function TWordApplication.Get_SynonymInfo(const Word: WideString; var LanguageID: OleVariant): SynonymInfo;
begin
    Result := DefaultInterface.SynonymInfo[Word, LanguageID];
end;

function TWordApplication.Get_VBE: VBE;
begin
    Result := DefaultInterface.VBE;
end;

function TWordApplication.Get_DefaultSaveFormat: WideString;
begin
    Result := DefaultInterface.DefaultSaveFormat;
end;

procedure TWordApplication.Set_DefaultSaveFormat(const prop: WideString);
  { Warning: The property DefaultSaveFormat has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.DefaultSaveFormat := prop;
end;

function TWordApplication.Get_ListGalleries: ListGalleries;
begin
    Result := DefaultInterface.ListGalleries;
end;

function TWordApplication.Get_ActivePrinter: WideString;
begin
    Result := DefaultInterface.ActivePrinter;
end;

procedure TWordApplication.Set_ActivePrinter(const prop: WideString);
  { Warning: The property ActivePrinter has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ActivePrinter := prop;
end;

function TWordApplication.Get_Templates: Templates;
begin
    Result := DefaultInterface.Templates;
end;

function TWordApplication.Get_CustomizationContext: IDispatch;
begin
    Result := DefaultInterface.CustomizationContext;
end;

procedure TWordApplication.Set_CustomizationContext(const prop: IDispatch);
begin
  DefaultInterface.Set_CustomizationContext(prop);
end;

function TWordApplication.Get_KeyBindings: KeyBindings;
begin
    Result := DefaultInterface.KeyBindings;
end;

function TWordApplication.Get_KeysBoundTo(KeyCategory: WdKeyCategory; const Command: WideString; 
                                          var CommandParameter: OleVariant): KeysBoundTo;
begin
    Result := DefaultInterface.KeysBoundTo[KeyCategory, Command, CommandParameter];
end;

function TWordApplication.Get_FindKey(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding;
begin
    Result := DefaultInterface.FindKey[KeyCode, KeyCode2];
end;

function TWordApplication.Get_Caption: WideString;
begin
    Result := DefaultInterface.Caption;
end;

procedure TWordApplication.Set_Caption(const prop: WideString);
  { Warning: The property Caption has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Caption := prop;
end;

function TWordApplication.Get_Path: WideString;
begin
    Result := DefaultInterface.Path;
end;

function TWordApplication.Get_DisplayScrollBars: WordBool;
begin
    Result := DefaultInterface.DisplayScrollBars;
end;

procedure TWordApplication.Set_DisplayScrollBars(prop: WordBool);
begin
  DefaultInterface.Set_DisplayScrollBars(prop);
end;

function TWordApplication.Get_StartupPath: WideString;
begin
    Result := DefaultInterface.StartupPath;
end;

procedure TWordApplication.Set_StartupPath(const prop: WideString);
  { Warning: The property StartupPath has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.StartupPath := prop;
end;

function TWordApplication.Get_BackgroundSavingStatus: Integer;
begin
    Result := DefaultInterface.BackgroundSavingStatus;
end;

function TWordApplication.Get_BackgroundPrintingStatus: Integer;
begin
    Result := DefaultInterface.BackgroundPrintingStatus;
end;

function TWordApplication.Get_Left: Integer;
begin
    Result := DefaultInterface.Left;
end;

procedure TWordApplication.Set_Left(prop: Integer);
begin
  DefaultInterface.Set_Left(prop);
end;

function TWordApplication.Get_Top: Integer;
begin
    Result := DefaultInterface.Top;
end;

procedure TWordApplication.Set_Top(prop: Integer);
begin
  DefaultInterface.Set_Top(prop);
end;

function TWordApplication.Get_Width: Integer;
begin
    Result := DefaultInterface.Width;
end;

procedure TWordApplication.Set_Width(prop: Integer);
begin
  DefaultInterface.Set_Width(prop);
end;

function TWordApplication.Get_Height: Integer;
begin
    Result := DefaultInterface.Height;
end;

procedure TWordApplication.Set_Height(prop: Integer);
begin
  DefaultInterface.Set_Height(prop);
end;

function TWordApplication.Get_WindowState: WdWindowState;
begin
    Result := DefaultInterface.WindowState;
end;

procedure TWordApplication.Set_WindowState(prop: WdWindowState);
begin
  DefaultInterface.Set_WindowState(prop);
end;

function TWordApplication.Get_DisplayAutoCompleteTips: WordBool;
begin
    Result := DefaultInterface.DisplayAutoCompleteTips;
end;

procedure TWordApplication.Set_DisplayAutoCompleteTips(prop: WordBool);
begin
  DefaultInterface.Set_DisplayAutoCompleteTips(prop);
end;

function TWordApplication.Get_Options: Options;
begin
    Result := DefaultInterface.Options;
end;

function TWordApplication.Get_DisplayAlerts: WdAlertLevel;
begin
    Result := DefaultInterface.DisplayAlerts;
end;

procedure TWordApplication.Set_DisplayAlerts(prop: WdAlertLevel);
begin
  DefaultInterface.Set_DisplayAlerts(prop);
end;

function TWordApplication.Get_CustomDictionaries: Dictionaries;
begin
    Result := DefaultInterface.CustomDictionaries;
end;

function TWordApplication.Get_PathSeparator: WideString;
begin
    Result := DefaultInterface.PathSeparator;
end;

procedure TWordApplication.Set_StatusBar(const Param1: WideString);
  { Warning: The property StatusBar has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.StatusBar := Param1;
end;

function TWordApplication.Get_MAPIAvailable: WordBool;
begin
    Result := DefaultInterface.MAPIAvailable;
end;

function TWordApplication.Get_DisplayScreenTips: WordBool;
begin
    Result := DefaultInterface.DisplayScreenTips;
end;

procedure TWordApplication.Set_DisplayScreenTips(prop: WordBool);
begin
  DefaultInterface.Set_DisplayScreenTips(prop);
end;

function TWordApplication.Get_EnableCancelKey: WdEnableCancelKey;
begin
    Result := DefaultInterface.EnableCancelKey;
end;

procedure TWordApplication.Set_EnableCancelKey(prop: WdEnableCancelKey);
begin
  DefaultInterface.Set_EnableCancelKey(prop);
end;

function TWordApplication.Get_UserControl: WordBool;
begin
    Result := DefaultInterface.UserControl;
end;

function TWordApplication.Get_FileSearch: FileSearch;
begin
    Result := DefaultInterface.FileSearch;
end;

function TWordApplication.Get_MailSystem: WdMailSystem;
begin
    Result := DefaultInterface.MailSystem;
end;

function TWordApplication.Get_DefaultTableSeparator: WideString;
begin
    Result := DefaultInterface.DefaultTableSeparator;
end;

procedure TWordApplication.Set_DefaultTableSeparator(const prop: WideString);
  { Warning: The property DefaultTableSeparator has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.DefaultTableSeparator := prop;
end;

function TWordApplication.Get_ShowVisualBasicEditor: WordBool;
begin
    Result := DefaultInterface.ShowVisualBasicEditor;
end;

procedure TWordApplication.Set_ShowVisualBasicEditor(prop: WordBool);
begin
  DefaultInterface.Set_ShowVisualBasicEditor(prop);
end;

function TWordApplication.Get_BrowseExtraFileTypes: WideString;
begin
    Result := DefaultInterface.BrowseExtraFileTypes;
end;

procedure TWordApplication.Set_BrowseExtraFileTypes(const prop: WideString);
  { Warning: The property BrowseExtraFileTypes has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.BrowseExtraFileTypes := prop;
end;

function TWordApplication.Get_IsObjectValid(const Object_: IDispatch): WordBool;
begin
    Result := DefaultInterface.IsObjectValid[Object_];
end;

function TWordApplication.Get_HangulHanjaDictionaries: HangulHanjaConversionDictionaries;
begin
    Result := DefaultInterface.HangulHanjaDictionaries;
end;

function TWordApplication.Get_MailMessage: MailMessage;
begin
    Result := DefaultInterface.MailMessage;
end;

function TWordApplication.Get_FocusInMailHeader: WordBool;
begin
    Result := DefaultInterface.FocusInMailHeader;
end;

function TWordApplication.Get_EmailOptions: EmailOptions;
begin
    Result := DefaultInterface.EmailOptions;
end;

function TWordApplication.Get_Language: MsoLanguageID;
begin
    Result := DefaultInterface.Language;
end;

function TWordApplication.Get_COMAddIns: COMAddIns;
begin
    Result := DefaultInterface.COMAddIns;
end;

function TWordApplication.Get_CheckLanguage: WordBool;
begin
    Result := DefaultInterface.CheckLanguage;
end;

procedure TWordApplication.Set_CheckLanguage(prop: WordBool);
begin
  DefaultInterface.Set_CheckLanguage(prop);
end;

function TWordApplication.Get_LanguageSettings: LanguageSettings;
begin
    Result := DefaultInterface.LanguageSettings;
end;

function TWordApplication.Get_Dummy1: WordBool;
begin
    Result := DefaultInterface.Dummy1;
end;

function TWordApplication.Get_AnswerWizard: AnswerWizard;
begin
    Result := DefaultInterface.AnswerWizard;
end;

function TWordApplication.Get_FeatureInstall: MsoFeatureInstall;
begin
    Result := DefaultInterface.FeatureInstall;
end;

procedure TWordApplication.Set_FeatureInstall(prop: MsoFeatureInstall);
begin
  DefaultInterface.Set_FeatureInstall(prop);
end;

function TWordApplication.Get_AutomationSecurity: MsoAutomationSecurity;
begin
    Result := DefaultInterface.AutomationSecurity;
end;

procedure TWordApplication.Set_AutomationSecurity(prop: MsoAutomationSecurity);
begin
  DefaultInterface.Set_AutomationSecurity(prop);
end;

function TWordApplication.Get_FileDialog(FileDialogType: MsoFileDialogType): FileDialog;
begin
    Result := DefaultInterface.FileDialog[FileDialogType];
end;

function TWordApplication.Get_EmailTemplate: WideString;
begin
    Result := DefaultInterface.EmailTemplate;
end;

procedure TWordApplication.Set_EmailTemplate(const prop: WideString);
  { Warning: The property EmailTemplate has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.EmailTemplate := prop;
end;

function TWordApplication.Get_ShowWindowsInTaskbar: WordBool;
begin
    Result := DefaultInterface.ShowWindowsInTaskbar;
end;

procedure TWordApplication.Set_ShowWindowsInTaskbar(prop: WordBool);
begin
  DefaultInterface.Set_ShowWindowsInTaskbar(prop);
end;

function TWordApplication.Get_NewDocument: NewFile;
begin
    Result := DefaultInterface.NewDocument;
end;

function TWordApplication.Get_ShowStartupDialog: WordBool;
begin
    Result := DefaultInterface.ShowStartupDialog;
end;

procedure TWordApplication.Set_ShowStartupDialog(prop: WordBool);
begin
  DefaultInterface.Set_ShowStartupDialog(prop);
end;

function TWordApplication.Get_AutoCorrectEmail: AutoCorrect;
begin
    Result := DefaultInterface.AutoCorrectEmail;
end;

function TWordApplication.Get_TaskPanes: TaskPanes;
begin
    Result := DefaultInterface.TaskPanes;
end;

function TWordApplication.Get_DefaultLegalBlackline: WordBool;
begin
    Result := DefaultInterface.DefaultLegalBlackline;
end;

procedure TWordApplication.Set_DefaultLegalBlackline(prop: WordBool);
begin
  DefaultInterface.Set_DefaultLegalBlackline(prop);
end;

procedure TWordApplication.Quit;
begin
  DefaultInterface.Quit(EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.Quit(var SaveChanges: OleVariant);
begin
  DefaultInterface.Quit(SaveChanges, EmptyParam, EmptyParam);
end;

procedure TWordApplication.Quit(var SaveChanges: OleVariant; var OriginalFormat: OleVariant);
begin
  DefaultInterface.Quit(SaveChanges, OriginalFormat, EmptyParam);
end;

procedure TWordApplication.Quit(var SaveChanges: OleVariant; var OriginalFormat: OleVariant; 
                                var RouteDocument: OleVariant);
begin
  DefaultInterface.Quit(SaveChanges, OriginalFormat, RouteDocument);
end;

procedure TWordApplication.ScreenRefresh;
begin
  DefaultInterface.ScreenRefresh;
end;

procedure TWordApplication.PrintOutOld;
begin
  DefaultInterface.PrintOutOld(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant; var Append: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                       var Range: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                       var Range: OleVariant; var OutputFileName: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                       var Range: OleVariant; var OutputFileName: OleVariant; 
                                       var From: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                       var Range: OleVariant; var OutputFileName: OleVariant; 
                                       var From: OleVariant; var To_: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                       var Range: OleVariant; var OutputFileName: OleVariant; 
                                       var From: OleVariant; var To_: OleVariant; 
                                       var Item: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                       var Range: OleVariant; var OutputFileName: OleVariant; 
                                       var From: OleVariant; var To_: OleVariant; 
                                       var Item: OleVariant; var Copies: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                       var Range: OleVariant; var OutputFileName: OleVariant; 
                                       var From: OleVariant; var To_: OleVariant; 
                                       var Item: OleVariant; var Copies: OleVariant; 
                                       var Pages: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               Pages, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                       var Range: OleVariant; var OutputFileName: OleVariant; 
                                       var From: OleVariant; var To_: OleVariant; 
                                       var Item: OleVariant; var Copies: OleVariant; 
                                       var Pages: OleVariant; var PageType: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               Pages, PageType, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                       var Range: OleVariant; var OutputFileName: OleVariant; 
                                       var From: OleVariant; var To_: OleVariant; 
                                       var Item: OleVariant; var Copies: OleVariant; 
                                       var Pages: OleVariant; var PageType: OleVariant; 
                                       var PrintToFile: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               Pages, PageType, PrintToFile, EmptyParam, EmptyParam, EmptyParam, 
                               EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                       var Range: OleVariant; var OutputFileName: OleVariant; 
                                       var From: OleVariant; var To_: OleVariant; 
                                       var Item: OleVariant; var Copies: OleVariant; 
                                       var Pages: OleVariant; var PageType: OleVariant; 
                                       var PrintToFile: OleVariant; var Collate: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               Pages, PageType, PrintToFile, Collate, EmptyParam, EmptyParam, 
                               EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                       var Range: OleVariant; var OutputFileName: OleVariant; 
                                       var From: OleVariant; var To_: OleVariant; 
                                       var Item: OleVariant; var Copies: OleVariant; 
                                       var Pages: OleVariant; var PageType: OleVariant; 
                                       var PrintToFile: OleVariant; var Collate: OleVariant; 
                                       var FileName: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               Pages, PageType, PrintToFile, Collate, FileName, EmptyParam, 
                               EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                       var Range: OleVariant; var OutputFileName: OleVariant; 
                                       var From: OleVariant; var To_: OleVariant; 
                                       var Item: OleVariant; var Copies: OleVariant; 
                                       var Pages: OleVariant; var PageType: OleVariant; 
                                       var PrintToFile: OleVariant; var Collate: OleVariant; 
                                       var FileName: OleVariant; var ActivePrinterMacGX: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, 
                               EmptyParam);
end;

procedure TWordApplication.PrintOutOld(var Background: OleVariant; var Append: OleVariant; 
                                       var Range: OleVariant; var OutputFileName: OleVariant; 
                                       var From: OleVariant; var To_: OleVariant; 
                                       var Item: OleVariant; var Copies: OleVariant; 
                                       var Pages: OleVariant; var PageType: OleVariant; 
                                       var PrintToFile: OleVariant; var Collate: OleVariant; 
                                       var FileName: OleVariant; 
                                       var ActivePrinterMacGX: OleVariant; 
                                       var ManualDuplexPrint: OleVariant);
begin
  DefaultInterface.PrintOutOld(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                               Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, 
                               ManualDuplexPrint);
end;

procedure TWordApplication.LookupNameProperties(const Name: WideString);
begin
  DefaultInterface.LookupNameProperties(Name);
end;

procedure TWordApplication.SubstituteFont(const UnavailableFont: WideString; 
                                          const SubstituteFont: WideString);
begin
  DefaultInterface.SubstituteFont(UnavailableFont, SubstituteFont);
end;

function TWordApplication.Repeat_: WordBool;
begin
  Result := DefaultInterface.Repeat_(EmptyParam);
end;

function TWordApplication.Repeat_(var Times: OleVariant): WordBool;
begin
  Result := DefaultInterface.Repeat_(Times);
end;

procedure TWordApplication.DDEExecute(Channel: Integer; const Command: WideString);
begin
  DefaultInterface.DDEExecute(Channel, Command);
end;

function TWordApplication.DDEInitiate(const App: WideString; const Topic: WideString): Integer;
begin
  Result := DefaultInterface.DDEInitiate(App, Topic);
end;

procedure TWordApplication.DDEPoke(Channel: Integer; const Item: WideString; const Data: WideString);
begin
  DefaultInterface.DDEPoke(Channel, Item, Data);
end;

function TWordApplication.DDERequest(Channel: Integer; const Item: WideString): WideString;
begin
  Result := DefaultInterface.DDERequest(Channel, Item);
end;

procedure TWordApplication.DDETerminate(Channel: Integer);
begin
  DefaultInterface.DDETerminate(Channel);
end;

procedure TWordApplication.DDETerminateAll;
begin
  DefaultInterface.DDETerminateAll;
end;

function TWordApplication.BuildKeyCode(Arg1: WdKey): Integer;
begin
  Result := DefaultInterface.BuildKeyCode(Arg1, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant): Integer;
begin
  Result := DefaultInterface.BuildKeyCode(Arg1, Arg2, EmptyParam, EmptyParam);
end;

function TWordApplication.BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant): Integer;
begin
  Result := DefaultInterface.BuildKeyCode(Arg1, Arg2, Arg3, EmptyParam);
end;

function TWordApplication.BuildKeyCode(Arg1: WdKey; var Arg2: OleVariant; var Arg3: OleVariant; 
                                       var Arg4: OleVariant): Integer;
begin
  Result := DefaultInterface.BuildKeyCode(Arg1, Arg2, Arg3, Arg4);
end;

function TWordApplication.KeyString(KeyCode: Integer): WideString;
begin
  Result := DefaultInterface.KeyString(KeyCode, EmptyParam);
end;

function TWordApplication.KeyString(KeyCode: Integer; var KeyCode2: OleVariant): WideString;
begin
  Result := DefaultInterface.KeyString(KeyCode, KeyCode2);
end;

procedure TWordApplication.OrganizerCopy(const Source: WideString; const Destination: WideString; 
                                         const Name: WideString; Object_: WdOrganizerObject);
begin
  DefaultInterface.OrganizerCopy(Source, Destination, Name, Object_);
end;

procedure TWordApplication.OrganizerDelete(const Source: WideString; const Name: WideString; 
                                           Object_: WdOrganizerObject);
begin
  DefaultInterface.OrganizerDelete(Source, Name, Object_);
end;

procedure TWordApplication.OrganizerRename(const Source: WideString; const Name: WideString; 
                                           const NewName: WideString; Object_: WdOrganizerObject);
begin
  DefaultInterface.OrganizerRename(Source, Name, NewName, Object_);
end;

procedure TWordApplication.AddAddress(var TagID: PSafeArray; var Value: PSafeArray);
begin
  DefaultInterface.AddAddress(TagID, Value);
end;

function TWordApplication.GetAddress: WideString;
begin
  Result := DefaultInterface.GetAddress(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                        EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.GetAddress(var Name: OleVariant): WideString;
begin
  Result := DefaultInterface.GetAddress(Name, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                        EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.GetAddress(var Name: OleVariant; var AddressProperties: OleVariant): WideString;
begin
  Result := DefaultInterface.GetAddress(Name, AddressProperties, EmptyParam, EmptyParam, 
                                        EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
                                     var UseAutoText: OleVariant): WideString;
begin
  Result := DefaultInterface.GetAddress(Name, AddressProperties, UseAutoText, EmptyParam, 
                                        EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
                                     var UseAutoText: OleVariant; 
                                     var DisplaySelectDialog: OleVariant): WideString;
begin
  Result := DefaultInterface.GetAddress(Name, AddressProperties, UseAutoText, DisplaySelectDialog, 
                                        EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
                                     var UseAutoText: OleVariant; 
                                     var DisplaySelectDialog: OleVariant; 
                                     var SelectDialog: OleVariant): WideString;
begin
  Result := DefaultInterface.GetAddress(Name, AddressProperties, UseAutoText, DisplaySelectDialog, 
                                        SelectDialog, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
                                     var UseAutoText: OleVariant; 
                                     var DisplaySelectDialog: OleVariant; 
                                     var SelectDialog: OleVariant; var CheckNamesDialog: OleVariant): WideString;
begin
  Result := DefaultInterface.GetAddress(Name, AddressProperties, UseAutoText, DisplaySelectDialog, 
                                        SelectDialog, CheckNamesDialog, EmptyParam, EmptyParam);
end;

function TWordApplication.GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
                                     var UseAutoText: OleVariant; 
                                     var DisplaySelectDialog: OleVariant; 
                                     var SelectDialog: OleVariant; 
                                     var CheckNamesDialog: OleVariant; 
                                     var RecentAddressesChoice: OleVariant): WideString;
begin
  Result := DefaultInterface.GetAddress(Name, AddressProperties, UseAutoText, DisplaySelectDialog, 
                                        SelectDialog, CheckNamesDialog, RecentAddressesChoice, 
                                        EmptyParam);
end;

function TWordApplication.GetAddress(var Name: OleVariant; var AddressProperties: OleVariant; 
                                     var UseAutoText: OleVariant; 
                                     var DisplaySelectDialog: OleVariant; 
                                     var SelectDialog: OleVariant; 
                                     var CheckNamesDialog: OleVariant; 
                                     var RecentAddressesChoice: OleVariant; 
                                     var UpdateRecentAddresses: OleVariant): WideString;
begin
  Result := DefaultInterface.GetAddress(Name, AddressProperties, UseAutoText, DisplaySelectDialog, 
                                        SelectDialog, CheckNamesDialog, RecentAddressesChoice, 
                                        UpdateRecentAddresses);
end;

function TWordApplication.CheckGrammar(const String_: WideString): WordBool;
begin
  Result := DefaultInterface.CheckGrammar(String_);
end;

function TWordApplication.CheckSpelling(const Word: WideString): WordBool;
begin
  Result := DefaultInterface.CheckSpelling(Word, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                           EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant): WordBool;
begin
  Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, EmptyParam, EmptyParam, 
                                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                           EmptyParam);
end;

function TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                                        var IgnoreUppercase: OleVariant): WordBool;
begin
  Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, EmptyParam, 
                                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                           EmptyParam);
end;

function TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                                        var IgnoreUppercase: OleVariant; 
                                        var MainDictionary: OleVariant): WordBool;
begin
  Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
                                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                           EmptyParam);
end;

function TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                                        var IgnoreUppercase: OleVariant; 
                                        var MainDictionary: OleVariant; 
                                        var CustomDictionary2: OleVariant): WordBool;
begin
  Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
                                           CustomDictionary2, EmptyParam, EmptyParam, EmptyParam, 
                                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                           EmptyParam);
end;

function TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                                        var IgnoreUppercase: OleVariant; 
                                        var MainDictionary: OleVariant; 
                                        var CustomDictionary2: OleVariant; 
                                        var CustomDictionary3: OleVariant): WordBool;
begin
  Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
                                           CustomDictionary2, CustomDictionary3, EmptyParam, 
                                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                           EmptyParam, EmptyParam);
end;

function TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                                        var IgnoreUppercase: OleVariant; 
                                        var MainDictionary: OleVariant; 
                                        var CustomDictionary2: OleVariant; 
                                        var CustomDictionary3: OleVariant; 
                                        var CustomDictionary4: OleVariant): WordBool;
begin
  Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
                                           CustomDictionary2, CustomDictionary3, CustomDictionary4, 
                                           EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                           EmptyParam, EmptyParam);
end;

function TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                                        var IgnoreUppercase: OleVariant; 
                                        var MainDictionary: OleVariant; 
                                        var CustomDictionary2: OleVariant; 
                                        var CustomDictionary3: OleVariant; 
                                        var CustomDictionary4: OleVariant; 
                                        var CustomDictionary5: OleVariant): WordBool;
begin
  Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
                                           CustomDictionary2, CustomDictionary3, CustomDictionary4, 
                                           CustomDictionary5, EmptyParam, EmptyParam, EmptyParam, 
                                           EmptyParam, EmptyParam);
end;

function TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                                        var IgnoreUppercase: OleVariant; 
                                        var MainDictionary: OleVariant; 
                                        var CustomDictionary2: OleVariant; 
                                        var CustomDictionary3: OleVariant; 
                                        var CustomDictionary4: OleVariant; 
                                        var CustomDictionary5: OleVariant; 
                                        var CustomDictionary6: OleVariant): WordBool;
begin
  Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
                                           CustomDictionary2, CustomDictionary3, CustomDictionary4, 
                                           CustomDictionary5, CustomDictionary6, EmptyParam, 
                                           EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                                        var IgnoreUppercase: OleVariant; 
                                        var MainDictionary: OleVariant; 
                                        var CustomDictionary2: OleVariant; 
                                        var CustomDictionary3: OleVariant; 
                                        var CustomDictionary4: OleVariant; 
                                        var CustomDictionary5: OleVariant; 
                                        var CustomDictionary6: OleVariant; 
                                        var CustomDictionary7: OleVariant): WordBool;
begin
  Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
                                           CustomDictionary2, CustomDictionary3, CustomDictionary4, 
                                           CustomDictionary5, CustomDictionary6, CustomDictionary7, 
                                           EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                                        var IgnoreUppercase: OleVariant; 
                                        var MainDictionary: OleVariant; 
                                        var CustomDictionary2: OleVariant; 
                                        var CustomDictionary3: OleVariant; 
                                        var CustomDictionary4: OleVariant; 
                                        var CustomDictionary5: OleVariant; 
                                        var CustomDictionary6: OleVariant; 
                                        var CustomDictionary7: OleVariant; 
                                        var CustomDictionary8: OleVariant): WordBool;
begin
  Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
                                           CustomDictionary2, CustomDictionary3, CustomDictionary4, 
                                           CustomDictionary5, CustomDictionary6, CustomDictionary7, 
                                           CustomDictionary8, EmptyParam, EmptyParam);
end;

function TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                                        var IgnoreUppercase: OleVariant; 
                                        var MainDictionary: OleVariant; 
                                        var CustomDictionary2: OleVariant; 
                                        var CustomDictionary3: OleVariant; 
                                        var CustomDictionary4: OleVariant; 
                                        var CustomDictionary5: OleVariant; 
                                        var CustomDictionary6: OleVariant; 
                                        var CustomDictionary7: OleVariant; 
                                        var CustomDictionary8: OleVariant; 
                                        var CustomDictionary9: OleVariant): WordBool;
begin
  Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
                                           CustomDictionary2, CustomDictionary3, CustomDictionary4, 
                                           CustomDictionary5, CustomDictionary6, CustomDictionary7, 
                                           CustomDictionary8, CustomDictionary9, EmptyParam);
end;

function TWordApplication.CheckSpelling(const Word: WideString; var CustomDictionary: OleVariant; 
                                        var IgnoreUppercase: OleVariant; 
                                        var MainDictionary: OleVariant; 
                                        var CustomDictionary2: OleVariant; 
                                        var CustomDictionary3: OleVariant; 
                                        var CustomDictionary4: OleVariant; 
                                        var CustomDictionary5: OleVariant; 
                                        var CustomDictionary6: OleVariant; 
                                        var CustomDictionary7: OleVariant; 
                                        var CustomDictionary8: OleVariant; 
                                        var CustomDictionary9: OleVariant; 
                                        var CustomDictionary10: OleVariant): WordBool;
begin
  Result := DefaultInterface.CheckSpelling(Word, CustomDictionary, IgnoreUppercase, MainDictionary, 
                                           CustomDictionary2, CustomDictionary3, CustomDictionary4, 
                                           CustomDictionary5, CustomDictionary6, CustomDictionary7, 
                                           CustomDictionary8, CustomDictionary9, CustomDictionary10);
end;

procedure TWordApplication.ResetIgnoreAll;
begin
  DefaultInterface.ResetIgnoreAll;
end;

function TWordApplication.GetSpellingSuggestions(const Word: WideString): SpellingSuggestions;
begin
  Result := DefaultInterface.GetSpellingSuggestions(Word, EmptyParam, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam);
end;

function TWordApplication.GetSpellingSuggestions(const Word: WideString; 
                                                 var CustomDictionary: OleVariant): SpellingSuggestions;
begin
  Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam);
end;

function TWordApplication.GetSpellingSuggestions(const Word: WideString; 
                                                 var CustomDictionary: OleVariant; 
                                                 var IgnoreUppercase: OleVariant): SpellingSuggestions;
begin
  Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
                                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.GetSpellingSuggestions(const Word: WideString; 
                                                 var CustomDictionary: OleVariant; 
                                                 var IgnoreUppercase: OleVariant; 
                                                 var MainDictionary: OleVariant): SpellingSuggestions;
begin
  Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
                                                    MainDictionary, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.GetSpellingSuggestions(const Word: WideString; 
                                                 var CustomDictionary: OleVariant; 
                                                 var IgnoreUppercase: OleVariant; 
                                                 var MainDictionary: OleVariant; 
                                                 var SuggestionMode: OleVariant): SpellingSuggestions;
begin
  Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
                                                    MainDictionary, SuggestionMode, EmptyParam, 
                                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.GetSpellingSuggestions(const Word: WideString; 
                                                 var CustomDictionary: OleVariant; 
                                                 var IgnoreUppercase: OleVariant; 
                                                 var MainDictionary: OleVariant; 
                                                 var SuggestionMode: OleVariant; 
                                                 var CustomDictionary2: OleVariant): SpellingSuggestions;
begin
  Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
                                                    MainDictionary, SuggestionMode, 
                                                    CustomDictionary2, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam);
end;

function TWordApplication.GetSpellingSuggestions(const Word: WideString; 
                                                 var CustomDictionary: OleVariant; 
                                                 var IgnoreUppercase: OleVariant; 
                                                 var MainDictionary: OleVariant; 
                                                 var SuggestionMode: OleVariant; 
                                                 var CustomDictionary2: OleVariant; 
                                                 var CustomDictionary3: OleVariant): SpellingSuggestions;
begin
  Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
                                                    MainDictionary, SuggestionMode, 
                                                    CustomDictionary2, CustomDictionary3, 
                                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.GetSpellingSuggestions(const Word: WideString; 
                                                 var CustomDictionary: OleVariant; 
                                                 var IgnoreUppercase: OleVariant; 
                                                 var MainDictionary: OleVariant; 
                                                 var SuggestionMode: OleVariant; 
                                                 var CustomDictionary2: OleVariant; 
                                                 var CustomDictionary3: OleVariant; 
                                                 var CustomDictionary4: OleVariant): SpellingSuggestions;
begin
  Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
                                                    MainDictionary, SuggestionMode, 
                                                    CustomDictionary2, CustomDictionary3, 
                                                    CustomDictionary4, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.GetSpellingSuggestions(const Word: WideString; 
                                                 var CustomDictionary: OleVariant; 
                                                 var IgnoreUppercase: OleVariant; 
                                                 var MainDictionary: OleVariant; 
                                                 var SuggestionMode: OleVariant; 
                                                 var CustomDictionary2: OleVariant; 
                                                 var CustomDictionary3: OleVariant; 
                                                 var CustomDictionary4: OleVariant; 
                                                 var CustomDictionary5: OleVariant): SpellingSuggestions;
begin
  Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
                                                    MainDictionary, SuggestionMode, 
                                                    CustomDictionary2, CustomDictionary3, 
                                                    CustomDictionary4, CustomDictionary5, 
                                                    EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                                    EmptyParam);
end;

function TWordApplication.GetSpellingSuggestions(const Word: WideString; 
                                                 var CustomDictionary: OleVariant; 
                                                 var IgnoreUppercase: OleVariant; 
                                                 var MainDictionary: OleVariant; 
                                                 var SuggestionMode: OleVariant; 
                                                 var CustomDictionary2: OleVariant; 
                                                 var CustomDictionary3: OleVariant; 
                                                 var CustomDictionary4: OleVariant; 
                                                 var CustomDictionary5: OleVariant; 
                                                 var CustomDictionary6: OleVariant): SpellingSuggestions;
begin
  Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
                                                    MainDictionary, SuggestionMode, 
                                                    CustomDictionary2, CustomDictionary3, 
                                                    CustomDictionary4, CustomDictionary5, 
                                                    CustomDictionary6, EmptyParam, EmptyParam, 
                                                    EmptyParam, EmptyParam);
end;

function TWordApplication.GetSpellingSuggestions(const Word: WideString; 
                                                 var CustomDictionary: OleVariant; 
                                                 var IgnoreUppercase: OleVariant; 
                                                 var MainDictionary: OleVariant; 
                                                 var SuggestionMode: OleVariant; 
                                                 var CustomDictionary2: OleVariant; 
                                                 var CustomDictionary3: OleVariant; 
                                                 var CustomDictionary4: OleVariant; 
                                                 var CustomDictionary5: OleVariant; 
                                                 var CustomDictionary6: OleVariant; 
                                                 var CustomDictionary7: OleVariant): SpellingSuggestions;
begin
  Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
                                                    MainDictionary, SuggestionMode, 
                                                    CustomDictionary2, CustomDictionary3, 
                                                    CustomDictionary4, CustomDictionary5, 
                                                    CustomDictionary6, CustomDictionary7, 
                                                    EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.GetSpellingSuggestions(const Word: WideString; 
                                                 var CustomDictionary: OleVariant; 
                                                 var IgnoreUppercase: OleVariant; 
                                                 var MainDictionary: OleVariant; 
                                                 var SuggestionMode: OleVariant; 
                                                 var CustomDictionary2: OleVariant; 
                                                 var CustomDictionary3: OleVariant; 
                                                 var CustomDictionary4: OleVariant; 
                                                 var CustomDictionary5: OleVariant; 
                                                 var CustomDictionary6: OleVariant; 
                                                 var CustomDictionary7: OleVariant; 
                                                 var CustomDictionary8: OleVariant): SpellingSuggestions;
begin
  Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
                                                    MainDictionary, SuggestionMode, 
                                                    CustomDictionary2, CustomDictionary3, 
                                                    CustomDictionary4, CustomDictionary5, 
                                                    CustomDictionary6, CustomDictionary7, 
                                                    CustomDictionary8, EmptyParam, EmptyParam);
end;

function TWordApplication.GetSpellingSuggestions(const Word: WideString; 
                                                 var CustomDictionary: OleVariant; 
                                                 var IgnoreUppercase: OleVariant; 
                                                 var MainDictionary: OleVariant; 
                                                 var SuggestionMode: OleVariant; 
                                                 var CustomDictionary2: OleVariant; 
                                                 var CustomDictionary3: OleVariant; 
                                                 var CustomDictionary4: OleVariant; 
                                                 var CustomDictionary5: OleVariant; 
                                                 var CustomDictionary6: OleVariant; 
                                                 var CustomDictionary7: OleVariant; 
                                                 var CustomDictionary8: OleVariant; 
                                                 var CustomDictionary9: OleVariant): SpellingSuggestions;
begin
  Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
                                                    MainDictionary, SuggestionMode, 
                                                    CustomDictionary2, CustomDictionary3, 
                                                    CustomDictionary4, CustomDictionary5, 
                                                    CustomDictionary6, CustomDictionary7, 
                                                    CustomDictionary8, CustomDictionary9, EmptyParam);
end;

function TWordApplication.GetSpellingSuggestions(const Word: WideString; 
                                                 var CustomDictionary: OleVariant; 
                                                 var IgnoreUppercase: OleVariant; 
                                                 var MainDictionary: OleVariant; 
                                                 var SuggestionMode: OleVariant; 
                                                 var CustomDictionary2: OleVariant; 
                                                 var CustomDictionary3: OleVariant; 
                                                 var CustomDictionary4: OleVariant; 
                                                 var CustomDictionary5: OleVariant; 
                                                 var CustomDictionary6: OleVariant; 
                                                 var CustomDictionary7: OleVariant; 
                                                 var CustomDictionary8: OleVariant; 
                                                 var CustomDictionary9: OleVariant; 
                                                 var CustomDictionary10: OleVariant): SpellingSuggestions;
begin
  Result := DefaultInterface.GetSpellingSuggestions(Word, CustomDictionary, IgnoreUppercase, 
                                                    MainDictionary, SuggestionMode, 
                                                    CustomDictionary2, CustomDictionary3, 
                                                    CustomDictionary4, CustomDictionary5, 
                                                    CustomDictionary6, CustomDictionary7, 
                                                    CustomDictionary8, CustomDictionary9, 
                                                    CustomDictionary10);
end;

procedure TWordApplication.GoBack;
begin
  DefaultInterface.GoBack;
end;

procedure TWordApplication.Help(var HelpType: OleVariant);
begin
  DefaultInterface.Help(HelpType);
end;

procedure TWordApplication.AutomaticChange;
begin
  DefaultInterface.AutomaticChange;
end;

procedure TWordApplication.ShowMe;
begin
  DefaultInterface.ShowMe;
end;

procedure TWordApplication.HelpTool;
begin
  DefaultInterface.HelpTool;
end;

function TWordApplication.NewWindow: Window;
begin
  Result := DefaultInterface.NewWindow;
end;

procedure TWordApplication.ListCommands(ListAllCommands: WordBool);
begin
  DefaultInterface.ListCommands(ListAllCommands);
end;

procedure TWordApplication.ShowClipboard;
begin
  DefaultInterface.ShowClipboard;
end;

procedure TWordApplication.OnTime(var When: OleVariant; const Name: WideString);
begin
  DefaultInterface.OnTime(When, Name, EmptyParam);
end;

procedure TWordApplication.OnTime(var When: OleVariant; const Name: WideString; 
                                  var Tolerance: OleVariant);
begin
  DefaultInterface.OnTime(When, Name, Tolerance);
end;

procedure TWordApplication.NextLetter;
begin
  DefaultInterface.NextLetter;
end;

function TWordApplication.MountVolume(const Zone: WideString; const Server: WideString; 
                                      const Volume: WideString): Smallint;
begin
  Result := DefaultInterface.MountVolume(Zone, Server, Volume, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.MountVolume(const Zone: WideString; const Server: WideString; 
                                      const Volume: WideString; var User: OleVariant): Smallint;
begin
  Result := DefaultInterface.MountVolume(Zone, Server, Volume, User, EmptyParam, EmptyParam);
end;

function TWordApplication.MountVolume(const Zone: WideString; const Server: WideString; 
                                      const Volume: WideString; var User: OleVariant; 
                                      var UserPassword: OleVariant): Smallint;
begin
  Result := DefaultInterface.MountVolume(Zone, Server, Volume, User, UserPassword, EmptyParam);
end;

function TWordApplication.MountVolume(const Zone: WideString; const Server: WideString; 
                                      const Volume: WideString; var User: OleVariant; 
                                      var UserPassword: OleVariant; var VolumePassword: OleVariant): Smallint;
begin
  Result := DefaultInterface.MountVolume(Zone, Server, Volume, User, UserPassword, VolumePassword);
end;

function TWordApplication.CleanString(const String_: WideString): WideString;
begin
  Result := DefaultInterface.CleanString(String_);
end;

procedure TWordApplication.SendFax;
begin
  DefaultInterface.SendFax;
end;

procedure TWordApplication.ChangeFileOpenDirectory(const Path: WideString);
begin
  DefaultInterface.ChangeFileOpenDirectory(Path);
end;

procedure TWordApplication.RunOld(const MacroName: WideString);
begin
  DefaultInterface.RunOld(MacroName);
end;

procedure TWordApplication.GoForward;
begin
  DefaultInterface.GoForward;
end;

procedure TWordApplication.Move(Left: Integer; Top: Integer);
begin
  DefaultInterface.Move(Left, Top);
end;

procedure TWordApplication.Resize(Width: Integer; Height: Integer);
begin
  DefaultInterface.Resize(Width, Height);
end;

function TWordApplication.InchesToPoints(Inches: Single): Single;
begin
  Result := DefaultInterface.InchesToPoints(Inches);
end;

function TWordApplication.CentimetersToPoints(Centimeters: Single): Single;
begin
  Result := DefaultInterface.CentimetersToPoints(Centimeters);
end;

function TWordApplication.MillimetersToPoints(Millimeters: Single): Single;
begin
  Result := DefaultInterface.MillimetersToPoints(Millimeters);
end;

function TWordApplication.PicasToPoints(Picas: Single): Single;
begin
  Result := DefaultInterface.PicasToPoints(Picas);
end;

function TWordApplication.LinesToPoints(Lines: Single): Single;
begin
  Result := DefaultInterface.LinesToPoints(Lines);
end;

function TWordApplication.PointsToInches(Points: Single): Single;
begin
  Result := DefaultInterface.PointsToInches(Points);
end;

function TWordApplication.PointsToCentimeters(Points: Single): Single;
begin
  Result := DefaultInterface.PointsToCentimeters(Points);
end;

function TWordApplication.PointsToMillimeters(Points: Single): Single;
begin
  Result := DefaultInterface.PointsToMillimeters(Points);
end;

function TWordApplication.PointsToPicas(Points: Single): Single;
begin
  Result := DefaultInterface.PointsToPicas(Points);
end;

function TWordApplication.PointsToLines(Points: Single): Single;
begin
  Result := DefaultInterface.PointsToLines(Points);
end;

procedure TWordApplication.Activate;
begin
  DefaultInterface.Activate;
end;

function TWordApplication.PointsToPixels(Points: Single): Single;
begin
  Result := DefaultInterface.PointsToPixels(Points, EmptyParam);
end;

function TWordApplication.PointsToPixels(Points: Single; var fVertical: OleVariant): Single;
begin
  Result := DefaultInterface.PointsToPixels(Points, fVertical);
end;

function TWordApplication.PixelsToPoints(Pixels: Single): Single;
begin
  Result := DefaultInterface.PixelsToPoints(Pixels, EmptyParam);
end;

function TWordApplication.PixelsToPoints(Pixels: Single; var fVertical: OleVariant): Single;
begin
  Result := DefaultInterface.PixelsToPoints(Pixels, fVertical);
end;

procedure TWordApplication.KeyboardLatin;
begin
  DefaultInterface.KeyboardLatin;
end;

procedure TWordApplication.KeyboardBidi;
begin
  DefaultInterface.KeyboardBidi;
end;

procedure TWordApplication.ToggleKeyboard;
begin
  DefaultInterface.ToggleKeyboard;
end;

function TWordApplication.Keyboard(LangId: Integer): Integer;
begin
  Result := DefaultInterface.Keyboard(LangId);
end;

function TWordApplication.ProductCode: WideString;
begin
  Result := DefaultInterface.ProductCode;
end;

function TWordApplication.DefaultWebOptions: DefaultWebOptions;
begin
  Result := DefaultInterface.DefaultWebOptions;
end;

procedure TWordApplication.DiscussionSupport(var Range: OleVariant; var cid: OleVariant; 
                                             var piCSE: OleVariant);
begin
  DefaultInterface.DiscussionSupport(Range, cid, piCSE);
end;

procedure TWordApplication.SetDefaultTheme(const Name: WideString; DocumentType: WdDocumentMedium);
begin
  DefaultInterface.SetDefaultTheme(Name, DocumentType);
end;

function TWordApplication.GetDefaultTheme(DocumentType: WdDocumentMedium): WideString;
begin
  Result := DefaultInterface.GetDefaultTheme(DocumentType);
end;

procedure TWordApplication.PrintOut2000;
begin
  DefaultInterface.PrintOut2000(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant; var To_: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant; var To_: OleVariant; 
                                        var Item: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant; var To_: OleVariant; 
                                        var Item: OleVariant; var Copies: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant; var To_: OleVariant; 
                                        var Item: OleVariant; var Copies: OleVariant; 
                                        var Pages: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant; var To_: OleVariant; 
                                        var Item: OleVariant; var Copies: OleVariant; 
                                        var Pages: OleVariant; var PageType: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant; var To_: OleVariant; 
                                        var Item: OleVariant; var Copies: OleVariant; 
                                        var Pages: OleVariant; var PageType: OleVariant; 
                                        var PrintToFile: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant; var To_: OleVariant; 
                                        var Item: OleVariant; var Copies: OleVariant; 
                                        var Pages: OleVariant; var PageType: OleVariant; 
                                        var PrintToFile: OleVariant; var Collate: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant; var To_: OleVariant; 
                                        var Item: OleVariant; var Copies: OleVariant; 
                                        var Pages: OleVariant; var PageType: OleVariant; 
                                        var PrintToFile: OleVariant; var Collate: OleVariant; 
                                        var FileName: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, FileName, EmptyParam, 
                                EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant; var To_: OleVariant; 
                                        var Item: OleVariant; var Copies: OleVariant; 
                                        var Pages: OleVariant; var PageType: OleVariant; 
                                        var PrintToFile: OleVariant; var Collate: OleVariant; 
                                        var FileName: OleVariant; var ActivePrinterMacGX: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, FileName, 
                                ActivePrinterMacGX, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant; var To_: OleVariant; 
                                        var Item: OleVariant; var Copies: OleVariant; 
                                        var Pages: OleVariant; var PageType: OleVariant; 
                                        var PrintToFile: OleVariant; var Collate: OleVariant; 
                                        var FileName: OleVariant; 
                                        var ActivePrinterMacGX: OleVariant; 
                                        var ManualDuplexPrint: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, FileName, 
                                ActivePrinterMacGX, ManualDuplexPrint, EmptyParam, EmptyParam, 
                                EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant; var To_: OleVariant; 
                                        var Item: OleVariant; var Copies: OleVariant; 
                                        var Pages: OleVariant; var PageType: OleVariant; 
                                        var PrintToFile: OleVariant; var Collate: OleVariant; 
                                        var FileName: OleVariant; 
                                        var ActivePrinterMacGX: OleVariant; 
                                        var ManualDuplexPrint: OleVariant; 
                                        var PrintZoomColumn: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, FileName, 
                                ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, EmptyParam, 
                                EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant; var To_: OleVariant; 
                                        var Item: OleVariant; var Copies: OleVariant; 
                                        var Pages: OleVariant; var PageType: OleVariant; 
                                        var PrintToFile: OleVariant; var Collate: OleVariant; 
                                        var FileName: OleVariant; 
                                        var ActivePrinterMacGX: OleVariant; 
                                        var ManualDuplexPrint: OleVariant; 
                                        var PrintZoomColumn: OleVariant; 
                                        var PrintZoomRow: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, FileName, 
                                ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, 
                                PrintZoomRow, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant; var To_: OleVariant; 
                                        var Item: OleVariant; var Copies: OleVariant; 
                                        var Pages: OleVariant; var PageType: OleVariant; 
                                        var PrintToFile: OleVariant; var Collate: OleVariant; 
                                        var FileName: OleVariant; 
                                        var ActivePrinterMacGX: OleVariant; 
                                        var ManualDuplexPrint: OleVariant; 
                                        var PrintZoomColumn: OleVariant; 
                                        var PrintZoomRow: OleVariant; 
                                        var PrintZoomPaperWidth: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, FileName, 
                                ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, 
                                PrintZoomRow, PrintZoomPaperWidth, EmptyParam);
end;

procedure TWordApplication.PrintOut2000(var Background: OleVariant; var Append: OleVariant; 
                                        var Range: OleVariant; var OutputFileName: OleVariant; 
                                        var From: OleVariant; var To_: OleVariant; 
                                        var Item: OleVariant; var Copies: OleVariant; 
                                        var Pages: OleVariant; var PageType: OleVariant; 
                                        var PrintToFile: OleVariant; var Collate: OleVariant; 
                                        var FileName: OleVariant; 
                                        var ActivePrinterMacGX: OleVariant; 
                                        var ManualDuplexPrint: OleVariant; 
                                        var PrintZoomColumn: OleVariant; 
                                        var PrintZoomRow: OleVariant; 
                                        var PrintZoomPaperWidth: OleVariant; 
                                        var PrintZoomPaperHeight: OleVariant);
begin
  DefaultInterface.PrintOut2000(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                                Pages, PageType, PrintToFile, Collate, FileName, 
                                ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, 
                                PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight);
end;

function TWordApplication.Run(const MacroName: WideString): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; var varg13: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; var varg15: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant; var varg17: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 varg17, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant; 
                              var varg17: OleVariant; var varg18: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 varg17, varg18, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant; 
                              var varg17: OleVariant; var varg18: OleVariant; var varg19: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 varg17, varg18, varg19, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant; 
                              var varg17: OleVariant; var varg18: OleVariant; 
                              var varg19: OleVariant; var varg20: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 varg17, varg18, varg19, varg20, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant; 
                              var varg17: OleVariant; var varg18: OleVariant; 
                              var varg19: OleVariant; var varg20: OleVariant; var varg21: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 varg17, varg18, varg19, varg20, varg21, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant; 
                              var varg17: OleVariant; var varg18: OleVariant; 
                              var varg19: OleVariant; var varg20: OleVariant; 
                              var varg21: OleVariant; var varg22: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 varg17, varg18, varg19, varg20, varg21, varg22, EmptyParam, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant; 
                              var varg17: OleVariant; var varg18: OleVariant; 
                              var varg19: OleVariant; var varg20: OleVariant; 
                              var varg21: OleVariant; var varg22: OleVariant; var varg23: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 varg17, varg18, varg19, varg20, varg21, varg22, varg23, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant; 
                              var varg17: OleVariant; var varg18: OleVariant; 
                              var varg19: OleVariant; var varg20: OleVariant; 
                              var varg21: OleVariant; var varg22: OleVariant; 
                              var varg23: OleVariant; var varg24: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 varg17, varg18, varg19, varg20, varg21, varg22, varg23, varg24, 
                                 EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                                 EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant; 
                              var varg17: OleVariant; var varg18: OleVariant; 
                              var varg19: OleVariant; var varg20: OleVariant; 
                              var varg21: OleVariant; var varg22: OleVariant; 
                              var varg23: OleVariant; var varg24: OleVariant; var varg25: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 varg17, varg18, varg19, varg20, varg21, varg22, varg23, varg24, 
                                 varg25, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant; 
                              var varg17: OleVariant; var varg18: OleVariant; 
                              var varg19: OleVariant; var varg20: OleVariant; 
                              var varg21: OleVariant; var varg22: OleVariant; 
                              var varg23: OleVariant; var varg24: OleVariant; 
                              var varg25: OleVariant; var varg26: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 varg17, varg18, varg19, varg20, varg21, varg22, varg23, varg24, 
                                 varg25, varg26, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant; 
                              var varg17: OleVariant; var varg18: OleVariant; 
                              var varg19: OleVariant; var varg20: OleVariant; 
                              var varg21: OleVariant; var varg22: OleVariant; 
                              var varg23: OleVariant; var varg24: OleVariant; 
                              var varg25: OleVariant; var varg26: OleVariant; var varg27: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 varg17, varg18, varg19, varg20, varg21, varg22, varg23, varg24, 
                                 varg25, varg26, varg27, EmptyParam, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant; 
                              var varg17: OleVariant; var varg18: OleVariant; 
                              var varg19: OleVariant; var varg20: OleVariant; 
                              var varg21: OleVariant; var varg22: OleVariant; 
                              var varg23: OleVariant; var varg24: OleVariant; 
                              var varg25: OleVariant; var varg26: OleVariant; 
                              var varg27: OleVariant; var varg28: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 varg17, varg18, varg19, varg20, varg21, varg22, varg23, varg24, 
                                 varg25, varg26, varg27, varg28, EmptyParam, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant; 
                              var varg17: OleVariant; var varg18: OleVariant; 
                              var varg19: OleVariant; var varg20: OleVariant; 
                              var varg21: OleVariant; var varg22: OleVariant; 
                              var varg23: OleVariant; var varg24: OleVariant; 
                              var varg25: OleVariant; var varg26: OleVariant; 
                              var varg27: OleVariant; var varg28: OleVariant; var varg29: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 varg17, varg18, varg19, varg20, varg21, varg22, varg23, varg24, 
                                 varg25, varg26, varg27, varg28, varg29, EmptyParam);
end;

function TWordApplication.Run(const MacroName: WideString; var varg1: OleVariant; 
                              var varg2: OleVariant; var varg3: OleVariant; var varg4: OleVariant; 
                              var varg5: OleVariant; var varg6: OleVariant; var varg7: OleVariant; 
                              var varg8: OleVariant; var varg9: OleVariant; var varg10: OleVariant; 
                              var varg11: OleVariant; var varg12: OleVariant; 
                              var varg13: OleVariant; var varg14: OleVariant; 
                              var varg15: OleVariant; var varg16: OleVariant; 
                              var varg17: OleVariant; var varg18: OleVariant; 
                              var varg19: OleVariant; var varg20: OleVariant; 
                              var varg21: OleVariant; var varg22: OleVariant; 
                              var varg23: OleVariant; var varg24: OleVariant; 
                              var varg25: OleVariant; var varg26: OleVariant; 
                              var varg27: OleVariant; var varg28: OleVariant; 
                              var varg29: OleVariant; var varg30: OleVariant): OleVariant;
begin
  Result := DefaultInterface.Run(MacroName, varg1, varg2, varg3, varg4, varg5, varg6, varg7, varg8, 
                                 varg9, varg10, varg11, varg12, varg13, varg14, varg15, varg16, 
                                 varg17, varg18, varg19, varg20, varg21, varg22, varg23, varg24, 
                                 varg25, varg26, varg27, varg28, varg29, varg30);
end;

procedure TWordApplication.PrintOut;
begin
  DefaultInterface.PrintOut(EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant);
begin
  DefaultInterface.PrintOut(Background, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; var Item: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant; 
                                    var PrintToFile: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, EmptyParam, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant; 
                                    var PrintToFile: OleVariant; var Collate: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, EmptyParam, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant; 
                                    var PrintToFile: OleVariant; var Collate: OleVariant; 
                                    var FileName: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, FileName, EmptyParam, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant; 
                                    var PrintToFile: OleVariant; var Collate: OleVariant; 
                                    var FileName: OleVariant; var ActivePrinterMacGX: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, 
                            EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant; 
                                    var PrintToFile: OleVariant; var Collate: OleVariant; 
                                    var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                                    var ManualDuplexPrint: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, 
                            ManualDuplexPrint, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant; 
                                    var PrintToFile: OleVariant; var Collate: OleVariant; 
                                    var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                                    var ManualDuplexPrint: OleVariant; 
                                    var PrintZoomColumn: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, 
                            ManualDuplexPrint, PrintZoomColumn, EmptyParam, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant; 
                                    var PrintToFile: OleVariant; var Collate: OleVariant; 
                                    var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                                    var ManualDuplexPrint: OleVariant; 
                                    var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, 
                            ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, EmptyParam, EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant; 
                                    var PrintToFile: OleVariant; var Collate: OleVariant; 
                                    var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                                    var ManualDuplexPrint: OleVariant; 
                                    var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                                    var PrintZoomPaperWidth: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, 
                            ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, 
                            EmptyParam);
end;

procedure TWordApplication.PrintOut(var Background: OleVariant; var Append: OleVariant; 
                                    var Range: OleVariant; var OutputFileName: OleVariant; 
                                    var From: OleVariant; var To_: OleVariant; 
                                    var Item: OleVariant; var Copies: OleVariant; 
                                    var Pages: OleVariant; var PageType: OleVariant; 
                                    var PrintToFile: OleVariant; var Collate: OleVariant; 
                                    var FileName: OleVariant; var ActivePrinterMacGX: OleVariant; 
                                    var ManualDuplexPrint: OleVariant; 
                                    var PrintZoomColumn: OleVariant; var PrintZoomRow: OleVariant; 
                                    var PrintZoomPaperWidth: OleVariant; 
                                    var PrintZoomPaperHeight: OleVariant);
begin
  DefaultInterface.PrintOut(Background, Append, Range, OutputFileName, From, To_, Item, Copies, 
                            Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, 
                            ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, 
                            PrintZoomPaperHeight);
end;

function TWordApplication.Dummy2: WordBool;
begin
  Result := DefaultInterface.Dummy2;
end;

{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
constructor TWordApplicationProperties.Create(AServer: TWordApplication);
begin
  inherited Create;
  FServer := AServer;
end;

function TWordApplicationProperties.GetDefaultInterface: _Application;
begin
  Result := FServer.DefaultInterface;
end;

function TWordApplicationProperties.Get_Application: WordApplication;
begin
    Result := DefaultInterface.Application;
end;

function TWordApplicationProperties.Get_Creator: Integer;
begin
    Result := DefaultInterface.Creator;
end;

function TWordApplicationProperties.Get_Parent: IDispatch;
begin
    Result := DefaultInterface.Parent;
end;

function TWordApplicationProperties.Get_Name: WideString;
begin
    Result := DefaultInterface.Name;
end;

function TWordApplicationProperties.Get_Documents: Documents;
begin
    Result := DefaultInterface.Documents;
end;

function TWordApplicationProperties.Get_Windows: Windows;
begin
    Result := DefaultInterface.Windows;
end;

function TWordApplicationProperties.Get_ActiveDocument: WordDocument;
begin
    Result := DefaultInterface.ActiveDocument;
end;

function TWordApplicationProperties.Get_ActiveWindow: Window;
begin
    Result := DefaultInterface.ActiveWindow;
end;

function TWordApplicationProperties.Get_Selection: WordSelection;
begin
    Result := DefaultInterface.Selection;
end;

function TWordApplicationProperties.Get_WordBasic: IDispatch;
begin
    Result := DefaultInterface.WordBasic;
end;

function TWordApplicationProperties.Get_RecentFiles: RecentFiles;
begin
    Result := DefaultInterface.RecentFiles;
end;

function TWordApplicationProperties.Get_NormalTemplate: Template;
begin
    Result := DefaultInterface.NormalTemplate;
end;

function TWordApplicationProperties.Get_System_: System;
begin
    Result := DefaultInterface.System_;
end;

function TWordApplicationProperties.Get_AutoCorrect: AutoCorrect;
begin
    Result := DefaultInterface.AutoCorrect;
end;

function TWordApplicationProperties.Get_FontNames: FontNames;
begin
    Result := DefaultInterface.FontNames;
end;

function TWordApplicationProperties.Get_LandscapeFontNames: FontNames;
begin
    Result := DefaultInterface.LandscapeFontNames;
end;

function TWordApplicationProperties.Get_PortraitFontNames: FontNames;
begin
    Result := DefaultInterface.PortraitFontNames;
end;

function TWordApplicationProperties.Get_Languages: Languages;
begin
    Result := DefaultInterface.Languages;
end;

function TWordApplicationProperties.Get_Assistant: Assistant;
begin
    Result := DefaultInterface.Assistant;
end;

function TWordApplicationProperties.Get_Browser: Browser;
begin
    Result := DefaultInterface.Browser;
end;

function TWordApplicationProperties.Get_FileConverters: FileConverters;
begin
    Result := DefaultInterface.FileConverters;
end;

function TWordApplicationProperties.Get_MailingLabel: MailingLabel;
begin
    Result := DefaultInterface.MailingLabel;
end;

function TWordApplicationProperties.Get_Dialogs: Dialogs;
begin
    Result := DefaultInterface.Dialogs;
end;

function TWordApplicationProperties.Get_CaptionLabels: CaptionLabels;
begin
    Result := DefaultInterface.CaptionLabels;
end;

function TWordApplicationProperties.Get_AutoCaptions: AutoCaptions;
begin
    Result := DefaultInterface.AutoCaptions;
end;

function TWordApplicationProperties.Get_AddIns: AddIns;
begin
    Result := DefaultInterface.AddIns;
end;

function TWordApplicationProperties.Get_Visible: WordBool;
begin
    Result := DefaultInterface.Visible;
end;

procedure TWordApplicationProperties.Set_Visible(prop: WordBool);
begin
  DefaultInterface.Set_Visible(prop);
end;

function TWordApplicationProperties.Get_Version: WideString;
begin
    Result := DefaultInterface.Version;
end;

function TWordApplicationProperties.Get_ScreenUpdating: WordBool;
begin
    Result := DefaultInterface.ScreenUpdating;
end;

procedure TWordApplicationProperties.Set_ScreenUpdating(prop: WordBool);
begin
  DefaultInterface.Set_ScreenUpdating(prop);
end;

function TWordApplicationProperties.Get_PrintPreview: WordBool;
begin
    Result := DefaultInterface.PrintPreview;
end;

procedure TWordApplicationProperties.Set_PrintPreview(prop: WordBool);
begin
  DefaultInterface.Set_PrintPreview(prop);
end;

function TWordApplicationProperties.Get_Tasks: Tasks;
begin
    Result := DefaultInterface.Tasks;
end;

function TWordApplicationProperties.Get_DisplayStatusBar: WordBool;
begin
    Result := DefaultInterface.DisplayStatusBar;
end;

procedure TWordApplicationProperties.Set_DisplayStatusBar(prop: WordBool);
begin
  DefaultInterface.Set_DisplayStatusBar(prop);
end;

function TWordApplicationProperties.Get_SpecialMode: WordBool;
begin
    Result := DefaultInterface.SpecialMode;
end;

function TWordApplicationProperties.Get_UsableWidth: Integer;
begin
    Result := DefaultInterface.UsableWidth;
end;

function TWordApplicationProperties.Get_UsableHeight: Integer;
begin
    Result := DefaultInterface.UsableHeight;
end;

function TWordApplicationProperties.Get_MathCoprocessorAvailable: WordBool;
begin
    Result := DefaultInterface.MathCoprocessorAvailable;
end;

function TWordApplicationProperties.Get_MouseAvailable: WordBool;
begin
    Result := DefaultInterface.MouseAvailable;
end;

function TWordApplicationProperties.Get_International(Index: WdInternationalIndex): OleVariant;
var
  InterfaceVariant : OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  Result := InterfaceVariant.International[Index];
end;

function TWordApplicationProperties.Get_Build: WideString;
begin
    Result := DefaultInterface.Build;
end;

function TWordApplicationProperties.Get_CapsLock: WordBool;
begin
    Result := DefaultInterface.CapsLock;
end;

function TWordApplicationProperties.Get_NumLock: WordBool;
begin
    Result := DefaultInterface.NumLock;
end;

function TWordApplicationProperties.Get_UserName: WideString;
begin
    Result := DefaultInterface.UserName;
end;

procedure TWordApplicationProperties.Set_UserName(const prop: WideString);
  { Warning: The property UserName has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.UserName := prop;
end;

function TWordApplicationProperties.Get_UserInitials: WideString;
begin
    Result := DefaultInterface.UserInitials;
end;

procedure TWordApplicationProperties.Set_UserInitials(const prop: WideString);
  { Warning: The property UserInitials has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.UserInitials := prop;
end;

function TWordApplicationProperties.Get_UserAddress: WideString;
begin
    Result := DefaultInterface.UserAddress;
end;

procedure TWordApplicationProperties.Set_UserAddress(const prop: WideString);
  { Warning: The property UserAddress has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.UserAddress := prop;
end;

function TWordApplicationProperties.Get_MacroContainer: IDispatch;
begin
    Result := DefaultInterface.MacroContainer;
end;

function TWordApplicationProperties.Get_DisplayRecentFiles: WordBool;
begin
    Result := DefaultInterface.DisplayRecentFiles;
end;

procedure TWordApplicationProperties.Set_DisplayRecentFiles(prop: WordBool);
begin
  DefaultInterface.Set_DisplayRecentFiles(prop);
end;

function TWordApplicationProperties.Get_CommandBars: CommandBars;
begin
    Result := DefaultInterface.CommandBars;
end;

function TWordApplicationProperties.Get_SynonymInfo(const Word: WideString; 
                                                    var LanguageID: OleVariant): SynonymInfo;
begin
    Result := DefaultInterface.SynonymInfo[Word, LanguageID];
end;

function TWordApplicationProperties.Get_VBE: VBE;
begin
    Result := DefaultInterface.VBE;
end;

function TWordApplicationProperties.Get_DefaultSaveFormat: WideString;
begin
    Result := DefaultInterface.DefaultSaveFormat;
end;

procedure TWordApplicationProperties.Set_DefaultSaveFormat(const prop: WideString);
  { Warning: The property DefaultSaveFormat has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.DefaultSaveFormat := prop;
end;

function TWordApplicationProperties.Get_ListGalleries: ListGalleries;
begin
    Result := DefaultInterface.ListGalleries;
end;

function TWordApplicationProperties.Get_ActivePrinter: WideString;
begin
    Result := DefaultInterface.ActivePrinter;
end;

procedure TWordApplicationProperties.Set_ActivePrinter(const prop: WideString);
  { Warning: The property ActivePrinter has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.ActivePrinter := prop;
end;

function TWordApplicationProperties.Get_Templates: Templates;
begin
    Result := DefaultInterface.Templates;
end;

function TWordApplicationProperties.Get_CustomizationContext: IDispatch;
begin
    Result := DefaultInterface.CustomizationContext;
end;

procedure TWordApplicationProperties.Set_CustomizationContext(const prop: IDispatch);
begin
  DefaultInterface.Set_CustomizationContext(prop);
end;

function TWordApplicationProperties.Get_KeyBindings: KeyBindings;
begin
    Result := DefaultInterface.KeyBindings;
end;

function TWordApplicationProperties.Get_KeysBoundTo(KeyCategory: WdKeyCategory; 
                                                    const Command: WideString; 
                                                    var CommandParameter: OleVariant): KeysBoundTo;
begin
    Result := DefaultInterface.KeysBoundTo[KeyCategory, Command, CommandParameter];
end;

function TWordApplicationProperties.Get_FindKey(KeyCode: Integer; var KeyCode2: OleVariant): KeyBinding;
begin
    Result := DefaultInterface.FindKey[KeyCode, KeyCode2];
end;

function TWordApplicationProperties.Get_Caption: WideString;
begin
    Result := DefaultInterface.Caption;
end;

procedure TWordApplicationProperties.Set_Caption(const prop: WideString);
  { Warning: The property Caption has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.Caption := prop;
end;

function TWordApplicationProperties.Get_Path: WideString;
begin
    Result := DefaultInterface.Path;
end;

function TWordApplicationProperties.Get_DisplayScrollBars: WordBool;
begin
    Result := DefaultInterface.DisplayScrollBars;
end;

procedure TWordApplicationProperties.Set_DisplayScrollBars(prop: WordBool);
begin
  DefaultInterface.Set_DisplayScrollBars(prop);
end;

function TWordApplicationProperties.Get_StartupPath: WideString;
begin
    Result := DefaultInterface.StartupPath;
end;

procedure TWordApplicationProperties.Set_StartupPath(const prop: WideString);
  { Warning: The property StartupPath has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.StartupPath := prop;
end;

function TWordApplicationProperties.Get_BackgroundSavingStatus: Integer;
begin
    Result := DefaultInterface.BackgroundSavingStatus;
end;

function TWordApplicationProperties.Get_BackgroundPrintingStatus: Integer;
begin
    Result := DefaultInterface.BackgroundPrintingStatus;
end;

function TWordApplicationProperties.Get_Left: Integer;
begin
    Result := DefaultInterface.Left;
end;

procedure TWordApplicationProperties.Set_Left(prop: Integer);
begin
  DefaultInterface.Set_Left(prop);
end;

function TWordApplicationProperties.Get_Top: Integer;
begin
    Result := DefaultInterface.Top;
end;

procedure TWordApplicationProperties.Set_Top(prop: Integer);
begin
  DefaultInterface.Set_Top(prop);
end;

function TWordApplicationProperties.Get_Width: Integer;
begin
    Result := DefaultInterface.Width;
end;

procedure TWordApplicationProperties.Set_Width(prop: Integer);
begin
  DefaultInterface.Set_Width(prop);
end;

function TWordApplicationProperties.Get_Height: Integer;
begin
    Result := DefaultInterface.Height;
end;

procedure TWordApplicationProperties.Set_Height(prop: Integer);
begin
  DefaultInterface.Set_Height(prop);
end;

function TWordApplicationProperties.Get_WindowState: WdWindowState;
begin
    Result := DefaultInterface.WindowState;
end;

procedure TWordApplicationProperties.Set_WindowState(prop: WdWindowState);
begin
  DefaultInterface.Set_WindowState(prop);
end;

function TWordApplicationProperties.Get_DisplayAutoCompleteTips: WordBool;
begin
    Result := DefaultInterface.DisplayAutoCompleteTips;
end;

procedure TWordApplicationProperties.Set_DisplayAutoCompleteTips(prop: WordBool);
begin
  DefaultInterface.Set_DisplayAutoCompleteTips(prop);
end;

function TWordApplicationProperties.Get_Options: Options;
begin
    Result := DefaultInterface.Options;
end;

function TWordApplicationProperties.Get_DisplayAlerts: WdAlertLevel;
begin
    Result := DefaultInterface.DisplayAlerts;
end;

procedure TWordApplicationProperties.Set_DisplayAlerts(prop: WdAlertLevel);
begin
  DefaultInterface.Set_DisplayAlerts(prop);
end;

function TWordApplicationProperties.Get_CustomDictionaries: Dictionaries;
begin
    Result := DefaultInterface.CustomDictionaries;
end;

function TWordApplicationProperties.Get_PathSeparator: WideString;
begin
    Result := DefaultInterface.PathSeparator;
end;

procedure TWordApplicationProperties.Set_StatusBar(const Param1: WideString);
  { Warning: The property StatusBar has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.StatusBar := Param1;
end;

function TWordApplicationProperties.Get_MAPIAvailable: WordBool;
begin
    Result := DefaultInterface.MAPIAvailable;
end;

function TWordApplicationProperties.Get_DisplayScreenTips: WordBool;
begin
    Result := DefaultInterface.DisplayScreenTips;
end;

procedure TWordApplicationProperties.Set_DisplayScreenTips(prop: WordBool);
begin
  DefaultInterface.Set_DisplayScreenTips(prop);
end;

function TWordApplicationProperties.Get_EnableCancelKey: WdEnableCancelKey;
begin
    Result := DefaultInterface.EnableCancelKey;
end;

procedure TWordApplicationProperties.Set_EnableCancelKey(prop: WdEnableCancelKey);
begin
  DefaultInterface.Set_EnableCancelKey(prop);
end;

function TWordApplicationProperties.Get_UserControl: WordBool;
begin
    Result := DefaultInterface.UserControl;
end;

function TWordApplicationProperties.Get_FileSearch: FileSearch;
begin
    Result := DefaultInterface.FileSearch;
end;

function TWordApplicationProperties.Get_MailSystem: WdMailSystem;
begin
    Result := DefaultInterface.MailSystem;
end;

function TWordApplicationProperties.Get_DefaultTableSeparator: WideString;
begin
    Result := DefaultInterface.DefaultTableSeparator;
end;

procedure TWordApplicationProperties.Set_DefaultTableSeparator(const prop: WideString);
  { Warning: The property DefaultTableSeparator has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.DefaultTableSeparator := prop;
end;

function TWordApplicationProperties.Get_ShowVisualBasicEditor: WordBool;
begin
    Result := DefaultInterface.ShowVisualBasicEditor;
end;

procedure TWordApplicationProperties.Set_ShowVisualBasicEditor(prop: WordBool);
begin
  DefaultInterface.Set_ShowVisualBasicEditor(prop);
end;

function TWordApplicationProperties.Get_BrowseExtraFileTypes: WideString;
begin
    Result := DefaultInterface.BrowseExtraFileTypes;
end;

procedure TWordApplicationProperties.Set_BrowseExtraFileTypes(const prop: WideString);
  { Warning: The property BrowseExtraFileTypes has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.BrowseExtraFileTypes := prop;
end;

function TWordApplicationProperties.Get_IsObjectValid(const Object_: IDispatch): WordBool;
begin
    Result := DefaultInterface.IsObjectValid[Object_];
end;

function TWordApplicationProperties.Get_HangulHanjaDictionaries: HangulHanjaConversionDictionaries;
begin
    Result := DefaultInterface.HangulHanjaDictionaries;
end;

function TWordApplicationProperties.Get_MailMessage: MailMessage;
begin
    Result := DefaultInterface.MailMessage;
end;

function TWordApplicationProperties.Get_FocusInMailHeader: WordBool;
begin
    Result := DefaultInterface.FocusInMailHeader;
end;

function TWordApplicationProperties.Get_EmailOptions: EmailOptions;
begin
    Result := DefaultInterface.EmailOptions;
end;

function TWordApplicationProperties.Get_Language: MsoLanguageID;
begin
    Result := DefaultInterface.Language;
end;

function TWordApplicationProperties.Get_COMAddIns: COMAddIns;
begin
    Result := DefaultInterface.COMAddIns;
end;

function TWordApplicationProperties.Get_CheckLanguage: WordBool;
begin
    Result := DefaultInterface.CheckLanguage;
end;

procedure TWordApplicationProperties.Set_CheckLanguage(prop: WordBool);
begin
  DefaultInterface.Set_CheckLanguage(prop);
end;

function TWordApplicationProperties.Get_LanguageSettings: LanguageSettings;
begin
    Result := DefaultInterface.LanguageSettings;
end;

function TWordApplicationProperties.Get_Dummy1: WordBool;
begin
    Result := DefaultInterface.Dummy1;
end;

function TWordApplicationProperties.Get_AnswerWizard: AnswerWizard;
begin
    Result := DefaultInterface.AnswerWizard;
end;

function TWordApplicationProperties.Get_FeatureInstall: MsoFeatureInstall;
begin
    Result := DefaultInterface.FeatureInstall;
end;

procedure TWordApplicationProperties.Set_FeatureInstall(prop: MsoFeatureInstall);
begin
  DefaultInterface.Set_FeatureInstall(prop);
end;

function TWordApplicationProperties.Get_AutomationSecurity: MsoAutomationSecurity;
begin
    Result := DefaultInterface.AutomationSecurity;
end;

procedure TWordApplicationProperties.Set_AutomationSecurity(prop: MsoAutomationSecurity);
begin
  DefaultInterface.Set_AutomationSecurity(prop);
end;

function TWordApplicationProperties.Get_FileDialog(FileDialogType: MsoFileDialogType): FileDialog;
begin
    Result := DefaultInterface.FileDialog[FileDialogType];
end;

function TWordApplicationProperties.Get_EmailTemplate: WideString;
begin
    Result := DefaultInterface.EmailTemplate;
end;

procedure TWordApplicationProperties.Set_EmailTemplate(const prop: WideString);
  { Warning: The property EmailTemplate has a setter and a getter whose
    types do not match. Delphi was unable to generate a property of
    this sort and so is using a Variant as a passthrough. }
var
  InterfaceVariant: OleVariant;
begin
  InterfaceVariant := DefaultInterface;
  InterfaceVariant.EmailTemplate := prop;
end;

function TWordApplicationProperties.Get_ShowWindowsInTaskbar: WordBool;
begin
    Result := DefaultInterface.ShowWindowsInTaskbar;
end;

procedure TWordApplicationProperties.Set_ShowWindowsInTaskbar(prop: WordBool);
begin
  DefaultInterface.Set_ShowWindowsInTaskbar(prop);
end;

function TWordApplicationProperties.Get_NewDocument: NewFile;
begin
    Result := DefaultInterface.NewDocument;
end;

function TWordApplicationProperties.Get_ShowStartupDialog: WordBool;
begin
    Result := DefaultInterface.ShowStartupDialog;
end;

procedure TWordApplicationProperties.Set_ShowStartupDialog(prop: WordBool);
begin
  DefaultInterface.Set_ShowStartupDialog(prop);
end;

function TWordApplicationProperties.Get_AutoCorrectEmail: AutoCorrect;
begin
    Result := DefaultInterface.AutoCorrectEmail;
end;

function TWordApplicationProperties.Get_TaskPanes: TaskPanes;
begin
    Result := DefaultInterface.TaskPanes;
end;

function TWordApplicationProperties.Get_DefaultLegalBlackline: WordBool;
begin
    Result := DefaultInterface.DefaultLegalBlackline;
end;

procedure TWordApplicationProperties.Set_DefaultLegalBlackline(prop: WordBool);
begin
  DefaultInterface.Set_DefaultLegalBlackline(prop);
end;

{$ENDIF}

procedure Register;
begin
  RegisterComponents(dtlServerPage, [TWordDocument, TWordFont, TWordParagraphFormat, TWordLetterContent, 
    TWordApplication]);
end;

end.
