worddecs.pas

Delphi写的Microsoft Word模板程序,可以在Word中加入选单。用法：将编译好的testwll.dll改名为test.wll

  wdSelectCurSpacing              = 288;    
  wdSelectCurTabs                 = 290;    
  wdSelectCurWord                 = -32490; 
  wdSelectDrawingObjects          = 545;    
  wdSelectionFileNameStr          = -32301;
  wdSelectionStr                  = -32747; 
  wdSelInfo                       = -32586; 
  wdSelType                       = -32614; 
  wdSendKeys                      = -32668; 
  wdSentLeft                      = -16380; 
  wdSentRight                     = -16379; 
  wdSetAttr                       = -32509; 
  wdSetAutoText                   = -32726; 
  wdSetDocumentDirty              = -32732; 
  wdSetDocumentVar                = -32436; 
  wdSetEndOfBookmark              = -32742; 
  wdSetFormResult                 = -32432; 
  wdSetPrivateProfileString       = -32498; 
  wdSetProfileString              = -32698; 
  wdSetSelRange                   = -32399; 
  wdSetStartOfBookmark            = -32743; 
  wdSetTemplateDirty              = -32487; 
  wdSgn                           = -32767; 
  wdShadingPattern                = -32452; 
  wdShell                         = -32723; 
  wdShowAll                       = -32752; 
  wdShowAllHeadings               = 260;    
  wdShowAnnotationBy              = -32510;
  wdShowHeading1                  = 251;    
  wdShowHeading2                  = 252;    
  wdShowHeading3                  = 253;    
  wdShowHeading4                  = 254;    
  wdShowHeading5                  = 255;    
  wdShowHeading6                  = 256;    
  wdShowHeading7                  = 257;    
  wdShowHeading8                  = 258;    
  wdShowHeading9                  = 259;    
  wdShowNextHeaderFooter          = 589;    
  wdShowPrevHeaderFooter          = 588;    
  wdShowVars                      = 263;    
  wdShrinkFont                    = 12;     
  wdShrinkFontOnePoint            = 514;    
  wdShrinkSelection               = 236;    
  wdSizeToolbar                   = -32420; 
  wdSkipNumbering                 = -32386; 
  wdSmallCaps                     = -32694; 
  wdSortArray                     = -32437; 
  wdSpacePara1                    = -32681; 
  wdSpacePara15                   = -32680; 
  wdSpacePara2                    = -32679; 
  wdSpike                         = 15;
  wdSplitSubdocument              = 585;    
  wdStartOfColumn                 = -32557; 
  wdStartOfDocument               = -16368; 
  wdStartOfLine                   = -16372; 
  wdStartOfRow                    = -32559; 
  wdStartOfWindow                 = -16370; 
  wdStop                          = -32441; 
  wdStrikethrough                 = -32692; 
  wdStringStr                     = -32757; 
  wdStrStr                        = -32761; 
  wdStyle                         = -32493; 
  wdStyleDescStr                  = -32667; 
  wdStyleNameStr                  = -32734; 
  wdSubscript                     = -32686; 
  wdSuperscript                   = -32687; 
  wdSymbolFont                    = -32300; 
  wdTabLeaderStr                  = -32719; 
  wdTableAutoFormat               = 563;
  wdTableAutoSum                  = 641;
  wdTableColumnWidth              = 143;
  wdTableDeleteCells              = 133;
  wdTableDeleteColumn             = 135;    
  wdTableDeleteRow                = 134;
  wdTableFormula                  = 348;
  wdTableGridlines                = -32649; 
  wdTableHeadings                 = -32373; 
  wdTableInsertCells              = 130;
  wdTableInsertColumn             = 132;    
  wdTableInsertRow                = 131;
  wdTableInsertTable              = 129;
  wdTableMergeCells               = 136;    
  wdTableRowHeight                = 142;
  wdTableSelectColumn             = 141;    
  wdTableSelectRow                = 140;    
  wdTableSelectTable              = 139;    
  wdTableSort                     = 199;
  wdTableSortAToZ                 = 393;    
  wdTableSortZToA                 = 394;    
  wdTableSplit                    = 138;    
  wdTableSplitCells               = 137;
  wdTableToText                   = 128;
  wdTableUpdateAutoFormat         = 626;    
  wdTabType                       = -32720; 
  wdText                          = -32567; 
  wdTextBox                       = -32551; 
  wdTextFormField                 = 349;
  wdTextToTable                   = 127;
  wdTimeSerial                    = -32514; 
  wdTimeStr                       = -32755; 
  wdTimeValue                     = -32512; 
  wdToday                         = -32511; 
  wdToggleFieldDisplay            = 34;     
  wdToggleFull                    = 582;    
  wdToggleHeaderFooterLink        = 652;    
  wdToggleMainTextLayer           = 587;    
  wdTogglePortrait                = 306;
  wdToggleScribbleMode            = 308;    
  wdToolbarButtonMacroStr         = -32294; 
  wdToolbarNameStr                = -32362; 
  wdToolbarState                  = -32296; 
  wdToolsAddRecordDefault         = 629;    
  wdToolsAdvancedSettings         = 206;
  wdToolsAutoCorrect              = 378;
  wdToolsAutoCorrectDays          = -32353; 
  wdToolsAutoCorrectInitialCaps   = -32355; 
  wdToolsAutoCorrectReplaceText   = -32356; 
  wdToolsAutoCorrectSentenceCaps  = -32354; 
  wdToolsAutoCorrectSmartQuotes   = -32486; 
  wdToolsBulletListDefault        = 307;
  wdToolsBulletsNumbers           = 196;
  wdToolsCalculate                = -32547; 
  wdToolsCompareVersions          = 198;
  wdToolsCreateEnvelope           = 173;
  wdToolsCreateLabels             = 489;
  wdToolsCustomize                = 152;
  wdToolsCustomizeKeyboard        = 432;
  wdToolsCustomizeMenuBar         = 615;
  wdToolsCustomizeMenus           = 433;
  wdToolsEnvelopesAndLabels       = 607;
  wdToolsGetSpelling              = -32624; 
  wdToolsGetSynonyms              = -32623; 
  wdToolsGrammar                  = 193;    
  wdToolsGrammarStatisticsArray   = -32460; 
  wdToolsHyphenation              = 195;
  wdToolsHyphenationManual        = 704;    
  wdToolsLanguage                 = 188;
  wdToolsMacro                    = 215;
  wdToolsManageFields             = 631;
  wdToolsMergeRevisions           = 435;
  wdToolsNumberListDefault        = 309;    
  wdToolsOptions                  = 202;
  wdToolsOptionsAutoFormat        = 365;
  wdToolsOptionsCompatibility     = 525;
  wdToolsOptionsEdit              = 224;
  wdToolsOptionsFileLocations     = 225;
  wdToolsOptionsGeneral           = 203;
  wdToolsOptionsGrammar           = 212;
  wdToolsOptionsPrint             = 208;
  wdToolsOptionsRevisions         = 386;
  wdToolsOptionsSave              = 209;
  wdToolsOptionsSpelling          = 211;
  wdToolsOptionsUserInfo          = 213;
  wdToolsOptionsView              = 204;
  wdToolsProtectDocument          = 503;
  wdToolsProtectSection           = 578;
  wdToolsRemoveRecordDefault      = 630;    
  wdToolsRepaginate               = 201;    
  wdToolsReviewRevisions          = 506;
  wdToolsRevisionAuthorStr        = -32379; 
  wdToolsRevisionDate             = -32378; 
  wdToolsRevisionDateStr          = -32374; 
  wdToolsRevisions                = 197;
  wdToolsRevisionType             = -32380; 
  wdToolsShrinkToFit              = 504;    
  wdToolsSpelling                 = 191;
  wdToolsSpellSelection           = 192;    
  wdToolsThesaurus                = 194;    
  wdToolsUnprotectDocument        = 521;    
  wdToolsWordCount                = 228;    
  wdUCaseStr                      = -32593; 
  wdUnderline                     = -32690; 
  wdUnHang                        = 41;     
  wdUnIndent                      = 39;     
  wdUnlinkFields                  = 33;     
  wdUnlockFields                  = 36;     
  wdUpdateFields                  = 32;     
  wdUpdateSource                  = 37;     
  wdUserDialog                    = 297;    
  wdVal                           = -32762; 
  wdViewAnnotations               = -32660; 
  wdViewBorderToolbar             = 604;    
  wdViewDraft                     = -32658; 
  wdViewDrawingToolbar            = 605;    
  wdViewEndnoteArea               = -32476; 
  wdViewEndnoteContNotice         = 498;    
  wdViewEndnoteContSeparator      = 497;    
  wdViewEndnoteSeparator          = 496;    
  wdViewFieldCodes                = -32659;
  wdViewFooter                    = -32368; 
  wdViewFootnoteArea              = -32351; 
  wdViewFootnoteContNotice        = 495;    
  wdViewFootnoteContSeparator     = 494;    
  wdViewFootnotes                 = -32661; 
  wdViewFootnoteSeparator         = 493;    
  wdViewHeader                    = -32369; 
  wdViewMasterDocument            = -32357; 
  wdViewMenus                     = -32650; 
  wdViewNormal                    = -32651; 
  wdViewOutline                   = -32652; 
  wdViewPage                      = -32653; 
  wdViewRibbon                    = -32655; 
  wdViewRuler                     = -32656; 
  wdViewStatusBar                 = -32657; 
  wdViewToggleMasterDocument      = 632;    
  wdViewToolbar                   = -32654; 
  wdViewToolbars                  = 323;    
  wdViewZoom                      = 577;    
  wdViewZoom100                   = 305;    
  wdViewZoom200                   = 573;    
  wdViewZoom75                    = 574;    
  wdViewZoomPageWidth             = 304;
  wdViewZoomWholePage             = 303;    
  wdVLine                         = -32716; 
  wdVPage                         = -32714; 
  wdVScroll                       = -32712; 
  wdWaitCursor                    = -32529; 
  wdWeekday                       = -32520; 
  wdWindow                        = -32706;
  wdWindow1                       = -32545; 
  wdWindow2                       = -32544; 
  wdWindow3                       = -32543; 
  wdWindow4                       = -32542; 
  wdWindow5                       = -32541; 
  wdWindow6                       = -32540; 
  wdWindow7                       = -32539; 
  wdWindow8                       = -32538; 
  wdWindow9                       = -32537; 
  wdWindowArrangeAll              = 218;    
  wdWindowList                    = -32546; 
  wdWindowNameStr                 = -32709; 
  wdWindowNewWindow               = 217;    
  wdWindowPane                    = -32708; 
  wdWinToDOSStr                   = -32515; 
  wdWordLeft                      = -16382;
  wdWordRight                     = -16381; 
  wdWordUnderline                 = -32688; 
  wdYear                          = -32519; 

{*************************** Word Error Codes ********************************}

  errIllegalFunctionCall   =  5;
  errOverflow              =  6;
  errOutOfMemory           =  7;
  errSubscriptOutOfRange   =  9;
  errDivisionByZero        = 11;
  errOutOfStringSpace      = 14;
  errCaseElseExpected      = 39;
  errInternalError         = 51;
  errBadFileNameOrNumber   = 52;
  errFileNotFound          = 53;
  errBadFileMode           = 54;
  errFileAlreadyOpen       = 55;
  errDeviceIOError         = 57;
  errInputPastEndOfFile    = 62;
  errBadFileName           = 64;
  errTooManyFiles          = 67;
  errAdvFeatureUnavail     = 73;
  errRenameAcrossDisks     = 74;
  errPathFileAccessError   = 75;
  errPathNotFound          = 76;
  errBadArrayBound         = 22;
  errCannotWriteDisk       = 23;
  errBadParam              = 24;
  errOutOfStack            = 25;
  errUDlgNoButton          = 26;
  errNoResume              = 27;
  errDirExists             = 28;
  errSyntaxError          = 100;
  errCommaMissing         = 101;
  errCommandFailed        = 102;
  errDlgRecVarExpected    = 103;
  errElseWithoutIf        = 104;
  errEndIfWithoutIf       = 105;
  errInputMissing         = 109;
  errNoResumeNext         = 110;
  errExpressionTooComplex = 111;
  errIdentifierExpected   = 112;
  errDuplicateLabel       = 113;
  errLabelNotFound        = 114;
  errMissingRightParen    = 115;
  errArgCountMismatch     = 116;
  errMissingNextOrWend    = 117;
  errNestedSubOrFunc      = 118;
  errNextWithoutFor       = 119;
  errArrayAlreadyDimed    = 120;
  errTypeMismatch         = 122;
  errUndefDlgRecField     = 123;
  errSubprogNotDefined    = 124;
  errUnexpectedEndOfMacro = 125;
  errWendWithoutWhile     = 126;
  errWrongNumOfDimensions = 127;
  errTooManyCtrlStructs   = 129;
  errMissingEndSelect     = 130;
  errIllegalRedim         = 131;
  errDllMadeStringTooLong = 132;
  errBadDllCall           = 133;
  errBadDate              = 134;
  errNotOnThisPlatform    = 135;
  errCmdNotOnThisPlatform = 136;
  errInvalidPathOpt       = 137;
  errCantChangeSel        = 138;
  errUserDlgUp            = 139;
  errInvalDlgControlId    = 140;
  errUnavailableOnCtl     = 141;
  errBadAppName           = 142;
  errInvalDlgHideDisable  = 143;
  errInvalDlgFocus        = 144;
  errInvalMergeField      = 145;
  errNoMergeField         = 146;
  errInternalStringError  = 147;
  errAppMaximized         = 148;